@@ -, +, @@ --- .../data/mysql/atomicupdate/bug_25389.perl | 20 +++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 installer/data/mysql/atomicupdate/bug_25389.perl --- a/installer/data/mysql/atomicupdate/bug_25389.perl +++ a/installer/data/mysql/atomicupdate/bug_25389.perl @@ -0,0 +1,20 @@ +$DBversion = 'XXX'; # will be replaced by the RM +if( CheckVersion( $DBversion ) ) { + + # Migrate LOST_RETURNED to LOST_FOUND + $dbh->do(qq{ + UPDATE + accountlines + SET + credit_type_code = 'LOST_FOUND' + WHERE + credit_type_code = 'LOST_RETURNED' + }); + + # Drop LOST_RETURNED credit type + $dbh->do(qq{ + DELETE FROM account_credit_types WHERE code = 'LOST_RETURNED' + }); + + NewVersion( $DBversion, 25389, "Catch errant cases of LOST_RETURNED"); +} --