loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.83, 2004/05/27 03:46:02	version 1.84, 2004/05/27 04:25:13
Line 242 sub random {	Line 242 sub random {
if ( ! $hidden::RANDOMINIT ) {	if ( ! $hidden::RANDOMINIT ) {
if ($external::randomseed == 0) { $external::randomseed=1; }	if ($external::randomseed == 0) { $external::randomseed=1; }
if ($external::randomseed =~/,/) {	if ($external::randomseed =~/,/) {
my ($num1,$num2)=split(/,/,$seed);	my ($num1,$num2)=split(/,/,$external::randomseed);
	&random_set_seed(1,abs($num1));
	} elsif ($external::randomseed =~/:/) {
	my ($num1,$num2)=split(/:/,$external::randomseed);
&random_set_seed(abs($num1),abs($num2));	&random_set_seed(abs($num1),abs($num2));
} else {	} else {
&random_set_seed(1,int(abs($external::randomseed)));	&random_set_seed(1,int(abs($external::randomseed)));