installer/data/mysql/atomicupdate/bug_22518.perl

   1 $DBversion = 'XXX';    # will be replaced by the RM
   2 if ( CheckVersion($DBversion) ) {
   3
   4     my $rows = $dbh->do(
   5         qq{
   6         UPDATE `accountlines`
   7         SET
   8           `accounttype` = 'FU'
   9         WHERE
  10           `accounttype` = 'O'
  11       }
  12     );
  13
  14     SetVersion($DBversion);
  15     printf "Upgrade to $DBversion done (Bug 22518 - Fix accounttype 'O' to 'FU' - %d updated)\n", $rows;
  16 }