--- modules/gci/lonlogin.pm	2019/05/14 20:49:48	1.12
+++ modules/gci/lonlogin.pm	2025/03/02 12:58:41	1.18
@@ -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.18 2025/03/02 12:58:41 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,10 +83,10 @@ 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 =~ /\?/) ? '&' : '?'; 
+            $dest .= ($dest =~ /\?/) ? '&' : '?';
             $dest .= 'destinationurl='.&HTML::Entities::encode($env{'form.symb'},'"&<>');
         }
         if ($env{'form.firsturl'} ne '') {
@@ -116,7 +115,7 @@ sub handler {
 
     my $textbrowsers=$r->dir_config('lonTextBrowsers');
     my $httpbrowser=$ENV{"HTTP_USER_AGENT"};
-    
+
     foreach (split(/\:/,$textbrowsers)) {
 	if ($httpbrowser=~/$_/i) {
 	    $env{'form.interface'}='textual';
@@ -773,7 +772,7 @@ ENDBLOCK
 
 sub forgotpwdisplay {
     my (%lt) = @_;
-    my $prompt_for_resetpw = 1; 
+    my $prompt_for_resetpw = 1;
     if ($prompt_for_resetpw) {
         return '<br />&nbsp;&nbsp;&nbsp;<a href="/adm/resetpw"><b>'.$lt{'forgotpw'}.'</b></a><br />';
     }