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

(-)a/installer/data/mysql/atomicupdate/bug_13766_fix_ean.perl (-4 / +4 lines)
Lines 1-11 Link Here
1
$DBversion = "XXX";
1
$DBversion = "XXX";
2
if(CheckVersion($DBversion)) {
2
if(CheckVersion($DBversion)) {
3
    # Drop index that might exist because of bug 5337
3
    # Drop index that might exist because of bug 5337
4
    my $temp = $dbh->selectall_arrayref(q{
4
    if( index_exists('biblioitems', 'ean')) {
5
        SHOW INDEXES FROM biblioitems WHERE key_name = 'ean' });
6
    if( @$temp > 0 ) {
7
        $dbh->do(q{ ALTER TABLE biblioitems DROP INDEX ean });
5
        $dbh->do(q{ ALTER TABLE biblioitems DROP INDEX ean });
8
    }
6
    }
7
    if( index_exists('deletedbiblioitems', 'ean')) {
8
        $dbh->do(q{ ALTER TABLE deletedbiblioitems DROP INDEX ean });
9
    }
9
10
10
    # Change data type of column
11
    # Change data type of column
11
    $dbh->do(q{ ALTER TABLE biblioitems MODIFY COLUMN ean MEDIUMTEXT default NULL });
12
    $dbh->do(q{ ALTER TABLE biblioitems MODIFY COLUMN ean MEDIUMTEXT default NULL });
12
- 

Return to bug 13766