loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.42, 2003/02/17 22:59:37	version 1.43, 2003/02/20 18:00:31
Line 49 sub menubuttons {	Line 49 sub menubuttons {
my $registration=shift;	my $registration=shift;
unless ($ENV{'browser.interface'} eq 'textual') { return ''; }	unless ($ENV{'browser.interface'} eq 'textual') { return ''; }
# Textual display only	# Textual display only
my $output='<a href="/adm/menu">Main Menu</a><br />';	my $output='<a href="/adm/menu" target="_top">Main Menu</a><br />';
if ($registration) { $output.=&innerregister($forcereg,$target); }	if ($registration) { $output.=&innerregister($forcereg,$target); }
return $output."<hr />";	return $output."<hr />";
}	}
Line 449 sub switch {	Line 449 sub switch {
my $text=$top.' '.$bot;	my $text=$top.' '.$bot;
$text=~s/\- //;	$text=~s/\- //;
return "\n".($nobreak?' ':'<br />').	return "\n".($nobreak?' ':'<br />').
'<a href="javascript:'.$act.';">'.$text.'</a> '.($nobreak?'':$desc);	'<a href="javascript:'.$act.';" target="_top">'.$text.'</a> '.
	($nobreak?'':$desc);
}	}
}	}