From e517300fe0db049e070b617b1d8d87f0125b48fa Mon Sep 17 00:00:00 2001
From: Ilia Ross <ilia@ross.gdn>
Date: Fri, 2 Aug 2024 15:22:21 +0300
Subject: [PATCH] Fix to display wildcard char next to dbs
 https://github.com/virtualmin/virtualmin-gpl/issues/723#issuecomment-2263713657

---
 mysql/list_dbs.cgi | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/mysql/list_dbs.cgi b/mysql/list_dbs.cgi
index 02effc4d7a..b127edb94e 100755
--- a/mysql/list_dbs.cgi
+++ b/mysql/list_dbs.cgi
@@ -26,10 +26,13 @@ if (@{$d->{'data'}}) {
 		$i++;
 		next if ($access{'perms'} == 2 && !&can_edit_db($u->[1]));
 		local @cols;
+		my $dbname = &unquote_mysql_database($u->[1]);
+		my $big_style = ' style="position: absolute; margin-top: -2px;"';
+		my $wildcard = $u->[1]=~ /\_/ && 
+			$u->[1] eq $dbname ? "<big$big_style>∗</big>" : '';
 		push(@cols, "<a href='edit_db.cgi?idx=$i'>".
 			($u->[1] eq '%' || $u->[1] eq '' ? $text{'dbs_any'} :
-				&html_escape(&unquote_mysql_database(
-						$u->[1])))."</a>");
+				&html_escape($dbname))."&nbsp;$wildcard</a>");
 		push(@cols, $u->[2] eq '' ? $text{'dbs_anon'}
 					    : &html_escape($u->[2]));
 		push(@cols, $u->[0] eq '%' ? $text{'dbs_any'} :