loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.8, 2001/08/07 21:47:34
+version 1.9, 2001/10/05 16:49:02
  Line 147  sub footer {
  # ================================================================ Main Program
  sub BEGIN {
- if ($readdesk ne 'done') {
+     if ($readdesk) {
-   {
+ 	if ($readdesk ne 'done') {
-     my $config=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
+ 	    {
-                                  '/mydesk.tab');
+ 		my $config=Apache::File->new($Apache::lonnet::perlvar{
-     while (my $configline=<$config>) {
+ 		    'lonTabDir'}.'/mydesk.tab');
-        chomp($configline);
+ 		while (my $configline=<$config>) {
-        $desklines[$#desklines+1]=$configline;
+ 		    chomp($configline);
+ 		    $desklines[$#desklines+1]=$configline;
+ 		}
+ 	    }
+ 	}
      }
-   }
- }
  }
 ;
  __END__