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

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

Return to bug 14826