![[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.381.2.2, 2005/09/16 20:39:56 | version 1.381.2.3, 2005/09/16 21:59:56 |
|---|---|
| Line 1505 sub get_CODE { | Line 1505 sub get_CODE { |
| my $max='1'.'0'x$size; | my $max='1'.'0'x$size; |
| my $newcode; | my $newcode; |
| while(1) { | while(1) { |
| $newcode=sprintf("%06d",int(rand($max))); | $newcode=sprintf("%0".$size."d",int(rand($max))); |
| if (!exists($$all_codes{$newcode})) { | if (!exists($$all_codes{$newcode})) { |
| $$all_codes{$newcode}=1; | $$all_codes{$newcode}=1; |
| if ($type eq 'number' ) { | if ($type eq 'number' ) { |