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