--- rat/lonsequence.pm 2002/05/23 13:04:59 1.10 +++ rat/lonsequence.pm 2002/05/23 15:07:55 1.11 @@ -2,7 +2,7 @@ # # Sequence Handler # -# $Id: lonsequence.pm,v 1.10 2002/05/23 13:04:59 www Exp $ +# $Id: lonsequence.pm,v 1.11 2002/05/23 15:07:55 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,6 +44,7 @@ use Apache::Constants qw(:common :http R use GDBM_File; use Apache::lonratedt; use Apache::lonratsrv; +use Apache::lonpageflip; # ----------------------------------------------------------- Could not resolve @@ -189,6 +190,18 @@ sub handler { $disurl=$bighash{'src_'.$disid}; $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(%bighash); }