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

(-)a/installer/data/mysql/atomicupdate/Bug13795_Remove_unused_columns.perl (-7 / +6 lines)
Lines 1-12 Link Here
1
$DBversion = 'XXX'; # will be replaced by the RM
1
$DBversion = 'XXX'; # will be replaced by the RM
2
if( CheckVersion( $DBversion ) ) {
2
if( CheckVersion( $DBversion ) ) {
3
    $dbh->do(q{
3
    if( column_exists('statistics', 'associatedborrower') ) {
4
        ALTER TABLE statistics
4
        $dbh->do(q{ ALTER TABLE statistics DROP COLUMN associatedborrower });
5
         DROP COLUMN associatedborrower
5
    }
6
         DROP COLUMN usercode
6
    if( column_exists('statistics', 'usercode') ) {
7
    });
7
        $dbh->do(q{ ALTER TABLE statistics DROP COLUMN usercode });
8
    }
8
9
9
    SetVersion($DBversion);
10
    SetVersion($DBversion);
10
11
    print "Upgrade to $DBversion done (Bug 13795 - Delete unused fields from statistics table)\n";
11
    print "Upgrade to $DBversion done (Bug 13795 - Delete unused fields from statistics table)\n";
12
}
12
}
13
- 

Return to bug 13795