@@ -, +, @@ --- .../data/mysql/atomicupdate/bug_11573.perl | 26 +++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 installer/data/mysql/atomicupdate/bug_11573.perl --- a/installer/data/mysql/atomicupdate/bug_11573.perl +++ a/installer/data/mysql/atomicupdate/bug_11573.perl @@ -0,0 +1,26 @@ +$DBversion = 'XXX'; # will be replaced by the RM +if ( CheckVersion($DBversion) ) { + + $dbh->do(qq{ + UPDATE + accountlines + SET + accounttype = 'RENT_RENEW' + WHERE + accounttype = 'Rent' + AND + description LIKE 'Renewal of Rental Item%'; + }); + + $dbh->do(qq{ + UPDATE + accountlines + SET + accounttype = 'RENT' + WHERE + accounttype = 'Rent'; + }); + + SetVersion($DBversion); + print "Upgrade to $DBversion done (Bug 11573 - Fix accounttypes for 'Rent')\n"; +} --