loncom/interface/lonsource.pm - diff

Return to lonsource.pm CVS log

Up to [LON-CAPA] / loncom / interface

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') {
&copy_stage($r, $filename,$ENV{'form.listname'},$ENV{'form.newpath'});	&copy_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');