installer/data/mysql/atomicupdate/bug_11573.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 = 'RENT_DAILY_RENEW'
   9         WHERE
  10           accounttype = 'Rent'
  11         AND
  12           description LIKE 'Renewal of Daily Rental Item%';
  13     });
  14
  15     $dbh->do(qq{
  16         UPDATE
  17           accountlines
  18         SET
  19           accounttype = 'RENT_DAILY'
  20         WHERE
  21           accounttype = 'Rent'
  22         AND
  23           description LIKE 'Daily rental';
  24     });
  25
  26
  27     $dbh->do(qq{
  28         UPDATE
  29           accountlines
  30         SET
  31           accounttype = 'RENT_RENEW'
  32         WHERE
  33           accounttype = 'Rent'
  34         AND
  35           description LIKE 'Renewal of Rental Item%';
  36     });
  37
  38     $dbh->do(qq{
  39         UPDATE
  40           accountlines
  41         SET
  42           accounttype = 'RENT'
  43         WHERE
  44           accounttype = 'Rent';
  45     });
  46
  47     SetVersion($DBversion);
  48     print "Upgrade to $DBversion done (Bug 11573 - Fix accounttypes for 'Rent')\n";
  49 }