Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	16 Nov 2006 08:15:18 -0000	1.29
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	16 Nov 2006 08:43:23 -0000	1.30
@@ -652,6 +652,13 @@
     }
   }
 
+  CrItem ad_instproc set_live_revision {-revision_id:required {-publish_status "ready"}} {
+    @param revision_id
+    @param publish_status one of 'live', 'ready' or 'production'
+  } {
+    db_0or1row set_live_revision {select content_item__set_live_revision(:revision_id,:publish_status)}
+  }
+
   CrItem ad_instproc save_new {-package_id -creation_user_id {-live_p:boolean true}} {
     Insert a new item to the content repository
     @param package_id