--- modules/gci/lonlogin.pm 2019/05/14 20:49:48 1.12 +++ modules/gci/lonlogin.pm 2023/03/22 16:32:51 1.16 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.12 2019/05/14 20:49:48 gci Exp $ +# $Id: lonlogin.pm,v 1.16 2023/03/22 16:32:51 gci Exp $ # # Copyright Michigan State University Board of Trustees # @@ -30,7 +30,7 @@ package Apache::lonlogin; use strict; use Apache::Constants qw(:common); -use Apache::File (); +use Apache::File(); use Apache::lonnet; use Apache::loncommon(); use Apache::lonauth(); @@ -63,7 +63,6 @@ sub handler { $r->send_http_header; return OK if $r->header_only; - # Are we re-routing? if (-e '/home/httpd/html/lon-status/reroute.txt') { &Apache::lonauth::reroute($r); @@ -84,7 +83,7 @@ sub handler { &Apache::loncommon::end_page(); my $dest = '/adm/roles'; if ($env{'form.role'}) { - $dest .= '?selectrole=1&'.$env{'form.role'}.'=1'; + $dest .= '?selectrole=1&'.$env{'form.role'}.'=1'; } if ($env{'form.symb'}) { $dest .= ($dest =~ /\?/) ? '&' : '?'; @@ -773,7 +772,7 @@ ENDBLOCK sub forgotpwdisplay { my (%lt) = @_; - my $prompt_for_resetpw = 1; + my $prompt_for_resetpw = 1; if ($prompt_for_resetpw) { return '
   '.$lt{'forgotpw'}.'
'; }