[LON-CAPA-cvs] cvs: loncom /auth lonlogin.pm

Mon Feb 17 13:56:10 EST 2025

raeburn		Mon Feb 17 18:56:10 2025 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.211 loncom/auth/lonlogin.pm:1.212

--- loncom/auth/lonlogin.pm:1.211	Mon Feb 10 02:12:30 2025
+++ loncom/auth/lonlogin.pm	Mon Feb 17 18:56:10 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.211 2025/02/10 02:12:30 raeburn Exp $
+# $Id: lonlogin.pm,v 1.212 2025/02/17 18:56:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -387,7 +387,7 @@
         }
 	$r->print(
                   $start_page
-                 .'<div role="main">'
+                 .'<div class="LC_landmark" role="main">'
                  .'<p class="LC_warning">'.&mt('You are already logged in!').'</p>'
                  .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].',
                   '<a href="'.$dest.'">','</a>','<a href="/adm/logout">','</a>').'</p>'
@@ -638,13 +638,18 @@
   margin-right: 0;
   font-weight: bold;
 }
+.LC_landmark {
+  margin: 0;
+  padding: 0;
+  border: none;
+}
 </style></head>'
   .'<body bgcolor="#FFFFFF">'
-  .'<div role="banner">'
+  .'<div class="LC_landmark" role="banner">'
   .'<h1>'.&mt('The LearningOnline Network with CAPA').'</h1>'
   .'<img src="/adm/lonKaputt/lonlogo_broken.gif" alt="broken icon" align="right" />'
   .'</div>'
-  .'<div role="main">'
+  .'<div class="LC_landmark" role="main">'
   .'<h2>'.&mt('This LON-CAPA server is temporarily not available for login.').'</h2>');
         if ($spares) {
             $r->print('<p>'.&mt('Please attempt to login to one of the following servers:')
@@ -1198,7 +1203,7 @@
     }
 
     $r->print(<<ENDDOCUMENT);
-    <div role="contentinfo" style="padding:0;clear:both;margin:0;border:0">
+    <div class="LC_landmark" role="contentinfo">
     <div style="float: left;">
      <table border="0" cellspacing="0" cellpadding="0">
 $domainrow


