loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.3, 2001/06/01 17:19:20	version 1.4, 2001/06/02 16:10:44
Line 72 sub rawconfig {	Line 72 sub rawconfig {
my $uname=$ENV{'user.name'};	my $uname=$ENV{'user.name'};
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 $crs='/'.$ENV{'request.course.id'};	my $crs='/'.$ENV{'request.course.id'};
$crs=~s/\_/\//;	$crs=~s/\_/\//;
my $pub=($ENV{'request.state'} eq 'published');	my $pub=($ENV{'request.state'} eq 'published');
Line 83 sub rawconfig {	Line 84 sub rawconfig {
$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') {
&clear($row,$col);	$output.=&clear($row,$col);
} elsif ($pro eq 'any') {	} elsif ($pro eq 'any') {
$output.=&secondlevel(	$output.=&secondlevel(
$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act);	$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act);
Line 101 sub rawconfig {	Line 102 sub rawconfig {
if (&Apache::lonnet::allowed($1,$prt)) {	if (&Apache::lonnet::allowed($1,$prt)) {
$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act);	$output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act);
}	}
	} elsif ($pro eq 'author') {
	if ($author) {
	}
}	}
} @desklines;	} @desklines;
return $output;	return $output;