@@ -, +, @@ --- .../data/mysql/atomicupdate/bug_22518.perl | 20 +++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) --- a/installer/data/mysql/atomicupdate/bug_22518.perl +++ a/installer/data/mysql/atomicupdate/bug_22518.perl @@ -1,16 +1,16 @@ $DBversion = 'XXX'; # will be replaced by the RM if ( CheckVersion($DBversion) ) { - $dbh->do( - qq{ - UPDATE `accountlines` - SET - `accounttype` = 'FU' - WHERE - `accounttype` = 'O' - } - ); + my $rows = $dbh->do( + qq{ + UPDATE `accountlines` + SET + `accounttype` = 'FU' + WHERE + `accounttype` = 'O' + } + ); SetVersion($DBversion); - print "Upgrade to $DBversion done (Bug 22518 - Fix accounttype 'O' to 'FU')\n"; + printf "Upgrade to $DBversion done (Bug 22518 - Fix accounttype 'O' to 'FU' - %d updated)\n", $rows; } --