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.6 -r1.1.2.7
--- openacs-4/packages/assessment/tcl/as-callback-procs.tcl	26 Oct 2005 10:37:18 -0000	1.1.2.6
+++ openacs-4/packages/assessment/tcl/as-callback-procs.tcl	17 Nov 2005 15:41:46 -0000	1.1.2.7
@@ -15,6 +15,17 @@
 	}
 }
 
+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]
+	}
+}
+
+
 ad_proc -callback merge::MergeShowUserInfo -impl as {
     -user_id:required
 } {