--- loncom/interface/loncommon.pm	2003/11/10 20:19:37	1.150
+++ 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.150 2003/11/10 20:19:37 matthew Exp $
+# $Id: loncommon.pm,v 1.152 2003/11/10 23:25:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2144,7 +2144,7 @@ a:hover { color: black; background: yell
 a:focus { color: red; background: yellow } 
 </style>
 <body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link"
-style="border-color: $tabbg; border-width: 4px; border-style: solid; padding: 4px;$addstyle" $addentries>
+style="margin-top: 0px;$addstyle" $addentries>
 END
     my $upperleft='<img src="http://'.$ENV{'HTTP_HOST'}.':'.
                    $lonhttpdPort.$img.'" alt="'.$function.'" />';
@@ -2159,7 +2159,7 @@ END
 # No Remote
         return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
                                                       $forcereg).
-               '<table bgcolor="'.$pgbg.'" width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td bgcolor="'.$tabbg.'"><font size="+3" color="'.$font.'"><b>'.$title.
+      '<table bgcolor="'.$pgbg.'" width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td bgcolor="'.$tabbg.'"><font face="Arial, Helvetica, sans-serif" size="+3" color="'.$font.'"><b>'.$title.
 '</b></font></td></tr></table>';
     }
 
@@ -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);
 }
 
 ############################################################
