From b26427ef125d155c12b1a44764386e170b86eaea Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 9 Nov 2022 09:00:47 +0100 Subject: [PATCH] Bug 32030: Fix perlcritic errors Signed-off-by: Tomas Cohen Arazi --- Koha/ERM/Providers/EBSCO.pm | 1 - Koha/REST/V1/ERM/EHoldings/Resources/EBSCO.pm | 1 - Koha/REST/V1/ERM/EHoldings/Titles/EBSCO.pm | 1 - 3 files changed, 3 deletions(-) diff --git a/Koha/ERM/Providers/EBSCO.pm b/Koha/ERM/Providers/EBSCO.pm index 3c3ccf86db..38217b5fa2 100644 --- a/Koha/ERM/Providers/EBSCO.pm +++ b/Koha/ERM/Providers/EBSCO.pm @@ -223,7 +223,6 @@ sub build_query { return $url unless $params && %$params; while ( my ( $attr, $value ) = each %$params ) { - my $their_attr; if ( $attr eq 'name' ) { $url .= '&search=' . $value; } diff --git a/Koha/REST/V1/ERM/EHoldings/Resources/EBSCO.pm b/Koha/REST/V1/ERM/EHoldings/Resources/EBSCO.pm index 6afe15d0f2..5f94587280 100644 --- a/Koha/REST/V1/ERM/EHoldings/Resources/EBSCO.pm +++ b/Koha/REST/V1/ERM/EHoldings/Resources/EBSCO.pm @@ -76,7 +76,6 @@ sub list { my ( $per_page, $page ) = $ebsco->build_query_pagination($args); - my ( $search, $content_type, $selection_type ); my $additional_params = $ebsco->build_additional_params( $c->req->params->to_hash ); my $searchfield = 'titlename'; diff --git a/Koha/REST/V1/ERM/EHoldings/Titles/EBSCO.pm b/Koha/REST/V1/ERM/EHoldings/Titles/EBSCO.pm index 73132f89f6..cc2f4142b2 100644 --- a/Koha/REST/V1/ERM/EHoldings/Titles/EBSCO.pm +++ b/Koha/REST/V1/ERM/EHoldings/Titles/EBSCO.pm @@ -46,7 +46,6 @@ sub list { my ( $per_page, $page ) = $ebsco->build_query_pagination($args); - my ( $search, $content_type, $selection_type ); my $additional_params = $ebsco->build_additional_params( $c->req->params->to_hash ); unless ( defined $additional_params->{publication_title} ) { -- 2.39.5