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:
parent
c2c52c3223
commit
2a14e79250
|
|
@ -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' );
|
||||
|
|
|
|||
Loading…
Reference in New Issue