Index: openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql	27 Jan 2003 16:19:15 -0000	1.1
+++ openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql	28 Aug 2003 09:41:55 -0000	1.2
@@ -5,29 +5,40 @@
 
     <fullquery name="lars_blogger::entry::get.select_entry">
         <querytext>
-		    select entry_id,
-		           to_char(entry_date, 'fmDayfm, Month fmDDfm, YYYY') as entry_date_pretty, 
-		           to_char(entry_date, 'YYYY/MM/DD/') as entry_archive_url,
-		           entry_date,
-		           title,
-		           content,
-                           content_format,
-		           draft_p,
-		           'f' as new_date_p,
-		           p.first_names as poster_first_names,
+		    select b.entry_id,  
+                           b.title, 
+                           b.title_url, 
+                           b.content, 
+                           b.content_format, 
+                           b.draft_p, 
+			   o.creation_user as user_id,
+                           to_char(b.entry_date, 'YYYY-MM-DD') as entry_date,
+		           to_char(b.entry_date, 'fmDayfm, fmMonthfm fmDDfm, YYYY') as entry_date_pretty, 
+        		   p.first_names as poster_first_names,
 		           p.last_name as poster_last_name,
-		           to_char(posted_date , 'HH24:MI') as posted_time_pretty,
+		           to_char(b.posted_date , 'HH24:MI') as posted_time_pretty,
+                           b.package_id,
 		           (select count(gc.comment_id) 
 		            from general_comments gc, cr_revisions cr 
 		            where gc.object_id = entry_id
-		            and   content_item.get_live_revision(gc.comment_id) = cr.revision_id) as num_comments
-		    from   pinds_blog_entries e,
-		           acs_objects o,
-		           persons p
-		    where  e.entry_id = :entry_id
-                    and    o.object_id = e.entry_id
-		    and    p.person_id = o.creation_user
+		            and content_item.get_live_revision(gc.comment_id) = cr.revision_id) as num_comments
+		    from   pinds_blog_entries b,
+                           acs_objects o,
+                           persons p
+		    where  b.entry_id = :entry_id
+                    and    o.object_id = b.entry_id
+                    and    p.person_id = o.creation_user
         </querytext>
     </fullquery>
 
+    <fullquery name="lars_blogger::entry::publish.update_entry">
+        <querytext>
+		    update pinds_blog_entries
+		    set    entry_date = trunc(sysdate),
+		           draft_p = 'f',
+		           posted_date = sysdate
+		    where  entry_id = :entry_id
+        </querytext>
+    </fullquery>
+
 </queryset>