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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/tcl/as-callback-procs.tcl	23 May 2005 15:07:51 -0000	1.1
@@ -0,0 +1,16 @@
+ad_library {
+	assessment -- callback routines
+	@author eduardo.perez@uc3m.es
+	@creation-date 2005-05-23
+	@cvs-id $Id: as-callback-procs.tcl,v 1.1 2005/05/23 15:07:51 eduardop Exp $
+}
+
+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]
+	}
+}
Index: openacs-4/packages/assessment/tcl/as-qti-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-qti-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	20 May 2005 11:22:37 -0000	1.36
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	23 May 2005 15:07:51 -0000	1.37
@@ -5,16 +5,6 @@
 	@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]
-	}
-}
-
 namespace eval as::qti {}
 
 ad_proc -public as::qti::register {