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.3 -r1.4
--- openacs-4/packages/assessment/tcl/as-callback-procs.tcl	17 Feb 2006 12:13:54 -0000	1.3
+++ openacs-4/packages/assessment/tcl/as-callback-procs.tcl	10 Mar 2006 15:11:58 -0000	1.4
@@ -5,12 +5,23 @@
     @cvs-id $Id$
 }
 
+ad_proc -public -callback lors::import -impl qti {} {
+    this is the lors 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]
+    }
+}
+
+
 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_xml_object_id \
-		    -xml_file $tmp_dir/$res_href \
-		    -community_id $community_id]
+        return [as::qti::register_xml_object_id \
+            -xml_file $tmp_dir/$res_href \
+            -community_id $community_id]
     }
 }