From abdda36f46c8ca0a2f8da886dd658a08b03c9b45 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Tue, 10 Oct 2017 10:40:19 -0400 Subject: [PATCH] Bug 12768 - Revert changes to getcharges --- C4/Accounts.pm | 23 ++++++++--------------- 1 file changed, 8 insertions(+), 15 deletions(-) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index a84b297d12..ab72ceac80 100644 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -236,22 +236,15 @@ sub manualinvoice { } sub getcharges { - my ( $borrowerno, $accountno ) = @_; - my $dbh = C4::Context->dbh; - - my @params; - - my $query = "SELECT * FROM accountlines WHERE borrowernumber = ?"; - push( @params, $borrowerno ); - - if ( $accountno ) { - $query .= " AND accountno = ?"; - push( @params, $accountno ); - } + 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 $sth = $dbh->prepare( $query ); - $sth->execute( @params ); - my @results; while ( my $data = $sth->fetchrow_hashref ) { push @results,$data; -- 2.11.0