Lines 549-556
if ( $messages->{'WrongTransfer'} and not $messages->{'WasTransfered'} ) {
Link Here
|
549 |
# Update the transfer to reflect the new item holdingbranch |
549 |
# Update the transfer to reflect the new item holdingbranch |
550 |
my $item = Koha::Items->find( $messages->{'WrongTransferItem'} ); |
550 |
my $item = Koha::Items->find( $messages->{'WrongTransferItem'} ); |
551 |
my $old_transfer = $item->get_transfer; |
551 |
my $old_transfer = $item->get_transfer; |
|
|
552 |
|
553 |
# We need to ignore limits here. While we can't transfer from this branch, it is, wrongly, here right now |
554 |
# and that fact must be recorded |
552 |
my $new_transfer = $item->request_transfer( |
555 |
my $new_transfer = $item->request_transfer( |
553 |
{ to => $old_transfer->to_library, reason => $old_transfer->reason, replace => 'WrongTransfer' } ); |
556 |
{ |
|
|
557 |
to => $old_transfer->to_library, reason => $old_transfer->reason, replace => 'WrongTransfer', |
558 |
ignore_limits => 1 |
559 |
} |
560 |
); |
554 |
$template->param( NewTransfer => $new_transfer->id ); |
561 |
$template->param( NewTransfer => $new_transfer->id ); |
555 |
|
562 |
|
556 |
my $reserve = $messages->{'ResFound'}; |
563 |
my $reserve = $messages->{'ResFound'}; |
557 |
- |
|
|