@@ -, +, @@ --- installer/data/mysql/atomicupdate/bug_27779.perl | 8 -------- installer/data/mysql/atomicupdate/bug_27779.pl | 15 +++++++++++++++ 2 files changed, 15 insertions(+), 8 deletions(-) delete mode 100644 installer/data/mysql/atomicupdate/bug_27779.perl create mode 100755 installer/data/mysql/atomicupdate/bug_27779.pl --- a/installer/data/mysql/atomicupdate/bug_27779.perl +++ a/installer/data/mysql/atomicupdate/bug_27779.perl @@ -1,8 +0,0 @@ -$DBversion = 'XXX'; # will be replaced by the RM -if( CheckVersion( $DBversion ) ) { - - # REFUND - $dbh->do( "UPDATE account_credit_types SET description = 'Refund' WHERE code = 'REFUND'" ); - - NewVersion( $DBversion, 27779, "Simplify credit descriptions"); -} --- a/installer/data/mysql/atomicupdate/bug_27779.pl +++ a/installer/data/mysql/atomicupdate/bug_27779.pl @@ -0,0 +1,15 @@ +use Modern::Perl; + +return { + bug_number => "27779", + description => "Simplify credit descriptions", + up => sub { + my ($args) = @_; + my ($dbh, $out) = @$args{qw(dbh out)}; + + $dbh->do(q{ + UPDATE account_credit_types + SET description = 'Refund' WHERE code = 'REFUND' + }); + }, +} --