View | Details | Raw Unified | Return to bug 12768
Collapse All | Expand All

(-)a/C4/Accounts.pm (-16 / +8 lines)
Lines 236-257 sub manualinvoice { Link Here
236
}
236
}
237
237
238
sub getcharges {
238
sub getcharges {
239
    my ( $borrowerno, $accountno ) = @_;
239
    my ( $borrowerno, $timestamp, $accountno ) = @_;
240
    my $dbh = C4::Context->dbh;
240
    my $dbh        = C4::Context->dbh;
241
241
    my $timestamp2 = $timestamp - 1;
242
    my @params;
242
    my $query      = "";
243
243
    my $sth = $dbh->prepare(
244
    my $query = "SELECT * FROM accountlines WHERE borrowernumber = ?";
244
            "SELECT * FROM accountlines WHERE borrowernumber=? AND accountno = ?"
245
    push( @params, $borrowerno );
245
          );
246
246
    $sth->execute( $borrowerno, $accountno );
247
    if ( $accountno ) {
248
        $query .= " AND accountno = ?";
249
        push( @params, $accountno );
250
    }
251
247
252
    my $sth = $dbh->prepare( $query );
253
    $sth->execute( @params );
254
	
255
    my @results;
248
    my @results;
256
    while ( my $data = $sth->fetchrow_hashref ) {
249
    while ( my $data = $sth->fetchrow_hashref ) {
257
        push @results,$data;
250
        push @results,$data;
258
- 

Return to bug 12768