version 1.7, 2004/07/08 14:16:06
|
version 1.8, 2004/07/08 20:17:59
|
Line 223 sub handler {
|
Line 223 sub handler {
|
$author =~ m|@|; |
$author =~ m|@|; |
$author = $`; #This just tells who the author name is for later processing. |
$author = $`; #This just tells who the author name is for later processing. |
&stage_2($r, $ENV{'form.filename'}, $author, $listname); |
&stage_2($r, $ENV{'form.filename'}, $author, $listname); |
} |
} elsif($ENV{'form.action'} eq 'copy_stage') { |
elsif($ENV{'form.action'} eq 'copy_stage') { |
|
©_stage($r, $filename,$ENV{'form.listname'},$ENV{'form.newpath'}); |
©_stage($r, $filename,$ENV{'form.listname'},$ENV{'form.newpath'}); |
} |
} elsif($ENV{'form.action'} eq 'delete_confirm') { |
elsif($ENV{'form.action'} eq 'delete_confirm') { |
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
&delete_copy_file($r, $ENV{'form.author'}, $ENV{'form.newpath'}, $ENV{'form.filename'}, $ENV{'form.path'}, '0'); |
&delete_copy_file($r, $ENV{'form.author'}, $ENV{'form.newpath'}, $ENV{'form.filename'}, $ENV{'form.path'}, '0'); |