Don't include search parameter in pagination links if it is empty

diff --git a/contrib/web/perl-admin/htdocs/subscribers.cgi b/contrib/web/perl-admin/htdocs/subscribers.cgi
index f6a632edc1ecfb6028f476e98c9ab188938eaa50..2165b4b0b13d0c2ceb0e41f780809899c7f9630a 100755 (executable)
--- a/contrib/web/perl-admin/htdocs/subscribers.cgi
+++ b/contrib/web/perl-admin/htdocs/subscribers.cgi
@@ -141,7 +141,7 @@ if (keys %$subscribers > 50) {
        $paginator = 'Pages: ';
        my $pages = (keys %$subscribers) / 50;
        $page = 0 unless ($page >= 0 && $page < $pages);
-       my $searchstr = defined $search ? '&search='.uri_escape($search) : '';
+       my $searchstr = (defined $search & $search ne '') ? '&search='.uri_escape($search) : '';
 
        for (my $i = 0; $ i < $pages; ++$i) {
                if ($page == $i) {