Diff for /loncom/homework/response.pm between versions 1.105 and 1.105.2.1

version 1.105, 2004/09/27 22:47:49 version 1.105.2.1, 2004/11/06 21:30:35
Line 136  sub setrandomnumber { Line 136  sub setrandomnumber {
  my ($num1,$num2)=split(/\Q$char\E/,$rndseed);   my ($num1,$num2)=split(/\Q$char\E/,$rndseed);
  $num1+=$rndmod;   $num1+=$rndmod;
  $num2+=$rndmod;   $num2+=$rndmod;
    if($Apache::lonnet::_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); }
  $rndseed=$num1.$char.$num2;   $rndseed=$num1.$char.$num2;
     } else {      } else {
  $rndseed+=$rndmod;   $rndseed+=$rndmod;
    if($Apache::lonnet::_64bit) {
       use integer;
       $rndseed=(($rndseed<<32)>>32);
    }
     }      }
     &Apache::lonnet::setup_random_from_rndseed($rndseed);  
     &Apache::lonxml::debug("randseed $rndseed");      &Apache::lonxml::debug("randseed $rndseed");
       &Apache::lonnet::setup_random_from_rndseed($rndseed);
     return '';      return '';
 }  }
   

Removed from v.1.105  
changed lines
  Added in v.1.105.2.1


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