--- loncom/interface/loncommon.pm	2003/11/10 20:30:45	1.151
+++ loncom/interface/loncommon.pm	2003/11/10 23:25:52	1.152
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.151 2003/11/10 20:30:45 www Exp $
+# $Id: loncommon.pm,v 1.152 2003/11/10 23:25:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2745,9 +2745,10 @@ the routine &Apache::lonnet::transfer_pr
 
 ############################################################
 ############################################################
-
+my $uniq=0;
 sub get_cgi_id {
-    return (time.'_'.int(rand(1000)));
+    $uniq=($uniq++)%100000;
+    return (time.'_'.$uniq);
 }
 
 ############################################################