e04138c89e
Added authentication module webapi, to provide registration via webapi. Improved the roles display by providing table of permissions if asked. Added various links in primary tabs to navigate back to roles or users, depending on the page. Added datetime to-from string converters in CMS_ENCODERS. Start removing CMS_ADMINISTRABLE. Added permission to use simple core access token. Added webapi for users: list, new, register.
97 lines
2.3 KiB
Plaintext
97 lines
2.3 KiB
Plaintext
note
|
|
description: "Summary description for {CMS_ROLE_VIEW_RESPONSE}."
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
CMS_ROLE_VIEW_RESPONSE
|
|
|
|
inherit
|
|
CMS_RESPONSE
|
|
|
|
create
|
|
make
|
|
|
|
feature -- Query
|
|
|
|
role_id_path_parameter (req: WSF_REQUEST): INTEGER_64
|
|
-- Role id passed as path parameter for request `req'.
|
|
local
|
|
s: STRING
|
|
do
|
|
if attached {WSF_STRING} req.path_parameter ("id") as p_nid then
|
|
s := p_nid.value
|
|
if s.is_integer_64 then
|
|
Result := s.to_integer_64
|
|
end
|
|
end
|
|
end
|
|
|
|
|
|
feature -- Execution
|
|
|
|
process
|
|
-- Computed response message.
|
|
local
|
|
uid: INTEGER_64
|
|
user_api : CMS_USER_API
|
|
do
|
|
user_api := api.user_api
|
|
uid := role_id_path_parameter (request)
|
|
if uid > 0 and then attached user_api.user_role_by_id (uid.to_integer) as l_role then
|
|
append_html_to_output (l_role, Current)
|
|
else
|
|
set_main_content ("Missing Role")
|
|
end
|
|
end
|
|
|
|
append_html_to_output (a_role: CMS_USER_ROLE; a_response: CMS_RESPONSE )
|
|
local
|
|
lnk: CMS_LOCAL_LINK
|
|
s: STRING
|
|
do
|
|
a_response.set_value (a_role, "role")
|
|
lnk := api.administration_link (a_response.translation ("View", Void), "role/" + a_role.id.out)
|
|
lnk.set_is_active (True)
|
|
lnk.set_weight (1)
|
|
a_response.add_to_primary_tabs (lnk)
|
|
|
|
lnk := api.administration_link (a_response.translation ("Edit", Void), "role/" + a_role.id.out + "/edit")
|
|
lnk.set_weight (2)
|
|
a_response.add_to_primary_tabs (lnk)
|
|
|
|
if a_role /= Void and then a_role.id > 0 then
|
|
lnk := api.administration_link (a_response.translation ("Delete", Void), "role/" + a_role.id.out + "/delete")
|
|
lnk.set_weight (3)
|
|
a_response.add_to_primary_tabs (lnk)
|
|
end
|
|
lnk := api.administration_link (translation ("<< Roles", Void), "roles")
|
|
lnk.set_weight (10)
|
|
add_to_primary_tabs (lnk)
|
|
|
|
create s.make_empty
|
|
s.append ("<div class=%"info%"> ")
|
|
s.append ("<h4>Role Information</h4>")
|
|
s.append ("<p>Role:")
|
|
s.append (html_encoded (a_role.name))
|
|
s.append ("</p>")
|
|
|
|
s.append ("<h4>Permissions:</h4>")
|
|
if
|
|
not a_role.permissions.is_empty
|
|
then
|
|
s.append ("<ul class=%"cms-permissions%">%N")
|
|
across a_role.permissions as ic loop
|
|
s.append ("<li class=%"cms-permission%">"+ ic.item + "</li>%N")
|
|
end
|
|
s.append ("</ul>%N")
|
|
|
|
end
|
|
|
|
s.append ("</div>")
|
|
a_response.set_title (a_role.name)
|
|
a_response.set_main_content (s)
|
|
end
|
|
|
|
end
|