installer/data/mysql/atomicupdate/bug_6759.perl

   1 $DBversion = 'XXX';    # will be replaced by the RM
   2 if ( CheckVersion($DBversion) ) {
   3
   4     $dbh->do(qq{
   5         UPDATE
   6           accountlines
   7         SET
   8           accounttype = 'ACCOUNT'
   9         WHERE
  10           accounttype = 'A';
  11     });
  12
  13     SetVersion($DBversion);
  14     print "Upgrade to $DBversion done (Bug 11573 - Fix accounttypes for 'A')\n";
  15 }