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."; |