--- loncom/interface/lonnavmaps.pm 2001/09/25 18:24:37 1.17
+++ loncom/interface/lonnavmaps.pm 2001/12/19 17:17:46 1.20
@@ -1,6 +1,30 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
+# $Id: lonnavmaps.pm,v 1.20 2001/12/19 17:17:46 albertel Exp $
+#
+# Copyright Michigan State University Board of Trustees
+#
+# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+#
+# LON-CAPA is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# LON-CAPA is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with LON-CAPA; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+#
+# /home/httpd/html/adm/gpl.txt
+#
+# http://www.lon-capa.org/
+#
# (Page Handler
#
# (TeX Content Handler
@@ -16,6 +40,7 @@ package Apache::lonnavmaps;
use strict;
use Apache::Constants qw(:common :http);
use Apache::lonnet();
+use Apache::loncommon();
use HTML::TokeParser;
use GDBM_File;
@@ -443,10 +468,11 @@ sub handler {
# ---------------------------------------------------------------- Send headers
$r->content_type('text/html');
+ &Apache::loncommon::no_cache($r);
$r->send_http_header;
+ my $date=localtime;
$r->print(
- 'Navigate LON-CAPA Maps');
-
+ 'Navigate LON-CAPA Maps');
$r->print('