|
Lines 1406-1412
sub AddIssue {
Link Here
|
| 1406 |
# If it costs to borrow this book, charge it to the patron's account. |
1406 |
# If it costs to borrow this book, charge it to the patron's account. |
| 1407 |
my ( $charge, $itemtype ) = GetIssuingCharges( $item->{'itemnumber'}, $borrower->{'borrowernumber'} ); |
1407 |
my ( $charge, $itemtype ) = GetIssuingCharges( $item->{'itemnumber'}, $borrower->{'borrowernumber'} ); |
| 1408 |
if ( $charge > 0 ) { |
1408 |
if ( $charge > 0 ) { |
| 1409 |
AddIssuingCharge( $item->{'itemnumber'}, $borrower->{'borrowernumber'}, $charge ); |
1409 |
AddIssuingCharge( $item->{'itemnumber'}, $borrower->{'borrowernumber'}, $issue->id, $charge ); |
| 1410 |
$item->{'charge'} = $charge; |
1410 |
$item->{'charge'} = $charge; |
| 1411 |
} |
1411 |
} |
| 1412 |
|
1412 |
|
|
Lines 3165-3176
sub _get_discount_from_rule {
Link Here
|
| 3165 |
|
3165 |
|
| 3166 |
=head2 AddIssuingCharge |
3166 |
=head2 AddIssuingCharge |
| 3167 |
|
3167 |
|
| 3168 |
&AddIssuingCharge( $itemno, $borrowernumber, $charge ) |
3168 |
&AddIssuingCharge( $itemno, $borrowernumber, $issue_id, $charge ) |
| 3169 |
|
3169 |
|
| 3170 |
=cut |
3170 |
=cut |
| 3171 |
|
3171 |
|
| 3172 |
sub AddIssuingCharge { |
3172 |
sub AddIssuingCharge { |
| 3173 |
my ( $itemnumber, $borrowernumber, $charge ) = @_; |
3173 |
my ( $itemnumber, $borrowernumber, $issue_id, $charge ) = @_; |
| 3174 |
|
3174 |
|
| 3175 |
my $nextaccntno = getnextacctno($borrowernumber); |
3175 |
my $nextaccntno = getnextacctno($borrowernumber); |
| 3176 |
|
3176 |
|
|
Lines 3181-3186
sub AddIssuingCharge {
Link Here
|
| 3181 |
{ |
3181 |
{ |
| 3182 |
borrowernumber => $borrowernumber, |
3182 |
borrowernumber => $borrowernumber, |
| 3183 |
itemnumber => $itemnumber, |
3183 |
itemnumber => $itemnumber, |
|
|
3184 |
issue_id => $issue_id, |
| 3184 |
accountno => $nextaccntno, |
3185 |
accountno => $nextaccntno, |
| 3185 |
amount => $charge, |
3186 |
amount => $charge, |
| 3186 |
amountoutstanding => $charge, |
3187 |
amountoutstanding => $charge, |