version 1.10, 2002/05/23 13:04:59
|
version 1.11, 2002/05/23 15:07:55
|
Line 44 use Apache::Constants qw(:common :http R
|
Line 44 use Apache::Constants qw(:common :http R
|
use GDBM_File; |
use GDBM_File; |
use Apache::lonratedt; |
use Apache::lonratedt; |
use Apache::lonratsrv; |
use Apache::lonratsrv; |
|
use Apache::lonpageflip; |
|
|
# ----------------------------------------------------------- Could not resolve |
# ----------------------------------------------------------- Could not resolve |
|
|
Line 189 sub handler {
|
Line 190 sub handler {
|
$disurl=$bighash{'src_'.$disid}; |
$disurl=$bighash{'src_'.$disid}; |
$dismapid=(split(/\./,$disid))[1]; |
$dismapid=(split(/\./,$disid))[1]; |
} |
} |
|
# ------------------------- If this is an empty one, skip to next non-empty one |
|
if ((!$disurl) && ($disid)) { |
|
$direction=($direction?$direction:'forward'); |
|
($disid,$requrl)= |
|
&Apache::lonpageflip::fullmove($disid, |
|
&Apache::lonnet::declutter($requrl),$direction); |
|
if ($disid) { |
|
$disurl=$bighash{'src_'.$disid}; |
|
$dismapid=(split(/\./,$disid))[1]; |
|
} |
|
} |
|
|
# --------------------------------------- Untie hash, make sure to come by here |
# --------------------------------------- Untie hash, make sure to come by here |
untie(%bighash); |
untie(%bighash); |
} |
} |