version 1.9, 2003/04/12 15:43:58
|
version 1.10, 2003/09/22 03:02:06
|
Line 38 use Apache::lonnet;
|
Line 38 use Apache::lonnet;
|
use Apache::Constants qw(:common REDIRECT); |
use Apache::Constants qw(:common REDIRECT); |
use GDBM_File; |
use GDBM_File; |
use Apache::loncommon; |
use Apache::loncommon; |
|
use Apache::lonlocal; |
|
|
my %bighash; |
my %bighash; |
|
|
Line 54 sub cleanup {
|
Line 55 sub cleanup {
|
|
|
sub getlost { |
sub getlost { |
my ($r,$errmsg)=@_; |
my ($r,$errmsg)=@_; |
|
$errmsg=&mt($errmsg); |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print( |
$r->print( |
Line 69 sub handler {
|
Line 71 sub handler {
|
my $r=shift; |
my $r=shift; |
|
|
if ($r->header_only) { |
if ($r->header_only) { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |