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