From c42416d4234fac412a9165ba118f6d2a4e6ef079 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 2 Feb 2009 14:36:19 -0600 Subject: [PATCH] Bug 2940 - private shelf (list) display error on 2nd and subsequent pages. The before/after URL for the 2nd page of list elements: http://atz.dev.kohalibrary.com/cgi-bin/koha/opac-shelves.pl?display=privateshelves?viewshelf=120&itemoff=2 http://atz.dev.kohalibrary.com/cgi-bin/koha/opac-shelves.pl?viewshelf=120&display=privateshelves&itemoff=2 The change in query string arguments is incidental, the prevention of multiple "?" is essential. --- C4/VirtualShelves/Page.pm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/C4/VirtualShelves/Page.pm b/C4/VirtualShelves/Page.pm index d414928473..2176df5304 100644 --- a/C4/VirtualShelves/Page.pm +++ b/C4/VirtualShelves/Page.pm @@ -293,9 +293,13 @@ foreach my $element (sort { lc($shelflist->{$a}->{'shelfname'}) cmp lc($shelflis push (@shelvesloop, $shelflist->{$element}); } } + my $url = $type eq 'opac' ? "/cgi-bin/koha/opac-shelves.pl" : "/cgi-bin/koha/virtualshelves/shelves.pl"; -$url .= "?display=" . $query->param('display') if $query->param('display'); -$url .= "?viewshelf=" . $query->param('viewshelf') if $query->param('viewshelf'); +my %qhash = (); +foreach (qw(display viewshelf)) { + $qhash{$_} = $query->param($_) if $query->param($_); +} +(scalar keys %qhash) and $url .= '?' . join '&', map {"$_=$qhash{$_}"} keys %qhash; if ($query->param('viewshelf')) { $template->param( {pagination_bar => pagination_bar($url, (int($totitems/$shelflimit)) + (($totitems % $shelflimit) > 0 ? 1 : 0), $itemoff, "itemoff")} ); } else { @@ -313,7 +317,7 @@ if ($template->param('viewshelf') or $template->param( 'edit' ) ) { $template->param(vseflag => 1); } -if ($template->param( 'shelves' ) or +if ($template->param( 'shelves' ) or # note: this part looks duplicative, but is intentional $template->param( 'edit' ) ) { $template->param( seflag => 1); } -- 2.39.5