@@ -, +, @@ --- C4/Circulation.pm | 5 +---- C4/Overdues.pm | 3 +-- Koha/Account.pm | 2 -- misc/maintenance/fix_accountlines_date.pl | 2 +- 4 files changed, 3 insertions(+), 9 deletions(-) --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -2329,10 +2329,7 @@ sub _FixOverduesOnReturn { { borrowernumber => $borrowernumber, itemnumber => $item, - -or => [ - accounttype => 'FU', - accounttype => 'O', - ], + accounttype => 'FU' } )->next(); return 0 unless $accountline; # no warning, there's just nothing to fix --- a/C4/Overdues.pm +++ a/C4/Overdues.pm @@ -530,7 +530,6 @@ sub UpdateFine { # "A" is Account Management Fee # "N" is New Card # "M" is Sundry - # "O" is Overdue ?? # "F" is Fine ?? # "FU" is Fine UPDATE?? # "Pay" is Payment @@ -538,7 +537,7 @@ sub UpdateFine { my $sth = $dbh->prepare( "SELECT * FROM accountlines WHERE borrowernumber=? AND - (( accounttype IN ('O','F','M') AND amountoutstanding<>0 ) OR + (( accounttype IN ('F','M') AND amountoutstanding<>0 ) OR accounttype = 'FU' )" ); $sth->execute( $borrowernumber ); --- a/Koha/Account.pm +++ a/Koha/Account.pm @@ -416,7 +416,6 @@ $debit_type can be any of: - processing - rent - reserve - - overdue - manual =cut @@ -701,7 +700,6 @@ our $account_type_debit = { 'processing' => 'PF', 'rent' => 'Rent', 'reserve' => 'Res', - 'overdue' => 'O', 'manual_debit' => 'M', 'hold_expired' => 'HE' }; --- a/misc/maintenance/fix_accountlines_date.pl +++ a/misc/maintenance/fix_accountlines_date.pl @@ -129,7 +129,7 @@ $dbh->{AutoCommit} = 0; my $sth = $dbh->prepare(" SELECT accountlines_id, description FROM accountlines - WHERE accounttype in ('FU', 'F', 'O', 'M') + WHERE accounttype in ('FU', 'F', 'M') ;"); $sth->execute(); --