--- loncom/auth/lonlogin.pm 2009/05/14 10:21:10 1.120 +++ 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.120 2009/05/14 10:21:10 foxr 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 @@ -344,10 +346,6 @@ $r->print( # then just us a relative link to authenticate: # -if ($otherserver eq "http://") { - $otherserver=""; -} - $r->print(< @@ -385,7 +383,7 @@ my $contactblock = &contactdisplay(\%lt, $version,$authdomain,\$helpdeskscript); my $loginform=(< +
:
@@ -481,8 +479,10 @@ $r->print(< $helpdeskscript @@ -509,6 +509,7 @@ sub contactdisplay { my $thisurl = &escape('/adm/login'); $$helpdeskscript = <<"ENDSCRIPT"; ENDSCRIPT }