Diff for /rat/lonpageflip.pm between versions 1.22 and 1.23

version 1.22, 2002/04/11 19:21:52 version 1.23, 2002/04/12 13:47:21
Line 65  sub addrid { Line 65  sub addrid {
   
 sub move {  sub move {
     my ($rid,$mapurl,$direction)=@_;      my ($rid,$mapurl,$direction)=@_;
       my $startoutrid=$rid;
   
     my $next='';      my $next='';
   
Line 95  sub move { Line 96  sub move {
                       }                        }
                   } split(/\,/,$posnext);                    } split(/\,/,$posnext);
                   if ($hash{'is_map_'.$next}) {                    if ($hash{'is_map_'.$next}) {
   # This jumps to the beginning of a new map (going down level)
                       if (                        if (
       $hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') {        $hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$next}}} eq 'sequence') {
   $mapurl=$hash{'src_'.$next};    $mapurl=$hash{'src_'.$next};
   $next=$hash{'map_start_'.$hash{'src_'.$next}};    $next=$hash{'map_start_'.$hash{'src_'.$next}};
                      }                       }
                     } elsif 
                       ((split(/\./,$startoutrid))[0]!=(split(/\./,$next))[0]) {
   # This comes up from a map (coming up one level);
         $mapurl=$hash{'map_id_'.(split(/\./,$next))[0]};
                   }                    }
               } elsif ($direction eq 'back') {                } elsif ($direction eq 'back') {
 # ------------------------------------------------------------------- Backwards  # ------------------------------------------------------------------- Backwards
Line 133  sub move { Line 139  sub move {
                      }                       }
                   }                    }
       }        }
   
               return ($next,$mapurl);                return ($next,$mapurl);
 }  }
   
Line 205  sub handler { Line 210  sub handler {
 # ------------------------------------------------------------------------- Yes  # ------------------------------------------------------------------------- Yes
   my ($startoutmap,$mapnum,$thisurl)=split(/\_\_\_/,$position);    my ($startoutmap,$mapnum,$thisurl)=split(/\_\_\_/,$position);
           $cachehash{$startoutmap}{$thisurl}=$mapnum;            $cachehash{$startoutmap}{$thisurl}=$mapnum;
           $cachehash{$startoutmap}{'last_known'}=&Apache::lonnet::declutter($currenturl);            $cachehash{$startoutmap}{'last_known'}=
                                          &Apache::lonnet::declutter($currenturl);
   
 # ============================================================ Tie the big hash  # ============================================================ Tie the big hash
           if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db',            if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db',

Removed from v.1.22  
changed lines
  Added in v.1.23


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