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}  ] {