Lines 3591-3609
This function validate the line of brachtransfer but with the wrong destination
Link Here
|
3591 |
sub updateWrongTransfer { |
3591 |
sub updateWrongTransfer { |
3592 |
my ( $itemNumber,$waitingAtLibrary,$FromLibrary ) = @_; |
3592 |
my ( $itemNumber,$waitingAtLibrary,$FromLibrary ) = @_; |
3593 |
|
3593 |
|
3594 |
# first step: cancel the original transfer |
3594 |
my $transfer = Koha::Items->find($itemNumber)->get_transfer; |
3595 |
my $item = Koha::Items->find($itemNumber); |
3595 |
my $new_transfer = $transfer->replace( |
3596 |
my $transfer = $item->get_transfer; |
|
|
3597 |
$transfer->set({ datecancelled => dt_from_string, cancellation_reason => 'WrongTransfer' })->store(); |
3598 |
|
3599 |
# second step: create a new transfer to the right location |
3600 |
my $new_transfer = $item->request_transfer( |
3601 |
{ |
3596 |
{ |
3602 |
to => $transfer->to_library, |
3597 |
to => $transfer->to_library, |
3603 |
reason => $transfer->reason, |
3598 |
reason => 'WrongTransfer', |
3604 |
comment => $transfer->comments, |
|
|
3605 |
ignore_limits => 1, |
3599 |
ignore_limits => 1, |
3606 |
enqueue => 1 |
3600 |
force => 1 |
3607 |
} |
3601 |
} |
3608 |
); |
3602 |
); |
3609 |
|
3603 |
|