From: Josef Moravec <josef.moravec@gmail.com>
Date: Thu, 25 Apr 2019 08:25:42 +0000 (+0000)
Subject: Bug 22511: (QA follow-up) Fix update database
X-Git-Url: http://git.equinoxoli.org/?p=koha-equinox.git;a=commitdiff_plain;h=1e95b94ea0c2e0115227c6cbf90cfae5dd0c5feb

Bug 22511: (QA follow-up) Fix update database

Test plan:
Run db update (and have some voided accountlines)
--> without patch it fails with error message similar to:
    Can't use string ("Payment") as a HASH ref while "strict refs" in use at
    (eval 1393) line 19.
--> with patch it runs as expected

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
---

diff --git a/installer/data/mysql/atomicupdate/bug_22511.perl b/installer/data/mysql/atomicupdate/bug_22511.perl
index 4447428..4ec384b 100644
--- a/installer/data/mysql/atomicupdate/bug_22511.perl
+++ b/installer/data/mysql/atomicupdate/bug_22511.perl
@@ -15,7 +15,7 @@ if ( CheckVersion($DBversion) ) {
     $sth->execute();
     while (my $row = $sth->fetchrow_hashref) {
         $sth2->execute($row->{accountlines_id});
-        my $result = $sth2->fetchrow;
+        my $result = $sth2->fetchrow_hashref;
         my $type = $types_map->{$result->{'type'}} // 'Pay';
         $sth3->execute($type,$row->{accountlines_id});
     }