gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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>
This commit is contained in:
Josef Moravec 2018-11-09 16:54:34 +00:00 committed by Tomas Cohen Arazi
parent a58549422d
commit 8205305b4f
2 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
C4/Accounts.pm
View File

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

1
t/db_dependent/Accounts.t
View File

@ -44,7 +44,6 @@ can_ok( 'C4::Accounts',
getnextacctno
chargelostitem
manualinvoice
getcharges
purge_zero_balance_fees )
);