version 1.16, 2003/09/22 03:02:06
|
version 1.17, 2004/05/21 20:16:40
|
Line 263 sub handler {
|
Line 263 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 $randomout =''; |
|
|
if ($direction eq 'back') { |
if ($direction eq 'back') { |
$disid=$bighash{'map_finish_'.$requrl}; |
$disid=$bighash{'map_finish_'.$requrl}; |
Line 272 sub handler {
|
Line 273 sub handler {
|
if ($disid) { |
if ($disid) { |
$disurl=$bighash{'src_'.$disid}; |
$disurl=$bighash{'src_'.$disid}; |
$dismapid=(split(/\./,$disid))[1]; |
$dismapid=(split(/\./,$disid))[1]; |
|
$randomout = $bighash{'randomout_'.$disid}; |
} |
} |
# ------------------------- If this is an empty one, skip to next non-empty one |
# ----------- If this is an empty one, or hidden, skip to next non-empty or non-hidden one |
if ((!$disurl) && ($disid)) { |
if ( ((!$disurl) && ($disid)) || ($randomout && $disid) ) { |
$direction=($direction?$direction:'forward'); |
$direction=($direction?$direction:'forward'); |
($disid,$requrl)= |
($disid,$requrl)= |
&Apache::lonpageflip::fullmove($disid, |
&Apache::lonpageflip::fullmove($disid, |