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 |
- |
|
|