From 85a4fe6c76b8f6b40ea98a26a902465a746b2115 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Fri, 18 Sep 2020 12:14:25 +0100 Subject: [PATCH] Bug 25755: (QA follow-up) Clarify POD and parameters This patch removes a FIXME that signified possible future work and also updates the POD and optional parameters to more clearly specify their function. Signed-off-by: Martin Renvoize --- Koha/Item.pm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/Koha/Item.pm b/Koha/Item.pm index 92849b766b..7e5f36b978 100644 --- a/Koha/Item.pm +++ b/Koha/Item.pm @@ -402,12 +402,12 @@ sub holds { =head3 request_transfer my $transfer = $item->request_transfer( - { to => $to_library, reason => $reason, force => 0 } ); + { to => $to_library, reason => $reason, ignore_limits => 0 } ); Add a transfer request for this item to the given branch for the given reason. An exception will be thrown if the BranchTransferLimits would prevent the requested -transfer, unless 'force' is passed to override the limits. +transfer, unless 'ignore_limits' is passed to override the limits. Note: At this time, only one active transfer (i.e pending arrival date) may exist at a time for any given item. An exception will be thrown should you attempt to @@ -431,10 +431,10 @@ sub request_transfer { my $request; Koha::Exceptions::Item::Transfer::Found->throw( transfer => $request ) if ( $request = $self->get_transfer ); - # FIXME: Add override functionality to allow for queing transfers Koha::Exceptions::Item::Transfer::Limit->throw() - unless ( $params->{force} || $self->can_be_transferred( { to => $params->{to} } ) ); + unless ( $params->{ignore_limits} + || $self->can_be_transferred( { to => $params->{to} } ) ); my $transfer = Koha::Item::Transfer->new( { @@ -455,9 +455,11 @@ sub request_transfer { Return the active transfer request or undef -Note: Transfers are retrieved in a LIFO (Last In First Out) order using this method. +Note: Transfers are retrieved in a Modified FIFO (First In First Out) order +whereby the most recently sent, but not recieved, transfer will be returned +if it exists, otherwise the oldest unsatisfied transfer will be returned. -FIXME: Add Tests for LIFO functionality +FIXME: Add Tests for FIFO functionality =cut @@ -466,7 +468,7 @@ sub get_transfer { my $transfer_rs = $self->_result->branchtransfers->search( { datearrived => undef }, { - order_by => [ { -asc => 'datesent' }, { -asc => 'daterequested' } ], + order_by => [ { -desc => 'datesent' }, { -asc => 'daterequested' } ], rows => 1 } )->first; -- 2.20.1