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

(-)a/C4/Circulation.pm (-3 / +3 lines)
Lines 2776-2791 sub AddIssuingCharge { Link Here
2776
    my $dbh = C4::Context->dbh;
2776
    my $dbh = C4::Context->dbh;
2777
    my $nextaccntno = getnextacctno( $borrowernumber );
2777
    my $nextaccntno = getnextacctno( $borrowernumber );
2778
    my $manager_id = 0;
2778
    my $manager_id = 0;
2779
    my $item = GetBiblioFromItemNumber($itemnumber);
2779
    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;
2780
    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;
2780
    my $query ="
2781
    my $query ="
2781
        INSERT INTO accountlines
2782
        INSERT INTO accountlines
2782
            (borrowernumber, itemnumber, accountno,
2783
            (borrowernumber, itemnumber, accountno,
2783
            date, amount, description, accounttype,
2784
            date, amount, description, accounttype,
2784
            amountoutstanding, manager_id)
2785
            amountoutstanding, manager_id)
2785
        VALUES (?, ?, ?,now(), ?, 'Rental', 'Rent',?,?)
2786
        VALUES (?, ?, ?,now(), ?, ?, 'Rent',?,?)
2786
    ";
2787
    ";
2787
    my $sth = $dbh->prepare($query);
2788
    my $sth = $dbh->prepare($query);
2788
    $sth->execute( $borrowernumber, $itemnumber, $nextaccntno, $charge, $charge, $manager_id );
2789
    $sth->execute( $borrowernumber, $itemnumber, $nextaccntno, $charge, "$item->{'title'} $item->{'barcode'}", $charge, $manager_id );
2789
}
2790
}
2790
2791
2791
=head2 GetTransfers
2792
=head2 GetTransfers
2792
- 

Return to bug 11573