loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.35, 2003/02/13 20:35:39	version 1.36, 2003/02/14 14:30:09
Line 181 sub switch {	Line 181 sub switch {
} else {	} else {
my $text=$top.' '.$bot;	my $text=$top.' '.$bot;
$text=~s/\- //;	$text=~s/\- //;
return '<br /><a href="'.$act.'">'.$text.'</a> '.$desc;	return '<br /><a href="javascript:'.$act.';">'.$text.'</a> '.$desc;
}	}
}	}

Line 328 sub handler {	Line 328 sub handler {

my $bodytag=&Apache::loncommon::bodytag('Main Menu');	my $bodytag=&Apache::loncommon::bodytag('Main Menu');
# ------------------------------------------------------------ Print the screen	# ------------------------------------------------------------ Print the screen
$r->print('<html><head><title>LON-CAPA Main Menu</title></head>'.$bodytag);	$r->print(<<ENDHEADER);
	<html><head>
	<title>LON-CAPA Main Menu</title>
	<script>
	function go(url) {
	window.location=url;
	}
	function gopost(url) {
	window.location=url;
	}
	</script>
	</head>
	$bodytag
	ENDHEADER
$r->print(&rawconfig(1));	$r->print(&rawconfig(1));
$r->print('</body></html>');	$r->print('</body></html>');
return OK;	return OK;