changeset 550:60230d3984a2

Don't include search parameter in pagination links if it is empty
author xi
date Fri, 30 Jun 2006 23:11:12 +1000
parents 66c02ea8dbf7
children 6f12e58e4e7d
files contrib/web/perl-admin/htdocs/subscribers.cgi
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/contrib/web/perl-admin/htdocs/subscribers.cgi	Fri Jun 30 22:43:25 2006 +1000
+++ b/contrib/web/perl-admin/htdocs/subscribers.cgi	Fri Jun 30 23:11:12 2006 +1000
@@ -141,7 +141,7 @@
 	$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) {