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.18, 2001/10/26 17:09:04
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 444 sub handler {	Line 445 sub handler {

$r->content_type('text/html');	$r->content_type('text/html');
$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>'.&Apache::loncommon::cacheheader().
	'<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/)) {