Index: openacs-4/packages/lorsm/tcl/lorsm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-callback-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/lorsm/tcl/lorsm-callback-procs.tcl	30 Jan 2006 16:55:47 -0000	1.1.2.2
+++ openacs-4/packages/lorsm/tcl/lorsm-callback-procs.tcl	1 Feb 2006 17:53:10 -0000	1.1.2.3
@@ -51,8 +51,9 @@
     this is the imsld lors importer
 } {
 	if {$res_type == "imscp_xmlv1p0"} {
-	    return [lorsm::imscp::register_xml_object_id \
+	    return [lorsm::register_xml_object_id \
 			-xml_file $tmp_dir/$res_href \
+			-tmp_dir $tmp_dir \
 			-community_id $community_id]
 	}
 }
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/lorsm/tcl/lorsm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-procs.tcl,v
diff -u -r1.6.2.7 -r1.6.2.8
--- openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	1 Feb 2006 15:17:54 -0000	1.6.2.7
+++ openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	1 Feb 2006 17:53:10 -0000	1.6.2.8
@@ -653,8 +653,9 @@
     return $url
 }
 
-ad_proc -public lorsm::imscp::register_xml_object_id {
+ad_proc -public lorsm::register_xml_object_id {
     {-xml_file:required}
+    {-tmp_dir:required}
     {-community_id:required}
 } {
     Relation with lorsm of IMSCP files returning the object_id
@@ -668,7 +669,7 @@
     # package_id of the current community
     ad_conn -set package_id [db_string get_package_id {select dotlrn_community_applets.package_id from dotlrn_community_applets join apm_packages on (dotlrn_community_applets.package_id=apm_packages.package_id) where community_id = :community_id and package_key='lorsm'}]
     
-    set object_id [lorsm::imscp::import_imscp $xml_file]
+    set object_id [lorsm::import_imscp -upload_file $xml_file -tmp_dir $tmp_dir]
 
     # Restore the package_id
     ad_conn -set package_id $current_package_id