@@ -, +, @@ --- 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(-) --- a/C4/ImportBatch.pm +++ a/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); } --- a/C4/Items.pm +++ a/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 ""; --- a/members/memberentry.pl +++ a/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(); --- a/t/db_dependent/Reports/Guided.t +++ a/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 --