From 75902910fcbb588df9b7e981748b0d7eb27dbd15 Mon Sep 17 00:00:00 2001
From: Ilia Ross <ilia@ross.gdn>
Date: Mon, 7 Sep 2026 15:13:11 +0200
Subject: [PATCH] Fix column start to add extra classes

---
 gray-theme/theme.pl | 3 ++-
 ui-lib.pl           | 9 ++++++---
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/gray-theme/theme.pl b/gray-theme/theme.pl
index 8b7cb7cc8..5ef7915ae 100755
--- a/gray-theme/theme.pl
+++ b/gray-theme/theme.pl
@@ -503,7 +503,7 @@ return $rv;
 # Returns HTML for a multi-column table, with the given headings
 sub theme_ui_columns_start
 {
-my ($heads, $width, $noborder, $tdtags, $title, $sortable) = @_;
+my ($heads, $width, $noborder, $tdtags, $title, $sortable, $class) = @_;
 my ($href) = grep { $_ =~ /<a\s+href/i } @$heads;
 my $rv;
 $theme_ui_columns_row_toggle = 0;
@@ -522,6 +522,7 @@ my @classes;
 push(@classes, "ui_table") if (!$noborder);
 push(@classes, "sortable") if (!$href || $sortable);
 push(@classes, "ui_columns");
+push(@classes, $class) if ($class);
 $rv .= "<table".(@classes ? " class='".join(" ", @classes)."'" : "").
     (defined($width) ? " width=$width%" : "").
     ($sortable ? " data-sortable='1'" : "").">\n";
diff --git a/ui-lib.pl b/ui-lib.pl
index 6081b4e30..4450abc86 100755
--- a/ui-lib.pl
+++ b/ui-lib.pl
@@ -286,7 +286,7 @@ $rv .= "<tr class='ui_table_span'> ".
 return $rv;
 }
 
-=head2 ui_columns_start(&headings, [width-percent], [noborder], [&tdtags], [heading], [sortable])
+=head2 ui_columns_start(&headings, [width-percent], [noborder], [&tdtags], [heading], [sortable], [class])
 
 Returns HTML for the start of a multi-column table, with the given headings.
 The parameters are :
@@ -303,14 +303,17 @@ The parameters are :
 
 =item sortable - Set to 1 to ask the theme for client-side sorting and searching of this table, such as with DataTables in the Authentic theme. The table is marked with a data-sortable attribute. A module can instead request this for all tables on its pages with sortable=1 in module.info.
 
+=item class - Extra CSS class names for the table, such as a theme's no-hover for a table whose rows are inputs.
+
 =cut
 sub ui_columns_start
 {
 return &theme_ui_columns_start(@_) if (defined(&theme_ui_columns_start));
-my ($heads, $width, $noborder, $tdtags, $title, $sortable) = @_;
+my ($heads, $width, $noborder, $tdtags, $title, $sortable, $class) = @_;
 my $rv;
 $rv .= "<table".($noborder ? "" : " border").
-		(defined($width) ? " width='$width%'" : "")." class='ui_columns'".
+		(defined($width) ? " width='$width%'" : "").
+		" class='ui_columns".($class ? " ".$class : "")."'".
 		($sortable ? " data-sortable='1'" : "").">\n";
 if ($title) {
 	$rv .= "<tr".($tb ? " ".$tb : "")." class='ui_columns_heading'>".