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