loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.17, 2001/09/25 18:24:37	version 1.19, 2001/10/31 17:44:42
Line 16 package Apache::lonnavmaps;	Line 16 package Apache::lonnavmaps;
use strict;	use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::lonnet();	use Apache::lonnet();
	use Apache::loncommon();
use HTML::TokeParser;	use HTML::TokeParser;
use GDBM_File;	use GDBM_File;

Line 443 sub handler {	Line 444 sub handler {
# ---------------------------------------------------------------- Send headers	# ---------------------------------------------------------------- Send headers

$r->content_type('text/html');	$r->content_type('text/html');
	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
	my $date=localtime;
$r->print(	$r->print(
'<html><head><title>Navigate LON-CAPA Maps</title></head>');	'<html><head><title>Navigate LON-CAPA Maps</title></head>');

$r->print('<body bgcolor="#FFFFFF"');	$r->print('<body bgcolor="#FFFFFF"');
if (($currenturl=~/^\/res/) &&	if (($currenturl=~/^\/res/) &&
($currenturl!~/^\/res\/adm/)) {	($currenturl!~/^\/res\/adm/)) {