Lines 94-99
my $itemnumbers = $iteminfo[0];
Link Here
|
94 |
for my $itemnumber ( @$itemnumbers ) { |
94 |
for my $itemnumber ( @$itemnumbers ) { |
95 |
ok($batch->add_item($itemnumber) eq 0 ) || diag "Batch->add_item() FAILED."; |
95 |
ok($batch->add_item($itemnumber) eq 0 ) || diag "Batch->add_item() FAILED."; |
96 |
} |
96 |
} |
|
|
97 |
$batch_id=$batch->get_attr('batch_id'); |
97 |
|
98 |
|
98 |
diag "Testing Batch->retrieve() method."; |
99 |
diag "Testing Batch->retrieve() method."; |
99 |
ok(my $saved_batch = C4::Labels::Batch->retrieve(batch_id => $batch_id)) || diag "Batch->retrieve() FAILED."; |
100 |
ok(my $saved_batch = C4::Labels::Batch->retrieve(batch_id => $batch_id)) || diag "Batch->retrieve() FAILED."; |
100 |
- |
|
|