Index: openacs-4/packages/acs-content-repository/tcl/item-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/item-procs-oracle.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-content-repository/tcl/item-procs-oracle.xql	25 Sep 2003 18:59:10 -0000	1.4
+++ openacs-4/packages/acs-content-repository/tcl/item-procs-oracle.xql	16 Jan 2004 18:29:32 -0000	1.5
@@ -85,4 +85,25 @@
       </querytext>
 </fullquery>
 
+<fullquery name="item::publish.set_live">
+    <querytext>
+        begin
+            content_item.set_live_revision(
+                revision_id => :revision_id,
+                publish_status => 'live'
+            );
+        end;
+    </querytext>
+</fullquery>
+
+<fullquery name="item::unpublish.unset_live">
+    <querytext>
+        begin
+            content_item.unset_live_revision(
+                 item_id => :item_id
+            );
+        end;
+    </querytext>
+</fullquery>
+
 </queryset>
Index: openacs-4/packages/acs-content-repository/tcl/item-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/item-procs-postgresql.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-content-repository/tcl/item-procs-postgresql.xql	16 Jan 2004 04:38:39 -0000	1.5
+++ openacs-4/packages/acs-content-repository/tcl/item-procs-postgresql.xql	16 Jan 2004 18:29:32 -0000	1.6
@@ -93,5 +93,27 @@
       )
     </querytext>
 </fullquery>
+
+
+<fullquery name="item::publish.set_live">
+    <querytext>
+        begin
+            content_item.set_live_revision(
+                revision_id => :revision_id,
+                publish_status => 'live'
+            );
+        end;
+    </querytext>
+</fullquery>
+
+<fullquery name="item::unpublish.unset_live">
+    <querytext>
+        begin
+            content_item__unset_live_revision(
+                 :item_id
+            );
+        end;
+    </querytext>
+</fullquery>
       
 </queryset>
Index: openacs-4/packages/acs-content-repository/tcl/item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/item-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	16 Jan 2004 04:38:39 -0000	1.17
+++ openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	16 Jan 2004 18:29:32 -0000	1.18
@@ -683,14 +683,7 @@
         set revision_id [item::get_element -item_id $item_id -element latest_revision]
     }
 
-    db_exec_plsql set_live {
-        begin
-            content_item.set_live_revision(
-                revision_id => :revision_id,
-                publish_status => 'live'
-            );
-        end;
-    }
+    db_exec_plsql set_live { }
 }
 
 ad_proc -public item::unpublish {
@@ -706,16 +699,8 @@
 } {
 
     db_exec_plsql unset_live {
-        begin
-            content_item.unset_live_revision(
-                 item_id => :item_id
-            );
-        end;
     }
 
     db_dml update_publish_status {
-        update cr_items
-        set publish_status = :publish_status
-        where item_id = :item_id
     }
 }
Index: openacs-4/packages/acs-content-repository/tcl/item-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/item-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-content-repository/tcl/item-procs.xql	25 Sep 2003 18:59:10 -0000	1.4
+++ openacs-4/packages/acs-content-repository/tcl/item-procs.xql	16 Jan 2004 18:29:32 -0000	1.5
@@ -92,4 +92,12 @@
       </querytext>
 </fullquery>
 
+<fullquery name="item::publish.publish_status">
+    <querytext>
+        update cr_items
+        set publish_status = :publish_status
+        where item_id = :item_id
+    </querytext>
+</fullquery>
+
 </queryset>