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

(-)a/C4/Circulation.pm (-13 / +26 lines)
Lines 3233-3251 sub _get_discount_from_rule { Link Here
3233
3233
3234
sub AddIssuingCharge {
3234
sub AddIssuingCharge {
3235
    my ( $itemnumber, $borrowernumber, $charge ) = @_;
3235
    my ( $itemnumber, $borrowernumber, $charge ) = @_;
3236
    my $dbh = C4::Context->dbh;
3236
3237
    my $nextaccntno = getnextacctno( $borrowernumber );
3237
    my $nextaccntno = getnextacctno($borrowernumber);
3238
    my $manager_id = 0;
3238
3239
    my $manager_id  = 0;
3239
    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;
3240
    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;
3240
    my $query ="
3241
3241
        INSERT INTO accountlines
3242
    my $accountline = Koha::Account::Line->new(
3242
            (borrowernumber, itemnumber, accountno,
3243
        {
3243
            date, amount, description, accounttype,
3244
            borrowernumber    => $borrowernumber,
3244
            amountoutstanding, manager_id)
3245
            itemnumber        => $itemnumber,
3245
        VALUES (?, ?, ?,now(), ?, 'Rental', 'Rent',?,?)
3246
            accountno         => $nextaccntno,
3246
    ";
3247
            amount            => $charge,
3247
    my $sth = $dbh->prepare($query);
3248
            amountoutstanding => $charge,
3248
    $sth->execute( $borrowernumber, $itemnumber, $nextaccntno, $charge, $charge, $manager_id );
3249
            manager_id        => $manager_id,
3250
            description       => 'Rental',
3251
            accounttype       => 'Rent',
3252
            date              => \'NOW()',
3253
        }
3254
    )->store();
3255
3256
    Koha::Account::Offset->new(
3257
        {
3258
            debit_id => $accountline->id,
3259
            type     => 'Rental Fee',
3260
            amount   => $charge,
3261
        }
3262
    )->store();
3249
}
3263
}
3250
3264
3251
=head2 GetTransfers
3265
=head2 GetTransfers
3252
- 

Return to bug 14826