yesterday, the C4::Output::pagination_bar had a bug in it that I was crudely 
working around.
atz fixed that bug this morning. This patch removes the workaround. Thanks, atz!

I'm sending along atz's patch again with my signoff. It needs to be applied 
before this, as does the
other 1980 patch. I have sent that along (again), too, with a modified subject 
line. That makes a total of 3 patches for 1980.
---
 acqui/neworderbiblio.pl |    3 +--
 cataloguing/addbooks.pl |    3 +--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/acqui/neworderbiblio.pl b/acqui/neworderbiblio.pl
index d1f1932..c314ea9 100755
--- a/acqui/neworderbiblio.pl
+++ b/acqui/neworderbiblio.pl
@@ -127,8 +127,7 @@ $template->param(
     opaclayoutstylesheet => C4::Context->preference("opaclayoutstylesheet"),
     opaccolorstylesheet  => C4::Context->preference("opaccolorstylesheet"),
     "BiblioDefaultView".C4::Context->preference("IntranetBiblioDefaultView") 
=> 1,
-    # FIXME: pagination_bar doesn't work right with only one pair of CGI 
params, so I put two in.
-    pagination_bar       => pagination_bar( 
"$ENV{'SCRIPT_NAME'}?bug=fix&q=$query&", getnbpages( $total_hits, 
$results_per_page ), $page, 'page' ),
+    pagination_bar       => pagination_bar( "$ENV{'SCRIPT_NAME'}?q=$query&", 
getnbpages( $total_hits, $results_per_page ), $page, 'page' ),
 );
 
 # BUILD THE TEMPLATE
diff --git a/cataloguing/addbooks.pl b/cataloguing/addbooks.pl
index 8e5327e..2f43feb 100755
--- a/cataloguing/addbooks.pl
+++ b/cataloguing/addbooks.pl
@@ -84,8 +84,7 @@ if ($query) {
         total          => $total_hits,
         query          => $query,
         resultsloop    => [EMAIL PROTECTED],
-        # FIXME: pagination_bar doesn't work right with only one pair of CGI 
params, so I put two in.
-        pagination_bar => pagination_bar( 
"/cgi-bin/koha/cataloguing/addbooks.pl?bug=fix&q=$query&", getnbpages( 
$total_hits, $results_per_page ), $page, 'page' ),
+        pagination_bar => pagination_bar( 
"/cgi-bin/koha/cataloguing/addbooks.pl?q=$query&", getnbpages( $total_hits, 
$results_per_page ), $page, 'page' ),
     );
 }
 
-- 
1.5.6

_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches

Reply via email to