loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.62, 2003/04/18 00:02:34	version 1.63, 2003/04/18 01:00:46
Line 590 sub switch {	Line 590 sub switch {
my $text=$top.' '.$bot;	my $text=$top.' '.$bot;
$text=~s/\- //;	$text=~s/\- //;
$inlineremote[10*$row+$col]="\n".($nobreak?' ':'<br />').	$inlineremote[10*$row+$col]="\n".($nobreak?' ':'<br />').
'<a href="javascript:'.$act.';" target="_top">'.$text.'</a> '.	'<a href="javascript:'.$act.';">'.$text.'</a> '.
($nobreak?'':$desc);	($nobreak?'':$desc);
} else {	} else {
# Inline Remote	# Inline Remote
Line 600 sub switch {	Line 600 sub switch {
$inlineremote[10*$row+$col]="\n".	$inlineremote[10*$row+$col]="\n".
($nobreak==3?'<td width="50%" colspan="2" align="right"':'<tr><td').	($nobreak==3?'<td width="50%" colspan="2" align="right"':'<tr><td').
' bgcolor="'.$tabbg.'"'.($nobreak==1?' width="50%" colspan="2"':'').	' bgcolor="'.$tabbg.'"'.($nobreak==1?' width="50%" colspan="2"':'').
'"><a href="javascript:'.$act.';" target="_top"><font color="'.$font.'"'.	'"><a href="javascript:'.$act.';"><font color="'.$font.'"'.
($nobreak?' size="+1"':'').	($nobreak?' size="+1"':'').
'>'.$text.'</font></a></td>'.	'>'.$text.'</font></a></td>'.
($nobreak?'':'<td colspan="3" width="80%"><font color="'.$font.'" size="-1">'.$desc.'</font>').($nobreak!=1?'</tr>':'');	($nobreak?'':'<td colspan="3" width="80%"><font color="'.$font.'" size="-1">'.$desc.'</font>').($nobreak!=1?'</tr>':'');