Diff for /rat/lonpageflip.pm between versions 1.14 and 1.15

version 1.14, 2001/01/10 19:51:01 version 1.15, 2001/05/03 15:54:06
Line 12 Line 12
 #  #
 # 10/03,10/05,10/06,10/07,10/09,10/10,10/11,10/16,10/17,  # 10/03,10/05,10/06,10/07,10/09,10/10,10/11,10/16,10/17,
 # 11/14,11/16,  # 11/14,11/16,
 # 10/01/01 Gerd Kortemeyer  # 10/01/01,05/01 Gerd Kortemeyer
   
 package Apache::lonpageflip;  package Apache::lonpageflip;
   
Line 39  sub addrid { Line 39  sub addrid {
     return $current;      return $current;
 }  }
   
   sub move {
       my ($rid,$mapurl,$direction)=@_;
   
       my $next='';
   
                 my $mincond=1;
                 my $posnext='';
                 if ($direction eq 'forward') {
   # --------------------------------------------------------------------- Forward
                     if ($hash{'type_'.$rid} eq 'finish') {
                $rid=$hash{'ids_/res/'.$mapurl}; 
                     }
                     map {
                         my $thiscond=
         &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
                         if ($thiscond>=$mincond) {
             if ($posnext) {
                $posnext.=','.$_.':'.$thiscond;
                             } else {
                                $posnext=$_.':'.$thiscond;
             }
                             if ($thiscond>$mincond) { $mincond=$thiscond; }
                 }
                     } split(/\,/,$hash{'to_'.$rid});
                     map {
                         my ($linkid,$condval)=split(/\:/,$_);
                         if ($condval>=$mincond) {
             $next=&addrid($next,$hash{'goesto_'.$linkid},
                                   $hash{'condid_'.$hash{'undercond_'.$linkid}});
                         }
                     } split(/\,/,$posnext);
                     if ($hash{'is_map_'.$next}) {
                         if (
         $hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') {
     $mapurl=$hash{'src_'.$next};
     $next=$hash{'map_start_'.$hash{'src_'.$next}};
                        }
                     }
                 } elsif ($direction eq 'back') {
   # ------------------------------------------------------------------- Backwards
                     if ($hash{'type_'.$rid} eq 'start') {
                $rid=$hash{'ids_/res/'.$mapurl};
                     }
                     map {
                         my $thiscond=
         &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
                         if ($thiscond>=$mincond) {
             if ($posnext) {
                $posnext.=','.$_.':'.$thiscond;
                             } else {
                                $posnext=$_.':'.$thiscond;
             }
                             if ($thiscond>$mincond) { $mincond=$thiscond; }
                 }
                     } split(/\,/,$hash{'from_'.$rid});
                     map {
                         my ($linkid,$condval)=split(/\:/,$_);
                         if ($condval>=$mincond) {
             $next=&addrid($next,$hash{'comesfrom_'.$linkid},
                                   $hash{'condid_'.$hash{'undercond_'.$linkid}});
                         }
                     } split(/\,/,$posnext);
                     if ($hash{'is_map_'.$next}) {
                         if (
         $hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') {
     $mapurl=$hash{'src_'.$next};
     $next=$hash{'map_finish_'.$hash{'src_'.$next}};
                        }
                     }
          } elsif ($direction eq 'up') {
   # -------------------------------------------------------------------------- Up
                 } elsif ($direction eq 'down') {
   # ------------------------------------------------------------------------ Down
         }
   
                 return ($next,$mapurl);
   }
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
   
 sub handler {  sub handler {
Line 112  sub handler { Line 190  sub handler {
                         &GDBM_READER,0640)) {                          &GDBM_READER,0640)) {
               my $rid=$hash{'map_pc_/res/'.$mapurl}.'.'.$mapnum;                my $rid=$hash{'map_pc_/res/'.$mapurl}.'.'.$mapnum;
   
               my $next='';  # ------------------------------------------------- Move forward, backward, etc
               my $mincond=1;  
               my $posnext='';                ($next,$mapurl)=&move($rid,$mapurl,$direction);
               if ($direction eq 'forward') {  # -------------------------------------- Do we have one and only one empty URL?
 # --------------------------------------------------------------------- Forward                my $safecount=0;
                   if ($hash{'type_'.$rid} eq 'finish') {                while (($next) && ($next!~/\,/) && (!$hash{'src_'.$next})
              $rid=$hash{'ids_/res/'.$mapurl};                       && ($safecount<25)) {
                   }                    ($next,$mapurl)=&move($next,$mapurl,$direction);
                   map {                    $safecount++;
                       my $thiscond=                }
       &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});  
                       if ($thiscond>=$mincond) {  
           if ($posnext) {  
              $posnext.=','.$_.':'.$thiscond;  
                           } else {  
                              $posnext=$_.':'.$thiscond;  
           }  
                           if ($thiscond>$mincond) { $mincond=$thiscond; }  
               }  
                   } split(/\,/,$hash{'to_'.$rid});  
                   map {  
                       my ($linkid,$condval)=split(/\:/,$_);  
                       if ($condval>=$mincond) {  
           $next=&addrid($next,$hash{'goesto_'.$linkid},  
                                 $hash{'condid_'.$hash{'undercond_'.$linkid}});  
                       }  
                   } split(/\,/,$posnext);  
                   if ($hash{'is_map_'.$next}) {  
                       if (  
       $hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') {  
   $mapurl=$hash{'src_'.$next};  
   $next=$hash{'map_start_'.$hash{'src_'.$next}};  
                      }  
                   }  
               } elsif ($direction eq 'back') {  
 # ------------------------------------------------------------------- Backwards  
                   if ($hash{'type_'.$rid} eq 'start') {  
              $rid=$hash{'ids_/res/'.$mapurl};  
                   }  
                   map {  
                       my $thiscond=  
       &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});  
                       if ($thiscond>=$mincond) {  
           if ($posnext) {  
              $posnext.=','.$_.':'.$thiscond;  
                           } else {  
                              $posnext=$_.':'.$thiscond;  
           }  
                           if ($thiscond>$mincond) { $mincond=$thiscond; }  
               }  
                   } split(/\,/,$hash{'from_'.$rid});  
                   map {  
                       my ($linkid,$condval)=split(/\:/,$_);  
                       if ($condval>=$mincond) {  
           $next=&addrid($next,$hash{'comesfrom_'.$linkid},  
                                 $hash{'condid_'.$hash{'undercond_'.$linkid}});  
                       }  
                   } split(/\,/,$posnext);  
                   if ($hash{'is_map_'.$next}) {  
                       if (  
       $hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') {  
   $mapurl=$hash{'src_'.$next};  
   $next=$hash{'map_finish_'.$hash{'src_'.$next}};  
                      }  
                   }  
        } elsif ($direction eq 'up') {  
 # -------------------------------------------------------------------------- Up  
               } elsif ($direction eq 'down') {  
 # ------------------------------------------------------------------------ Down  
       }  
 # ----------------------------------------------------- Check out possibilities  # ----------------------------------------------------- Check out possibilities
               if ($next) {                if ($next) {
                   @possibilities=split(/\,/,$next);                    @possibilities=split(/\,/,$next);

Removed from v.1.14  
changed lines
  Added in v.1.15


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