From 4f1b3b8a34e640d63e389a5dace1102fc7f70b19 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Joonas=20Kylm=C3=A4l=C3=A4?= Date: Sun, 3 Oct 2021 11:53:56 +0000 Subject: [PATCH] Bug 24698: (QA follow-up) Align variables with whitespace MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: George Veranis Signed-off-by: Joonas Kylmälä --- .../value_builder/unimarc_leader_authorities.pl | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/cataloguing/value_builder/unimarc_leader_authorities.pl b/cataloguing/value_builder/unimarc_leader_authorities.pl index 904935fdaf..5c7cb4eea3 100644 --- a/cataloguing/value_builder/unimarc_leader_authorities.pl +++ b/cataloguing/value_builder/unimarc_leader_authorities.pl @@ -68,18 +68,17 @@ sub plugin { ); $result = " nz a22 3 4500" unless $result; - - my $f5 = substr( $result, 5, 1 ); $f5 = wrapper( $f5 ) if $f5; - my $f6 = substr( $result, 6, 1 ); $f6 = wrapper( $f6 ) if $f6; - my $f9 = substr( $result, 9, 1 ); $f9 = wrapper( $f9 ) if $f9; - my $f17 = substr( $result, 17, 1 ); $f17 = wrapper( $f17 ) if $f17; + my $f5 = substr( $result, 5, 1 ); $f5 = wrapper( $f5 ) if $f5; + my $f6 = substr( $result, 6, 1 ); $f6 = wrapper( $f6 ) if $f6; + my $f9 = substr( $result, 9, 1 ); $f9 = wrapper( $f9 ) if $f9; + my $f17 = substr( $result, 17, 1 ); $f17 = wrapper( $f17 ) if $f17; $template->param( index => $index, "f5$f5" => 1, "f6$f6" => 1, "f9$f9" => 1, - "f17$f17" => 1, + "f17$f17" => 1, ); output_html_with_http_headers $input, $cookie, $template->output; } -- 2.20.1