diff --git a/modules/blog/cms_node_storage_sql_blog_extension.e b/modules/blog/cms_node_storage_sql_blog_extension.e index 1b1d5dd..e2272b8 100644 --- a/modules/blog/cms_node_storage_sql_blog_extension.e +++ b/modules/blog/cms_node_storage_sql_blog_extension.e @@ -41,6 +41,7 @@ feature -- Access feature -- Persistence store (a_node: CMS_BLOG) + -- . local l_parameters: STRING_TABLE [detachable ANY] l_new_tags: detachable STRING_32 @@ -97,6 +98,7 @@ feature -- Persistence end load (a_node: CMS_BLOG) + -- . local l_tags: READABLE_STRING_32 do @@ -106,7 +108,10 @@ feature -- Persistence end end +feature {NONE} -- Implementation + node_data (a_node: CMS_NODE): detachable TUPLE [revision: INTEGER_64; tags: READABLE_STRING_32] + -- Node extension data for node `a_node' as tuple. local l_parameters: STRING_TABLE [ANY] l_rev: INTEGER_64 diff --git a/modules/node/cms_node_api.e b/modules/node/cms_node_api.e index a5c8ad4..3ee8c61 100644 --- a/modules/node/cms_node_api.e +++ b/modules/node/cms_node_api.e @@ -222,6 +222,7 @@ feature -- Access: Node end node_revisions (a_node: CMS_NODE): LIST [CMS_NODE] + -- List of revisions for node `a_node'. do Result := node_storage.node_revisions (a_node) Result := full_nodes (Result) diff --git a/modules/node/persistence/cms_node_storage_extension.e b/modules/node/persistence/cms_node_storage_extension.e index 1ea4f40..5c73cac 100644 --- a/modules/node/persistence/cms_node_storage_extension.e +++ b/modules/node/persistence/cms_node_storage_extension.e @@ -52,10 +52,12 @@ feature -- Persistence feature {NONE} -- Persistence implementation store (a_node: G) + -- Store extension data from node `a_node'. deferred end load (a_node: G) + -- Load extension data into node `a_node'. deferred end diff --git a/modules/node/persistence/cms_node_storage_sql_page_extension.e b/modules/node/persistence/cms_node_storage_sql_page_extension.e index 9d64d50..d28091b 100644 --- a/modules/node/persistence/cms_node_storage_sql_page_extension.e +++ b/modules/node/persistence/cms_node_storage_sql_page_extension.e @@ -41,6 +41,7 @@ feature -- Access feature -- Persistence store (a_node: CMS_PAGE) + -- . local l_parameters: STRING_TABLE [ANY] l_new_parent_id, l_previous_parent_id: INTEGER_64 @@ -87,6 +88,7 @@ feature -- Persistence end load (a_node: CMS_PAGE) + -- . local ct: CMS_PAGE_NODE_TYPE l_parent_id: INTEGER_64 @@ -110,7 +112,10 @@ feature -- Persistence end end +feature {NONE} -- Implementation + node_data (a_node: CMS_NODE): detachable TUPLE [parent_id: INTEGER_64] + -- Node extension data for node `a_node' as tuple. local l_parameters: STRING_TABLE [ANY] n: INTEGER