mirrors/EWF
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed url computing when a `base_url' is provided

Browse Source
This commit is contained in:
Jocelyn Fiat
2013-03-01 12:53:48 +01:00
parent 9d8e8eb25a
commit f3d37024fb
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
draft/application/cms/src/cms_service.e
View File

@@ -288,13 +288,19 @@ feature -- URL related
urls_set: BOOLEAN urls_set: BOOLEAN
initialize_urls (req: WSF_REQUEST) initialize_urls (req: WSF_REQUEST)
local
u: like base_url
do do
if not urls_set then if not urls_set then
u := base_url
if u = Void then
u := ""
end
urls_set := True urls_set := True
if site_url.is_empty then if site_url.is_empty then
site_url := req.absolute_script_url ("") site_url := req.absolute_script_url (u)
end end
set_script_url (req.script_url ("")) set_script_url (req.script_url (u))
end end
end end