[LON-CAPA-cvs] cvs: loncom /homework matchresponse.pm

[raeburn]

raeburn		Mon Jan 27 15:04:15 2025 EDT

  Modified files:              
    /loncom/homework	matchresponse.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/homework/matchresponse.pm
diff -u loncom/homework/matchresponse.pm:1.94 loncom/homework/matchresponse.pm:1.95
--- loncom/homework/matchresponse.pm:1.94	Thu Jun  7 15:58:10 2018
+++ loncom/homework/matchresponse.pm	Mon Jan 27 15:04:15 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Full matching style response
 #
-# $Id: matchresponse.pm,v 1.94 2018/06/07 15:58:10 raeburn Exp $
+# $Id: matchresponse.pm,v 1.95 2025/01/27 15:04:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -170,7 +170,6 @@
         undef($columns);
     }
     if ($target eq 'web') {
-	
 	my $table='<table class="LC_itemgroup">'; # extra space to match what latex does.
         if ((!$columns) || ($columns < 0)) {
             if ($direction eq 'horizontal') {
@@ -719,7 +718,7 @@
 		}
 	    }
 	    if ($target ne 'tex' && $Apache::lonhomework::type ne 'exam') {
-	        $optionlist='<select onchange="javascript:setSubmittedPart(\''.
+	        $optionlist='<label><select onchange="javascript:setSubmittedPart(\''.
 		  $part.'\');" name="HWVAL_'.
 		    $Apache::inputtags::response[-1].':'.$temp.'">'.
 		        $optionlist."</select>\n";
@@ -746,7 +745,7 @@
 	    }
 	    if ($target ne 'tex') {
 		if ($Apache::lonhomework::type ne 'exam') {
-		    $question.="<br />\n".$optionlist.$text;
+		    $question.="<br />\n".$optionlist.$text/'</label>';
 		} else {
 		    $question.="<br />\n".$text;
 		}
@@ -754,7 +753,7 @@
 		    my @blank;
 		    $question.=&Apache::optionresponse::webbubbles(\@used_letters,\@blank,$temp,$last_letter);
 		}
-	    } else {		
+	    } else {
 		# Note that if left or right positioned, we must
 		# confine the bubbles to righttabsize:
 		#