617c48adcb
Added user roles management Improvement CMS_HOOK_FORM_ALTER design. Factorized code into CMS_WIDGET_COMPOSITE Use general notion of CMS_WIDGET (and CMS_FORM allows CMS_WIDGET, and not just CMS_FORM_ITEM) Fixed various CMS_WIDGET traversal, and fixed related issue for CMS forms Fixed CMS_FORM_CHECKBOX_INPUT when no value was set. Added CMS_FORM_DATA.cached_value .. to pass computed values during validation to submit actions (mainly for optimization) Added support for @include=filename in CMS_CONFIGURATION Added CMS_WIDGET_TABLE as filled version of CMS_WIDGET_AGENT_TABLE (renamed from previous CMS_WIDGET_TABLE) Many improvements to the CMS_FORM design Some improvements to CMS_MODULE ...
47 lines
1.0 KiB
Plaintext
47 lines
1.0 KiB
Plaintext
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 user-roles") then
|
|
b.append ("<li>" + link ("User roles", "/admin/roles/", 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
|