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