version 1.9, 2002/05/23 10:58:05
|
version 1.10, 2002/05/23 13:04:59
|
Line 179 sub handler {
|
Line 179 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'; |
|
} |
} |
if ($disid) { |
if ($disid) { |
$disurl=$bighash{'src_'.$disid}; |
$disurl=$bighash{'src_'.$disid}; |
$dismapid=(split(/\./,$disid))[1]; |
$dismapid=(split(/\./,$disid))[1]; |
} |
} |
my $symb=''; |
|
my $sequencetitle=''; |
|
unless($disurl) { |
|
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); |
} |
} |