loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

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 {