Updated CMS experimental component

Fixed various issues with fieldset or similar not traversed
This commit is contained in:
Jocelyn Fiat
2013-02-04 15:35:23 +01:00
parent dc6255d410
commit 7db054a36d
18 changed files with 223 additions and 40 deletions

View File

@@ -7,6 +7,9 @@ note
class
CMS_API_OPTIONS
inherit
TABLE_ITERABLE [detachable ANY, STRING]
create
make,
make_from_manifest
@@ -70,6 +73,25 @@ feature -- Access
table: HASH_TABLE [detachable ANY, STRING]
feature -- Change
import (a_opts: CMS_API_OPTIONS)
do
across
a_opts as c
loop
force (c.item, c.key)
end
end
feature -- Access
new_cursor: TABLE_ITERATION_CURSOR [detachable ANY, STRING]
-- Fresh cursor associated with current structure
do
Result := table.new_cursor
end
invariant
end

View File

@@ -156,6 +156,7 @@ feature -- Access
Result.append ("#" + f)
end
if l_abs then
Result := based_path (Result)
if Result.substring_index ("://", 1) = 0 then
Result.prepend (service.site_url)
end