![[BACK]](/icons/back.gif){kind=icon}
Return to updatequery.piml CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / loncapafiles|
Return to updatequery.piml CVS log | Up to [LON-CAPA] / doc / loncapafiles |
| version 1.10, 2002/05/16 18:38:11 | version 1.11, 2002/05/18 16:36:58 |
|---|---|
| Line 275 my %perlvar; | Line 275 my %perlvar; |
| } | } |
| unless ($perlvar{'lonReceipt'}) { | unless ($perlvar{'lonReceipt'}) { |
| my $lonReceipt=''; | my $lonReceipt=''; |
| srand($$.time); | srand(time ^ $$ ^ unpack "%L*", `ps axww | gzip`); |
| my @alnum=(0..9,a..z); | my @alnum=(0..9,a..z); |
| foreach my $i (1..20) { | foreach my $i (1..20) { |
| $lonReceipt.=$alnum[int(rand(36))]; | $lonReceipt.=$alnum[int(rand(36))]; |