%N")
across
lst as ic
loop
@@ -47,17 +48,33 @@ feature -- HTTP Methods
lnk := node_api.node_link (n)
s.append ("- ")
+ -- Post date (creation)
+ if attached n.creation_date as l_modified then
+ create hdate.make_from_date_time (l_modified)
+ s.append (hdate.yyyy_mmm_dd_string)
+ s.append (" ")
+ end
+
+ -- Author
+ if attached n.author as l_author then
+ s.append ("by ")
+ s.append (l_author.name)
+ end
+
-- Title with link
s.append (l_page.link (lnk.title, lnk.location, Void))
-- Summary
if attached n.summary as l_summary then
- s.append ("
")
+ s.append ("")
if attached api.format (n.format) as f then
s.append (f.formatted_output (l_summary))
else
s.append (l_page.formats.default_format.formatted_output (l_summary))
end
+ s.append ("
")
+ s.append (l_page.link ("More...", lnk.location, Void))
+ s.append ("
")
end
s.append (" %N")
diff --git a/modules/node/persistence/cms_node_storage_i.e b/modules/node/persistence/cms_node_storage_i.e
index 6090d95..2a2051b 100644
--- a/modules/node/persistence/cms_node_storage_i.e
+++ b/modules/node/persistence/cms_node_storage_i.e
@@ -70,6 +70,11 @@ feature -- Access
deferred
end
+ nodes_order_created_desc: LIST [CMS_NODE]
+ -- List of nodes ordered by creation date (descending).
+ deferred
+ end
+
recent_nodes (a_lower: INTEGER; a_count: INTEGER): LIST [CMS_NODE]
-- List of recent `a_count' nodes with an offset of `lower'.
deferred
diff --git a/modules/node/persistence/cms_node_storage_null.e b/modules/node/persistence/cms_node_storage_null.e
index 87559af..a917ec5 100644
--- a/modules/node/persistence/cms_node_storage_null.e
+++ b/modules/node/persistence/cms_node_storage_null.e
@@ -41,6 +41,12 @@ feature -- Access: node
create {ARRAYED_LIST [CMS_NODE]} Result.make (0)
end
+ nodes_order_created_desc: LIST[CMS_NODE]
+ -- List of nodes ordered descending by creation date
+ do
+ create {ARRAYED_LIST [CMS_NODE]} Result.make (0)
+ end
+
recent_nodes (a_lower: INTEGER; a_count: INTEGER): LIST [CMS_NODE]
-- List of the `a_count' most recent nodes, starting from `a_lower'.
do
diff --git a/modules/node/persistence/cms_node_storage_sql.e b/modules/node/persistence/cms_node_storage_sql.e
index 06ecadc..5d9c7f2 100644
--- a/modules/node/persistence/cms_node_storage_sql.e
+++ b/modules/node/persistence/cms_node_storage_sql.e
@@ -33,6 +33,32 @@ feature -- Access
end
end
+ nodes_order_created_desc: LIST [CMS_NODE]
+ -- List of nodes ordered by creation date (descending).
+ do
+ create {ARRAYED_LIST [CMS_NODE]} Result.make (0)
+
+ error_handler.reset
+ write_information_log (generator + ".nodes")
+
+ from
+ sql_query (sql_select_nodes_order_created_desc, Void)
+ sql_start
+ until
+ sql_after
+ loop
+ if attached fetch_node as l_node then
+ Result.force (l_node)
+ end
+ sql_forth
+ end
+-- across
+-- Result as ic
+-- loop
+-- fill_node (ic.item)
+-- end
+ end
+
nodes: LIST [CMS_NODE]
-- List of nodes.
do
@@ -228,6 +254,10 @@ feature {NONE} -- Queries
-- SQL Query to retrieve all nodes.
--| note: {CMS_NODE_API}.trashed = -1
+ sql_select_nodes_order_created_desc: STRING = "SELECT * FROM Nodes WHERE status != -1 ORDER BY created DESC;"
+ -- SQL Query to retrieve all nodes order by descending creation date.
+ --| note: {CMS_NODE_API}.trashed = -1
+
sql_select_node_by_id: STRING = "SELECT nid, revision, type, title, summary, content, format, author, publish, created, changed, status FROM Nodes WHERE nid =:nid ORDER BY revision DESC, publish DESC LIMIT 1;"
sql_select_recent_nodes: STRING = "SELECT nid, revision, type, title, summary, content, format, author, publish, created, changed, status FROM Nodes ORDER BY nid DESC, publish DESC LIMIT :rows OFFSET :offset ;"