--- rat/lonpageflip.pm 2000/11/14 18:15:01 1.11 +++ rat/lonpageflip.pm 2000/11/14 19:14:03 1.12 @@ -167,6 +167,14 @@ sub handler { $redirecturl=$hash{'src_'.$next}; $cachehash{&Apache::lonnet::declutter($redirecturl)} =(split(/\./,$next))[1]; + if ($hash{'param_'.$next}) { + my ($mapid,$resid)=split(/\./,$next); + &Apache::lonnet::appendparms( + &Apache::lonnet::declutter($hash{'map_id_'.$mapid}). + '___'.$resid.'___'. + &Apache::lonnet::declutter($redirecturl), + $hash{'param_'.$next}); + } } else { # ------------------------ There are multiple possibilities for a next resource $multichoice=1; @@ -180,23 +188,20 @@ sub handler { {'src_'.$_} )} =(split(/\./,$_))[1]; + if ($hash{'param_'.$_}) { + my ($mapid,$resid)=split(/\./,$_); + &Apache::lonnet::appendparms( + &Apache::lonnet::declutter($hash{'map_id_'.$mapid}). + '___'.$resid.'___'. + &Apache::lonnet::declutter($hash{'src_'.$_}), + $hash{'param_'.$_}); + } } @possibilities; } } else { # -------------------------------------------------------------- No place to go $multichoice=-1; } -# ------------------------------------------------------ Set parameters, if any - if ($redirecturl) { - if ($hash{'param_'.$next}) { - my ($mapid,$resid)=split(/\./,$next); - &Apache::lonnet::appendparms( - &Apache::lonnet::declutter($hash{'map_id_'.$mapid}). - '___'.$resid.'___'. - &Apache::lonnet::declutter($redirecturl), - $hash{'param_'.$next}); - } - } # ----------------- The program must come past this point to untie the big hash untie(%hash); # --------------------------------------------------------- Store position info