Index: openacs-4/packages/assessment/tcl/as-callback-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-callback-procs.xql,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/assessment/tcl/as-callback-procs.xql 19 Jul 2005 16:58:31 -0000 1.1.2.1
+++ openacs-4/packages/assessment/tcl/as-callback-procs.xql 20 Jul 2005 15:58:42 -0000 1.1.2.2
@@ -96,5 +96,76 @@
where staff_id = :from_user_id
+
+
+
+ update cr_items
+ set parent_id = (select folder_id
+ from cr_folders
+ where package_id=
+ (select package_id
+ from dotlrn_community_applets
+ where applet_id=
+ (select applet_id
+ from dotlrn_applets
+ where applet_key='dotlrn_assessment')
+ and community_id=:selected_community))
+ where item_id=(select context_id from acs_objects where object_id=:object_id);
-
\ No newline at end of file
+
+
+
+
+
+ update acs_objects
+ set context_id =(select folder_id
+ from cr_folders
+ where package_id=
+ (select package_id
+ from dotlrn_community_applets
+ where applet_id=
+ (select applet_id
+ from dotlrn_applets
+ where applet_key='dotlrn_assessment')
+ and community_id=:selected_community))
+ where object_id = (select context_id from acs_objects where object_id=:object_id)
+
+
+
+
+
+
+ update acs_objects
+ set package_id = (select package_id
+ from dotlrn_community_applets
+ where applet_id=
+ (select applet_id
+ from dotlrn_applets
+ where applet_key='dotlrn_assessment')
+ and community_id=:selected_community)
+ where object_id = (select context_id from acs_objects where object_id=:object_id)
+
+
+
+
+
+
+ update acs_objects
+ set package_id =(select package_id
+ from dotlrn_community_applets
+ where applet_id=
+ (select applet_id
+ from dotlrn_applets
+ where applet_key='dotlrn_assessment')
+ and community_id=:selected_community)
+ where object_id in (select object_id
+ from acs_objects
+ where context_id=
+ (select context_id
+ from acs_objects
+ where object_id=:object_id))
+
+
+
+
+