version 1.21, 2004/10/16 01:14:28
|
version 1.23, 2005/03/01 00:22:57
|
Line 28
|
Line 28
|
# |
# |
# (Handler to resolve ambiguous file locations |
# (Handler to resolve ambiguous file locations |
# |
# |
# (TeX Content Handler |
|
# |
|
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
|
# |
|
# 10/11,10/12 Gerd Kortemeyer) |
|
# |
|
# 10/16 Gerd Kortemeyer |
|
|
|
package Apache::lonsequence; |
package Apache::lonsequence; |
|
|
Line 259 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 306 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; |