--- loncom/interface/loncommon.pm	2011/10/25 22:04:16	1.1024
+++ loncom/interface/loncommon.pm	2011/10/31 01:14:24	1.1025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1024 2011/10/25 22:04:16 www Exp $
+# $Id: loncommon.pm,v 1.1025 2011/10/31 01:14:24 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7126,7 +7126,7 @@ sub get_users_function {
         $function='admin';
     }
     if (($env{'request.role'}=~/^(au|ca|aa)/) ||
-        ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) {
+        ($ENV{'REQUEST_URI'}=~ m{/^(/priv)})) {
         $function='author';
     }
     return $function;