Index: openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql 30 Nov 2002 17:37:17 -0000 1.2
+++ openacs-4/packages/lars-blogger/tcl/rss-procs-oracle.xql 28 Aug 2003 09:41:55 -0000 1.3
@@ -5,7 +5,7 @@
- select to_char(sysdate,'DD Mon YYYY hh12:MI am')
+ select to_char(sysdate,'DD Mon YYYY hh12:MI am') from dual
@@ -23,7 +23,7 @@
0 as tzoffset_minute,
to_char(entry_date, 'DD Mon YYYY hh12:MI am') as entry_date_pretty,
to_char(entry_date, 'YYYY/MM/') as entry_archive_url
- from pinds_blog_entries
+ from pinds_blog_entries
where package_id = :package_id
and draft_p = 'f'
and deleted_p = 'f'
@@ -32,6 +32,34 @@
+
+
+ select *
+ from (select entry_id,
+ title,
+ content,
+ entry_date,
+ posted_date,
+ to_char(posted_date, 'YYYY-MM-DD') as posted_date_string,
+ to_char(posted_date, 'HH:MI') as posted_time_string,
+ -6 as tzoffset_hour,
+ 0 as tzoffset_minute,
+ to_char(entry_date, 'DD Mon YYYY hh12:MI am') as entry_date_pretty,
+ to_char(entry_date, 'YYYY/MM/') as entry_archive_url
+ from pinds_blog_entries e,
+ acs_objects o,
+ users u
+ where e.package_id = :package_id
+ and o.object_id = e.entry_id
+ and o.creation_user = :user_id
+ and u.user_id = o.creation_user
+ and e.draft_p = 'f'
+ and e.deleted_p = 'f'
+ order by e.entry_date desc, e.posted_date desc)
+ where rownum < 11
+
+
+
select nvl ((max(posted_date)-to_date('1970-01-01'))*60*60*24,0) as last_update
@@ -42,4 +70,16 @@
+
+
+ select nvl ((max(posted_date)-to_date('1970-01-01'))*60*60*24,0) as last_update
+ from pinds_blog_entries e join
+ acs_objects o on (o.object_id = e.entry_id)
+ where e.package_id = :package_id
+ and o.creation_user = :user_id
+ and e.draft_p = 'f'
+ and e.deleted_p = 'f'
+
+
+