From 53df9cd8640ab35dcd018f4d7eb5577125ecab53 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 Signed-off-by: Martin Renvoize --- 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 ffd483a..6e2de01 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 a35e4ab..09fbb23 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -1414,7 +1414,7 @@ sub GetHostItemsInfo { =cut -sub GetLastAcquisitions { +sub GetLastAcquisitions { my ($data,$max) = @_; my $itemtype = C4::Context->preference('item-level_itypes') ? 'itype' : 'itemtype'; @@ -2438,7 +2438,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 768b163..de05429 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -774,7 +774,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 78058db..4c196ab 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