Index: openacs-4/packages/lorsm/www/admin/course-add-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/course-add-3.tcl,v diff -u -r1.4 -r1.4.2.1 --- openacs-4/packages/lorsm/www/admin/course-add-3.tcl 13 Aug 2007 09:20:16 -0000 1.4 +++ openacs-4/packages/lorsm/www/admin/course-add-3.tcl 28 Mar 2008 19:01:09 -0000 1.4.2.1 @@ -527,9 +527,9 @@ if {[llength $found_file] > 1} { # we are suppose to get only one element back, so we have # to refine the search a bit more. - set found_file [lsearch -all -regexp $all_files $tmp_dir/$filename] + set found_file [lsearch -all -regexp -exact $all_files $tmp_dir/$filename] } - + if {![empty_string_p $found_file]} { set file_id [lindex [lindex $all_files $found_file] 3] set file_rev_id [content::item::get_live_revision -item_id $file_id]