version 1.81, 2003/07/14 18:41:40
|
version 1.82, 2003/07/28 22:44:54
|
Line 93 sub setrandomnumber {
|
Line 93 sub setrandomnumber {
|
$rndmod+=&Apache::lonnet::numval($Apache::inputtags::response[-1]); |
$rndmod+=&Apache::lonnet::numval($Apache::inputtags::response[-1]); |
} |
} |
if ($rndseed =~/,/) { |
if ($rndseed =~/,/) { |
my ($num1,$num2)=split(/,/,$rndseed); |
{ |
$num1+=$rndmod; |
use integer; |
$num2+=$rndmod; |
my ($num1,$num2)=split(/,/,$rndseed); |
$rndseed="$num1,$num2"; |
$num1+=$rndmod; |
|
$num2+=$rndmod; |
|
$rndseed="$num1,$num2"; |
|
} |
} else { |
} else { |
$rndseed+=$rndmod; |
$rndseed+=$rndmod; |
} |
} |