version 1.69, 2006/05/30 19:47:40
|
version 1.70, 2006/08/18 20:24:53
|
Line 33 use strict;
|
Line 33 use strict;
|
use LONCAPA; |
use LONCAPA; |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::loncommon(); |
use HTML::TokeParser; |
use HTML::TokeParser; |
use GDBM_File; |
use GDBM_File; |
|
|
Line 256 sub handler {
|
Line 257 sub handler {
|
my $furl=&first_accessible_resource(); |
my $furl=&first_accessible_resource(); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$furl); |
&Apache::loncommon::absolute_url().$furl); |
|
|
return REDIRECT; |
return REDIRECT; |
} |
} |
Line 290 sub handler {
|
Line 291 sub handler {
|
} else { |
} else { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$newloc); |
&Apache::loncommon::absolute_url().$newloc); |
|
|
return REDIRECT; |
return REDIRECT; |
} |
} |
Line 313 sub handler {
|
Line 314 sub handler {
|
if ($direction eq 'return') { |
if ($direction eq 'return') { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.'/adm/noidea.html'); |
&Apache::loncommon::absolute_url(). |
|
'/adm/noidea.html'); |
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
&navlaunch($r); |
&navlaunch($r); |
Line 415 sub handler {
|
Line 417 sub handler {
|
} |
} |
|
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
my $url='http://'.$ENV{'HTTP_HOST'}.$redirecturl; |
my $url=&Apache::loncommon::absolute_url().$redirecturl; |
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |
$r->header_out(Location => $url); |
$r->header_out(Location => $url); |
return REDIRECT; |
return REDIRECT; |