From f3d37024fb78b219fdce3c5ea7fa2fec3de1646a Mon Sep 17 00:00:00 2001
From: Jocelyn Fiat <jfiat@eiffel.com>
Date: Fri, 1 Mar 2013 12:53:48 +0100
Subject: [PATCH] Fixed url computing when a `base_url' is provided

---
 draft/application/cms/src/cms_service.e | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/draft/application/cms/src/cms_service.e b/draft/application/cms/src/cms_service.e
index 28657126..531e36b8 100644
--- a/draft/application/cms/src/cms_service.e
+++ b/draft/application/cms/src/cms_service.e
@@ -288,13 +288,19 @@ feature -- URL related
 	urls_set: BOOLEAN
 
 	initialize_urls (req: WSF_REQUEST)
+		local
+			u: like base_url
 		do
 			if not urls_set then
+				u := base_url
+				if u = Void then
+					u := ""
+				end
 				urls_set := True
 				if site_url.is_empty then
-					site_url := req.absolute_script_url ("")
+					site_url := req.absolute_script_url (u)
 				end
-				set_script_url (req.script_url (""))
+				set_script_url (req.script_url (u))
 			end
 		end