--- loncom/lonnet/perl/lonnet.pm	2001/05/30 21:53:17	1.127
+++ loncom/lonnet/perl/lonnet.pm	2001/06/01 19:32:40	1.128
@@ -105,7 +105,9 @@
 # 3/22,3/27,4/2,4/16,4/17 Scott Harrison
 # 5/26,5/28 Gerd Kortemeyer
 # 5/30 H. K. Ng
+# 6/1 Gerd Kortemeyer
 #
+
 package Apache::lonnet;
 
 use strict;
@@ -883,9 +885,11 @@ sub rolesinit {
           } 
         } split(/&/,$rolesdump);
         my $adv=0;
+        my $author=0;
         map {
             %thesepriv=();
-            if ($_ ne 'st') { $adv=1; }
+            if ($_!~/^st/) { $adv=1; }
+            if (($_=~/^au/) || ($_=~/^ca/)) { $author=1; }
             map {
                 if ($_ ne '') {
 		    my ($privilege,$restrictions)=split(/&/,$_);
@@ -902,7 +906,8 @@ sub rolesinit {
             map { $thesestr.=':'.$_.'&'.$thesepriv{$_}; } keys %thesepriv;
             $userroles.='user.priv.'.$_.'='.$thesestr."\n";
         } keys %allroles;            
-        $userroles.='user.adv='.$adv."\n";
+        $userroles.='user.adv='.$adv."\n".
+	            'user.author='.$author."\n";
         $ENV{'user.adv'}=$adv;
     }
     return $userroles;