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/)) { |