--- loncom/auth/lonlogin.pm 2003/11/12 16:55:40 1.55
+++ loncom/auth/lonlogin.pm 2004/05/07 14:25:17 1.57
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Login Screen
#
-# $Id: lonlogin.pm,v 1.55 2003/11/12 16:55:40 www Exp $
+# $Id: lonlogin.pm,v 1.57 2004/05/07 14:25:17 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -68,7 +68,6 @@ sub handler {
Already logged in
-
$bodytag
You are already logged in
Please either continue the current session or
@@ -135,7 +134,7 @@ ENDFAILED
$loadavg=<$loadfile>;
}
$loadavg =~ s/\s.*//g;
- my $loadpercent=100*$loadavg/$loadlim;
+ my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim);
my $userloadpercent=&Apache::lonnet::userload();
# ------------------------------------------------------- Do the load balancing