Jonathan Druart
8b0a44dcb5
% perl -wc installer/data/mysql/atomicupdate/skeleton.pl
Useless use of anonymous hash ({}) in void context at installer/data/mysql/atomicupdate/skeleton.pl
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
66 lines
2.2 KiB
Perl
Executable file
66 lines
2.2 KiB
Perl
Executable file
use Modern::Perl;
|
|
|
|
return {
|
|
bug_number => "15067",
|
|
description => "Add missing languages",
|
|
up => sub {
|
|
my ($args) = @_;
|
|
my $dbh = $args->{dbh};
|
|
|
|
if( !unique_key_exists( 'language_subtag_registry', 'uniq_lang' ) ) {
|
|
$dbh->do(q{
|
|
ALTER TABLE language_subtag_registry
|
|
ADD UNIQUE KEY uniq_lang (subtag, type)
|
|
});
|
|
};
|
|
|
|
if( !unique_key_exists( 'language_descriptions', 'uniq_desc' ) ) {
|
|
$dbh->do(q{
|
|
ALTER TABLE language_descriptions
|
|
ADD UNIQUE KEY uniq_desc (subtag, type, lang)
|
|
});
|
|
};
|
|
|
|
if( !unique_key_exists( 'language_rfc4646_to_iso639', 'uniq_code' ) ) {
|
|
$dbh->do(q{
|
|
ALTER TABLE language_rfc4646_to_iso639
|
|
ADD UNIQUE KEY uniq_code (rfc4646_subtag, iso639_2_code)
|
|
});
|
|
};
|
|
|
|
$dbh->do(q{
|
|
INSERT IGNORE INTO language_subtag_registry (subtag, type, description, added)
|
|
VALUES
|
|
('et', 'language', 'Estonian', now()),
|
|
('lv', 'language', 'Latvian', now()),
|
|
('lt', 'language', 'Lithuanian', now()),
|
|
('iu', 'language', 'Inuktitut', now()),
|
|
('ik', 'language', 'Inupiaq', now())
|
|
});
|
|
|
|
$dbh->do(q{
|
|
INSERT IGNORE INTO language_descriptions (subtag, type, lang, description)
|
|
VALUES
|
|
('et', 'language', 'en', 'Estonian'),
|
|
('et', 'language', 'et', 'Eesti'),
|
|
('lv', 'language', 'en', 'Latvian'),
|
|
('lv', 'language', 'lv', 'Latvija'),
|
|
('lt', 'language', 'en', 'Lithuanian'),
|
|
('lt', 'language', 'lt', 'Lietuvių'),
|
|
('iu', 'language', 'en', 'Inuktitut'),
|
|
('iu', 'language', 'iu', 'ᐃᓄᒃᑎᑐᑦ'),
|
|
('ik', 'language', 'en', 'Inupiaq'),
|
|
('ik', 'language', 'ik', 'Iñupiaq')
|
|
});
|
|
|
|
$dbh->do(q{
|
|
INSERT IGNORE INTO language_rfc4646_to_iso639 (rfc4646_subtag, iso639_2_code)
|
|
VALUES
|
|
('et', 'est'),
|
|
('lv', 'lav'),
|
|
('lt', 'lit'),
|
|
('iu', 'iku'),
|
|
('ik', 'ipk')
|
|
});
|
|
},
|
|
}
|