![[BACK]](/icons/back.gif){kind=icon}
Return to structuretags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
Return to structuretags.pm CVS log | Up to [LON-CAPA] / loncom / homework |
| 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; |