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 1528-1534 sub GetHostItemsInfo { Link Here
1528
1528
1529
=cut
1529
=cut
1530
1530
1531
sub  GetLastAcquisitions {
1531
sub GetLastAcquisitions {
1532
	my ($data,$max) = @_;
1532
	my ($data,$max) = @_;
1533
1533
1534
	my $itemtype = C4::Context->preference('item-level_itypes') ? 'itype' : 'itemtype';
1534
	my $itemtype = C4::Context->preference('item-level_itypes') ? 'itype' : 'itemtype';
Lines 2522-2528 sub _get_unlinked_subfields_xml { Link Here
2522
2522
2523
=cut
2523
=cut
2524
2524
2525
sub  _parse_unlinked_item_subfields_from_xml {
2525
sub _parse_unlinked_item_subfields_from_xml {
2526
    my $xml = shift;
2526
    my $xml = shift;
2527
    require C4::Charset;
2527
    require C4::Charset;
2528
    return unless defined $xml and $xml ne "";
2528
    return unless defined $xml and $xml ne "";
(-)a/members/memberentry.pl (-1 / +1 lines)
Lines 780-786 if ( defined $min ) { Link Here
780
780
781
output_html_with_http_headers $input, $cookie, $template->output;
781
output_html_with_http_headers $input, $cookie, $template->output;
782
782
783
sub  parse_extended_patron_attributes {
783
sub parse_extended_patron_attributes {
784
    my ($input) = @_;
784
    my ($input) = @_;
785
    my @patron_attr = grep { /^patron_attr_\d+$/ } $input->multi_param();
785
    my @patron_attr = grep { /^patron_attr_\d+$/ } $input->multi_param();
786
786
(-)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