Lines 9666-9672
if ( CheckVersion($DBversion) ) {
Link Here
|
9666 |
$table_sth->execute; |
9666 |
$table_sth->execute; |
9667 |
my @table = $table_sth->fetchrow_array; |
9667 |
my @table = $table_sth->fetchrow_array; |
9668 |
unless ( $table[1] =~ /COLLATE=utf8mb4_unicode_ci/ ) { #catches utf8mb4 collated tables |
9668 |
unless ( $table[1] =~ /COLLATE=utf8mb4_unicode_ci/ ) { #catches utf8mb4 collated tables |
9669 |
$dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8 COLLATE utf8_unicode_ci|); |
9669 |
$dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8 COLLATE utf8_bin|) |
9670 |
} |
9670 |
} |
9671 |
} |
9671 |
} |
9672 |
$dbh->do(q|SET foreign_key_checks = 1|);; |
9672 |
$dbh->do(q|SET foreign_key_checks = 1|);; |
9673 |
- |
|
|