Index: openacs-4/packages/file-storage/tcl/file-storage-rss-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-rss-procs-oracle.xql,v
diff -u -N -r1.2 -r1.2.16.1
--- openacs-4/packages/file-storage/tcl/file-storage-rss-procs-oracle.xql 13 Jan 2005 13:58:12 -0000 1.2
+++ openacs-4/packages/file-storage/tcl/file-storage-rss-procs-oracle.xql 5 Oct 2021 10:04:44 -0000 1.2.16.1
@@ -10,38 +10,6 @@
connect by prior item_id = parent_id
start with item_id = :folder_id)
-
+
-
-
- select * from (
- select o.object_id as item_id,
- o.title,
- o.name,
- o.file_upload_name,
- o.type,
- o.content_size,
- to_char(o.last_modified,'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi,
- r.description,
- r.revision_id
- from fs_objects o,
- cr_revisions r
- where $parent_clause
- and type != 'folder'
- and $revisions_clause
- order by last_modified desc
- ) where rownum < :max_items + 1
-
-
-
-
-
- select (max(last_modified)-to_date('1970-01-01','YYYY-MM-DD'))*60*60*24 as last_update
- from fs_rss_subscrs s, fs_objects f
- where s.subscr_id = :summary_context_id
- and f.parent_id = s.folder_id
- and f.type != 'folder'
-
-
-
Index: openacs-4/packages/file-storage/tcl/file-storage-rss-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-rss-procs-postgresql.xql,v
diff -u -N -r1.3 -r1.3.16.1
--- openacs-4/packages/file-storage/tcl/file-storage-rss-procs-postgresql.xql 4 Mar 2005 23:13:30 -0000 1.3
+++ openacs-4/packages/file-storage/tcl/file-storage-rss-procs-postgresql.xql 5 Oct 2021 10:04:44 -0000 1.3.16.1
@@ -14,38 +14,6 @@
between parent.tree_sortkey
and tree_right(parent.tree_sortkey))
-
+
-
-
- select * from (
- select o.object_id as item_id,
- o.title,
- o.name,
- o.file_upload_name,
- o.type,
- o.content_size,
- to_char(r.publish_date,'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi,
- r.description,
- r.revision_id
- from fs_objects o,
- cr_revisions r
- where $parent_clause
- and type != 'folder'
- and $revisions_clause
- order by last_modified desc
- ) as v limit $max_items
-
-
-
-
-
- select (max(last_modified)-to_date('1970-01-01','YYYY-MM-DD'))*60*60*24 as last_update
- from fs_rss_subscrs s, fs_objects f
- where s.subscr_id = :summary_context_id
- and f.parent_id = s.folder_id
- and f.type != 'folder'
-
-
-
-
\ No newline at end of file
+
Index: openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl,v
diff -u -N -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl 5 Oct 2021 09:56:55 -0000 1.7.2.1
+++ openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl 5 Oct 2021 10:04:44 -0000 1.7.2.2
@@ -100,7 +100,25 @@
set revisions_clause "r.item_id = o.object_id"
}
- db_foreach select_files {} {
+ db_foreach select_files [subst -nocommands {
+ select * from (
+ select o.object_id as item_id,
+ o.title,
+ o.name,
+ o.file_upload_name,
+ o.type,
+ o.content_size,
+ to_char(r.publish_date,'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi,
+ r.description,
+ r.revision_id
+ from fs_objects o,
+ cr_revisions r
+ where $parent_clause
+ and type != 'folder'
+ and $revisions_clause
+ order by last_modified desc
+ ) as v fetch first :max_items rows only
+ }] {
set link "${ad_url}${base_url}file?file_id=$item_id&version_id=$revision_id"
set content "content"
set description $description
@@ -162,7 +180,13 @@
#result differs on whether we're including revisions
- db_1row select_last_updated {}
+ db_1row select_last_updated {
+ select (max(last_modified)-to_date('1970-01-01','YYYY-MM-DD'))*60*60*24 as last_update
+ from fs_rss_subscrs s, fs_objects f
+ where s.subscr_id = :summary_context_id
+ and f.parent_id = s.folder_id
+ and f.type != 'folder'
+ }
return $last_update
}