|
Lines 377-400
my $CBBI_patron = $builder->build({source => 'Borrower', value => { categorycode
Link Here
|
| 377 |
$patron = Koha::Patrons->find( $CBBI_patron->{borrowernumber} ); |
377 |
$patron = Koha::Patrons->find( $CBBI_patron->{borrowernumber} ); |
| 378 |
# Our Items |
378 |
# Our Items |
| 379 |
|
379 |
|
| 380 |
my $new_item = $builder->build({ |
380 |
my $new_item = $builder->build_sample_item->unblessed; |
| 381 |
source => 'Item', |
381 |
my $prev_item = $builder->build_sample_item->unblessed; |
| 382 |
value => { |
|
|
| 383 |
notforloan => 0, |
| 384 |
withdrawn => 0, |
| 385 |
itemlost => 0, |
| 386 |
biblionumber => $builder->build( { source => 'Biblioitem' } )->{biblionumber}, |
| 387 |
}, |
| 388 |
}); |
| 389 |
my $prev_item = $builder->build({ |
| 390 |
source => 'Item', |
| 391 |
value => { |
| 392 |
notforloan => 0, |
| 393 |
withdrawn => 0, |
| 394 |
itemlost => 0, |
| 395 |
biblionumber => $builder->build( { source => 'Biblioitem' } )->{biblionumber}, |
| 396 |
}, |
| 397 |
}); |
| 398 |
# Second is Checked Out |
382 |
# Second is Checked Out |
| 399 |
BAIL_OUT("CanBookBeIssued Issue failed") |
383 |
BAIL_OUT("CanBookBeIssued Issue failed") |
| 400 |
unless AddIssue($patron->unblessed, $prev_item->{barcode}); |
384 |
unless AddIssue($patron->unblessed, $prev_item->{barcode}); |
| 401 |
- |
|
|