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 @@
 
     <fullquery name="lars_blog__rss_datasource.now">
         <querytext>
-			select to_char(sysdate,'DD Mon YYYY hh12:MI am') 
+			select to_char(sysdate,'DD Mon YYYY hh12:MI am')  from dual
         </querytext>
     </fullquery>
 
@@ -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 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="lars_blog__rss_datasource.user_blog_rss_items">
+        <querytext>
+            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
+        </querytext>
+    </fullquery>
+
     <fullquery name="lars_blog__rss_lastUpdated.get_last_update">
         <querytext>
 	        select nvl ((max(posted_date)-to_date('1970-01-01'))*60*60*24,0) as last_update
@@ -42,4 +70,16 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="lars_blog__rss_lastUpdated.get_last_user_update">
+        <querytext>
+	        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'
+        </querytext>
+    </fullquery>
+
 </queryset>