@@ -, +, @@ --- C4/Circulation.pm | 2 +- misc/maintenance/fix_accountlines_rmdupfines_bug8253.pl | 4 ++-- t/db_dependent/Stats.t | 3 ++- 3 files changed, 5 insertions(+), 4 deletions(-) --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -2429,7 +2429,7 @@ sub _FixAccountForLostAndReturned { accounttype => { -in => [ 'L', 'Rep', 'W' ] }, }, { - order_by => { -desc => [ 'date' ] } + order_by => { -desc => [ 'date', 'accountlines_id' ] } } ); --- a/misc/maintenance/fix_accountlines_rmdupfines_bug8253.pl +++ a/misc/maintenance/fix_accountlines_rmdupfines_bug8253.pl @@ -98,13 +98,13 @@ foreach my $keeper (@$results) { } my $sql = - "DELETE FROM accountlines WHERE accountlines_id = ? LIMIT 1"; + "DELETE FROM accountlines WHERE accountlines_id = ?"; $dbh->do( $sql, undef, $f->{'accountlines_id'} ); } if ($has_changed) { my $sql = - "UPDATE accountlines SET amountoutstanding = ? WHERE accountlines_id = ? LIMIT 1"; + "UPDATE accountlines SET amountoutstanding = ? WHERE accountlines_id = ?"; $dbh->do( $sql, undef, $keeper->{'amountoutstanding'}, $keeper->{'accountlines_id'} --- a/t/db_dependent/Stats.t +++ a/t/db_dependent/Stats.t @@ -4,7 +4,7 @@ use Modern::Perl; use C4::Stats; use Koha::Database; -use Test::More tests => 18; +use Test::More tests => 19; BEGIN { use_ok('C4::Stats'); @@ -119,6 +119,7 @@ is ($params->{other}, $line->{other}, "UpdateStats save other is ($params->{itemtype}, $line->{itemtype}, "UpdateStats save itemtype param in itemtype field of statistics table"); is ($params->{location}, $line->{location}, "UpdateStats save location param in location field of statistics table"); is ($params->{ccode}, $line->{ccode}, "UpdateStats save ccode param in ccode field of statistics table"); +is (undef, $line->{proccode}, "UpdateStats save no proccode param in proccode field of statistics table"); $dbh->do(q|DELETE FROM statistics|); $params = { --