From f367942bb84d3641a194028b43f63719c8fadeb7 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 14 Oct 2024 10:51:27 -0300 Subject: [PATCH] Bug 35570: (QA follow-up) Tidy Signed-off-by: Tomas Cohen Arazi Signed-off-by: Katrin Fischer --- Koha/ILL/Backend/Standard.pm | 17 +++++++++++++---- Koha/ILL/Request.pm | 8 ++++---- 2 files changed, 17 insertions(+), 8 deletions(-) diff --git a/Koha/ILL/Backend/Standard.pm b/Koha/ILL/Backend/Standard.pm index 5aba0eab1f..62ecbe3026 100644 --- a/Koha/ILL/Backend/Standard.pm +++ b/Koha/ILL/Backend/Standard.pm @@ -25,7 +25,7 @@ use C4::Installer; use Koha::DateUtils qw/ dt_from_string /; use Koha::ILL::Requests; use Koha::ILL::Request::Attribute; -use C4::Biblio qw( AddBiblio ); +use C4::Biblio qw( AddBiblio ); use C4::Charset qw( MarcToUTF8Record ); =head1 NAME @@ -1166,15 +1166,24 @@ sub _standard_request2biblio { } if ($isbn) { - my $marc_isbn = $marcflavour eq 'MARC21' ? MARC::Field->new( '020', '', '', a => $isbn ) : MARC::Field->new( '010', '', '', a => $isbn ); + my $marc_isbn = + $marcflavour eq 'MARC21' + ? MARC::Field->new( '020', '', '', a => $isbn ) + : MARC::Field->new( '010', '', '', a => $isbn ); $record->append_fields($marc_isbn); } if ($author) { - my $marc_author = $marcflavour eq 'MARC21' ? MARC::Field->new( '100', '1', '', a => $author ) : MARC::Field->new( '700', '1', '', a => $author ); + my $marc_author = + $marcflavour eq 'MARC21' + ? MARC::Field->new( '100', '1', '', a => $author ) + : MARC::Field->new( '700', '1', '', a => $author ); $record->append_fields($marc_author); } if ($title) { - my $marc_title = $marcflavour eq 'MARC21' ? MARC::Field->new( '245', '0', '0', a => $title ) : MARC::Field->new( '200', '0', '0', a => $title ); + my $marc_title = + $marcflavour eq 'MARC21' + ? MARC::Field->new( '245', '0', '0', a => $title ) + : MARC::Field->new( '200', '0', '0', a => $title ); $record->append_fields($marc_title); } diff --git a/Koha/ILL/Request.pm b/Koha/ILL/Request.pm index 4df167d15f..9bc3ebc4d2 100644 --- a/Koha/ILL/Request.pm +++ b/Koha/ILL/Request.pm @@ -19,13 +19,13 @@ package Koha::ILL::Request; use Modern::Perl; -use Clone qw( clone ); -use Try::Tiny qw( catch try ); +use Clone qw(clone); +use Try::Tiny qw(catch try); use DateTime; use C4::Letters; -use Mojo::Util qw(deprecated); -use File::Basename qw( dirname ); +use Mojo::Util qw(deprecated); +use File::Basename qw(dirname); use Koha::AuthorisedValue; use Koha::AuthorisedValues; -- 2.39.5