Lines 523-532
if ($params->{'limit-yr'}) {
Link Here
|
523 |
my $scan = $params->{'scan'}; |
523 |
my $scan = $params->{'scan'}; |
524 |
my $count = C4::Context->preference('OPACnumSearchResults') || 20; |
524 |
my $count = C4::Context->preference('OPACnumSearchResults') || 20; |
525 |
my $countRSS = C4::Context->preference('numSearchRSSResults') || 50; |
525 |
my $countRSS = C4::Context->preference('numSearchRSSResults') || 50; |
526 |
my $results_per_page = $params->{'count'} || $count; |
526 |
my $results_per_page = $params->{'results_per_page'} || $cgi->cookie("results_per_page") || $count; |
527 |
my $offset = $params->{'offset'} || 0; |
|
|
528 |
my $page = $cgi->param('page') || 1; |
527 |
my $page = $cgi->param('page') || 1; |
529 |
$offset = ($page-1)*$results_per_page if $page>1; |
528 |
my $offset = $results_per_page != 'all' ? ($page-1)*$results_per_page : 0; |
530 |
my $hits; |
529 |
my $hits; |
531 |
my $expanded_facet = $params->{'expand'}; |
530 |
my $expanded_facet = $params->{'expand'}; |
532 |
|
531 |
|
Lines 608-613
if ($tag) {
Link Here
|
608 |
# FIXME: No facets for tags search. |
607 |
# FIXME: No facets for tags search. |
609 |
} elsif ($build_grouped_results) { |
608 |
} elsif ($build_grouped_results) { |
610 |
eval { |
609 |
eval { |
|
|
610 |
unless($results_per_page =~ /\d+/) { # all |
611 |
# pazpar2 expects $results_per_page to be an integer, we hack around |
612 |
# this by setting $results_per_page to the max value of a 32bit |
613 |
# signed int - as defined by parpaz2 session.c:perform_termlist() |
614 |
$results_per_page = 2147483647; |
615 |
} |
611 |
($error, $results_hashref, $facets) = C4::Search::pazGetRecords($query,$simple_query,\@sort_by,\@servers,$results_per_page,$offset,$expanded_facet,$branches,$query_type,$scan); |
616 |
($error, $results_hashref, $facets) = C4::Search::pazGetRecords($query,$simple_query,\@sort_by,\@servers,$results_per_page,$offset,$expanded_facet,$branches,$query_type,$scan); |
612 |
}; |
617 |
}; |
613 |
} else { |
618 |
} else { |
Lines 634-639
for (my $i=0;$i<@servers;$i++) {
Link Here
|
634 |
my $server = $servers[$i]; |
639 |
my $server = $servers[$i]; |
635 |
if ($server && $server =~/biblioserver/) { # this is the local bibliographic server |
640 |
if ($server && $server =~/biblioserver/) { # this is the local bibliographic server |
636 |
$hits = $results_hashref->{$server}->{"hits"}; |
641 |
$hits = $results_hashref->{$server}->{"hits"}; |
|
|
642 |
$results_per_page = $hits if $results_per_page == 'all'; |
637 |
my $page = $cgi->param('page') || 0; |
643 |
my $page = $cgi->param('page') || 0; |
638 |
my @newresults; |
644 |
my @newresults; |
639 |
if ($build_grouped_results) { |
645 |
if ($build_grouped_results) { |
Lines 785-791
for (my $i=0;$i<@servers;$i++) {
Link Here
|
785 |
if ($query_desc || $limit_desc) { |
791 |
if ($query_desc || $limit_desc) { |
786 |
$template->param(searchdesc => 1); |
792 |
$template->param(searchdesc => 1); |
787 |
} |
793 |
} |
788 |
$template->param(results_per_page => $results_per_page); |
794 |
$template->param(results_per_page => $results_per_page == $hits ? 'all' : $results_per_page); |
789 |
my $hide = C4::Context->preference('OpacHiddenItems'); |
795 |
my $hide = C4::Context->preference('OpacHiddenItems'); |
790 |
$hide = ($hide =~ m/\S/) if $hide; # Just in case it has some spaces/new lines |
796 |
$hide = ($hide =~ m/\S/) if $hide; # Just in case it has some spaces/new lines |
791 |
my $branch = ''; |
797 |
my $branch = ''; |
792 |
- |
|
|