From 350aa94b5e4d5013429fa574ac1598ba4cab7c5c Mon Sep 17 00:00:00 2001 From: Owen Leonard Date: Thu, 9 Nov 2023 19:46:35 +0000 Subject: [PATCH] Bug 35290: (follow-up) Perltidy formatting corrections Signed-off-by: Nick Clemens Signed-off-by: Tomas Cohen Arazi --- cataloguing/ysearch.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cataloguing/ysearch.pl b/cataloguing/ysearch.pl index 609f4cb0b1..0655de9b9a 100755 --- a/cataloguing/ysearch.pl +++ b/cataloguing/ysearch.pl @@ -1,4 +1,4 @@ -#!/usr/bin/perl + #!/usr/bin/perl # This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html) @@ -37,8 +37,8 @@ my $table = $input->param('table'); my $field = $input->param('field'); # Prevent from disclosing data -die() unless ($table eq "biblioitems"); -die() unless ($field eq 'publishercode' || $field eq 'collectiontitle'); +die() unless ( $table eq "biblioitems" ); +die() unless ( $field eq 'publishercode' || $field eq 'collectiontitle' ); binmode STDOUT, ":encoding(UTF-8)"; print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); -- 2.39.5