|
Lines 4086-4100
sub _CalculateAndUpdateFine {
Link Here
|
| 4086 |
|
4086 |
|
| 4087 |
if ( C4::Context->preference('finesMode') eq 'production' ) { |
4087 |
if ( C4::Context->preference('finesMode') eq 'production' ) { |
| 4088 |
if ( $amount > 0 ) { |
4088 |
if ( $amount > 0 ) { |
| 4089 |
C4::Overdues::UpdateFine( $issue->{itemnumber}, $issue->{borrowernumber}, |
4089 |
C4::Overdues::UpdateFine({ |
| 4090 |
$amount, $type, output_pref($datedue) ); |
4090 |
issue_id => $issue->{issue_id}, |
|
|
4091 |
itemnumber => $issue->{itemnumber}, |
| 4092 |
borrowernumber => $issue->{borrowernumber}, |
| 4093 |
amount => $amount, |
| 4094 |
type => $type, |
| 4095 |
due => output_pref($datedue), |
| 4096 |
}); |
| 4091 |
} |
4097 |
} |
| 4092 |
elsif ($return_date) { |
4098 |
elsif ($return_date) { |
| 4093 |
|
4099 |
|
| 4094 |
# Backdated returns may have fines that shouldn't exist, |
4100 |
# Backdated returns may have fines that shouldn't exist, |
| 4095 |
# so in this case, we need to drop those fines to 0 |
4101 |
# so in this case, we need to drop those fines to 0 |
| 4096 |
|
4102 |
|
| 4097 |
C4::Overdues::UpdateFine( $issue->{itemnumber}, $issue->{borrowernumber}, 0, $type, output_pref($datedue) ); |
4103 |
C4::Overdues::UpdateFine({ |
|
|
4104 |
issue_id => $issue->{issue_id}, |
| 4105 |
itemnumber => $issue->{itemnumber}, |
| 4106 |
borrowernumber => $issue->{borrowernumber}, |
| 4107 |
amount => 0, |
| 4108 |
type => $type, |
| 4109 |
due => output_pref($datedue), |
| 4110 |
}); |
| 4098 |
} |
4111 |
} |
| 4099 |
} |
4112 |
} |
| 4100 |
} |
4113 |
} |
| 4101 |
- |
|
|