From e51b73bf6de76dcce4f0db88f338d4793a8ce5e9 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Mon, 20 Jan 2020 15:51:39 +0000
Subject: [PATCH] Bug 25767: Add Koha::Item::Transfer->receipt method
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Kathleen Milne <kathleen.milne@cne-siar.gov.uk>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Joonas Kylmälä <joonas.kylmala@helsinki.fi>
---
 Koha/Item/Transfer.pm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/Koha/Item/Transfer.pm b/Koha/Item/Transfer.pm
index 2928480c0a..e2e62087da 100644
--- a/Koha/Item/Transfer.pm
+++ b/Koha/Item/Transfer.pm
@@ -84,6 +84,25 @@ sub transit {
     return $self;
 }
 
+=head3 receipt
+
+Receive the transfer by setting the datearrived time.
+
+=cut
+
+sub receipt {
+    my ($self) = @_;
+
+    # Throw exception if item is checked out
+    Koha::Exceptions::Item::Transfer::Out->throw() if ($self->item->checkout);
+
+    # Update the receipt state
+    $self->set({ datearrived => dt_from_string })->store;
+
+    ModDateLastSeen( $self->item->itemnumber );
+    return $self;
+}
+
 =head3 type
 
 =cut
-- 
2.20.1