Fixing various form urls, that was not taking into account base url

This commit is contained in:
Jocelyn Fiat
2013-02-20 19:05:33 +01:00
parent 5d05f31d03
commit a417cc1e16
3 changed files with 3 additions and 3 deletions

View File

@@ -25,7 +25,7 @@ feature -- Execution
create b.make_empty
if attached non_empty_string_path_parameter ("type") as s_type then
if attached service.content_type (s_type) as l_type then
f := edit_form (Void, request.path_info, "add-" + l_type.name, l_type)
f := edit_form (Void, url (request.path_info, Void), "add-" + l_type.name, l_type)
if request.is_post_request_method then
create fd.make (request, f)
l_preview := attached {WSF_STRING} fd.item ("op") as l_op and then l_op.same_string ("Preview")

View File

@@ -30,7 +30,7 @@ feature -- Execution
then
if attached service.content_type (l_node.content_type_name) as l_type then
if has_permission ("edit " + l_type.name) then
f := edit_form (l_node, request.path_info, "edit-" + l_type.name, l_type)
f := edit_form (l_node, url (request.path_info, Void), "edit-" + l_type.name, l_type)
if request.is_post_request_method then
create fd.make (request, f)
l_preview := attached {WSF_STRING} fd.item ("op") as l_op and then l_op.same_string ("Preview")

View File

@@ -47,7 +47,7 @@ feature -- Execution
set_redirection (url ("/user/register", Void))
else
service.storage.fill_user_profile (u)
f := edit_form (u, request.path_info, "user-edit")
f := edit_form (u, url (request.path_info, Void), "user-edit")
if request.is_post_request_method then
create fd.make (request, f)