=cut

=cut

    my $dbh = C4::Context->dbh;

    my $dbh = C4::Context->dbh;

    my $sth = $dbh->prepare_cached("SELECT * FROM import_batches

    my $sth = $dbh->prepare_cached("SELECT * FROM import_batches

                                    WHERE batch_type IN ('batch', 'webservice')

                                    WHERE batch_type IN ('batch', 'webservice')

WHERE batch_type = 'webservice'

WHERE batch_type = 'webservice'

AND import_status = 'staged'

AND import_status = 'staged'

EOQ

EOQ

    my $dbh = C4::Context->dbh;

    my $dbh = C4::Context->dbh;

    return $dbh->selectcol_arrayref($PENDING_WEBSERVICE_BATCHES_QRY);

    return $dbh->selectcol_arrayref($PENDING_WEBSERVICE_BATCHES_QRY);

}

}

=cut

=cut

	my ($data,$max) = @_;

	my ($data,$max) = @_;

	my $itemtype = C4::Context->preference('item-level_itypes') ? 'itype' : 'itemtype';

	my $itemtype = C4::Context->preference('item-level_itypes') ? 'itype' : 'itemtype';

=cut

=cut

    my $xml = shift;

    my $xml = shift;

    require C4::Charset;

    require C4::Charset;

    return unless defined $xml and $xml ne "";

    return unless defined $xml and $xml ne "";

output_html_with_http_headers $input, $cookie, $template->output;

output_html_with_http_headers $input, $cookie, $template->output;

    my ($input) = @_;

    my ($input) = @_;

    my @patron_attr = grep { /^patron_attr_\d+$/ } $input->multi_param();

    my @patron_attr = grep { /^patron_attr_\d+$/ } $input->multi_param();

    }

    }

};

};

    plan tests => 3;

    plan tests => 3;

    my $test_query_1 = "

    my $test_query_1 = "

        SELECT date_due

        SELECT date_due