Index: openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl,v
diff -u -N -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl	25 Apr 2006 10:14:25 -0000	1.1.2.2
+++ openacs-4/packages/lorsm/tcl/lorsm-import-procs.tcl	25 Apr 2006 10:45:11 -0000	1.1.2.3
@@ -311,7 +311,7 @@
 	#set course_name $upload_file
         # FIX ME: the course name is taken from the uploaded file, it should be taken somewhere else
         regsub {(\.[a-zA-Z0-9]+)$} $upload_file "" course_name
-        regsub {_} $course_name " " course_name
+        regsub -all {_} $course_name " " course_name
         
         regexp {([^/\\]+)$} $fs_dir match cr_dir