loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.103, 2003/11/21 21:38:50	version 1.104, 2003/12/08 15:02:34
Line 43 use Apache::lonnet;	Line 43 use Apache::lonnet;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::loncommon;	use Apache::loncommon;
use Apache::File;
use Apache::lonlocal;	use Apache::lonlocal;

use vars qw(@desklines $readdesk);	use vars qw(@desklines $readdesk);
Line 962 ENDHEADER	Line 961 ENDHEADER
BEGIN {	BEGIN {
if (! defined($readdesk)) {	if (! defined($readdesk)) {
{	{
my $config=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.	my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';
'/mydesk.tab');	if ( CORE::open( my $config,"<$tabfile") ) {
while (my $configline=<$config>) {	while (my $configline=<$config>) {
$configline=(split(/\#/,$configline))[0];	$configline=(split(/\#/,$configline))[0];
$configline=~s/^\s+//;	$configline=~s/^\s+//;
chomp($configline);	chomp($configline);
if ($configline) {	if ($configline) {
$desklines[$#desklines+1]=$configline;	$desklines[$#desklines+1]=$configline;
}	}
	}
	CORE::close($config);
}	}
}	}
$readdesk='done';	$readdesk='done';