version 1.9, 2005/02/17 08:29:43
|
version 1.10, 2005/04/07 04:46:36
|
Line 222 sub handler {
|
Line 222 sub handler {
|
} |
} |
if ($ENV{'form.action'} eq 'stage2') { |
if ($ENV{'form.action'} eq 'stage2') { |
my $author = &Apache::lonnet::metadata($filename,'authorspace'); |
my $author = &Apache::lonnet::metadata($filename,'authorspace'); |
$author =~ m|@|; |
($author) = split('@',$author); #strip the domain of the author name |
$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'}); |