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

Diff for /rat/lonuserstate.pm between versions 1.29 and 1.32

version 1.29, 2002/06/24 14:09:49 version 1.32, 2002/06/27 14:08:26
Line 409  sub accinit { Line 409  sub accinit {
 # ------------------------------------- Selectively delete from randompick maps  # ------------------------------------- Selectively delete from randompick maps
   
 sub pickrandom {  sub pickrandom {
       my $randomoutentry='';
     foreach my $rid (keys %randompick) {      foreach my $rid (keys %randompick) {
         my $rndpick=$randompick{$rid};          my $rndpick=$randompick{$rid};
         my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}};          my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}};
Line 435  sub pickrandom { Line 436  sub pickrandom {
         for (my $k=0; $k<=$#currentrids; $k++) {          for (my $k=0; $k<=$#currentrids; $k++) {
             if ($currentrids[$k]) {              if ($currentrids[$k]) {
  $hash{'randomout_'.$currentrids[$k]}=1;   $hash{'randomout_'.$currentrids[$k]}=1;
                   my ($mapid,$resid)=split(/\./,$currentrids[$k]);
                   $randomoutentry.='&'.
                    &Apache::lonnet::symbclean(
       &Apache::lonnet::declutter($hash{'map_id_'.$mapid}).
                       '___'.$resid.'___'.
       &Apache::lonnet::declutter($hash{'src_'.$currentrids[$k]})
                    ).'&';
             }              }
         }          }
     }      }
       if ($randomoutentry) {
    &Apache::lonnet::appenv('acc.randomout' => $randomoutentry);
       }
 }  }
   
 # ---------------------------------------------------- Read map and all submaps  # ---------------------------------------------------- Read map and all submaps
Line 467  sub readmap { Line 478  sub readmap {
     %parmhash=();      %parmhash=();
     $errtext='';      $errtext='';
     $pc=0;      $pc=0;
       my $furi='/res/'.&Apache::lonnet::declutter($uri);
       $hash{'src_0.0'}=$furi;
       $hash{'title_0.0'}=&Apache::lonnet::metadata($uri,'title');
       $hash{'ids_'.$furi}='0.0';
       $hash{'is_map_0.0'}=1;
     loadmap($uri);      loadmap($uri);
     if (defined($hash{'map_start_'.$uri})) {      if (defined($hash{'map_start_'.$uri})) {
         &traceroute('0',$hash{'map_start_'.$uri},'&');          &traceroute('0',$hash{'map_start_'.$uri},'&');
Removed from v.1.29  
changed lines
  Added in v.1.32

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