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

version 1.32, 2002/06/27 14:08:26 version 1.33, 2002/07/07 17:52:20
Line 423  sub pickrandom { Line 423  sub pickrandom {
         next if ($#currentrids<$rndpick);          next if ($#currentrids<$rndpick);
 # -------------------------------- randomly eliminate the ones that should stay  # -------------------------------- randomly eliminate the ones that should stay
  srand(&Apache::lonnet::rndseed($rid)); # use rid instead of symb   srand(&Apache::lonnet::rndseed($rid)); # use rid instead of symb
         for (my $i=1;$i<=$#currentrids+1-$rndpick;$i++) {          for (my $i=1;$i<=$rndpick;$i++) {
             while (1) {              while (1) {
  my $randomidx=int(rand($#currentrids+1));   my $randomidx=int(rand($#currentrids+1));
                 if ($currentrids[$randomidx]) {                  if ($currentrids[$randomidx]) {

Removed from v.1.32  
changed lines
  Added in v.1.33


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