loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.149, 2003/02/28 15:06:45	version 1.150, 2003/02/28 16:16:59
Line 44 package Apache::lonnavmaps;	Line 44 package Apache::lonnavmaps;
use strict;	use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::loncommon();	use Apache::loncommon();
	use Apache::lonmenu();
use POSIX qw (floor strftime);	use POSIX qw (floor strftime);

my %navmaphash;	my %navmaphash;
Line 152 sub real_handler {	Line 153 sub real_handler {
}	}

$r->print("<html><head>\n");	$r->print("<html><head>\n");
$r->print("<title>Navigate Course Contents</title></head>");	$r->print("<title>Navigate Course Contents</title>");
	# ------------------------------------------------------------ Get query string
	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['register']);
	# ----------------------------------------------------- Force menu registration
	my $addentries='';
	if ($ENV{'form.register'}) {
	$addentries=' onLoad="'.&Apache::lonmenu::loadevents().
	'" onUnload="'.&Apache::lonmenu::unloadevents().'"';
	$r->print(&Apache::lonmenu::registerurl(1));
	}

# Header	# Header
$r->print(&Apache::loncommon::bodytag('Navigate Course Contents','',	$r->print('</head>'.
''));	&Apache::loncommon::bodytag('Navigate Course Contents','',
	$addentries));
$r->print('<script>window.focus();</script>');	$r->print('<script>window.focus();</script>');

$r->rflush();	$r->rflush();