Bug 35290: (follow-up) Perltidy formatting corrections

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Pedro Amorim <pedro.amorim@ptfs-europe.com>
This commit is contained in:
Owen Leonard 2023-11-09 19:46:35 +00:00 committed by Pedro Amorim
parent c2c52c3223
commit 2a14e79250
1 changed files with 3 additions and 3 deletions

View File

@ -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' );