|
version 1.1, 2001/06/23 18:26:40
|
version 1.2, 2001/06/23 18:51:32
|
|
Line 190 sub handler {
|
Line 190 sub handler {
|
| '</font></h3>'); |
'</font></h3>'); |
| } |
} |
| |
|
| |
if ($ENV{'form.action'} eq 'delete') { |
| |
$r->print('<h3>Delete</h3>'); |
| |
} elsif ($ENV{'form.action'} eq 'rename') { |
| |
$r->print('<h3>Rename</h3>'); |
| |
} elsif ($ENV{'form.action'} eq 'newdir') { |
| |
$r->print('<h3>New Directory</h3>'); |
| |
} elsif ($ENV{'form.action'} eq 'copy') { |
| |
$r->print('<h3>Copy</h3>'); |
| |
} else { |
| |
$r->print('<p>Unknown Action</body></html>'); |
| |
return OK; |
| |
} |
| if ($ENV{'form.phase'} eq 'two') { |
if ($ENV{'form.phase'} eq 'two') { |
| # &phasetwo($r,$fn,$uname,$udom); |
# &phasetwo($r,$fn,$uname,$udom); |
| } else { |
} else { |
![[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