version 1.14, 2005/02/17 09:09:57
|
version 1.15, 2005/03/01 00:22:57
|
Line 93 sub handler {
|
Line 93 sub handler {
|
my $resid=$2; |
my $resid=$2; |
my $resurl=$bighash{'src_'.$mapid.'.'.$resid}; |
my $resurl=$bighash{'src_'.$mapid.'.'.$resid}; |
&Apache::lonnet::symblist($bighash{'map_id_'.$mapid}, |
&Apache::lonnet::symblist($bighash{'map_id_'.$mapid}, |
$resurl => $resid); |
$resurl => [$resurl,$resid]); |
untie(%bighash); |
untie(%bighash); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$resurl); |
'http://'.$ENV{'HTTP_HOST'}.$resurl); |
Line 130 sub handler {
|
Line 130 sub handler {
|
# ---------------------------------------------------------- There was an entry |
# ---------------------------------------------------------- There was an entry |
|
|
if ($syval) { |
if ($syval) { |
|
my ($page,undef,$res)=&Apache::lonnet::decode_symb($syval); |
if ($syval=~/\_$/) { |
if ($res eq 'page') { |
# ----------------------------------- Okay, this should have appeared on a page |
# ----------------------------------- Okay, this should have appeared on a page |
$syval=~s/\_\_\_$//; |
|
&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'}.'/res/'.$syval); |
'http://'.$ENV{'HTTP_HOST'}. |
|
&Apache::lonnet::clutter($page)); |
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
# There is not really a problem (???), but cannot go back without endless loop |
# There is not really a problem (???), but cannot go back without endless loop |