Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.825, 2009/05/27 13:36:46 | version 1.826, 2009/05/27 13:42:04 |
---|---|
Line 6839 sub get_users_function { | Line 6839 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'; |
} | } |