version 1.3, 2000/10/17 10:36:17
|
version 1.4, 2000/10/17 17:06:15
|
Line 64 sub handler {
|
Line 64 sub handler {
|
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
&GDBM_READER,0640)) { |
&GDBM_READER,0640)) { |
my $disid=''; |
my $disid=''; |
|
my $whatend=''; |
if ($direction eq 'back') { |
if ($direction eq 'back') { |
$disid=$bighash{'map_finish_'.$requrl}; |
$disid=$bighash{'map_finish_'.$requrl}; |
|
$whatend='End'; |
} else { |
} else { |
$disid=$bighash{'map_start_'.$requrl}; |
$disid=$bighash{'map_start_'.$requrl}; |
|
$whatend='Beginning'; |
} |
} |
my $disurl=''; |
my $disurl=''; |
|
my $dismapid=''; |
if ($disid) { |
if ($disid) { |
$disurl=$bighash{'src_'.$disid}; |
$disurl=$bighash{'src_'.$disid}; |
|
$dismapid=(split(/\./,$disid))[1]; |
} |
} |
my $symb=''; |
my $symb=''; |
|
my $sequencetitle=''; |
unless($disurl) { |
unless($disurl) { |
if ($symb=&Apache::lonnet::symbread()) { |
if ($symb=&Apache::lonnet::symbread()) { |
|
my ($mapurl,$mapid)=split(/\_\_\_/,$symb); |
|
$sequencetitle=$bighash{'title_'. |
|
$bighash{'map_pc_/res/'.$mapurl}.'.'. |
|
$mapid}; |
} |
} |
} |
} |
# --------------------------------------- Untie hash, make sure to come by here |
# --------------------------------------- Untie hash, make sure to come by here |
untie(%bighash); |
untie(%bighash); |
if ($disurl) { |
if ($disurl) { |
# -------------------------------------------------- Has first or last resource |
# -------------------------------------------------- Has first or last resource |
|
&Apache::lonnet::symblist($requrl,$disurl => $dismapid, |
|
'last_known' => &Apache::lonnet::declutter($disurl)); |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl); |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$disurl); |
return REDIRECT; |
return REDIRECT; |
Line 93 sub handler {
|
Line 105 sub handler {
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print(<<ENDSYMB); |
$r->print(<<ENDSYMB); |
<html><body> |
<html><body bgcolor="#FFFFFF"> |
|
<h2>$whatend of</h2> |
|
<h1>$sequencetitle</h1> |
</body></html> |
</body></html> |
ENDSYMB |
ENDSYMB |
return OK |
return OK |