From 19c63d087ac49660dc0f7c84642fd78d1371e9b5 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 5 Dec 2016 11:47:41 +0100 Subject: [PATCH] Bug 17600: Remove useless extra spaces --- C4/ImportBatch.pm | 4 ++-- C4/Items.pm | 4 ++-- members/memberentry.pl | 2 +- t/db_dependent/Reports/Guided.t | 2 +- 4 files changed, 6 insertions(+), 6 deletions(-) diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm index c5e13c7..ea772f9 100644 --- a/C4/ImportBatch.pm +++ b/C4/ImportBatch.pm @@ -982,7 +982,7 @@ ascending order by import_batch_id. =cut -sub GetAllImportBatches { +sub GetAllImportBatches { my $dbh = C4::Context->dbh; my $sth = $dbh->prepare_cached("SELECT * FROM import_batches WHERE batch_type IN ('batch', 'webservice') @@ -1011,7 +1011,7 @@ SELECT import_batch_id FROM import_batches WHERE batch_type = 'webservice' AND import_status = 'staged' EOQ -sub GetStagedWebserviceBatches { +sub GetStagedWebserviceBatches { my $dbh = C4::Context->dbh; return $dbh->selectcol_arrayref($PENDING_WEBSERVICE_BATCHES_QRY); } diff --git a/C4/Items.pm b/C4/Items.pm index 4f4026c..e4af7a0 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -1528,7 +1528,7 @@ sub GetHostItemsInfo { =cut -sub GetLastAcquisitions { +sub GetLastAcquisitions { my ($data,$max) = @_; my $itemtype = C4::Context->preference('item-level_itypes') ? 'itype' : 'itemtype'; @@ -2522,7 +2522,7 @@ sub _get_unlinked_subfields_xml { =cut -sub _parse_unlinked_item_subfields_from_xml { +sub _parse_unlinked_item_subfields_from_xml { my $xml = shift; require C4::Charset; return unless defined $xml and $xml ne ""; diff --git a/members/memberentry.pl b/members/memberentry.pl index 27e6687..f71b968 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -780,7 +780,7 @@ if ( defined $min ) { output_html_with_http_headers $input, $cookie, $template->output; -sub parse_extended_patron_attributes { +sub parse_extended_patron_attributes { my ($input) = @_; my @patron_attr = grep { /^patron_attr_\d+$/ } $input->multi_param(); diff --git a/t/db_dependent/Reports/Guided.t b/t/db_dependent/Reports/Guided.t index c11d6c9..645ea35 100644 --- a/t/db_dependent/Reports/Guided.t +++ b/t/db_dependent/Reports/Guided.t @@ -136,7 +136,7 @@ subtest 'IsAuthorisedValueValid' => sub { } }; -subtest 'GetParametersFromSQL+ValidateSQLParameters' => sub { +subtest 'GetParametersFromSQL+ValidateSQLParameters' => sub { plan tests => 3; my $test_query_1 = " SELECT date_due -- 2.1.4