loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.6, 2001/06/09 16:05:30	version 1.9, 2001/10/05 16:49:02
Line 5	Line 5
#	#
# 05/29/00,05/30 Gerd Kortemeyer)	# 05/29/00,05/30 Gerd Kortemeyer)
#	#
# 10/05,05/28,05/30,06/01,06/08,06/09 Gerd Kortemeyer	# 10/05,05/28,05/30,06/01,06/08,06/09,07/04,08/07 Gerd Kortemeyer

package Apache::lonmenu;	package Apache::lonmenu;

Line 76 sub rawconfig {	Line 76 sub rawconfig {
my $crs='';	my $crs='';
if ($ENV{'request.course.id'}) {	if ($ENV{'request.course.id'}) {
$crs='/'.$ENV{'request.course.id'};	$crs='/'.$ENV{'request.course.id'};
$crs=~s/\_/\//;	if ($ENV{'request.course.sec'}) {
	$crs.='_'.$ENV{'request.course.sec'};
	}
	$crs=~s/\_/\//g;
}	}
my $pub=($ENV{'request.state'} eq 'published');	my $pub=($ENV{'request.state'} eq 'published');
my $con=($ENV{'request.state'} eq 'construct');	my $con=($ENV{'request.state'} eq 'construct');
Line 144 sub footer {	Line 147 sub footer {
# ================================================================ Main Program	# ================================================================ Main Program

sub BEGIN {	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;
	}
	}
	}
}	}
}
}
}	}
1;	1;
__END__	__END__