--- loncom/interface/loncommon.pm	2025/02/25 16:33:39	1.1464
+++ loncom/interface/loncommon.pm	2025/03/01 17:20:16	1.1467
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1464 2025/02/25 16:33:39 raeburn Exp $
+# $Id: loncommon.pm,v 1.1467 2025/03/01 17:20:16 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -8296,12 +8296,22 @@ table.LC_prior_tries td {
   padding: 6px;
 }
 
-.LC_prob_status {
-  margin-top: 5px;
-  padding-top: 0;
-  padding-left: 0;
-  padding-bottom: 0;
-  padding-right: 5px;
+span.LC_prob_status {
+  margin: 5px 0 0 0;
+  padding: 0 5px 0 0;
+  vertical-align: middle;
+}
+
+div.LC_prob_status_outer {
+  display: inline-block;
+  margin: -5px 0 0 0;
+  padding: 0;
+}
+
+div.LC_prob_status_inner {
+  display: inline-block;
+  margin: 0 5px 0 0;
+  padding: 5px;
 }
 
 .LC_mail_actions {
@@ -10889,6 +10899,11 @@ sub simple_error_page {
         return;
     }
 
+    sub set_data_table_count {
+        my ($count) = @_;
+        unshift(@row_count,$count);
+    }
+
     sub start_data_table {
 	my ($add_class,$id) = @_;
 	my $css_class = (join(' ','LC_data_table',$add_class));
@@ -10936,7 +10951,11 @@ sub simple_error_page {
     }
 
     sub start_data_table_header_row {
-	return  '<tr class="LC_header_row">'."\n";;
+	my ($add_class,$id) = @_;
+	my $css_class = 'LC_header_row';
+	$css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');
+	$id = (' id="'.$id.'"') unless ($id eq '');
+	return '<tr class="'.$css_class.'"'.$id.'>'."\n";
     }
 
     sub end_data_table_header_row {