version 1.22, 2005/02/17 09:09:57
|
version 1.23, 2005/03/01 00:22:57
|
Line 252 sub handler {
|
Line 252 sub handler {
|
my $direction=''; |
my $direction=''; |
my $prevmap=''; |
my $prevmap=''; |
if ($last) { |
if ($last) { |
($prevmap,$direction)=(split(/\_\_\_/,$last)); |
($prevmap,undef,$direction)=&Apache::lonnet::decode_symb($last); |
} |
} |
# ------------------------------------------------------------- Tie big db file |
# ------------------------------------------------------------- Tie big db file |
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
Line 299 sub handler {
|
Line 299 sub handler {
|
# now either disurl is set (going to first page), or we need another display |
# now either disurl is set (going to first page), or we need another display |
if ($disurl) { |
if ($disurl) { |
# -------------------------------------------------- Has first or last resource |
# -------------------------------------------------- Has first or last resource |
&Apache::lonnet::symblist($requrl,$disurl => $dismapid, |
&Apache::lonnet::symblist($requrl,$disurl => [$disurl,$dismapid], |
'last_known' => &Apache::lonnet::declutter($disurl)); |
'last_known' => [$disurl,$dismapid]); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl); |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl); |
return REDIRECT; |
return REDIRECT; |