loncom/interface/lonsource.pm - diff

Return to lonsource.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.18, 2007/07/11 20:32:15	version 1.19, 2007/08/28 22:23:22
Line 76 sub copy_stage {	Line 76 sub copy_stage {
my $author_name;	my $author_name;
#Figure out if we are author or co-author	#Figure out if we are author or co-author

if($env{'request.role'} =~ m\|ca.\|) {	if ($env{'request.role'} =~ m{^ca\.}) {
($role, $domain, $author_name) = split(/\//,$env{'request.role'});	($role, $domain, $author_name) = split(/\//,$env{'request.role'});
} else {	} else {
$role = "au.";	$role = "au.";