![[BACK]](/icons/back.gif){kind=icon}
Return to lonprintout.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to lonprintout.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.292, 2004/04/20 06:11:49 | version 1.293, 2004/04/22 22:59:11 |
|---|---|
| Line 1222 sub get_CODE { | Line 1222 sub get_CODE { |
| srand($seed); | srand($seed); |
| my $newcode; | my $newcode; |
| while(1) { | while(1) { |
| $newcode=int(rand($max)); | $newcode=sprintf("%06d",int(rand($max))); |
| if (!exists($$all_codes{$newcode})) { | if (!exists($$all_codes{$newcode})) { |
| $$all_codes{$newcode}=1; | $$all_codes{$newcode}=1; |
| return &num_to_letters($newcode); | return &num_to_letters($newcode); |