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 |
- |
|
|