From 9e0eccb1e82098e843a18ef22b33193ba88235f4 Mon Sep 17 00:00:00 2001
From: Pedro Amorim <pedro.amorim@ptfs-europe.com>
Date: Wed, 30 Aug 2023 13:12:31 +0000
Subject: [PATCH] Bug 34609: Add biblio method to Old::Hold

---
 Koha/Old/Hold.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/Koha/Old/Hold.pm b/Koha/Old/Hold.pm
index aa164fcd2a..91f2adb39c 100644
--- a/Koha/Old/Hold.pm
+++ b/Koha/Old/Hold.pm
@@ -34,6 +34,19 @@ This object represents a hold that has been filled or canceled
 
 =head2 Class methods
 
+=head3 biblio
+
+Returns the related Koha::Biblio object for this old hold
+
+=cut
+
+sub biblio {
+    my ($self) = @_;
+    my $rs = $self->_result->biblionumber;
+    return unless $rs;
+    return Koha::Biblio->_new_from_dbic($rs);
+}
+
 =head3 anonymize
 
     $old_hold->anonymize();
-- 
2.30.2