Attachment 84271 Details for Bug 21720 – Bug 21720: Use Koha::Account->add_debit in AddIssuingCharge

[patch] Bug 21720: Use Koha::Account->add_debit in AddIssuingCharge

Bug-21720-Use-KohaAccount-adddebit-in-AddIssuingCh.patch (text/plain), 2.49 KB, created by Josef Moravec on 2019-01-22 08:08:47 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Josef Moravec

Created: 2019-01-22 08:08:47 UTC

Size: 2.49 KB

patch

obsolete

>From 3c8d59cd4fcb70d8f1058e790bb6014b0c9e6ddb Mon Sep 17 00:00:00 2001
>From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
>Date: Thu, 1 Nov 2018 12:42:31 +0000
>Subject: [PATCH] Bug 21720: Use Koha::Account->add_debit in AddIssuingCharge
>
>Known Side Effect: Prior to this patch issuing charges were not
>recorded in the FinesLog. After this patch, if the FinesLog is
>enabled then the 'action' will be recorded as `create_rent`.
>
>Sponsored-by: PTFS Europe
>
>Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
>---
> C4/Circulation.pm | 39 +++++++++++----------------------------
> 1 file changed, 11 insertions(+), 28 deletions(-)
>
>diff --git a/C4/Circulation.pm b/C4/Circulation.pm
>index 5581a84f5a..a3e027c34a 100644
>--- a/C4/Circulation.pm
>+++ b/C4/Circulation.pm
>@@ -3240,36 +3240,19 @@ sub AddIssuingCharge {
> 
>     # FIXME What if checkout does not exist?
> 
>-    my $nextaccntno = C4::Accounts::getnextacctno( $checkout->borrowernumber );
>-
>-    my $manager_id  = 0;
>-    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;
>-
>-    my $branchcode = C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef;
>-
>-    my $accountline = Koha::Account::Line->new(
>+    my $account = Koha::Account->new({ patron_id => $checkout->borrowernumber });
>+    my $accountline = $account->add_debit(
>         {
>-            borrowernumber    => $checkout->borrowernumber,
>-            itemnumber        => $checkout->itemnumber,
>-            issue_id          => $checkout->issue_id,
>-            accountno         => $nextaccntno,
>-            amount            => $charge,
>-            amountoutstanding => $charge,
>-            manager_id        => $manager_id,
>-            branchcode        => $branchcode,
>-            description       => 'Rental',
>-            accounttype       => 'Rent',
>-            date              => \'NOW()',
>+            amount      => $charge,
>+            description => 'Rental',
>+            note        => undef,
>+            user_id     => C4::Context->userenv ? C4::Context->userenv->{'number'} : 0,
>+            library_id  => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
>+            type        => 'rent',
>+            item_id     => $checkout->itemnumber,
>+            issue_id    => $checkout->issue_id,
>         }
>-    )->store();
>-
>-    Koha::Account::Offset->new(
>-        {
>-            debit_id => $accountline->id,
>-            type     => 'Rental Fee',
>-            amount   => $charge,
>-        }
>-    )->store();
>+    );
> }
> 
> =head2 GetTransfers
>-- 
>2.11.0

Actions: View | Diff | Splinter Review

Attachments on bug 21720: 81882 | 82787 | 82788 | 83199 | 83200 | 84271 | 84272 | 85175 | 85176