|
Lines 319-325
sub transferbook {
Link Here
|
| 319 |
} |
319 |
} |
| 320 |
|
320 |
|
| 321 |
my $itemnumber = $item->itemnumber; |
321 |
my $itemnumber = $item->itemnumber; |
| 322 |
my $issue = GetOpenIssue($itemnumber); |
|
|
| 323 |
# get branches of book... |
322 |
# get branches of book... |
| 324 |
my $hbr = $item->homebranch; |
323 |
my $hbr = $item->homebranch; |
| 325 |
my $fbr = $item->holdingbranch; |
324 |
my $fbr = $item->holdingbranch; |
|
Lines 345-350
sub transferbook {
Link Here
|
| 345 |
} |
344 |
} |
| 346 |
|
345 |
|
| 347 |
# check if it is still issued to someone, return it... |
346 |
# check if it is still issued to someone, return it... |
|
|
347 |
my $issue = Koha::Checkouts->find({ itemnumber => $itemnumber }); |
| 348 |
if ( $issue ) { |
348 |
if ( $issue ) { |
| 349 |
AddReturn( $barcode, $fbr ); |
349 |
AddReturn( $barcode, $fbr ); |
| 350 |
$messages->{'WasReturned'} = $issue->borrowernumber; |
350 |
$messages->{'WasReturned'} = $issue->borrowernumber; |
| 351 |
- |
|
|