--- loncom/interface/lonmenu.pm	2001/06/01 17:19:20	1.3
+++ loncom/interface/lonmenu.pm	2001/06/02 16:10:44	1.4
@@ -72,6 +72,7 @@ sub rawconfig {
     my $uname=$ENV{'user.name'};
     my $udom=$ENV{'user.domain'};
     my $adv=$ENV{'user.adv'};
+    my $author=$ENV{'user.author'};
     my $crs='/'.$ENV{'request.course.id'};
     $crs=~s/\_/\//;
     my $pub=($ENV{'request.state'} eq 'published');
@@ -83,7 +84,7 @@ sub rawconfig {
         $prt=~s/\$udom/$udom/g;
         $prt=~s/\$crs/$crs/g;
         if ($pro eq 'clear') {
-	    &clear($row,$col);
+	    $output.=&clear($row,$col);
         } elsif ($pro eq 'any') {
                $output.=&secondlevel(
 	  $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act);
@@ -101,6 +102,9 @@ sub rawconfig {
 	    if (&Apache::lonnet::allowed($1,$prt)) {
                $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act);
             }
+        } elsif ($pro eq 'author') {
+            if ($author) {
+            }
         }
     } @desklines;
     return $output;