![]() ![]() | ![]() |
version 1.51, 2001/08/03 22:12:07 | version 1.52, 2001/08/06 18:33:58 |
---|---|
Line 305 sub start_randomlist { | Line 305 sub start_randomlist { |
sub shuffle { | sub shuffle { |
my $a=shift; | my $a=shift; |
my $i; | my $i; |
&Apache::response::setrandomnumber(); | |
for($i=@$a;--$i;) { | for($i=@$a;--$i;) { |
my $j=int rand($i+1); | my $j=int rand($i+1); |
next if $i == $j; | next if $i == $j; |