loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.4, 2001/06/02 16:10:44	version 1.5, 2001/06/08 13:02:44
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 Gerd Kortemeyer	# 10/05,05/28,05/30,06/01,06/08 Gerd Kortemeyer

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

Line 73 sub rawconfig {	Line 73 sub rawconfig {
my $udom=$ENV{'user.domain'};	my $udom=$ENV{'user.domain'};
my $adv=$ENV{'user.adv'};	my $adv=$ENV{'user.adv'};
my $author=$ENV{'user.author'};	my $author=$ENV{'user.author'};
my $crs='/'.$ENV{'request.course.id'};	my $crs='';
$crs=~s/\_/\//;	if ($ENV{'request.course.id'}) {
	$crs='/'.$ENV{'request.course.id'};
	$crs=~s/\_/\//;
	}
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');
my $rol=$ENV{'request.role'};	my $rol=$ENV{'request.role'};
Line 82 sub rawconfig {	Line 85 sub rawconfig {
my ($row,$col,$pro,$prt,$img,$top,$bot,$act)=split(/\:/,$_);	my ($row,$col,$pro,$prt,$img,$top,$bot,$act)=split(/\:/,$_);
$prt=~s/\$uname/$uname/g;	$prt=~s/\$uname/$uname/g;
$prt=~s/\$udom/$udom/g;	$prt=~s/\$udom/$udom/g;
$prt=~s/\$crs/$crs/g;	$prt=~s/\$crs/$crs/g;
if ($pro eq 'clear') {	if ($pro eq 'clear') {
$output.=&clear($row,$col);	$output.=&clear($row,$col);
} elsif ($pro eq 'any') {	} elsif ($pro eq 'any') {