Index: openacs-4/packages/forums/tcl/forums-callback-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-callback-procs.xql,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/forums/tcl/forums-callback-procs.xql	19 Jul 2005 21:43:13 -0000	1.1.2.1
+++ openacs-4/packages/forums/tcl/forums-callback-procs.xql	20 Jul 2005 15:43:02 -0000	1.1.2.2
@@ -33,4 +33,27 @@
         </querytext>
     </fullquery>
  
+<fullquery name="callback::datamanager::move_forum::impl::datamanager.update_forums">
+<querytext>
+        update forums_forums
+	set package_id = (select package_id 
+	from dotlrn_community_applets
+	where community_id = :selected_community and applet_id = (
+	    select applet_id from dotlrn_applets where applet_key = 'dotlrn_forums'
+	))
+	where forum_id = :object_id
+
+</querytext>
+</fullquery>
+
+<fullquery name="callback::datamanager::move_forum::impl::datamanager.update_forums_acs_objects">
+<querytext>
+update acs_objects
+    set package_id = (select package_id from dotlrn_community_applets where community_id = :selected_community and applet_id = (select applet_id from dotlrn_applets where applet_key = 'dotlrn_forums')),context_id = (select package_id from dotlrn_community_applets where community_id = :selected_community and applet_id = (select applet_id from dotlrn_applets where applet_key = 'dotlrn_forums'))
+    where object_id = :object_id
+
+</querytext>
+</fullquery>
+
+
 </queryset>