--- loncom/publisher/lonupload.pm	2001/06/23 18:26:40	1.5
+++ loncom/publisher/lonupload.pm	2001/06/24 18:40:58	1.6
@@ -15,7 +15,7 @@
 #
 # 03/31,04/03 Gerd Kortemeyer)
 #
-# 04/05,04/09,05/25,06/23 Gerd Kortemeyer
+# 04/05,04/09,05/25,06/23,06/24 Gerd Kortemeyer
 
 package Apache::lonupload;
 
@@ -46,6 +46,8 @@ sub upfile_store {
 
 sub phaseone {
    my ($r,$fn,$uname,$udom)=@_;
+   $ENV{'form.upfile.filename'}=~s/\\/\//g;
+   $ENV{'form.upfile.filename'}=~s/^.*\/([^\/]+)$/$1/;
    if ($ENV{'form.upfile.filename'}) {
     $fn=~s/\/[^\/]+$//;
     $fn=~s/([^\/])$/$1\//;