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

(-)a/installer/data/mysql/atomicupdate/bug-24975.perl (-7 / +14 lines)
Lines 1-5 Link Here
1
$DBversion = 'XXX';
1
use Modern::Perl;
2
if( CheckVersion( $DBversion ) ) {
2
3
return {
4
    bug_number => 24975,
5
    description => "Refactor database translations",
6
    up => sub {
7
        my ($args) = @_;
8
        my ($dbh, $out) = @$args{qw(dbh out)};
9
        dbrev($dbh);
10
    },
11
};
12
13
sub dbrev {
14
    my $dbh = shift;
3
    $dbh->do(q{
15
    $dbh->do(q{
4
        CREATE TABLE IF NOT EXISTS l10n_source (
16
        CREATE TABLE IF NOT EXISTS l10n_source (
5
            `l10n_source_id` INT(11) NOT NULL AUTO_INCREMENT,
17
            `l10n_source_id` INT(11) NOT NULL AUTO_INCREMENT,
Lines 43-50 if( CheckVersion( $DBversion ) ) { Link Here
43
55
44
        #$dbh->do('DROP TABLE localization');
56
        #$dbh->do('DROP TABLE localization');
45
    }
57
    }
46
47
48
    SetVersion( $DBversion );
49
    print "Upgrade to $DBversion done (Bug 24975 - l10n_source, l10n_target)\n";
50
}
58
}
51
- 

Return to bug 24975