loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.24, 2002/07/15 19:45:18	version 1.25, 2002/08/08 19:33:09
Line 79 sub clear {	Line 79 sub clear {
return qq(swmenu.clearbut($row,$col););	return qq(swmenu.clearbut($row,$col););
}	}

	# Switch acts on the javascript that is executed when a button is clicked.
	# The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".
sub switch {	sub switch {
my ($uname,$udom,$row,$col,$img,$top,$bot,$act)=@_;	my ($uname,$udom,$row,$col,$img,$top,$bot,$act)=@_;
$act=~s/\$uname/$uname/g;	$act=~s/\$uname/$uname/g;
Line 127 sub rawconfig {	Line 129 sub rawconfig {
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'};
	my $requested_domain = $ENV{'request.role.domain'};
foreach (@desklines) {	foreach (@desklines) {
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;
	$prt=~s/\$requested_domain/$requested_domain/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') {