backup/ROC
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added CMS_RESPONSE.request_url (...)

Browse Source 
Update a few callers of CMS_RESPONSE.url (...).
Renamed the demo files using "server" instead of "demo".
This commit is contained in:
Jocelyn Fiat
2017-04-11 13:19:39 +02:00
parent 1f6fce1278
commit 1aad62ed52
15 changed files with 737 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
modules/admin/handler/user/cms_user_form_response.e
View File

@@ -64,7 +64,7 @@ feature -- Process Edit
fd: detachable WSF_FORM_DATA
do
create b.make_empty
f := new_edit_form (a_user, url (location, Void), "edit-user")
f := new_edit_form (a_user, request_url (Void), "edit-user")
api.hooks.invoke_form_alter (f, fd, Current)
if request.is_post_request_method then
f.submit_actions.extend (agent edit_form_submit (?, a_user, b))
@@ -96,7 +96,7 @@ feature -- Process Delete
fd: detachable WSF_FORM_DATA
do
create b.make_empty
f := new_delete_form (a_user, url (location, Void), "edit-user")
f := new_delete_form (a_user, request_url (Void), "edit-user")
api.hooks.invoke_form_alter (f, fd, Current)
if request.is_post_request_method then
f.process (Current)
@@ -129,7 +129,7 @@ feature -- Process New
l_user: detachable CMS_USER
do
create b.make_empty
f := new_edit_form (l_user, url (location, Void), "create-user")
f := new_edit_form (l_user, request_url (Void), "create-user")
api.hooks.invoke_form_alter (f, fd, Current)
if request.is_post_request_method then
f.validation_actions.extend (agent new_form_validate (?, b))