|
Lines 4298-4303
subtest 'AddReturn | recalls' => sub {
Link Here
|
| 4298 |
$recall1->set_cancelled; |
4298 |
$recall1->set_cancelled; |
| 4299 |
}; |
4299 |
}; |
| 4300 |
|
4300 |
|
|
|
4301 |
subtest 'AddReturn | bundles' => sub { |
| 4302 |
plan tests => 1; |
| 4303 |
|
| 4304 |
my $schema = Koha::Database->schema; |
| 4305 |
$schema->storage->txn_begin; |
| 4306 |
|
| 4307 |
my $patron1 = $builder->build_object({ class => 'Koha::Patrons' }); |
| 4308 |
my $host_item1 = $builder->build_sample_item; |
| 4309 |
my $bundle_item1 = $builder->build_sample_item; |
| 4310 |
$schema->resultset('ItemBundle') |
| 4311 |
->create( |
| 4312 |
{ host => $host_item1->itemnumber, item => $bundle_item1->itemnumber } ); |
| 4313 |
|
| 4314 |
my ( $doreturn, $messages, $iteminfo, $borrowerinfo ) = AddReturn( $bundle_item1->barcode, $bundle_item1->homebranch ); |
| 4315 |
is($messages->{InBundle}->id, $host_item1->id, 'AddReturn returns InBundle host item when item is part of a bundle'); |
| 4316 |
|
| 4317 |
$schema->storage->txn_rollback; |
| 4318 |
}; |
| 4319 |
|
| 4301 |
subtest 'AddRenewal and AddIssuingCharge tests' => sub { |
4320 |
subtest 'AddRenewal and AddIssuingCharge tests' => sub { |
| 4302 |
|
4321 |
|
| 4303 |
plan tests => 13; |
4322 |
plan tests => 13; |
| 4304 |
- |
|
|