From 78d189f902b642f90bb1a44b594a4b111e1bc780 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Mon, 23 Oct 2017 11:01:25 -0400
Subject: [PATCH] Bug 12768 [QA Followup] - Use specific account offset types
 for Processing Fee and Lost Item

---
 C4/Accounts.pm                                       | 7 ++++++-
 installer/data/mysql/atomicupdate/processing_fee.sql | 1 +
 t/db_dependent/Circulation/Chargelostitem.t          | 9 ++++++++-
 3 files changed, 15 insertions(+), 2 deletions(-)
 create mode 100644 installer/data/mysql/atomicupdate/processing_fee.sql

diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index 7daff23..5fcbba0 100644
--- a/C4/Accounts.pm
+++ b/C4/Accounts.pm
@@ -230,10 +230,15 @@ sub manualinvoice {
         }
     )->store();
 
+    my $offset_type =
+        $type eq 'L'  ? 'Lost Item'
+      : $type eq 'PF' ? 'Processing Fee'
+      :                 'Manual Debit';
+
     my $account_offset = Koha::Account::Offset->new(
         {
             debit_id => $accountline->id,
-            type     => 'Manual Debit',
+            type     => $offset_type,
             amount   => $amount,
         }
     )->store();
diff --git a/installer/data/mysql/atomicupdate/processing_fee.sql b/installer/data/mysql/atomicupdate/processing_fee.sql
new file mode 100644
index 0000000..98b9827
--- /dev/null
+++ b/installer/data/mysql/atomicupdate/processing_fee.sql
@@ -0,0 +1 @@
+INSERT IGNORE INTO account_offset_types ( type ) VALUES ( 'Processing Fee' );
diff --git a/t/db_dependent/Circulation/Chargelostitem.t b/t/db_dependent/Circulation/Chargelostitem.t
index 3ffb295..bb2f230 100644
--- a/t/db_dependent/Circulation/Chargelostitem.t
+++ b/t/db_dependent/Circulation/Chargelostitem.t
@@ -2,7 +2,7 @@
 
 use Modern::Perl;
 
-use Test::More tests => 4;
+use Test::More tests => 6;
 use Test::MockModule;
 use t::lib::Mocks;
 use t::lib::TestBuilder;
@@ -62,6 +62,7 @@ AddIssue($borrower, '0101');
 AddIssue($borrower, '0203');
 
 # Begin tests...
+Koha::Account::Offsets->delete();
 my $issue = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->next()->unblessed();
 C4::Accounts::chargelostitem( $borrowernumber, $issue->{itemnumber}, '1.00');
 
@@ -70,3 +71,9 @@ my $accountline = Koha::Account::Lines->search( { borrowernumber => $borrowernum
 is( int($accountline->amount), $itemtype->{processfee}, "The accountline amount should be precessfee value " );
 is( $accountline->itemnumber, $itemnumber1, "The accountline itemnumber should the linked with barcode '0101'" );
 is( $accountline->note, C4::Context->preference("ProcessingFeeNote"), "The accountline description should be 'test'" );
+
+my $lost_ao = Koha::Account::Offsets->single( { type => 'Lost Item' } );
+ok( $lost_ao, 'Account offset of type "Lost Item" created' );
+
+my $processing_fee_ao = Koha::Account::Offsets->single( { type => 'Processing Fee' } );
+ok( $processing_fee_ao, 'Account offset of type "Processing Fee" created' );
-- 
2.10.2