--- loncom/interface/loncommon.pm 2009/08/14 03:48:49 1.692.4.4 +++ loncom/interface/loncommon.pm 2009/08/14 03:50:09 1.692.4.5 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.692.4.4 2009/08/14 03:48:49 raeburn Exp $ +# $Id: loncommon.pm,v 1.692.4.5 2009/08/14 03:50:09 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -6167,7 +6167,7 @@ sub get_users_function { if ($env{'request.role'}=~/^(su|dc|ad|li)/) { $function='admin'; } - if (($env{'request.role'}=~/^(au|ca)/) || + if (($env{'request.role'}=~/^(au|ca|aa)/) || ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { $function='author'; }