installer/data/mysql/atomicupdate/bug_22564.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` = 'L',
   9           `status`      = 'REPLACED'
  10         WHERE
  11           `accounttype` = 'Rep'
  12       }
  13     );
  14
  15     SetVersion($DBversion);
  16     printf "Upgrade to $DBversion done (Bug 22564 - Fix accounttype 'O' to 'FU' - %d updated)\n", $rows;
  17 }