Index: openacs-4/packages/assessment/tcl/as-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-callback-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/assessment/tcl/as-callback-procs.tcl	19 Jul 2005 16:58:31 -0000	1.1.2.3
+++ openacs-4/packages/assessment/tcl/as-callback-procs.tcl	20 Jul 2005 15:58:42 -0000	1.1.2.4
@@ -61,3 +61,22 @@
     return $result
 }
 
+
+ad_proc -public -callback datamanager::move_assessment -impl datamanager {
+     -object_id:required
+     -selected_community:required
+} {
+    Move an assessment to another class or community
+} {
+
+#se actualiza el parent_id del assessment en cr_items
+db_dml update_as_cr_items {}
+
+#se actualiza el context_id y el package_id del assessment en acs_objects
+db_dml update_as_it_acs_objects1 {}
+db_dml update_as_it_acs_objects2 {}
+
+#se actualiza el package_id del assessment en acs_objects
+db_dml update_as_as_acs_objects {}
+}
+