![[BACK]](/icons/back.gif){kind=icon}
Return to loncfile.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
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:^(.*)/:; |