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