Added better id in feed item.

In node recent changes, return only the published entries.

modules/node/cms_node_module.e

@@ -312,6 +312,7 @@ feature -- Hooks
 						if l_node_api.has_permission_for_action_on_node ("view", n, a_current_user) then
 							n := l_node_api.full_node (n)
 							create ch.make (n.content_type, create {CMS_LOCAL_LINK}.make (n.title, "node/" + n.id.out), n.modification_date)
+							ch.set_id (n.content_type + ":id" + n.id.out + "-rev" + n.revision.out)
 							if n.creation_date ~ n.modification_date then
 								l_info := "new"
 								if not n.is_published then

modules/node/persistence/cms_node_storage_sql.e

@@ -214,7 +214,7 @@ feature -- Access
 		end
 
 	recent_node_changes_before (a_lower: INTEGER; a_count: INTEGER; a_date: DATE_TIME): LIST [CMS_NODE]
-			-- List of recent changes, before `a_date', according to `params' settings.
+			-- List of recent changes on published nodes, before `a_date', according to `params' settings.
 		local
 			l_parameters: STRING_TABLE [detachable ANY]
 		do
@@ -224,10 +224,11 @@ feature -- Access
 			write_information_log (generator + ".recent_node_changes_before")
 
 			from
-				create l_parameters.make (3)
+				create l_parameters.make (4)
 				l_parameters.put (a_count, "size")
 				l_parameters.put (a_lower, "offset")
 				l_parameters.put (a_date, "date")
+				l_parameters.put ({CMS_NODE_API}.published, "status")
 
 				sql_query (sql_select_recent_node_changes_before, l_parameters)
 				sql_start
@@ -613,9 +614,9 @@ feature {NONE} -- Queries nodes
 		end
 
 	sql_select_recent_node_changes_before: STRING
-			--
+			--published nodes before ':date'.
 		once
-			Result := sql_select_all_from_nodes + " WHERE changed <= :date ORDER BY changed DESC, nid DESC LIMIT :size OFFSET :offset ;"
+			Result := sql_select_all_from_nodes + " WHERE changed <= :date AND status=:status ORDER BY changed DESC, nid DESC LIMIT :size OFFSET :offset ;"
 		end
 
 feature {NONE} -- Queries node revisions