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.10 -r1.1.2.11
--- openacs-4/packages/assessment/tcl/as-callback-procs.tcl	2 Feb 2006 14:02:36 -0000	1.1.2.10
+++ openacs-4/packages/assessment/tcl/as-callback-procs.tcl	21 Feb 2006 18:09:33 -0000	1.1.2.11
@@ -1,18 +1,18 @@
 ad_library {
-	assessment -- callback routines
-	@author eduardo.perez@uc3m.es
-	@creation-date 2005-05-23
-	@cvs-id $Id$
+    assessment -- callback routines
+    @author eduardo.perez@uc3m.es
+    @creation-date 2005-05-23
+    @cvs-id $Id$
 }
 
-ad_proc -public -callback lors::import -impl qti {} {
-    this is the lors qti importer
+ad_proc -public -callback imsld::import -impl qti {} {
+    this is the imsld qti importer
 } {
-	if {$res_type == "imsqti_xmlv1p0" || $res_type == "imsqti_xmlv1p1" || $res_type =="imsqti_item_xmlv2p0"} {
-	    return [as::qti::register \
-			-tmp_dir $tmp_dir/$res_href \
-			-community_id $community_id]
-	}
+    if {$res_type == "imsqti_xmlv1p0" || $res_type == "imsqti_xmlv1p1" || $res_type =="imsqti_item_xmlv2p0"} {
+	return [as::qti::register_xml_object_id \
+		    -xml_file $tmp_dir/$res_href \
+		    -community_id $community_id]
+    }
 }
 
 ad_proc -public -callback imsld::import -impl qti {} {