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

(-)a/C4/Circulation.pm (-13 / +26 lines)
Lines 3186-3204 sub _get_discount_from_rule { Link Here
3186
3186
3187
sub AddIssuingCharge {
3187
sub AddIssuingCharge {
3188
    my ( $itemnumber, $borrowernumber, $charge ) = @_;
3188
    my ( $itemnumber, $borrowernumber, $charge ) = @_;
3189
    my $dbh = C4::Context->dbh;
3189
3190
    my $nextaccntno = getnextacctno( $borrowernumber );
3190
    my $nextaccntno = getnextacctno($borrowernumber);
3191
    my $manager_id = 0;
3191
3192
    my $manager_id  = 0;
3192
    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;
3193
    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;
3193
    my $query ="
3194
3194
        INSERT INTO accountlines
3195
    my $accountline = Koha::Account::Line->new(
3195
            (borrowernumber, itemnumber, accountno,
3196
        {
3196
            date, amount, description, accounttype,
3197
            borrowernumber    => $borrowernumber,
3197
            amountoutstanding, manager_id)
3198
            itemnumber        => $itemnumber,
3198
        VALUES (?, ?, ?,now(), ?, 'Rental', 'Rent',?,?)
3199
            accountno         => $nextaccntno,
3199
    ";
3200
            amount            => $charge,
3200
    my $sth = $dbh->prepare($query);
3201
            amountoutstanding => $charge,
3201
    $sth->execute( $borrowernumber, $itemnumber, $nextaccntno, $charge, $charge, $manager_id );
3202
            manager_id        => $manager_id,
3203
            description       => 'Rental',
3204
            accounttype       => 'Rent',
3205
            date              => \'NOW()',
3206
        }
3207
    )->store();
3208
3209
    Koha::Account::Offset->new(
3210
        {
3211
            debit_id => $accountline->id,
3212
            type     => 'Rental Fee',
3213
            amount   => $charge,
3214
        }
3215
    )->store();
3202
}
3216
}
3203
3217
3204
=head2 GetTransfers
3218
=head2 GetTransfers
3205
- 

Return to bug 14826