version 1.151, 2003/11/10 20:30:45
|
version 1.152, 2003/11/10 23:25:52
|
Line 2745 the routine &Apache::lonnet::transfer_pr
|
Line 2745 the routine &Apache::lonnet::transfer_pr
|
|
|
############################################################ |
############################################################ |
############################################################ |
############################################################ |
|
my $uniq=0; |
sub get_cgi_id { |
sub get_cgi_id { |
return (time.'_'.int(rand(1000))); |
$uniq=($uniq++)%100000; |
|
return (time.'_'.$uniq); |
} |
} |
|
|
############################################################ |
############################################################ |