[LON-CAPA-cvs] cvs: loncom /homework optionresponse.pm
raeburn
raeburn at source.lon-capa.org
Mon Jan 27 09:18:38 EST 2025
raeburn Mon Jan 27 14:18:38 2025 EDT
Modified files:
/loncom/homework optionresponse.pm
Log:
- WCAG 2 compliance. Use label tag instead of aria-label.
Index: loncom/homework/optionresponse.pm
diff -u loncom/homework/optionresponse.pm:1.202 loncom/homework/optionresponse.pm:1.203
--- loncom/homework/optionresponse.pm:1.202 Sun Jan 26 17:49:32 2025
+++ loncom/homework/optionresponse.pm Mon Jan 27 14:18:38 2025
@@ -1,7 +1,7 @@
# LearningOnline Network with CAPA
# option list style responses
#
-# $Id: optionresponse.pm,v 1.202 2025/01/26 17:49:32 raeburn Exp $
+# $Id: optionresponse.pm,v 1.203 2025/01/27 14:18:38 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -798,15 +798,9 @@
$fieldname.'\'].checked) { this.form.elements[\'HWVAL_'.$fieldname.'\'].value=\''.$esccheckboxopt.'\'; } else { this.form.elements[\'HWVAL_'.$fieldname.'\'].value=\''.$escaltopt.'\'; };javascript:setSubmittedPart(\''.$part.'\');"'.($defopt eq $checkboxopt?' checked="checked"':'')." />\n";
} else {
# classic selection list
- my $labeltext;
- if ($Apache::lonhomework::type ne 'exam') {
- $labeltext = $text;
- $labeltext =~s|<drawoptionlist\s*/>|$optionlist|;
- }
- $labeltext = &HTML::Entities::encode($labeltext,'\'"&<>');
- $optionlist='<select onchange="javascript:setSubmittedPart(\''.
+ $optionlist='<label><select onchange="javascript:setSubmittedPart(\''.
$part.'\');" name="HWVAL_'.
- $Apache::inputtags::response['-1'].':'.$temp.'" aria-label="'.$labeltext.'">'.
+ $Apache::inputtags::response['-1'].':'.$temp.'">'.
$optionlist."</select>\n";
}
} else {
@@ -826,7 +820,7 @@
$result.=$break.$text."\n";
if ($Apache::lonhomework::type eq 'exam') {
$result.=&webbubbles(\@opt,\@alphabet,$temp,$lastopt);
- } elsif ($checkboxopt) {
+ } else {
$result.= '</label>';
}
$temp++;
More information about the LON-CAPA-cvs
mailing list