Index: openacs-4/packages/lors/tcl/lors-assessment-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/Attic/lors-assessment-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/lors/tcl/lors-assessment-procs.tcl 22 Nov 2004 04:45:16 -0000 1.1 +++ openacs-4/packages/lors/tcl/lors-assessment-procs.tcl 23 Nov 2004 19:13:27 -0000 1.2 @@ -13,7 +13,8 @@ ad_proc -public lors::assessment::ims_qti_register_assessment { - {tmp_dir ""} + {-tmp_dir:required} + {-community_id:required} } { Relation with assessment @@ -34,7 +35,7 @@ # community # FIXME this is a hack until I figure out how to get the # package_id of the assessment of the current community - ad_conn -set package_id [db_string get_assessment_package_id {select package_id from apm_packages where package_key='assessment'}] + ad_conn -set package_id [db_string get_assessment_package_id {select dotlrn_community_applets.package_id from dotlrn_community_applets join apm_packages on (dotlrn_community_applets.package_id=apm_packages.package_id) where community_id = :community_id and package_key='assessment'}] # Read the content of the temporary directory foreach file_i [ glob -directory $tmpdirectory *{.xml} ] { Index: openacs-4/packages/lorsm/www/course-add-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-add-3.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/lorsm/www/course-add-3.tcl 22 Nov 2004 04:45:16 -0000 1.3 +++ openacs-4/packages/lorsm/www/course-add-3.tcl 23 Nov 2004 19:11:57 -0000 1.4 @@ -431,7 +431,9 @@ # this is rather a dirty hack for now. if {$res_type == "imsqti_xmlv1p0" || $res_type == "imsqti_xmlv1p1" || $res_type =="imsqti_item_xmlv2p0"} { - set res_href [lors::assessment::ims_qti_register_assessment $tmp_dir/$res_href] + set res_href [lors::assessment::ims_qti_register_assessment \ + -tmp_dir $tmp_dir/$res_href \ + -community_id $community_id] } ## End integration showcase