View | Details | Raw Unified | Return to bug 27779
Collapse All | Expand All

(-)a/installer/data/mysql/atomicupdate/bug_27779.perl (-8 lines)
Lines 1-8 Link Here
1
$DBversion = 'XXX'; # will be replaced by the RM
2
if( CheckVersion( $DBversion ) ) {
3
4
    # REFUND
5
    $dbh->do( "UPDATE account_credit_types SET description = 'Refund' WHERE code = 'REFUND'" );
6
7
    NewVersion( $DBversion, 27779, "Simplify credit descriptions");
8
}
(-)a/installer/data/mysql/atomicupdate/bug_27779.pl (-1 / +15 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
3
return {
4
    bug_number  => "27779",
5
    description => "Simplify credit descriptions",
6
    up => sub {
7
        my ($args) = @_;
8
        my ($dbh, $out) = @$args{qw(dbh out)};
9
10
        $dbh->do(q{
11
            UPDATE account_credit_types
12
            SET description = 'Refund' WHERE code = 'REFUND'
13
        });
14
    },
15
}

Return to bug 27779