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

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

Return to bug 14826