Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.692.4.4, 2009/08/14 03:48:49 | version 1.692.4.5, 2009/08/14 03:50:09 |
---|---|
Line 6167 sub get_users_function { | Line 6167 sub get_users_function { |
if ($env{'request.role'}=~/^(su|dc|ad|li)/) { | if ($env{'request.role'}=~/^(su|dc|ad|li)/) { |
$function='admin'; | $function='admin'; |
} | } |
if (($env{'request.role'}=~/^(au|ca)/) || | if (($env{'request.role'}=~/^(au|ca|aa)/) || |
($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { | ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { |
$function='author'; | $function='author'; |
} | } |