--- loncom/auth/lonlogin.pm 2003/08/26 19:47:33 1.44.2.1
+++ loncom/auth/lonlogin.pm 2003/09/02 22:28:19 1.48
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Login Screen
#
-# $Id: lonlogin.pm,v 1.44.2.1 2003/08/26 19:47:33 albertel Exp $
+# $Id: lonlogin.pm,v 1.48 2003/09/02 22:28:19 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -109,9 +109,12 @@ sub handler {
# ---------------------------------------- Are we access server and overloaded?
if (($role eq 'access') &&
(($userloadpercent>100.0)||($loadpercent>100.0))) {
- $otherserver=Apache::lonnet::spareserver($loadpercent,$userloadpercent);
+ my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent);
+ if ($unloaded) { $otherserver=$unloaded; }
}
+# ----------------------------------------------------------- Get announcements
+ my $announcements=&Apache::lonnet::getannounce();
# -------------------------------------------------------- Set login parameters
my @hexstr=('0','1','2','3','4','5','6','7',
@@ -167,7 +170,7 @@ ENDTROUBLE
# ----------------------------------------------- Apparently we are in business
- my $domainlogo=&Apache::loncommon::domainlogo();
+ my $domainlogo=&Apache::loncommon::domainlogo($domain);
$servadm=~s/\,/\
/g;
$sysadm=~s/\,/\
/g;
@@ -311,7 +314,7 @@ ENDSERVERFORM
-