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