loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.274, 2009/07/11 19:58:29	version 1.275, 2009/07/13 08:24:21
Line 997 ENDOPEN	Line 997 ENDOPEN
sub clear {	sub clear {
my ($row,$col)=@_;	my ($row,$col)=@_;
unless ($env{'environment.remote'} eq 'off') {	unless ($env{'environment.remote'} eq 'off') {
	if (($row<1) \|\| ($row>13)) { return ''; }
return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););	return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););
} else {	} else {
$inlineremote[10*$row+$col]='';	$inlineremote[10*$row+$col]='';
Line 1022 sub switch {	Line 1023 sub switch {
$category_members{$cat}.=':'.$idx;	$category_members{$cat}.=':'.$idx;

unless ($env{'environment.remote'} eq 'off') {	unless ($env{'environment.remote'} eq 'off') {
	if (($row<1) \|\| ($row>13)) { return ''; }
# Remote	# Remote
return "\n".	return "\n".
qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););	qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););
Line 1095 sub openmenu {	Line 1097 sub openmenu {
sub inlinemenu {	sub inlinemenu {
undef(@inlineremote);	undef(@inlineremote);
undef(%category_members);	undef(%category_members);
	# calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control
&rawconfig(1);	&rawconfig(1);
my $output='<table id="LC_mainmenu"><tr>';	my $output='<table id="LC_mainmenu"><tr>';
for (my $col=1; $col<=2; $col++) {	for (my $col=1; $col<=2; $col++) {