This patch fixes the C4::Labels::Batch tests
};
while (my $record = $sth->fetchrow_hashref) {
$self->{'branch_code'} = $record->{'branch_code'};
+ $self->{'creator'} = $record->{'creator'};
push (@{$self->{'items'}}, {$number_type => $record->{$number_type}, label_id => $record->{'label_id'}});
$record_flag = 1; # true if one or more rows were retrieved
}
use strict;
use warnings;
-use Test::More tests => 22;
+use Test::More tests => 23;
use C4::Context;
use Data::Dumper;
my $branch_code = $sth->fetchrow_hashref()->{'branchcode'};
diag sprintf('Database returned the following error: %s', $sth->errstr) if $sth->errstr;
my $expected_batch = {
+ creator => 'Labels',
items => [],
branch_code => $branch_code,
batch_stat => 0, # False if any data has changed and the db has not been updated