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