loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.3 and 1.9

version 1.3, 2001/06/01 17:19:20	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 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 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 $crs='/'.$ENV{'request.course.id'};	my $author=$ENV{'user.author'};
$crs=~s/\_/\//;	my $crs='';
	if ($ENV{'request.course.id'}) {
	$crs='/'.$ENV{'request.course.id'};
	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');
my $rol=$ENV{'request.role'};	my $rol=$ENV{'request.role'};
Line 81 sub rawconfig {	Line 88 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') {
&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 108 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) {
	if (($prt eq 'rca') && ($ENV{'request.role'}=~/^ca/)) {
	my ($cadom,$caname)=
	($ENV{'request.role'}=~/(\w+)\/(\w+)$/);
	$output.=switch($caname,$cadom,
	$row,$col,$img,$top,$bot,$act);
	} elsif ($prt eq 'any') {
	$output.=switch($ENV{'user.name'},$ENV{'user.domain'},
	$row,$col,$img,$top,$bot,$act);
	}
	}
}	}
} @desklines;	} @desklines;
return $output;	return $output;
Line 128 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__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.3
changed lines
	Added in v.1.9