loncom/interface/lonsource.pm - diff

Return to lonsource.pm CVS log

Up to [LON-CAPA] / loncom / interface

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