@@ -, +, @@ --- installer/data/mysql/atomicupdate/bug_18177.perl | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) --- a/installer/data/mysql/atomicupdate/bug_18177.perl +++ a/installer/data/mysql/atomicupdate/bug_18177.perl @@ -3,10 +3,19 @@ if( CheckVersion( $DBversion ) ) { for my $column ( qw(othersupplier booksellerfax booksellerurl bookselleremail currency) ) { if( column_exists( 'aqbooksellers', $column ) ) { - $dbh->do(qq| - ALTER TABLE aqbooksellers - DROP COLUMN $column + my ($count) = $dbh->selectrow_array(qq| + SELECT COUNT(*) + FROM aqbooksellers + WHERE $column IS NOT NULL AND $column <> "" |); + if ( $count ) { + warn "Warning - Cannot remove column aqbooksellers.$column. At least one value exists"; + } else { + $dbh->do(qq| + ALTER TABLE aqbooksellers + DROP COLUMN $column + |); + } } } --