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