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 -N -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