[BACK]Return to lonsequence.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonsequence.pm between versions 1.9 and 1.11

version 1.9, 2002/05/23 10:58:05 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 179  sub handler { Line 180  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 $whatend='';  
            if ($direction eq 'back') {             if ($direction eq 'back') {
        $disid=$bighash{'map_finish_'.$requrl};         $disid=$bighash{'map_finish_'.$requrl};
                $whatend='End';  
            } else {             } else {
                $disid=$bighash{'map_start_'.$requrl};                 $disid=$bighash{'map_start_'.$requrl};
                $whatend='Beginning';  
            }              } 
            if ($disid) {             if ($disid) {
        $disurl=$bighash{'src_'.$disid};         $disurl=$bighash{'src_'.$disid};
                $dismapid=(split(/\./,$disid))[1];                 $dismapid=(split(/\./,$disid))[1];
            }             }
            my $symb='';  # ------------------------- If this is an empty one, skip to next non-empty one
            my $sequencetitle='';             if ((!$disurl) && ($disid)) {
            unless($disurl) {         $direction=($direction?$direction:'forward');
                if ($symb=&Apache::lonnet::symbread()) {                 ($disid,$requrl)=
    my ($mapurl,$mapid)=split(/\_\_\_/,$symb);                           &Apache::lonpageflip::fullmove($disid,
                    $sequencetitle=$bighash{'title_'.                             &Apache::lonnet::declutter($requrl),$direction);
           $bighash{'map_pc_/res/'.$mapurl}.'.'.                 if ($disid) {
   $mapid};             $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);
        }         }
Removed from v.1.9  
changed lines
  Added in v.1.11

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