Moved src/modules under modules cluster.

modules/node/handler/wsf_cms_theme.e

@@ -0,0 +1,58 @@
+note
+	description: "Summary description for {WSF_CMS_THEME}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	WSF_CMS_THEME
+
+inherit
+	WSF_THEME
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (res: CMS_RESPONSE; a_cms_theme: CMS_THEME)
+		do
+			request := res.request
+			cms_theme := a_cms_theme
+			set_response (res)
+		end
+
+feature -- Access
+
+	request: WSF_REQUEST
+
+	response: detachable CMS_RESPONSE
+
+	cms_theme: CMS_THEME
+
+feature -- Element change
+
+	set_response (a_response: CMS_RESPONSE)
+		do
+			response := a_response
+		end
+
+feature -- Core
+
+	site_url: READABLE_STRING_8
+		do
+			if attached response as r then
+				Result := r.site_url
+			else
+				Result := request.absolute_script_url ("")
+			end
+		end
+
+	base_url: detachable READABLE_STRING_8
+			-- Base url if any.
+		do
+			if attached response as r then
+				Result := r.base_url
+			end
+		end
+
+end