Index: openacs-4/packages/acs-tcl/tcl/object-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/object-procs.tcl	1 Jun 2005 08:03:16 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/object-procs.tcl	27 Sep 2005 09:44:51 -0000	1.8
@@ -95,3 +95,12 @@
     acs_object::get -object_id $object_id -array row
     return $row($element)
 }
+
+ad_proc -public acs_object::set_context_id {
+    {-object_id:required}
+    {-context_id:required}
+} {
+    Sets the context_id of the specified object.
+} {
+    db_dml update_context_id {}
+}
Index: openacs-4/packages/acs-tcl/tcl/object-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/object-procs.xql	29 Jan 2005 18:43:28 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/object-procs.xql	27 Sep 2005 09:44:51 -0000	1.3
@@ -17,4 +17,14 @@
       </querytext>
 </fullquery>
 
+<fullquery name="acs_object::set_context_id.update_context_id">
+      <querytext>
+
+        update acs_objects
+           set context_id = :context_id
+         where object_id = :object_id
+
+      </querytext>
+</fullquery>
+
 </queryset>