From a40897f6a62050b8de9187391d6b13bf6618bbe9 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Tue, 19 Mar 2019 09:28:58 +0000 Subject: [PATCH] Bug 22521: Update fines handling to use accountline.status Signed-off-by: Martin Renvoize --- C4/Circulation.pm | 7 +++--- C4/Overdues.pm | 49 +++++++++++++----------------------- Koha/Account.pm | 9 ++++--- Koha/Account/Line.pm | 28 ++++++++++++++------- circ/branchoverdues.pl | 6 +++-- misc/cronjobs/staticfines.pl | 4 +-- opac/opac-user.pl | 2 +- t/db_dependent/Circulation.t | 30 ++++++++++++---------- t/db_dependent/Overdues.t | 2 +- 9 files changed, 71 insertions(+), 66 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index 9807ebec68..39e04e348b 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -2329,7 +2329,8 @@ sub _FixOverduesOnReturn { { borrowernumber => $borrowernumber, itemnumber => $item, - accounttype => 'FU' + accounttype => 'OVERDUE', + status => 'UNRETURNED' } )->next(); return 0 unless $accountline; # no warning, there's just nothing to fix @@ -2337,7 +2338,7 @@ sub _FixOverduesOnReturn { if ($exemptfine) { my $amountoutstanding = $accountline->amountoutstanding; - $accountline->accounttype('FFOR'); + $accountline->status('FORGIVEN'); $accountline->amountoutstanding(0); Koha::Account::Offset->new( @@ -2352,7 +2353,7 @@ sub _FixOverduesOnReturn { &logaction("FINES", 'MODIFY',$borrowernumber,"Overdue forgiven: item $item"); } } else { - $accountline->accounttype('F'); + $accountline->status('RETURNED'); } return $accountline->store(); diff --git a/C4/Overdues.pm b/C4/Overdues.pm index ae6b8ce4d0..e43e7a7afa 100644 --- a/C4/Overdues.pm +++ b/C4/Overdues.pm @@ -520,46 +520,33 @@ sub UpdateFine { } my $dbh = C4::Context->dbh; - # FIXME - What exactly is this query supposed to do? It looks up an - # entry in accountlines that matches the given item and borrower - # numbers, where the description contains $due, and where the - # account type has one of several values, but what does this _mean_? - # Does it look up existing fines for this item? - # FIXME - What are these various account types? ("FU", "O", "F", "M") - # "L" is LOST item - # "A" is Account Management Fee - # "N" is New Card - # "M" is Sundry - # "F" is Fine ?? - # "FU" is Fine UPDATE?? - # "Pay" is Payment - # "REF" is Cash Refund - my $sth = $dbh->prepare( - "SELECT * FROM accountlines - WHERE borrowernumber=? AND - (( accounttype IN ('F','M') AND amountoutstanding<>0 ) OR - accounttype = 'FU' )" + my $overdues = Koha::Account::Lines->search( + { + borrowernumber => $borrowernumber, + accounttype => [ 'OVERDUE', 'M' ], + amountoutstanding => { '<>' => 0 } + } ); - $sth->execute( $borrowernumber ); - my $data; + + my $accountline; my $total_amount_other = 0.00; my $due_qr = qr/$due/; # Cycle through the fines and # - find line that relates to the requested $itemnum # - accumulate fines for other items # so we can update $itemnum fine taking in account fine caps - while (my $rec = $sth->fetchrow_hashref) { - if ( $rec->{issue_id} == $issue_id && $rec->{accounttype} eq 'FU' ) { - if ($data) { + while (my $overdue = $overdues->next) { + if ( $overdue->issue_id == $issue_id && $overdue->status eq 'UNRETURNED' ) { + if ($accountline) { warn "Not a unique accountlines record for issue_id $issue_id"; #FIXME Should we still count this one in total_amount ?? } else { - $data = $rec; + $accountline = $overdue; next; } } - $total_amount_other += $rec->{'amountoutstanding'}; + $total_amount_other += $overdue->amountoutstanding; } if (my $maxfine = C4::Context->preference('MaxFine')) { @@ -571,9 +558,8 @@ sub UpdateFine { } } - if ( $data ) { - if ( $data->{'amount'} != $amount ) { - my $accountline = Koha::Account::Lines->find( $data->{accountlines_id} ); + if ( $accountline ) { + if ( $accountline->amount != $amount ) { $accountline->adjust({ amount => $amount, type => 'fine_update' }); } } else { @@ -586,7 +572,7 @@ sub UpdateFine { my $desc = "$title $due"; my $account = Koha::Account->new({ patron_id => $borrowernumber }); - my $accountline = $account->add_debit( + $accountline = $account->add_debit( { amount => $amount, description => $desc, @@ -730,7 +716,8 @@ sub GetOverduesForBranch { LEFT JOIN itemtypes ON itemtypes.itemtype = $itype_link LEFT JOIN branches ON branches.branchcode = issues.branchcode WHERE (accountlines.amountoutstanding != '0.000000') - AND (accountlines.accounttype = 'FU' ) + AND (accountlines.accounttype = 'OVERDUE' ) + AND (accountlines.status = 'UNRETURNED' ) AND (issues.branchcode = ? ) AND (issues.date_due < NOW()) "; diff --git a/Koha/Account.pm b/Koha/Account.pm index 9d8fc2a700..cec224f60c 100644 --- a/Koha/Account.pm +++ b/Koha/Account.pm @@ -409,7 +409,7 @@ my $debit_line = Koha::Account->new({ patron_id => $patron_id })->add_debit( ); $debit_type can be any of: - - fine + - overdue - lost_item - new_card - account @@ -471,7 +471,8 @@ sub add_debit { itemnumber => $item_id, issue_id => $issue_id, branchcode => $library_id, - ( $type eq 'fine' ? ( lastincrement => $amount ) : ()), + ( $type eq 'overdue' ? ( lastincrement => $amount ) : ()), + ( $type eq 'overdue' ? ( status => 'UNRETURNED' ) : ()), } )->store(); @@ -672,7 +673,7 @@ our $offset_type = { 'processing' => 'Processing Fee', 'lost_item' => 'Lost Item', 'rent' => 'Rental Fee', - 'fine' => 'Fine', + 'overdue' => 'OVERDUE', 'manual_debit' => 'Manual Debit', 'hold_expired' => 'Hold Expired' }; @@ -695,7 +696,7 @@ our $account_type_credit = { our $account_type_debit = { 'account' => 'A', - 'fine' => 'FU', + 'overdue' => 'OVERDUE', 'lost_item' => 'L', 'new_card' => 'N', 'sundry' => 'M', diff --git a/Koha/Account/Line.pm b/Koha/Account/Line.pm index 0338a5b6d9..f0c426e849 100644 --- a/Koha/Account/Line.pm +++ b/Koha/Account/Line.pm @@ -235,7 +235,7 @@ This method allows updating a debit or credit on a patron's account ); $update_type can be any of: - - fine_update + - overdue_update Authors Note: The intention here is that this method is only used to adjust accountlines where the final amount is not yet known/fixed. @@ -257,11 +257,21 @@ sub adjust { ); } - my $account_type = $self->accounttype; - unless ( $Koha::Account::Line::allowed_update->{$update_type} eq $account_type ) { + my $account_type = $self->accounttype; + my $account_status = $self->status; + unless ( + ( + exists( + $Koha::Account::Line::allowed_update->{$update_type} + ->{$account_type} + ) + && ( $Koha::Account::Line::allowed_update->{$update_type} + ->{$account_type} eq $account_status ) + ) + ) + { Koha::Exceptions::Account::UnrecognisedType->throw( - error => 'Update type not allowed on this accounttype' - ); + error => 'Update type not allowed on this accounttype' ); } my $schema = Koha::Database->new->schema; @@ -286,7 +296,7 @@ sub adjust { amount => $new_outstanding * -1, description => 'Overpayment refund', type => 'credit', - ( $update_type eq 'fine_update' ? ( item_id => $self->itemnumber ) : ()), + ( $update_type eq 'overdue_update' ? ( item_id => $self->itemnumber ) : ()), } ); $new_outstanding = 0; @@ -298,7 +308,7 @@ sub adjust { date => \'NOW()', amount => $amount, amountoutstanding => $new_outstanding, - ( $update_type eq 'fine_update' ? ( lastincrement => $difference ) : ()), + ( $update_type eq 'overdue_update' ? ( lastincrement => $difference ) : ()), } )->store(); @@ -327,7 +337,7 @@ sub adjust { manager_id => undef, } ) - ) if ( $update_type eq 'fine_update' ); + ) if ( $update_type eq 'overdue_update' ); } } ); @@ -379,7 +389,7 @@ sub _type { =cut -our $allowed_update = { 'fine_update' => 'FU', }; +our $allowed_update = { 'overdue_update' => { 'OVERDUE' => 'UNRETURNED' } }; =head1 AUTHORS diff --git a/circ/branchoverdues.pl b/circ/branchoverdues.pl index d4c20cbb18..7f6218525e 100755 --- a/circ/branchoverdues.pl +++ b/circ/branchoverdues.pl @@ -31,8 +31,10 @@ use Data::Dumper; =head1 branchoverdues.pl - this module is a new interface, allow to the librarian to check all items on overdues (based on the acountlines type 'FU' ) - this interface is filtered by branches (automatically), and by location (optional) .... +This view is used to display all overdue items to the librarian. + +It is automatically filtered by branch and can optionally be filtered +by item location. =cut diff --git a/misc/cronjobs/staticfines.pl b/misc/cronjobs/staticfines.pl index 5803c89a2a..df6f448471 100755 --- a/misc/cronjobs/staticfines.pl +++ b/misc/cronjobs/staticfines.pl @@ -228,8 +228,8 @@ for ( my $i = 0 ; $i < scalar(@$data) ; $i++ ) { my $desc = "staticfine"; my $query = "INSERT INTO accountlines - (borrowernumber,itemnumber,date,amount,description,accounttype,amountoutstanding,lastincrement) - VALUES (?,?,now(),?,?,'F',?,?)"; + (borrowernumber,itemnumber,date,amount,description,accounttype,status,amountoutstanding,lastincrement) + VALUES (?,?,now(),?,?,'OVERDUE','RETURNED',?,?)"; my $sth2 = $dbh->prepare($query); $bigdebug and warn "query: $query\nw/ args: $borrowernumber, $itemnumber, $amount, $desc, $amount, $amount\n"; $sth2->execute( $borrowernumber, $itemnumber, $amount, $desc, $amount, $amount ); diff --git a/opac/opac-user.pl b/opac/opac-user.pl index 1fde24b538..7ed262f6a2 100755 --- a/opac/opac-user.pl +++ b/opac/opac-user.pl @@ -196,7 +196,7 @@ if ( $pending_checkouts->count ) { # Useless test { borrowernumber => $patron->borrowernumber, amountoutstanding => { '>' => 0 }, - accounttype => [ 'F', 'FU', 'L' ], + accounttype => [ 'F', 'L' ], itemnumber => $issue->{itemnumber} }, ); diff --git a/t/db_dependent/Circulation.t b/t/db_dependent/Circulation.t index fa4e6342ac..1d0c461a64 100755 --- a/t/db_dependent/Circulation.t +++ b/t/db_dependent/Circulation.t @@ -502,8 +502,8 @@ my ( $reused_itemnumber_1, $reused_itemnumber_2 ); my $fines = Koha::Account::Lines->search( { borrowernumber => $renewing_borrower->{borrowernumber}, itemnumber => $item_7->itemnumber } ); is( $fines->count, 2 ); - is( $fines->next->accounttype, 'F', 'Fine on renewed item is closed out properly' ); - is( $fines->next->accounttype, 'F', 'Fine on renewed item is closed out properly' ); + isnt( $fines->next->status, 'UNRETURNED', 'Fine on renewed item is closed out properly' ); + isnt( $fines->next->status, 'UNRETURNED', 'Fine on renewed item is closed out properly' ); $fines->delete(); @@ -688,7 +688,7 @@ my ( $reused_itemnumber_1, $reused_itemnumber_2 ); item_id => $item_to_auto_renew->{itemnumber}, description => "Some fines" } - )->accounttype('F')->store; + )->status('RETURNED')->store; ( $renewokay, $error ) = CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} ); is( $renewokay, 0, 'Do not renew, renewal is automatic' ); @@ -701,7 +701,7 @@ my ( $reused_itemnumber_1, $reused_itemnumber_2 ); item_id => $item_to_auto_renew->{itemnumber}, description => "Some fines" } - )->accounttype('F')->store; + )->status('RETURNED')->store; ( $renewokay, $error ) = CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} ); is( $renewokay, 0, 'Do not renew, renewal is automatic' ); @@ -714,7 +714,7 @@ my ( $reused_itemnumber_1, $reused_itemnumber_2 ); item_id => $item_to_auto_renew->{itemnumber}, description => "Some fines" } - )->accounttype('F')->store; + )->status('RETURNED')->store; ( $renewokay, $error ) = CanBookBeRenewed( $renewing_borrowernumber, $item_to_auto_renew->{itemnumber} ); is( $renewokay, 0, 'Do not renew, renewal is automatic' ); @@ -848,7 +848,8 @@ my ( $reused_itemnumber_1, $reused_itemnumber_2 ); ); my $line = Koha::Account::Lines->search({ borrowernumber => $renewing_borrower->{borrowernumber} })->next(); - is( $line->accounttype, 'FU', 'Account line type is FU' ); + is( $line->accounttype, 'OVERDUE', 'Account line type is OVERDUE' ); + is( $line->status, 'UNRETURNED', 'Account line status is UNRETURNED' ); is( $line->lastincrement, '15.000000', 'Account line last increment is 15.00' ); is( $line->amountoutstanding, '15.000000', 'Account line amount outstanding is 15.00' ); is( $line->amount, '15.000000', 'Account line amount is 15.00' ); @@ -864,7 +865,8 @@ my ( $reused_itemnumber_1, $reused_itemnumber_2 ); LostItem( $item_1->itemnumber, 'test', 1 ); $line = Koha::Account::Lines->find($line->id); - is( $line->accounttype, 'F', 'Account type correctly changed from FU to F' ); + is( $line->accounttype, 'OVERDUE', 'Account type remains as OVERDUE' ); + isnt( $line->status, 'UNRETURNED', 'Account status correctly changed from UNRETURNED to RETURNED' ); my $item = Koha::Items->find($item_1->itemnumber); ok( !$item->onloan(), "Lost item marked as returned has false onloan value" ); @@ -1973,7 +1975,7 @@ subtest 'AddReturn | is_overdue' => sub { # specify dropbox date 5 days later => overdue, or... not AddIssue( $patron->unblessed, $item->{barcode}, $ten_days_ago ); # date due was 10d ago AddReturn( $item->{barcode}, $library->{branchcode}, $five_days_ago ); - is( int($patron->account->balance()), 0, 'AddReturn: pass return_date => no overdue in dropbox mode' ); # FIXME? This is weird, the FU fine is created ( _CalculateAndUpdateFine > C4::Overdues::UpdateFine ) then remove later (in _FixOverduesOnReturn). Looks like it is a feature + is( int($patron->account->balance()), 0, 'AddReturn: pass return_date => no overdue in dropbox mode' ); # FIXME? This is weird, the OVERDUE fine is created ( _CalculateAndUpdateFine > C4::Overdues::UpdateFine ) then remove later (in _FixOverduesOnReturn). Looks like it is a feature Koha::Account::Lines->search({ borrowernumber => $patron->borrowernumber })->delete; }; @@ -2350,7 +2352,7 @@ subtest '_FixAccountForLostAndReturned' => sub { is( $account->balance, $manual_debit_amount - $payment_amount, 'Balance is PF - payment (CR)' ); - my $manual_debit = Koha::Account::Lines->search({ borrowernumber => $patron->id, accounttype => 'FU' })->next; + my $manual_debit = Koha::Account::Lines->search({ borrowernumber => $patron->id, accounttype => 'OVERDUE', status => 'UNRETURNED' })->next; is( $manual_debit->amountoutstanding + 0, $manual_debit_amount - $payment_amount, 'reconcile_balance was called' ); }; }; @@ -2377,7 +2379,8 @@ subtest '_FixOverduesOnReturn' => sub { my $accountline = Koha::Account::Line->new( { borrowernumber => $patron->{borrowernumber}, - accounttype => 'FU', + accounttype => 'OVERDUE', + status => 'UNRETURNED', itemnumber => $item->itemnumber, amount => 99.00, amountoutstanding => 99.00, @@ -2390,13 +2393,14 @@ subtest '_FixOverduesOnReturn' => sub { $accountline->_result()->discard_changes(); is( $accountline->amountoutstanding, '99.000000', 'Fine has the same amount outstanding as previously' ); - is( $accountline->accounttype, 'F', 'Open fine ( account type FU ) has been closed out ( account type F )'); + is( $accountline->status, 'RETURNED', 'Open fine ( account type OVERDUE ) has been closed out ( status RETURNED )'); ## Run again, with exemptfine enabled $accountline->set( { - accounttype => 'FU', + accounttype => 'OVERDUE', + status => 'UNRETURNED', amountoutstanding => 99.00, } )->store(); @@ -2407,7 +2411,7 @@ subtest '_FixOverduesOnReturn' => sub { my $offset = Koha::Account::Offsets->search({ debit_id => $accountline->id, type => 'Forgiven' })->next(); is( $accountline->amountoutstanding + 0, 0, 'Fine has been reduced to 0' ); - is( $accountline->accounttype, 'FFOR', 'Open fine ( account type FU ) has been set to fine forgiven ( account type FFOR )'); + is( $accountline->status, 'FORGIVEN', 'Open fine ( account type OVERDUE ) has been set to fine forgiven ( status FORGIVEN )'); is( ref $offset, "Koha::Account::Offset", "Found matching offset for fine reduction via forgiveness" ); is( $offset->amount, '-99.000000', "Amount of offset is correct" ); }; diff --git a/t/db_dependent/Overdues.t b/t/db_dependent/Overdues.t index 4d6f18939c..85c3502c6a 100644 --- a/t/db_dependent/Overdues.t +++ b/t/db_dependent/Overdues.t @@ -251,7 +251,7 @@ subtest 'UpdateFine tests' => sub { is( $fine2->amount, '30.000000', "Second fine increased after partial payment of first" ); # Fix fine 1, create third fine - $fine->accounttype('F')->store; + $fine->status('RETURNED')->store; UpdateFine( { issue_id => $checkout1->issue_id, -- 2.20.1