|
Lines 8577-8582
if ( CheckVersion($DBversion) ) {
Link Here
|
| 8577 |
SetVersion ($DBversion); |
8577 |
SetVersion ($DBversion); |
| 8578 |
} |
8578 |
} |
| 8579 |
|
8579 |
|
|
|
8580 |
$DBversion = "3.17.00.XXX"; |
| 8581 |
if ( CheckVersion($DBversion) ) { |
| 8582 |
$dbh->do(q|SET foreign_key_checks = 0|);; |
| 8583 |
my @tables = $dbh->tables(); |
| 8584 |
for my $table ( @tables ) { |
| 8585 |
warn $table; |
| 8586 |
$dbh->do(qq|ALTER TABLE $table CONVERT TO CHARACTER SET utf8 COLLATE utf8_unicode_ci|); |
| 8587 |
} |
| 8588 |
$dbh->do(q|SET foreign_key_checks = 1|);; |
| 8589 |
|
| 8590 |
print "Upgrade to $DBversion done (Bug 11944 - Convert DB tables to utf8_unicode_ci)\n"; |
| 8591 |
SetVersion ($DBversion); |
| 8592 |
} |
| 8593 |
|
| 8580 |
=head1 FUNCTIONS |
8594 |
=head1 FUNCTIONS |
| 8581 |
|
8595 |
|
| 8582 |
=head2 TableExists($table) |
8596 |
=head2 TableExists($table) |
| 8583 |
- |
|
|