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