[Koha-patches] [PATCH] Remove string processing (redundant to new pagination_bar)

Joe Atzberger joe.atzberger at liblime.com
Wed May 28 01:05:59 CEST 2008


---
 tags/review.pl |   15 ++++++++-------
 1 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/tags/review.pl b/tags/review.pl
index 291e84a..010f133 100755
--- a/tags/review.pl
+++ b/tags/review.pl
@@ -209,13 +209,8 @@ if ($filter = $input->param('approved_by')) {	# borrowernumber from link
 $debug and print STDERR "filters: " . Dumper(\%filters);
 my $tagloop = get_approval_rows(\%filters);
 my $qstring = $input->query_string;
-$qstring =~ s/([&;])*\blimit=\d+//;		# remove pagination vars
-# $qstring =~ s/([&;])*\bpage=\d+//;		# remove pagination vars
-# $qstring =~ s/\&[\&]+/&/g;		# compress duplicates
-# $qstring =~ s/;;+/;/g;		# compress duplicates
-# $qstring =~ s/\&;//g;		# remove empties
-# $qstring =~ s/;+$//;		# remove trailing delim
-$qstring =~ s/^;+//;		# remove leading delim
+$qstring =~ s/([&;])*\blimit=\d+//;		# remove pagination var
+$qstring =~ s/^;+//;					# remove leading delims
 $qstring = "limit=$pagesize" . ($qstring ? '&' . $qstring : '');
 $debug and print STDERR "number of approval_rows: " . scalar(@$tagloop) . "rows\n";
 (scalar @errors) and $template->param(message_loop=>\@errors);
@@ -236,3 +231,9 @@ $template->param(
 output_html_with_http_headers $input, $cookie, $template->output;
 __END__
 
+=head1 AUTHOR
+
+Joe Atzberger
+atz AT liblime.com
+
+=cut
-- 
1.5.5.GIT




More information about the Koha-patches mailing list