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:
@@ -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
|
||||
Reference in New Issue
Block a user