version 1.11, 2001/11/29 19:12:44
|
version 1.13, 2002/03/12 19:34:59
|
Line 35 use strict;
|
Line 35 use strict;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::File (); |
use Apache::File (); |
use Apache::lonnet(); |
use Apache::lonnet(); |
|
use Apache::loncommon(); |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
|
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
Line 102 ENDHEADER
|
Line 104 ENDHEADER
|
# ---------------------------------------------------------- Serve rest of page |
# ---------------------------------------------------------- Serve rest of page |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
|
|
<body bgcolor="#FFFFFF" text="#000000" link="#999999" vlink="#999999" |
<body bgcolor="#FFFFFE" text="#000000" link="#999999" vlink="#999999" |
onLoad="init();"> |
onLoad="init();"> |
|
|
<script language="JavaScript"> |
<script language="JavaScript"> |