Index: openacs-4/packages/news/tcl/news-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs-oracle.xql,v diff -u -r1.8 -r1.9 --- openacs-4/packages/news/tcl/news-procs-oracle.xql 10 Jul 2018 13:48:19 -0000 1.8 +++ openacs-4/packages/news/tcl/news-procs-oracle.xql 3 Sep 2024 15:37:39 -0000 1.9 @@ -3,63 +3,38 @@ oracle8.1.6 - + - + begin news.archive( item_id => :id, archive_date => :when); end; - + - - + + - + begin news.make_permanent(:id); end; - + - - + + - + begin news.del(:id); end; - + - - - - select * from ( - select cn.*, - ci.item_id, - cr.content, - cr.title, - cr.mime_type, - cr.description, - to_char(o.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified - from cr_news cn, - cr_revisions cr, - cr_items ci, - acs_objects o - where cn.package_id=:summary_context_id - and cr.revision_id=cn.news_id - and cn.news_id=o.object_id - and cr.item_id=ci.item_id - and cr.revision_id=ci.live_revision - order by o.last_modified desc - ) where rownum <= $limit - - -