--- loncom/auth/lonlogin.pm 2009/04/28 21:54:51 1.119 +++ loncom/auth/lonlogin.pm 2009/05/22 17:01:28 1.122 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.119 2009/04/28 21:54:51 tempelho Exp $ +# $Id: lonlogin.pm,v 1.122 2009/05/22 17:01:28 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -264,6 +264,7 @@ my $now=time; my $js = (< +// ENDSCRIPT @@ -339,6 +341,11 @@ $r->print(<$jsh>); $r->print( '
'); +# +# If the loadbalancing yielded just http:// because perhaps there's no loadbalancing? +# then just us a relative link to authenticate: +# + $r->print(< @@ -376,7 +383,7 @@ my $contactblock = &contactdisplay(\%lt, $version,$authdomain,\$helpdeskscript); my $loginform=(< +
:
@@ -472,8 +479,10 @@ $r->print(< $helpdeskscript @@ -500,6 +509,7 @@ sub contactdisplay { my $thisurl = &escape('/adm/login'); $$helpdeskscript = <<"ENDSCRIPT"; ENDSCRIPT }