From 96e0402573a6d19b5fcd815609651a5c6c447d92 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 18 Jul 2022 18:33:47 -0300 Subject: [PATCH] Bug 31183: Add Koha::Item::Transfers->filter_by_current This patch introduces the aforementioned method. To test: 1. Apply this unit tests patch 2. Run: $ kshell k$ prove t/db_dependent/Koha/Item/Transfers.t => FaIL: method not defined? 3. Apply this patch 4. Repeat 2 => SUCCESS: Tests pass! 5. Sign off :-D Signed-off-by: Tomas Cohen Arazi Signed-off-by: Jonathan Druart Signed-off-by: Tomas Cohen Arazi --- Koha/Item/Transfers.pm | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/Koha/Item/Transfers.pm b/Koha/Item/Transfers.pm index be5c0e098c..a5417ea75c 100644 --- a/Koha/Item/Transfers.pm +++ b/Koha/Item/Transfers.pm @@ -30,10 +30,27 @@ Koha::Item::Transfers - Koha Item Transfer Object set class =head1 API -=head2 Class Methods +=head2 Class methods + +=head3 filter_by_current + + my $current_transfers = $transfers->filter_by_current; + +Filters out completed transfers from the resultset. =cut +sub filter_by_current { + my ( $self ) = @_; + + return $self->search( + { + datearrived => undef, + datecancelled => undef, + } + ); +} + =head3 type =cut -- 2.39.5