Bug 22518: (QA follow-up) Add rows updated to feedback

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

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

installer/data/mysql/atomicupdate/bug_22518.perl

@@ -1,16 +1,16 @@
 $DBversion = 'XXX';    # will be replaced by the RM
 if ( CheckVersion($DBversion) ) {
 
-        $dbh->do(
+    my $rows = $dbh->do(
-            qq{
+        qq{
-            UPDATE `accountlines`
+        UPDATE `accountlines`
-            SET
+        SET
-              `accounttype` = 'FU'
+          `accounttype` = 'FU'
-            WHERE
+        WHERE
-              `accounttype` = 'O'
+          `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;
 }