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; |