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

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

Return to bug 14826