loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2001/07/04 16:52:10	version 1.8, 2001/08/07 21:47:34
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,07/04 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 79 sub rawconfig {	Line 79 sub rawconfig {
if ($ENV{'request.course.sec'}) {	if ($ENV{'request.course.sec'}) {
$crs.='_'.$ENV{'request.course.sec'};	$crs.='_'.$ENV{'request.course.sec'};
}	}
$crs=~s/\_/\//;	$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');