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

[raeburn]

raeburn		Wed Feb 19 23:38:41 2025 EDT

  Modified files:              
    /loncom/homework	response.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.251 loncom/homework/response.pm:1.252
--- loncom/homework/response.pm:1.251	Wed Dec 25 02:31:06 2024
+++ loncom/homework/response.pm	Wed Feb 19 23:38:41 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.251 2024/12/25 02:31:06 raeburn Exp $
+# $Id: response.pm,v 1.252 2025/02/19 23:38:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -853,13 +853,13 @@
 	}
 	push(@answer_bits,$bit);
     } else {
-	my $td = '<td '.(defined($rows)?'rowspan="'.$rows.'"':'').'>';
+	my $th = '<td '.(defined($rows)?'rowspan="'.$rows.'"':'').'>';
 	$result  = '<table border="1"><tr>';
 	if ($Apache::lonhomework::type eq 'exam') {
-	    $result .= $td.($Apache::lonxml::counter+$increment). ')</td>';
+	    $result .= $th.($Apache::lonxml::counter+$increment). ')</th>';
 	} else {
-	    $result .= $td.&mt('Answer for Part: [_1]',
-			       $Apache::inputtags::part).'</td>';
+	    $result .= $th.&mt('Answer for Part: [_1]',
+			       $Apache::inputtags::part).'</th>';
 	}
 	$result .= "\n";
 	$need_row_start = 0;