@@ -, +, @@ --- installer/data/mysql/atomicupdate/bug_22518.perl | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 installer/data/mysql/atomicupdate/bug_22518.perl --- a/installer/data/mysql/atomicupdate/bug_22518.perl +++ a/installer/data/mysql/atomicupdate/bug_22518.perl @@ -0,0 +1,16 @@ +$DBversion = 'XXX'; # will be replaced by the RM +if ( CheckVersion($DBversion) ) { + + $dbh->do( + qq{ + UPDATE `accountlines` + SET + `accounttype` = 'FU' + WHERE + `accounttype` = 'O' + } + ); + + SetVersion($DBversion); + print "Upgrade to $DBversion done (Bug 22518 - Fix accounttype 'O' to 'FU')\n"; +} --