version 1.32, 2003/01/31 21:46:36
|
version 1.33, 2003/02/13 15:52:53
|
Line 36 package Apache::lonmenu;
|
Line 36 package Apache::lonmenu;
|
|
|
use strict; |
use strict; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::Constants qw(:common); |
|
use Apache::loncommon; |
use Apache::File; |
use Apache::File; |
use vars qw(@desklines $readdesk); |
use vars qw(@desklines $readdesk); |
|
|
Line 263 sub footer {
|
Line 265 sub footer {
|
|
|
} |
} |
|
|
|
# ================================================ Handler when called directly |
|
|
|
|
|
sub handler { |
|
my $r = shift; |
|
$r->content_type('text/html'); |
|
$r->send_http_header; |
|
return OK if $r->header_only; |
|
|
|
# ------------------------------------------------------------ Print the screen |
|
$r->print('<html><head><title>LON-CAPA Main Menu</title></head>'); |
|
$r->print('<body bgcolor="#FFFFFF">'); |
|
$r->print('<h1>LON-CAPA Main Menu</h1>'); |
|
$r->print('</body></html>'); |
|
return OK; |
|
} |
|
|
# ================================================================ Main Program |
# ================================================================ Main Program |
|
|
BEGIN { |
BEGIN { |