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

[koha-equinox.git] / installer / data / mysql / atomicupdate / bug_22511.perl

diff --git a/installer/data/mysql/atomicupdate/bug_22511.perl b/installer/data/mysql/atomicupdate/bug_22511.perl
index 4447428..4ec384b 100644 (file)
--- 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});
     }