$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");
}
-
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'
});
},