--- loncom/interface/loncommon.pm	2025/03/18 18:57:28	1.1471
+++ loncom/interface/loncommon.pm	2025/03/25 01:02:59	1.1476
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1471 2025/03/18 18:57:28 raeburn Exp $
+# $Id: loncommon.pm,v 1.1476 2025/03/25 01:02:59 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2848,7 +2848,7 @@ Args:
   $hash - the elements should be 'option' => 'shown text'
           (shown text should already have been &mt())
   $order - (optional) array ref of the order to show the elements in
-  $id = (optional) id for <select> element 
+  $id = (optional) id for <select> element
 
 =cut
 
@@ -2890,7 +2890,7 @@ sub multiple_select_form {
 
 =pod
 
-=item * &select_form($defdom,$name,$hashref,$onchange,$readonly,$id)
+=item * &select_form($defdom,$name,$hashref,$onchange,$readonly,$id,$aria_labelledby)
 
 Returns a string containing a <select name='$name' size='1'> form to 
 allow a user to select options from a ref to a hash containing:
@@ -2899,7 +2899,9 @@ a javascript onchange item, e.g., onchan
 An optional arg -- $readonly -- if true will cause the select form
 to be disabled, e.g., for the case where an instructor has a section-
 specific role, and is viewing/modifying parameters. An optional arg
--- $id -- will be used as the id attribute of the select element. 
+-- $id -- will be used as the id attribute of the select element. An
+optional arg -- $aria_labelledby -- will be included as the aria-labelledby
+attribute of the select element.
 
 See lonrights.pm for an example invocation and use.
 
@@ -2907,7 +2909,7 @@ See lonrights.pm for an example invocati
 
 #-------------------------------------------
 sub select_form {
-    my ($def,$name,$hashref,$onchange,$readonly,$id) = @_;
+    my ($def,$name,$hashref,$onchange,$readonly,$id,$aria_labelledby) = @_;
     return unless (ref($hashref) eq 'HASH');
     if ($onchange) {
         $onchange = ' onchange="'.$onchange.'"';
@@ -2919,7 +2921,10 @@ sub select_form {
     if ($id ne '') {
         $id = ' id="'.$id.'"';
     }
-    my $selectform = "<select name=\"$name\" size=\"1\"$onchange$disabled$id>\n";
+    if ($aria_labelledby ne '') {
+        $aria_labelledby = ' aria-labelledby="'.$aria_labelledby.'"';
+    }
+    my $selectform = "<select name=\"$name\" size=\"1\"$onchange$disabled$id$aria_labelledby>\n";
     my @keys;
     if (exists($hashref->{'select_form_order'})) {
 	@keys=@{$hashref->{'select_form_order'}};
@@ -7361,6 +7366,11 @@ form, .inline {
   font-size: 1.0em;
 }
 
+h1.LC_search_results {
+  font-size: 1.0em;
+  font-weight: normal;
+}
+
 .LC_menus_content.shown{
   display: block;
 }
@@ -7385,6 +7395,10 @@ form, .inline {
   vertical-align:middle;
 }
 
+.LC_bottom {
+  vertical-align:bottom;
+}
+
 .LC_floatleft {
   float: left;
 }
@@ -7470,6 +7484,14 @@ div.LC_confirm_box .LC_success img {
   height: auto;
 }
 
+div.LC_minheight {
+  min-height: 24px;
+  border: 0;
+  margin: 4px 0 0 0;
+  padding: 0;
+  vertical-align: middle;
+}
+
 .LC_textsize_mobile {
   \@media only screen and (max-device-width: 480px) {
       -webkit-text-size-adjust:100%; -moz-text-size-adjust:100%; -ms-text-size-adjust:100%;
@@ -7663,6 +7685,10 @@ li.LC_menubuttons_inline_text img {
   text-decoration: none;
 }
 
+.LC_menubuttons_link img {
+  vertical-align: middle;
+}
+
 .LC_menubuttons_category {
   color: $font;
   background: $pgbg;
@@ -7670,7 +7696,9 @@ li.LC_menubuttons_inline_text img {
   font-weight: bold;
 }
 
-td.LC_menubuttons_text {
+.LC_menu_text {
+  clear: left;
+  text-align: left;
   color: $font;
 }
 
@@ -7762,11 +7790,13 @@ table.LC_data_table tr td.LC_leftcol_hea
 }
 
 table.LC_data_table tr.LC_empty_row td,
-table.LC_nested tr.LC_empty_row td {
+table.LC_nested tr.LC_empty_row td,
+table.LC_nested tr.LC_empty_row th {
   font-weight: bold;
   font-style: italic;
   text-align: center;
   padding: 8px;
+  border: 0;
 }
 
 table.LC_data_table tr.LC_empty_row td,
@@ -7774,7 +7804,9 @@ table.LC_data_table tr.LC_footer_row td
   background-color: $sidebg;
 }
 
+table.LC_nested tr.LC_empty_row th,
 table.LC_nested tr.LC_empty_row td {
+  padding: 4ex;
   background-color: #FFFFFF;
 }
 
@@ -7787,10 +7819,6 @@ caption.LC_caption_prefs {
   padding-bottom: 0.8em;
 }
 
-table.LC_nested tr.LC_empty_row td {
-  padding: 4ex
-}
-
 table.LC_nested_outer tr th {
   font-weight: bold;
   color:$fontmenu;
@@ -7807,14 +7835,17 @@ table.LC_nested_outer tr td.LC_subheader
   text-align: right;
 }
 
-table.LC_nested tr.LC_info_row td {
+table.LC_nested tr.LC_info_row td,
+table.LC_nested tr.LC_info_row th {
   background-color: #CCCCCC;
   font-weight: bold;
   font-size: small;
   text-align: center;
+  border: 0;
 }
 
 table.LC_nested tr.LC_info_row td.LC_left_item,
+table.LC_nested tr.LC_info_row th.LC_left_item,
 table.LC_nested_outer tr th.LC_left_item {
   text-align: left;
 }
@@ -8163,6 +8194,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;
 }
@@ -8671,6 +8709,7 @@ h6 {
   border-bottom:solid 1px $lg_border_color;
 }
 
+.LC_MainMenu_Box > .LC_hcell,
 .LC_Box > .LC_hcell {
   margin: 0 -10px 10px -10px;
 }
@@ -8710,6 +8749,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;
 }
@@ -9109,6 +9162,11 @@ ol#LC_PathBreadcrumbs li a {
   padding: 0 0 10px 10px;
 }
 
+.LC_MainMenu_Box {
+  border: solid 1px $lg_border_color;
+  padding: 0 10px 0 10px;
+}
+
 .LC_AboutMe_Image {
   float:left;
   margin-right:10px;
@@ -9130,6 +9188,7 @@ dl.LC_ListStyleClean dd {
 .LC_ListStyleClean,
 .LC_ListStyleSimple,
 .LC_ListStyleNormal,
+.LC_ListStyleMainMenu,
 .LC_ListStyleSpecial {
   /* display:block; */
   list-style-position: inside;
@@ -9167,6 +9226,12 @@ dl.LC_ListStyleClean dd {
   margin-bottom: 4px;
 }
 
+.LC_ListStyleMainMenu li {
+  margin: 0;
+  padding: 2px 5px 2px 10px;
+  clear: both;
+}
+
 table.LC_SimpleTable {
   margin:5px;
   border:solid 1px $lg_border_color;
@@ -15668,12 +15733,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;
 }
 
@@ -15757,9 +15822,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] }))) {
@@ -15804,8 +15869,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.'"'.