Diff for /rat/lonsequence.pm between versions 1.16 and 1.17

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,

Removed from v.1.16  
changed lines
  Added in v.1.17


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>