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 -N -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>