--- modules/gci/lonlogin.pm	2010/12/05 18:09:25	1.10
+++ modules/gci/lonlogin.pm	2024/04/15 23:57:21	1.17
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.10 2010/12/05 18:09:25 gci Exp $
+# $Id: lonlogin.pm,v 1.17 2024/04/15 23:57:21 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 =~ /\?/) ? '&' : '?'; 
@@ -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';
@@ -632,12 +631,12 @@ END_OF_BLOCK2
  Javascript must be enabled in your web browser in order to use this web site.
  </font></noscript>
 <p>&nbsp;</p>
-<input type="hidden" name="imagesuppress"  value="" />
-<input type="hidden" name="embedsuppress"  value="" />
-<input type="hidden" name="appletsuppress"  value="" />
-<input type="hidden" name="fontenhance"  value="" />
-<input type="hidden" name="blackwhite"  value="" />
-<input type="hidden" name="remember"  value="" />
+<input type="hidden" name="imagesuppress" value="" />
+<input type="hidden" name="embedsuppress" value="" />
+<input type="hidden" name="appletsuppress" value="" />
+<input type="hidden" name="fontenhance" value="" />
+<input type="hidden" name="blackwhite" value="" />
+<input type="hidden" name="remember" value="" />
 END_OF_BLOCK3
     } else {
         $r->print(<<ENDACCESSOPTIONS);
@@ -714,12 +713,12 @@ ENDTEXTUAL
    <input type="hidden" name="upass1" value="" />
    <input type="hidden" name="upass2" value="" />
    <input type="hidden" name="udom" value="" />
-   <input type="hidden" name="imagesuppress"  value="" />
-   <input type="hidden" name="appletsuppress"  value="" />
-   <input type="hidden" name="embedsuppress"  value="" />
-   <input type="hidden" name="fontenhance"  value="" />
-   <input type="hidden" name="blackwhite"  value="" />
-   <input type="hidden" name="remember"  value="" />
+   <input type="hidden" name="imagesuppress" value="" />
+   <input type="hidden" name="appletsuppress" value="" />
+   <input type="hidden" name="embedsuppress" value="" />
+   <input type="hidden" name="fontenhance" value="" />
+   <input type="hidden" name="blackwhite" value="" />
+   <input type="hidden" name="remember" value="" />
    <input type="hidden" name="localpath" value="$env{'form.localpath'}" />
    <input type="hidden" name="localres" value="$env{'form.localres'}" />
   </form>
@@ -766,14 +765,14 @@ function helpdesk() {
 ENDSCRIPT
     }
     $contactblock .= <<"ENDBLOCK";
-     &nbsp;&nbsp;&nbsp;$version
+    &nbsp;&nbsp;&nbsp;$version
 ENDBLOCK
     return $contactblock;
 }
 
 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 />';
     }