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

[raeburn]

raeburn		Tue Feb 25 16:33:39 2025 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
    /loncom/interface	loncommon.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.212 loncom/auth/lonlogin.pm:1.213
--- loncom/auth/lonlogin.pm:1.212	Mon Feb 17 18:56:10 2025
+++ loncom/auth/lonlogin.pm	Tue Feb 25 16:33:37 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.212 2025/02/17 18:56:10 raeburn Exp $
+# $Id: lonlogin.pm,v 1.213 2025/02/25 16:33:37 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -874,10 +874,14 @@
 # -------------------------------------------------- Change password field name
 
     my $forgotpw = &forgotpwdisplay(%lt);
-    $forgotpw .= '<br />' if $forgotpw;
+    if ($forgotpw) {
+        $forgotpw = '<div class="LC_login_links">'.
+                    $forgotpw.'</div>';
+    }
     my $loginhelp = &Apache::lonauth::loginhelpdisplay($authdomain);
     if ($loginhelp) {
-        $loginhelp = '<a href="'.$loginhelp.'">'.$lt{'help'}.'</a><br />';
+        $loginhelp = '<div class="LC_login_links">'.
+                     '<a href="'.$loginhelp.'">'.$lt{'help'}.'</a></div>';
     }
 
 # ---------------------------------------------------- Serve out DES JavaScript
@@ -914,11 +918,13 @@
 ENDSERVERFORM
     my $coursecatalog;
     if (($showcoursecat eq '') || ($showcoursecat)) {
-        $coursecatalog = &coursecatalog_link($lt{'catalog'}).'<br />';
+        $coursecatalog = '<div class="LC_login_links">'.
+                         &coursecatalog_link($lt{'catalog'}).'</div>';
     }
     my $newuserlink;
     if ($shownewuserlink) {
-        $newuserlink = &newuser_link($lt{'newuser'}).'<br />';
+        $newuserlink = '<div class="LC_login_links">'.
+                       &newuser_link($lt{'newuser'}).'</div>';
     }
     my $logintitle =
         '<h2 class="LC_hcell"'
@@ -1392,11 +1398,12 @@
         }
     }
     if ($servadm && $showadminmail) {
-        $contactblock .= $$lt{'servadm'}.':<br />'.
-                         '<tt>'.$servadm.'</tt><br />';
+        $contactblock = '<div class="LC_login_links">'.$lt->{'servadm'}.':<br />'.
+                        '<tt>'.$servadm.'</tt></div>';
     }
     if ($showhelpdesk) {
-        $contactblock .= '<a href="javascript:helpdesk()">'.$lt->{'helpdesk'}.'</a><br />';
+        $contactblock .= '<div class="LC_login_links">'.
+                         '<a href="javascript:helpdesk()">'.$lt->{'helpdesk'}.'</a></div>';
         my $thisurl = &escape('/adm/login');
         $$helpdeskscript = <<"ENDSCRIPT";
 <script type="text/javascript">
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1463 loncom/interface/loncommon.pm:1.1464
--- loncom/interface/loncommon.pm:1.1463	Tue Feb 25 05:34:58 2025
+++ loncom/interface/loncommon.pm	Tue Feb 25 16:33:39 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1463 2025/02/25 05:34:58 raeburn Exp $
+# $Id: loncommon.pm,v 1.1464 2025/02/25 16:33:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9360,7 +9360,7 @@
 /*
   styles used for response display
 */
-div.LC_radiofoil, div.LC_rankfoil, div.LC_optionfoil, div.LC_matchfoil {
+div.LC_radiofoil, div.LC_rankfoil, div.LC_optionfoil, div.LC_matchfoil, div.LC_login_links {
   margin: .5em 0em .5em 0em;
 }
 table.LC_itemgroup {