--- loncom/interface/lonmenu.pm 2001/08/07 21:47:34 1.8 +++ loncom/interface/lonmenu.pm 2001/10/05 19:26:20 1.10 @@ -147,10 +147,10 @@ sub footer { # ================================================================ Main Program sub BEGIN { -if ($readdesk ne 'done') { + unless ($readdesk) { { my $config=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. - '/mydesk.tab'); + '/mydesk.tab'); while (my $configline=<$config>) { chomp($configline); $desklines[$#desklines+1]=$configline;