|
version 1.77, 2006/05/30 12:47:41
|
version 1.78, 2006/11/22 22:10:58
|
|
Line 1138 sub phasetwo {
|
Line 1138 sub phasetwo {
|
| |
|
| &Debug($r, "loncfile - Entering phase 2 for $fn"); |
&Debug($r, "loncfile - Entering phase 2 for $fn"); |
| |
|
| # Break down the file into it's component pieces. |
# Break down the file into its component pieces. |
| |
|
| my $dir; # Directory path |
my $dir; # Directory path |
| my $main; # Filename. |
my $main; # Filename. |
|
Line 1179 sub phasetwo {
|
Line 1179 sub phasetwo {
|
| if(!&Rename2($r, $uname, $dir, $fn, $env{'form.newfilename'})) { |
if(!&Rename2($r, $uname, $dir, $fn, $env{'form.newfilename'})) { |
| return; |
return; |
| } |
} |
| $dest = $env{'form.newfilename'}; |
$dest = $dir."/"; |
| } |
} |
| } elsif ($env{'form.action'} eq 'delete') { |
} elsif ($env{'form.action'} eq 'delete') { |
| if(!&Delete2($r, $uname, $env{'form.newfilename'})) { |
if(!&Delete2($r, $uname, $env{'form.newfilename'})) { |
![[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