Attachment #88239 for bug #13795

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




$DBversion = 'XXX'; # will be replaced by the RM
if( CheckVersion( $DBversion ) ) {
    if( column_exists('statistics', 'associatedborrower') ) {
        $dbh->do(q{ ALTER TABLE statistics DROP COLUMN associatedborrower });
    }
    if( column_exists('statistics', 'usercode') ) {
        $dbh->do(q{ ALTER TABLE statistics DROP COLUMN usercode });
    }

    SetVersion($DBversion);

    print "Upgrade to $DBversion done (Bug 13795 - Delete unused fields from statistics table)\n";
}
- 

Return to bug 13795

Lines 1-12 Link Here

(-)a/installer/data/mysql/atomicupdate/Bug13795_Remove_unused_columns.perl (-7 / +6 lines)
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	-