in reply to Multilingual design
#LANGUAGE ARRAY IS DEFINED FIRST VIA PERL
#SOMETHING LIKE . . .
my %ilanguages = (
language => [ 'English','ไทย','ລາວ','Espaņol','việtnam','简体中文','繁体中文','한국어' ],
submit => [ 'Submit','กดส่ง','ກົດສົ່ງ','Someter','gửi đi','提交','提交','' ],
preferences => [ 'Preferences','การตั้งค่า','ການຕັ້ງຄ່າ','Preferencias','sở thích','喜好','喜好','' ],
reposition => [ 'Reposition','เปลี่ยนตำแหน่ง','ປ່ຽນຕໍາແຫນ່ງ','Reposicionar','tái định vị','复位','复位','' ],
);
#THEN THE ARRAY IS USED TO HASH THE REQUESTED LANGUAGE COLUMN
#SOMETHING LIKE THIS...
sub interfaceLanguage {
my $language = shift @_;
unless ($language) { $language='English' };
if ($language eq 'Lao') { $language = 'ລາວ' };
if ($language eq 'Thai') { $language = 'ไทย' };
if ($language eq 'Spanish') { $language = 'Espaņol' };
if ($language eq 'Vietnamese') { $language = 'việtnam' };
if ($language eq 'Korean') { $language = '한국어' };
if ($language eq 'Simplified Chinese') { $language = '简体中文' };
if ($language eq 'Traditional Chinese') { $language = '繁体中文' };
my $index = -1;
if ($language ne '') {
foreach my $lng (@{$ilanguages{'language'}}) {
++$index;
last if ($lng eq $language);
}
} else {
$index = 0;
}
for my $eachkey (keys %ilanguages) {
# %ilang PRE-DECLARED AS GLOBAL
$ilang{$eachkey} = $ilanguages{$eachkey}$index;
};
return;
} #END SUB interfaceLanguage
#BUTTON VALUE <input type="button" id="resetwindows" onclick="setScreen();setpos();s +etScreen();setpos();" value="$ilang{reposition}" />
Blessings,
~Polyglot~
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Multilingual design
by Bod (Parson) on Dec 11, 2022 at 23:06 UTC | |
by Polyglot (Chaplain) on Dec 12, 2022 at 03:27 UTC | |
by Bod (Parson) on Dec 12, 2022 at 23:47 UTC | |
by Polyglot (Chaplain) on Dec 13, 2022 at 02:43 UTC |