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 )
 );