@@ -, +, @@ --- .../data/mysql/atomicupdate/bug_22564.perl | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 installer/data/mysql/atomicupdate/bug_22564.perl --- a/installer/data/mysql/atomicupdate/bug_22564.perl +++ a/installer/data/mysql/atomicupdate/bug_22564.perl @@ -0,0 +1,17 @@ +$DBversion = 'XXX'; # will be replaced by the RM +if ( CheckVersion($DBversion) ) { + + my $rows = $dbh->do( + qq{ + UPDATE `accountlines` + SET + `accounttype` = 'L', + `status` = 'REPLACED' + WHERE + `accounttype` = 'Rep' + } + ); + + SetVersion($DBversion); + printf "Upgrade to $DBversion done (Bug 22564 - Fix accounttype 'O' to 'FU' - %d updated)\n", $rows; +} --