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>
$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});
}