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