|
Lines 3233-3251
sub _get_discount_from_rule {
Link Here
|
| 3233 |
|
3233 |
|
| 3234 |
sub AddIssuingCharge { |
3234 |
sub AddIssuingCharge { |
| 3235 |
my ( $itemnumber, $borrowernumber, $charge ) = @_; |
3235 |
my ( $itemnumber, $borrowernumber, $charge ) = @_; |
| 3236 |
my $dbh = C4::Context->dbh; |
3236 |
|
| 3237 |
my $nextaccntno = getnextacctno( $borrowernumber ); |
3237 |
my $nextaccntno = getnextacctno($borrowernumber); |
| 3238 |
my $manager_id = 0; |
3238 |
|
|
|
3239 |
my $manager_id = 0; |
| 3239 |
$manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; |
3240 |
$manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; |
| 3240 |
my $query =" |
3241 |
|
| 3241 |
INSERT INTO accountlines |
3242 |
my $accountline = Koha::Account::Line->new( |
| 3242 |
(borrowernumber, itemnumber, accountno, |
3243 |
{ |
| 3243 |
date, amount, description, accounttype, |
3244 |
borrowernumber => $borrowernumber, |
| 3244 |
amountoutstanding, manager_id) |
3245 |
itemnumber => $itemnumber, |
| 3245 |
VALUES (?, ?, ?,now(), ?, 'Rental', 'Rent',?,?) |
3246 |
accountno => $nextaccntno, |
| 3246 |
"; |
3247 |
amount => $charge, |
| 3247 |
my $sth = $dbh->prepare($query); |
3248 |
amountoutstanding => $charge, |
| 3248 |
$sth->execute( $borrowernumber, $itemnumber, $nextaccntno, $charge, $charge, $manager_id ); |
3249 |
manager_id => $manager_id, |
|
|
3250 |
description => 'Rental', |
| 3251 |
accounttype => 'Rent', |
| 3252 |
date => \'NOW()', |
| 3253 |
} |
| 3254 |
)->store(); |
| 3255 |
|
| 3256 |
Koha::Account::Offset->new( |
| 3257 |
{ |
| 3258 |
debit_id => $accountline->id, |
| 3259 |
type => 'Rental Fee', |
| 3260 |
amount => $charge, |
| 3261 |
} |
| 3262 |
)->store(); |
| 3249 |
} |
3263 |
} |
| 3250 |
|
3264 |
|
| 3251 |
=head2 GetTransfers |
3265 |
=head2 GetTransfers |
| 3252 |
- |
|
|