--- nsdl/nsdlloncapaorg/lonlogin.pm 2003/07/28 20:30:21 1.2 +++ nsdl/nsdlloncapaorg/lonlogin.pm 2003/08/29 14:50:13 1.4 @@ -1,7 +1,7 @@ # The LearningOnline Network -# Login Screen +# Login Screen NSDL version # -# $Id: lonlogin.pm,v 1.2 2003/07/28 20:30:21 www Exp $ +# $Id: lonlogin.pm,v 1.4 2003/08/29 14:50:13 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -101,10 +101,12 @@ sub handler { my $otherserver='http://'.$ENV{'SERVER_NAME'}; my $firsturl= ($ENV{'request.firsturl'}?$ENV{'request.firsturl'}:$ENV{'form.firsturl'}); + my $escfirsturl=&Apache::lonnet::escape($firsturl); # ---------------------------------------- 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; } } # -------------------------------------------------------- Set login parameters @@ -272,7 +274,7 @@ ENDSERVERFORM -

Welcome to the LON-CAPA NSDL Gateway

Sign up for a Guest Login

+

Welcome to the LON-CAPA NSDL Gateway

Sign up for a Guest Login