--- loncom/interface/loncommon.pm	2025/03/19 15:18:59	1.1472
+++ loncom/interface/loncommon.pm	2025/03/20 15:46:05	1.1473
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1472 2025/03/19 15:18:59 raeburn Exp $
+# $Id: loncommon.pm,v 1.1473 2025/03/20 15:46:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -8173,6 +8173,13 @@ table.LC_pick_box td.LC_oddrow_value {
   background-color: $data_table_light;
 }
 
+td.LC_log_filter,
+th.LC_log_filter {
+  vertical-align: top;
+  text-align: left;
+  padding: 0 4px;
+}
+
 span.LC_helpform_receipt_cat {
   font-weight: bold;
 }
@@ -8720,6 +8727,20 @@ fieldset#LC_selectuser {
   border: 0;
 }
 
+fieldset.LC_delete_slot {
+  display:inline;
+  margin: 0 4px 4px;
+  padding: 4px;
+}
+
+fieldset.LC_delete_slot > legend {
+  font-weight: normal;
+}
+
+p.LC_medium_line {
+  line-height: 0.85em;
+}
+
 article.geogebraweb div {
     margin: 0;
 }
@@ -15678,12 +15699,12 @@ sub upfile_select_html {
                  tab   => &mt('Tabulator separated'),
 #                 xml   => &mt('HTML/XML'),
                  );
-    my $Str = '<input type="file" name="upfile" size="50" />'.
-        '<br />'.&mt('Type').': <select name="upfiletype">';
+    my $Str = '<input type="file" name="upfile" id="upfile" size="50" />'.
+        '<br /><label>'.&mt('Type').': <select name="upfiletype">';
     foreach my $type (sort(keys(%Types))) {
         $Str .= '<option value="'.$type.'" >'.$Types{$type}."</option>\n";
     }
-    $Str .= "</select>\n";
+    $Str .= "</select></label>\n";
     return $Str;
 }
 
@@ -15767,9 +15788,9 @@ sub csv_print_select_table {
               &end_data_table_header_row()."\n");
     foreach my $array_ref (@$d) {
 	my ($value,$display,$defaultcol)=@{ $array_ref };
-	$r->print(&start_data_table_row().'<td>'.$display.'</td>');
+	$r->print(&start_data_table_row().'<td><label for="f'.$i.'">'.$display.'</label></td>');
 
-	$r->print('<td><select name="f'.$i.'"'.
+	$r->print('<td><select name="f'.$i.'" id="f'.$i.'"'.
 		  ' onchange="javascript:flip(this.form,'.$i.');">');
 	$r->print('<option value="none"></option>');
 	foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {
@@ -15814,8 +15835,10 @@ sub csv_samples_select_table {
               &end_data_table_header_row());
 
     foreach my $key (sort(keys(%{ $samples->[0] }))) {
+        my $num = $i+1;
+        my $labeltext = &HTML::Entities::encode(&mt('Field for data in column [_1]',$num));
 	$r->print(&start_data_table_row().'<td><select name="f'.$i.'"'.
-		  ' onchange="javascript:flip(this.form,'.$i.');">');
+		  ' onchange="javascript:flip(this.form,'.$i.');" aria-label="'.$labeltext.'">');
 	foreach my $option (@$d) {
 	    my ($value,$display,$defaultcol)=@{ $option };
 	    $r->print('<option value="'.$value.'"'.