Moved more components from CMS to wsf_html.
This includes WSF_PAGER, and feature in WSF_THEME .. including WSF_API_OPTIONS used to compute url and link.
This commit is contained in:
40
library/server/wsf_html/api/wsf_request_theme.e
Normal file
40
library/server/wsf_html/api/wsf_request_theme.e
Normal file
@@ -0,0 +1,40 @@
|
||||
note
|
||||
description: "[
|
||||
WF_THEME associated with a request
|
||||
]"
|
||||
date: "$Date$"
|
||||
revision: "$Revision$"
|
||||
|
||||
class
|
||||
WSF_REQUEST_THEME
|
||||
|
||||
inherit
|
||||
WSF_THEME
|
||||
|
||||
create
|
||||
make_with_request
|
||||
|
||||
feature {NONE} -- Initialization
|
||||
|
||||
make_with_request (req: WSF_REQUEST)
|
||||
do
|
||||
request := req
|
||||
end
|
||||
|
||||
request: WSF_REQUEST
|
||||
-- Associated request
|
||||
|
||||
feature -- Core
|
||||
|
||||
site_url: READABLE_STRING_8
|
||||
do
|
||||
Result := request.absolute_script_url ("")
|
||||
end
|
||||
|
||||
base_url: detachable READABLE_STRING_8
|
||||
-- Base url if any.
|
||||
do
|
||||
Result := request.script_url ("")
|
||||
end
|
||||
|
||||
end
|
||||
Reference in New Issue
Block a user