From f00082f94b277bee0f41fabf689bdbd9150d3900 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Thu, 29 Nov 2018 12:10:21 -0300 Subject: [PATCH] Bug 21909: Make Koha::Account::outstanding_* preserve context This patch modifies the methods so they preserve the caller's context (list and scalar). To test: - Apply the first patch - Run: $ kshell k$ prove t/db_dependent/Koha/Account.t => FAIL: outstanding_credits and outstanding_debits tests fail - Apply this patch - Run: k$ prove t/db_dependent/Koha/Account.t => SUCCESS: We are so happy now :-D - Sign off :-D Signed-off-by: Martin Renvoize Signed-off-by: Josef Moravec --- Koha/Account.pm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/Koha/Account.pm b/Koha/Account.pm index 5630f4130e..15e3b8ed32 100644 --- a/Koha/Account.pm +++ b/Koha/Account.pm @@ -428,13 +428,11 @@ my $lines = Koha::Account->new({ patron_id => $patron_id })->outstanding_debits; sub outstanding_debits { my ($self) = @_; - my $lines = $self->lines->search( + return $self->lines->search( { amountoutstanding => { '>' => 0 } } ); - - return $lines; } =head3 outstanding_credits @@ -446,13 +444,11 @@ my $lines = Koha::Account->new({ patron_id => $patron_id })->outstanding_credits sub outstanding_credits { my ($self) = @_; - my $lines = $self->lines->search( + return $self->lines->search( { amountoutstanding => { '<' => 0 } } ); - - return $lines; } =head3 non_issues_charges -- 2.11.0