loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.250, 2004/05/27 04:25:13	version 1.251, 2004/05/27 04:32:19
Line 983 sub shuffle {	Line 983 sub shuffle {
my $a=shift;	my $a=shift;
my $i;	my $i;
if (defined(@$a)) {	if (defined(@$a)) {
&Apache::response::setrandomnumber();	&Apache::response::pushrandomnumber();
for($i=@$a;--$i;) {	for($i=@$a;--$i;) {
my $j=int(&Math::Random::random_uniform() * ($i+1));	my $j=int(&Math::Random::random_uniform() * ($i+1));
next if $i == $j;	next if $i == $j;
@$a[$i,$j] = @$a[$j,$i];	@$a[$i,$j] = @$a[$j,$i];
}	}
	&Apache::response::poprandomnumber();
}	}
}	}