Bug 11091: (follow-up) perltidy on serials/subscription-bib-search.pl
Signed-off-by: David Noe <drnoe@bywatersolutions.com> Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de> Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
parent
e208386aae
commit
fd22187914
1 changed files with 92 additions and 82 deletions
|
@ -19,7 +19,6 @@
|
|||
# with Koha; if not, write to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
|
||||
|
||||
=head1 NAME
|
||||
|
||||
subscription-bib-search.pl
|
||||
|
@ -47,7 +46,6 @@ to multipage gestion.
|
|||
|
||||
=cut
|
||||
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
|
@ -60,63 +58,66 @@ use C4::Search;
|
|||
use C4::Biblio;
|
||||
use C4::Debug;
|
||||
|
||||
my $input=new CGI;
|
||||
# my $type=$query->param('type');
|
||||
my $input = new CGI;
|
||||
my $op = $input->param('op') || q{};
|
||||
my $dbh = C4::Context->dbh;
|
||||
|
||||
my $startfrom=$input->param('startfrom');
|
||||
$startfrom=0 unless $startfrom;
|
||||
my ($template, $loggedinuser, $cookie);
|
||||
my $startfrom = $input->param('startfrom');
|
||||
$startfrom = 0 unless $startfrom;
|
||||
my ( $template, $loggedinuser, $cookie );
|
||||
my $resultsperpage;
|
||||
|
||||
my $itype_or_itemtype = (C4::Context->preference("item-level_itypes"))?'itype':'itemtype';
|
||||
my $itype_or_itemtype =
|
||||
( C4::Context->preference("item-level_itypes") ) ? 'itype' : 'itemtype';
|
||||
|
||||
my $query = $input->param('q');
|
||||
|
||||
# don't run the search if no search term !
|
||||
if ($op eq "do_search" && $query) {
|
||||
if ( $op eq "do_search" && $query ) {
|
||||
|
||||
( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
||||
{ template_name => "serials/result.tmpl",
|
||||
{
|
||||
template_name => "serials/result.tmpl",
|
||||
query => $input,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1, serials => '*'},
|
||||
flagsrequired => { catalogue => 1, serials => '*' },
|
||||
debug => 1,
|
||||
}
|
||||
);
|
||||
|
||||
# add the limits if applicable
|
||||
my $itemtypelimit = $input->param('itemtypelimit');
|
||||
my $ccodelimit = $input->param('ccodelimit');
|
||||
my $ccodelimit = $input->param('ccodelimit');
|
||||
my $op = C4::Context->preference('UseQueryParser') ? '&&' : 'and';
|
||||
$query .= " $op $itype_or_itemtype:$itemtypelimit" if $itemtypelimit;
|
||||
$query .= " $op ccode:$ccodelimit" if $ccodelimit;
|
||||
$debug && warn $query;
|
||||
$resultsperpage= $input->param('resultsperpage');
|
||||
$resultsperpage = 20 if(!defined $resultsperpage);
|
||||
$resultsperpage = $input->param('resultsperpage');
|
||||
$resultsperpage = 20 if ( !defined $resultsperpage );
|
||||
|
||||
my ($error, $marcrecords, $total_hits) = SimpleSearch($query, $startfrom*$resultsperpage, $resultsperpage);
|
||||
my ( $error, $marcrecords, $total_hits ) =
|
||||
SimpleSearch( $query, $startfrom * $resultsperpage, $resultsperpage );
|
||||
my $total = 0;
|
||||
if (defined $marcrecords ) {
|
||||
if ( defined $marcrecords ) {
|
||||
$total = scalar @{$marcrecords};
|
||||
}
|
||||
|
||||
if (defined $error) {
|
||||
$template->param(query_error => $error);
|
||||
warn "error: ".$error;
|
||||
if ( defined $error ) {
|
||||
$template->param( query_error => $error );
|
||||
warn "error: " . $error;
|
||||
output_html_with_http_headers $input, $cookie, $template->output;
|
||||
exit;
|
||||
}
|
||||
my @results;
|
||||
|
||||
for(my $i=0;$i<$total;$i++) {
|
||||
for ( my $i = 0 ; $i < $total ; $i++ ) {
|
||||
my %resultsloop;
|
||||
my $marcrecord = MARC::File::USMARC::decode($marcrecords->[$i]);
|
||||
my $biblio = TransformMarcToKoha(C4::Context->dbh,$marcrecord,'');
|
||||
my $marcrecord = MARC::File::USMARC::decode( $marcrecords->[$i] );
|
||||
my $biblio = TransformMarcToKoha( C4::Context->dbh, $marcrecord, '' );
|
||||
|
||||
#build the hash for the template.
|
||||
$resultsloop{highlight} = ($i % 2)?(1):(0);
|
||||
$resultsloop{highlight} = ( $i % 2 ) ? (1) : (0);
|
||||
$resultsloop{title} = $biblio->{'title'};
|
||||
$resultsloop{subtitle} = $biblio->{'subtitle'};
|
||||
$resultsloop{biblionumber} = $biblio->{'biblionumber'};
|
||||
|
@ -129,87 +130,95 @@ if ($op eq "do_search" && $query) {
|
|||
}
|
||||
|
||||
# multi page display gestion
|
||||
my $displaynext=0;
|
||||
my $displayprev=$startfrom;
|
||||
if(($total_hits - (($startfrom+1)*($resultsperpage))) > 0 ){
|
||||
my $displaynext = 0;
|
||||
my $displayprev = $startfrom;
|
||||
if ( ( $total_hits - ( ( $startfrom + 1 ) * ($resultsperpage) ) ) > 0 ) {
|
||||
$displaynext = 1;
|
||||
}
|
||||
|
||||
|
||||
my @numbers = ();
|
||||
|
||||
if ($total_hits>$resultsperpage)
|
||||
{
|
||||
for (my $i=1; $i<$total/$resultsperpage+1; $i++)
|
||||
{
|
||||
if ($i<16)
|
||||
{
|
||||
my $highlight=0;
|
||||
($startfrom==($i-1)) && ($highlight=1);
|
||||
push @numbers, { number => $i,
|
||||
highlight => $highlight ,
|
||||
searchdata=> \@results,
|
||||
startfrom => ($i-1)};
|
||||
if ( $total_hits > $resultsperpage ) {
|
||||
for ( my $i = 1 ; $i < $total / $resultsperpage + 1 ; $i++ ) {
|
||||
if ( $i < 16 ) {
|
||||
my $highlight = 0;
|
||||
( $startfrom == ( $i - 1 ) ) && ( $highlight = 1 );
|
||||
push @numbers,
|
||||
{
|
||||
number => $i,
|
||||
highlight => $highlight,
|
||||
searchdata => \@results,
|
||||
startfrom => ( $i - 1 )
|
||||
};
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
my $from = 0;
|
||||
$from = $startfrom*$resultsperpage+1 if($total_hits > 0);
|
||||
$from = $startfrom * $resultsperpage + 1 if ( $total_hits > 0 );
|
||||
my $to;
|
||||
|
||||
if($total_hits < (($startfrom+1)*$resultsperpage))
|
||||
{
|
||||
if ( $total_hits < ( ( $startfrom + 1 ) * $resultsperpage ) ) {
|
||||
$to = $total;
|
||||
} else {
|
||||
$to = (($startfrom+1)*$resultsperpage);
|
||||
}
|
||||
else {
|
||||
$to = ( ( $startfrom + 1 ) * $resultsperpage );
|
||||
}
|
||||
$template->param(
|
||||
query => $query,
|
||||
resultsloop => \@results,
|
||||
startfrom=> $startfrom,
|
||||
displaynext=> $displaynext,
|
||||
displayprev=> $displayprev,
|
||||
resultsperpage => $resultsperpage,
|
||||
startfromnext => $startfrom+1,
|
||||
startfromprev => $startfrom-1,
|
||||
total=>$total_hits,
|
||||
from=>$from,
|
||||
to=>$to,
|
||||
numbers=>\@numbers,
|
||||
);
|
||||
} # end of if ($op eq "do_search" & $query)
|
||||
query => $query,
|
||||
resultsloop => \@results,
|
||||
startfrom => $startfrom,
|
||||
displaynext => $displaynext,
|
||||
displayprev => $displayprev,
|
||||
resultsperpage => $resultsperpage,
|
||||
startfromnext => $startfrom + 1,
|
||||
startfromprev => $startfrom - 1,
|
||||
total => $total_hits,
|
||||
from => $from,
|
||||
to => $to,
|
||||
numbers => \@numbers,
|
||||
);
|
||||
} # end of if ($op eq "do_search" & $query)
|
||||
else {
|
||||
($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "serials/subscription-bib-search.tmpl",
|
||||
query => $input,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1, serials => '*'},
|
||||
debug => 1,
|
||||
});
|
||||
( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
||||
{
|
||||
template_name => "serials/subscription-bib-search.tmpl",
|
||||
query => $input,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => { catalogue => 1, serials => '*' },
|
||||
debug => 1,
|
||||
}
|
||||
);
|
||||
|
||||
# load the itemtypes
|
||||
my $itemtypes = GetItemTypes();
|
||||
my @itemtypesloop;
|
||||
foreach my $thisitemtype ( sort {$itemtypes->{$a}->{'description'} cmp $itemtypes->{$b}->{'description'} } keys %$itemtypes ) {
|
||||
my %row =(
|
||||
code => $thisitemtype,
|
||||
description => $itemtypes->{$thisitemtype}->{'description'},
|
||||
);
|
||||
push @itemtypesloop, \%row;
|
||||
}
|
||||
foreach my $thisitemtype (
|
||||
sort {
|
||||
$itemtypes->{$a}->{'description'}
|
||||
cmp $itemtypes->{$b}->{'description'}
|
||||
} keys %$itemtypes
|
||||
)
|
||||
{
|
||||
my %row = (
|
||||
code => $thisitemtype,
|
||||
description => $itemtypes->{$thisitemtype}->{'description'},
|
||||
);
|
||||
push @itemtypesloop, \%row;
|
||||
}
|
||||
|
||||
# load Collection Codes
|
||||
my $authvalues = GetAuthorisedValues('CCODE');
|
||||
my @ccodesloop;
|
||||
for my $thisauthvalue (sort {$a->{'lib'} cmp $b->{'lib'}} @$authvalues) {
|
||||
my %row =(
|
||||
code => $thisauthvalue->{'authorised_value'},
|
||||
description => $thisauthvalue->{'lib'},
|
||||
);
|
||||
push @ccodesloop, \%row;
|
||||
}
|
||||
my $authvalues = GetAuthorisedValues('CCODE');
|
||||
my @ccodesloop;
|
||||
for my $thisauthvalue ( sort { $a->{'lib'} cmp $b->{'lib'} } @$authvalues )
|
||||
{
|
||||
my %row = (
|
||||
code => $thisauthvalue->{'authorised_value'},
|
||||
description => $thisauthvalue->{'lib'},
|
||||
);
|
||||
push @ccodesloop, \%row;
|
||||
}
|
||||
|
||||
$template->param(
|
||||
itemtypeloop => \@itemtypesloop,
|
||||
|
@ -217,6 +226,7 @@ else {
|
|||
no_query => $op eq "do_search" ? 1 : 0,
|
||||
);
|
||||
}
|
||||
|
||||
# Print the page
|
||||
output_html_with_http_headers $input, $cookie, $template->output;
|
||||
|
||||
|
|
Loading…
Reference in a new issue