From 5716dd043f1d44b016f08c1f848fa224d96fb14f Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Thu, 6 May 2021 16:31:39 +0100 Subject: [PATCH] Bug 28294: WIP --- Koha/Item/Transfer.pm | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/Koha/Item/Transfer.pm b/Koha/Item/Transfer.pm index 4112b3fab9..5300ba23e3 100644 --- a/Koha/Item/Transfer.pm +++ b/Koha/Item/Transfer.pm @@ -171,6 +171,38 @@ sub cancel { return $self; } +=head3 correction + + $transfer->correction(); + +Correct a mistaken transfer by cancelling the original and replacing it. + +=cut + +sub correction { + my ( $self, $params ) = @_; + + # Update the cancelled date + $self->set( + { datecancelled => dt_from_string, cancellation_reason => 'WrongTransfer' } ) + ->store; + + # Add new in_transet transfer + my $transfer = Koha::Item::Transfer->new( + { + itemnumber => $self->itemnumber, + daterequested => dt_from_string, + datesent => dt_from_string, + frombranch => $self->item->holdingbranch, + tobranch => $self->tobranch, + reason => $self->reason, + comments => $self->comment + } + )->store(); + + return $transfer; +} + =head3 type =cut -- 2.20.1