note
description: "[
]"
class
THEME_CMS_EXECUTION
inherit
CMS_EXECUTION
create
make
feature -- Execution
process
-- Computed response message.
local
-- l_url: READABLE_STRING_8
b: STRING_8
do
set_title ("Home")
create b.make_empty
b.append ("
Home
%N")
if attached service.storage.recent_nodes (1, 10) as l_nodes then
across
l_nodes as c
loop
b.append ("")
b.append (c.item.to_html (theme))
b.append ("
%N")
end
end
-- b.append ("%N")
-- l_url := url ("/", Void)
-- b.append ("- Home
%N")
-- l_url := url ("/info/", Void)
-- b.append ("- EWF Info
%N")
-- b.append ("
%N")
set_main_content (b)
end
end