loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.211, 2007/04/11 19:38:59	version 1.213, 2007/04/13 13:39:32
Line 445 sub innerregister {	Line 445 sub innerregister {
# Finally, turn the button on or off	# Finally, turn the button on or off
if ($cfile && !$const_space) {	if ($cfile && !$const_space) {
$editbutton=&switch	$editbutton=&switch
('','',6,1,'cstr.gif','edit[_1]','resource[_2]',	('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
"go('".$cfile."');","Edit this resource");	"go('".$cfile."');","Edit this resource");
} elsif ($editbutton eq '') {	} elsif ($editbutton eq '') {
$editbutton=&clear(6,1);	$editbutton=&clear(6,1);
Line 842 sub switch {	Line 842 sub switch {
}	}
} else {	} else {
# Inline Remote	# Inline Remote
	if ($env{'environment.icons'} ne 'classic') {
	$img=~s/\.gif$/\.png/;
	}
if ($nobreak==2) { return ''; }	if ($nobreak==2) { return ''; }
my $text=$top.' '.$bot;	my $text=$top.' '.$bot;
$text=~s/\s\-\s//gs;	$text=~s/\s\-\s//gs;