From 8205305b4fae06c5c7ca4ad3ad7e5e8abf12ade6 Mon Sep 17 00:00:00 2001
From: Josef Moravec <josef.moravec@gmail.com>
Date: Fri, 9 Nov 2018 16:54:34 +0000
Subject: [PATCH] Bug 21804: Remove C4::Accounts::getcharges again

Test plan:
1) git grep getcharges
  -> should return no occurences
2) prove t/db_dependent/Accounts.t
  -> should pass

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---
 C4/Accounts.pm            | 17 -----------------
 t/db_dependent/Accounts.t |  1 -
 2 files changed, 18 deletions(-)

diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index 60b10a2035..e41ce7904b 100644
--- a/C4/Accounts.pm
+++ b/C4/Accounts.pm
@@ -278,23 +278,6 @@ sub manualinvoice {
     return 0;
 }
 
-sub getcharges {
-    my ( $borrowerno, $timestamp, $accountno ) = @_;
-    my $dbh        = C4::Context->dbh;
-    my $timestamp2 = $timestamp - 1;
-    my $query      = "";
-    my $sth = $dbh->prepare(
-            "SELECT * FROM accountlines WHERE borrowernumber=? AND accountno = ?"
-          );
-    $sth->execute( $borrowerno, $accountno );
-
-    my @results;
-    while ( my $data = $sth->fetchrow_hashref ) {
-        push @results,$data;
-    }
-    return (@results);
-}
-
 =head2 purge_zero_balance_fees
 
   purge_zero_balance_fees( $days );
diff --git a/t/db_dependent/Accounts.t b/t/db_dependent/Accounts.t
index 1cbd17dac3..4773d63e31 100644
--- a/t/db_dependent/Accounts.t
+++ b/t/db_dependent/Accounts.t
@@ -44,7 +44,6 @@ can_ok( 'C4::Accounts',
         getnextacctno
         chargelostitem
         manualinvoice
-        getcharges
         purge_zero_balance_fees )
 );
 
-- 
2.39.5