From 8b138b64e0bdb5320d43327b9f8018e62b9ba574 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

---
 Koha/Item/Transfer.pm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/Koha/Item/Transfer.pm b/Koha/Item/Transfer.pm
index 669559d15b..80ba0458ba 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