Updated CMS code.

Separated code to have a lib and an example.
Improved design, fixed a few issues related to folder location.

This is still experimental and require more work to be really friendly to use.
This commit is contained in:
Jocelyn Fiat
2013-01-31 15:33:24 +01:00
parent 40ea982293
commit ce469b6ede
136 changed files with 1841 additions and 299 deletions

View File

@@ -0,0 +1,43 @@
note
description: "Summary description for {CMS_ADMIN_EXECUTION}."
author: ""
date: "$Date$"
revision: "$Revision$"
class
ADMIN_CMS_EXECUTION
inherit
CMS_EXECUTION
create
make
feature -- Execution
process
-- Computed response message.
local
b: STRING_8
do
set_title ("Administration")
-- check Permission !!!
create b.make_empty
if has_permission ("administrate modules") then
b.append ("<li>" + link ("Modules", "/admin/modules/", Void) + "</li>")
end
if has_permission ("administrate blocks") then
b.append ("<li>" + link ("Blocks", "/admin/blocks/", Void) + "</li>")
end
if has_permission ("administrate users") then
b.append ("<li>" + link ("Users", "/admin/users/", Void) + "</li>")
end
if has_permission ("administrate logs") then
b.append ("<li>" + link ("Logs", "/admin/logs/", Void) + "</li>")
end
set_main_content (b)
end
end