[LON-CAPA-cvs] cvs: loncom /interface lonsupportreq.pm

[raeburn]

raeburn		Tue Feb 25 05:35:26 2025 EDT

  Modified files:              
    /loncom/interface	lonsupportreq.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/interface/lonsupportreq.pm
diff -u loncom/interface/lonsupportreq.pm:1.107 loncom/interface/lonsupportreq.pm:1.108
--- loncom/interface/lonsupportreq.pm:1.107	Mon Feb 17 18:48:06 2025
+++ loncom/interface/lonsupportreq.pm	Tue Feb 25 05:35:26 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Helpdesk request form
 #
-# $Id: lonsupportreq.pm,v 1.107 2025/02/17 18:48:06 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.108 2025/02/25 05:35:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -363,7 +363,7 @@
                  '</span>'.
                  &Apache::lonhtmlcommon::row_closure();
     unless ($helpform{'username'} eq 'no') {
-        my ($reqd,$namefield,$fullname);
+        my ($reqd,$aria_reqd,$namefield,$fullname);
         if ((defined($lastname) && $lastname ne '') && (defined($firstname) && $firstname ne '')) {
             $fullname = "$firstname $lastname";
             $namefield = $fullname.'<input type="hidden" name="username" id="username" value="'.&HTML::Entities::encode($fullname,'"<>&').'" />'."\n";
@@ -373,10 +373,11 @@
             } elsif (defined($lastname) && $lastname ne '') {
                 $fullname = " $lastname";
             }
-            $namefield = '<input type="text" size="20" name="username" id="username" value="'.&HTML::Entities::encode($fullname,'"<>&').'" />'."\n";
             if ($helpform{'username'} eq 'req') {
                 $reqd = '<span class="LC_parm_part">*</span>';
+                $aria_reqd = 'aria-required="true" ';
             }
+            $namefield = '<input type="text" size="20" name="username" id="username" value="'.&HTML::Entities::encode($fullname,'"<>&').'" '.$aria_reqd.'/>'."\n";
         }
         my $title = '<label for="username">'.$html_lt{'name'}.'</label>';
         $output .= &Apache::lonhtmlcommon::row_title($title.$reqd,undef,$css[$num])."\n".$namefield.
@@ -392,7 +393,7 @@
                    '</label><span class="LC_parm_part">*</span></span>'
                   ,undef,$css[$i]).
                '<input type="text" size="20" name="email" id="email" value="'.
-               &HTML::Entities::encode($email,'"<>&').'" />'."\n";
+               &HTML::Entities::encode($email,'"<>&').'" aria-required="true" />'."\n";
     unless ($shownsubmit) {
         $output .= $topsubmit;
     }
@@ -467,12 +468,13 @@
                    &Apache::lonhtmlcommon::row_closure();
     }
     unless ($helpform{'phone'} eq 'no') {
-        my $reqd;
+        my ($reqd,$aria_reqd);
         if ($helpform{'phone'} eq 'req') {
             $reqd = '<span class="LC_parm_part">*</span>';
+            $aria_reqd = 'aria-required="true" ';
         }
         $output .= &Apache::lonhtmlcommon::row_title('<label for="phone">'.$html_lt{'phon'}.'</label>'.$reqd,undef,'LC_evenrow_value').
-                   '<input type="text" size="15" name="phone" id="phone" /><br />'."\n".
+                   '<input type="text" size="15" name="phone" id="phone" '.$aria_reqd.'/><br />'."\n".
                    &Apache::lonhtmlcommon::row_closure();
         $num ++;
         $i = $num%2;
@@ -546,13 +548,14 @@
             $output .= '<label>'.$html_lt{'enin'}.': 
                   <input type="text" name="coursecode" size="15" value="" /></label>'."\n";
         }
-        my $reqd;
+        my ($reqd,$aria_reqd);
         if ($helpform{'course'} eq 'req') {
              $reqd = '<span class="LC_parm_part">*</span>';
+             $aria_reqd = 'aria-required="true" ';
         }
         $output .= '<br /><div><label>'.$html_lt{'enct'}.$reqd.': 
                    <input type="text" name="title" size="25" value="'.
-                   &HTML::Entities::encode($ctitle,'"<>&').'" /></label></div>'."\n";
+                   &HTML::Entities::encode($ctitle,'"<>&').'" '.$aria_reqd.'/></label></div>'."\n";
         $output .= &Apache::lonhtmlcommon::row_closure();
         $num ++;
         $i = $num%2;
@@ -590,14 +593,14 @@
                    '<label for="subject">'.$html_lt{'subj'}.'</label>'.
                    '<span class="LC_parm_part">*</span></span>'
                   ,undef,'LC_oddrow_value').
-               '<input type="text" size="40" name="subject" id="subject" />'."\n".
+               '<input type="text" size="40" name="subject" id="subject" aria-required="true" />'."\n".
                &Apache::lonhtmlcommon::row_closure().
                &Apache::lonhtmlcommon::row_title(
                    '<span title="'.&mt('required').'">'.
                    '<label for="description">'.$html_lt{'detd'}.'</label>'.
                    '<span class="LC_parm_part">*</span></span>'
                   ,undef,'LC_evenrow_value').
-               '<textarea rows="10" cols="45" name="description" id="description" style="word-wrap:normal;">'.
+               '<textarea rows="10" cols="45" name="description" id="description" style="word-wrap:normal;" aria-required="true">'.
                '</textarea>'."\n".
                &Apache::lonhtmlcommon::row_closure();
     $num ++;