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.35.2.3 -r1.35.2.4
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	17 Nov 2005 12:10:50 -0000	1.35.2.3
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	17 Nov 2005 14:02:24 -0000	1.35.2.4
@@ -43,9 +43,23 @@
     {-xml_file:required}
     {-community_id:required}
 } {
-    Relation with assessment of QTI XML files
+    Relation with assessment of QTI XML files returning the relative url to it
 
 } {
+    set assessment_id [as::qti::register_xml_object_id -xml_file $xml_file -community_id $community_id]
+
+    set url_assessment "../../assessment/assessment?assessment_id=$assessment_id"
+    
+    return $url_assessment
+}
+
+ad_proc -public as::qti::register_xml_object_id {
+    {-xml_file:required}
+    {-community_id:required}
+} {
+    Relation with assessment of QTI XML files returning the object_id
+
+} {
     # Save the current package_id to restore when the assessment is
     # imported
     set current_package_id [ad_conn package_id]
@@ -61,9 +75,7 @@
     # Restore the package_id
     ad_conn -set package_id $current_package_id
    
-    set url_assessment "../../assessment/assessment?assessment_id=$assessment_id"
-    
-    return $url_assessment
+    return $assessment_id
 }
 
 ad_proc -private as::qti::mattext_gethtml { mattextNode } { Get the HTML of a mattext } {