View | Details | Raw Unified | Return to bug 17600
Collapse All | Expand All

(-)a/C4/ImportBatch.pm (-2 / +2 lines)
Lines 982-988 ascending order by import_batch_id. Link Here
982
982
983
=cut
983
=cut
984
984
985
sub  GetAllImportBatches {
985
sub GetAllImportBatches {
986
    my $dbh = C4::Context->dbh;
986
    my $dbh = C4::Context->dbh;
987
    my $sth = $dbh->prepare_cached("SELECT * FROM import_batches
987
    my $sth = $dbh->prepare_cached("SELECT * FROM import_batches
988
                                    WHERE batch_type IN ('batch', 'webservice')
988
                                    WHERE batch_type IN ('batch', 'webservice')
Lines 1011-1017 SELECT import_batch_id FROM import_batches Link Here
1011
WHERE batch_type = 'webservice'
1011
WHERE batch_type = 'webservice'
1012
AND import_status = 'staged'
1012
AND import_status = 'staged'
1013
EOQ
1013
EOQ
1014
sub  GetStagedWebserviceBatches {
1014
sub GetStagedWebserviceBatches {
1015
    my $dbh = C4::Context->dbh;
1015
    my $dbh = C4::Context->dbh;
1016
    return $dbh->selectcol_arrayref($PENDING_WEBSERVICE_BATCHES_QRY);
1016
    return $dbh->selectcol_arrayref($PENDING_WEBSERVICE_BATCHES_QRY);
1017
}
1017
}
(-)a/C4/Items.pm (-2 / +2 lines)
Lines 1414-1420 sub GetHostItemsInfo { Link Here
1414
1414
1415
=cut
1415
=cut
1416
1416
1417
sub  GetLastAcquisitions {
1417
sub GetLastAcquisitions {
1418
	my ($data,$max) = @_;
1418
	my ($data,$max) = @_;
1419
1419
1420
	my $itemtype = C4::Context->preference('item-level_itypes') ? 'itype' : 'itemtype';
1420
	my $itemtype = C4::Context->preference('item-level_itypes') ? 'itype' : 'itemtype';
Lines 2438-2444 sub _get_unlinked_subfields_xml { Link Here
2438
2438
2439
=cut
2439
=cut
2440
2440
2441
sub  _parse_unlinked_item_subfields_from_xml {
2441
sub _parse_unlinked_item_subfields_from_xml {
2442
    my $xml = shift;
2442
    my $xml = shift;
2443
    require C4::Charset;
2443
    require C4::Charset;
2444
    return unless defined $xml and $xml ne "";
2444
    return unless defined $xml and $xml ne "";
(-)a/members/memberentry.pl (-1 / +1 lines)
Lines 774-780 if ( defined $min ) { Link Here
774
774
775
output_html_with_http_headers $input, $cookie, $template->output;
775
output_html_with_http_headers $input, $cookie, $template->output;
776
776
777
sub  parse_extended_patron_attributes {
777
sub parse_extended_patron_attributes {
778
    my ($input) = @_;
778
    my ($input) = @_;
779
    my @patron_attr = grep { /^patron_attr_\d+$/ } $input->multi_param();
779
    my @patron_attr = grep { /^patron_attr_\d+$/ } $input->multi_param();
780
780
(-)a/t/db_dependent/Reports/Guided.t (-2 / +1 lines)
Lines 136-142 subtest 'IsAuthorisedValueValid' => sub { Link Here
136
    }
136
    }
137
};
137
};
138
138
139
subtest 'GetParametersFromSQL+ValidateSQLParameters' => sub  {
139
subtest 'GetParametersFromSQL+ValidateSQLParameters' => sub {
140
    plan tests => 3;
140
    plan tests => 3;
141
    my $test_query_1 = "
141
    my $test_query_1 = "
142
        SELECT date_due
142
        SELECT date_due
143
- 

Return to bug 17600