Lines 9711-9717
if ( CheckVersion($DBversion) ) {
Link Here
|
9711 |
$table_sth->execute; |
9711 |
$table_sth->execute; |
9712 |
my @table = $table_sth->fetchrow_array; |
9712 |
my @table = $table_sth->fetchrow_array; |
9713 |
unless ( $table[1] =~ /COLLATE=utf8mb4_unicode_ci/ ) { #catches utf8mb4 collated tables |
9713 |
unless ( $table[1] =~ /COLLATE=utf8mb4_unicode_ci/ ) { #catches utf8mb4 collated tables |
9714 |
$dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8 COLLATE utf8_unicode_ci|); |
9714 |
if ( $name eq 'marc_subfield_structure' ) { |
|
|
9715 |
$dbh->do(q| |
9716 |
ALTER TABLE marc_subfield_structure |
9717 |
MODIFY COLUMN tagfield varchar(3) COLLATE utf8_unicode_ci NOT NULL DEFAULT '', |
9718 |
MODIFY COLUMN tagsubfield varchar(1) COLLATE utf8_bin NOT NULL DEFAULT '', |
9719 |
MODIFY COLUMN liblibrarian varchar(255) COLLATE utf8_unicode_ci NOT NULL DEFAULT '', |
9720 |
MODIFY COLUMN libopac varchar(255) COLLATE utf8_unicode_ci NOT NULL DEFAULT '', |
9721 |
MODIFY COLUMN kohafield varchar(40) COLLATE utf8_unicode_ci DEFAULT NULL, |
9722 |
MODIFY COLUMN authorised_value varchar(20) COLLATE utf8_unicode_ci DEFAULT NULL, |
9723 |
MODIFY COLUMN authtypecode varchar(20) COLLATE utf8_unicode_ci DEFAULT NULL, |
9724 |
MODIFY COLUMN value_builder varchar(80) COLLATE utf8_unicode_ci DEFAULT NULL, |
9725 |
MODIFY COLUMN frameworkcode varchar(4) COLLATE utf8_unicode_ci NOT NULL DEFAULT '', |
9726 |
MODIFY COLUMN seealso varchar(1100) COLLATE utf8_unicode_ci DEFAULT NULL, |
9727 |
MODIFY COLUMN link varchar(80) COLLATE utf8_unicode_ci DEFAULT NULL |
9728 |
|); |
9729 |
} |
9730 |
else { |
9731 |
$dbh->do(qq|ALTER TABLE $name CONVERT TO CHARACTER SET utf8 COLLATE utf8_unicode_ci|); |
9732 |
} |
9715 |
} |
9733 |
} |
9716 |
} |
9734 |
} |
9717 |
$dbh->do(q|SET foreign_key_checks = 1|);; |
9735 |
$dbh->do(q|SET foreign_key_checks = 1|);; |
9718 |
- |
|
|