Return to loncfile.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
version 1.61, 2004/08/24 15:53:21 | version 1.62, 2004/08/24 21:21:41 |
---|---|
Line 1123 sub phasetwo { | Line 1123 sub phasetwo { |
return ; | return ; |
} | } |
$dest = $dir."/."; | $dest = $dir."/."; |
} elsif ($ENV{'form.action'} eq 'rename') { # Rename. | } elsif ($ENV{'form.action'} eq 'rename' || |
$ENV{'form.action'} eq 'move') { | |
if($ENV{'form.newfilename'}) { | if($ENV{'form.newfilename'}) { |
if (!defined($dir)) { | if (!defined($dir)) { |
$fn=~m:^(.*)/:; | $fn=~m:^(.*)/:; |