--- loncom/interface/loncommon.pm	2025/02/25 16:33:39	1.1464
+++ loncom/interface/loncommon.pm	2025/02/26 23:04:40	1.1466
@@ -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.1466 2025/02/26 23:04:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10889,6 +10889,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 +10941,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 {