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.4 -r1.1.2.5 --- openacs-4/packages/assessment/tcl/as-callback-procs.xql 3 Nov 2005 09:29:04 -0000 1.1.2.4 +++ openacs-4/packages/assessment/tcl/as-callback-procs.xql 3 Mar 2006 13:52:09 -0000 1.1.2.5 @@ -96,177 +96,5 @@ where staff_id = :from_user_id - - - - SELECT crf.folder_id as new_parent_id - FROM dotlrn_applets as da, - dotlrn_community_applets as dca, - cr_folders as crf - WHERE da.applet_key='dotlrn_assessment' - and dca.applet_id=da.applet_id - and dca.community_id=:selected_community - and crf.package_id=dca.package_id; - - - - - - update cr_items - set parent_id = :new_parent_id - where item_id=(select context_id from acs_objects where object_id=:object_id); - - - - - update acs_objects - set context_id = :new_parent_id - where object_id = (select context_id from acs_objects where object_id=:object_id) - - - - - - SELECT dca.package_id - FROM dotlrn_community_applets as dca, - dotlrn_applets as da - WHERE da.applet_key='dotlrn_assessment' - and dca.applet_id=da.applet_id - and dca.community_id=:selected_community - - - - - - update acs_objects - set package_id = :package_id - where object_id = (select context_id from acs_objects where object_id=:object_id) - - - - - - update acs_objects - set package_id =:package_id - where object_id in (select object_id - from acs_objects - where context_id= - (select context_id - from acs_objects - where object_id=:object_id)) - - - - - - SELECT cri.name, - ao.title, - ao.creation_user as creator_id, - crr.description, - ass.instructions, - ass.run_mode, - ass.anonymous_p, - ass.secure_access_p, - ass.reuse_responses_p, - ass.show_item_name_p, - ass.random_p, - ass.entry_page, - ass.exit_page, - ass.consent_page, - ass.return_url, - ass.start_time, - ass.end_time, - ass.number_tries, - ass.wait_between_tries, - ass.time_for_response, - ass.ip_mask, - ass.password, - ass.show_feedback, - ass.section_navigation, - ass.survey_p, - ass.type - FROM acs_objects as ao, - cr_items as cri, - cr_revisions as crr, - as_assessments as ass - WHERE ao.object_id=ass.assessment_id - and crr.revision_id=ass.assessment_id - and cri.item_id=crr.item_id - and ass.assessment_id=:object_id - - - - - - - SELECT b.object_id as package_id - FROM acs_objects as a,acs_objects as b - WHERE a.context_id=:selected_community and a.object_type='apm_package' and a.object_id=b.context_id and b.title='Assessment'; - - - - - - SELECT section_id - FROM as_assessment_section_map - WHERE assessment_id=:object_id - - - - - - SELECT max_time_to_complete, - sort_order, - points - FROM as_assessment_section_map - WHERE section_id=:section_id and assessment_id=:object_id - - - - - - INSERT INTO as_assessment_section_map(assessment_id, section_id, max_time_to_complete, sort_order, points) - VALUES (:new_assessment_id,:section_id,:max_time_to_complete,:sort_order,:points) - - - - - - - - update cr_items - set parent_id = :trash_id - where item_id=(select context_id from acs_objects where object_id=:object_id); - - - - - - update acs_objects - set context_id = :trash_id, package_id = :trash_package_id - where object_id = (select context_id from acs_objects where object_id=:object_id) - - - - - - - - - update acs_objects - set package_id =:trash_package_id - where object_id in (select object_id from acs_objects where context_id=(select context_id from acs_objects where object_id=:object_id)) - - - - - + \ No newline at end of file