Index: openacs-4/packages/lars-blogger/tcl/entry-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs-postgresql.xql,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/lars-blogger/tcl/entry-procs-postgresql.xql	13 Jun 2003 09:15:01 -0000	1.1.2.5
+++ openacs-4/packages/lars-blogger/tcl/entry-procs-postgresql.xql	1 Jul 2003 13:28:26 -0000	1.1.2.6
@@ -31,4 +31,14 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="lars_blogger::entry::publish.update_entry">
+        <querytext>
+		    update pinds_blog_entries
+		    set    entry_date = date_trunc('day', current_timestamp),
+		           draft_p = 'f',
+		           posted_date = current_timestamp
+		    where  entry_id = :entry_id
+        </querytext>
+    </fullquery>
+
 </queryset>