|
Lines 47-53
BEGIN {
Link Here
|
| 47 |
&getLanguages |
47 |
&getLanguages |
| 48 |
&getAllLanguages |
48 |
&getAllLanguages |
| 49 |
); |
49 |
); |
| 50 |
@EXPORT_OK = qw(getSearchLanguages getLanguages_iso getTranslatedLanguages getAllLanguages getLanguages get_bidi regex_lang_subtags language_get_description accept_language getlanguage); |
50 |
@EXPORT_OK = qw(getSearchLanguages getLanguages_iso getTranslatedLanguages getAllLanguages getLanguages get_bidi regex_lang_subtags accept_language getlanguage); |
| 51 |
$DEBUG = 0; |
51 |
$DEBUG = 0; |
| 52 |
} |
52 |
} |
| 53 |
|
53 |
|
|
Lines 265-307
sub getLanguages {
Link Here
|
| 265 |
if ($lang) { |
265 |
if ($lang) { |
| 266 |
$current_language = regex_lang_subtags($lang)->{'language'}; |
266 |
$current_language = regex_lang_subtags($lang)->{'language'}; |
| 267 |
} |
267 |
} |
| 268 |
my $sth = $dbh->prepare('SELECT * FROM language_subtag_registry WHERE type=\'language\''); |
268 |
my $sth = $dbh->prepare('SELECT * FROM language_rfc4646_to_iso639'); |
| 269 |
$sth->execute(); |
269 |
$sth->execute(); |
| 270 |
while (my $language_subtag_registry = $sth->fetchrow_hashref) { |
270 |
while (my $language_subtag_registry = $sth->fetchrow_hashref) { |
| 271 |
my $desc; |
271 |
$language_subtag_registry->{subtag} = $language_subtag_registry->{rfc4646_subtag}; |
| 272 |
# check if language name is stored in current language |
|
|
| 273 |
my $sth4= $dbh->prepare("SELECT description FROM language_descriptions WHERE type='language' AND subtag =? AND lang = ?"); |
| 274 |
$sth4->execute($language_subtag_registry->{subtag},$current_language); |
| 275 |
while (my $language_desc = $sth4->fetchrow_hashref) { |
| 276 |
$desc=$language_desc->{description}; |
| 277 |
} |
| 278 |
my $sth2= $dbh->prepare("SELECT * FROM language_descriptions LEFT JOIN language_rfc4646_to_iso639 on language_rfc4646_to_iso639.rfc4646_subtag = language_descriptions.subtag WHERE type='language' AND subtag =? AND language_descriptions.lang = ?"); |
| 279 |
if ($desc) { |
| 280 |
$sth2->execute($language_subtag_registry->{subtag},$current_language); |
| 281 |
} |
| 282 |
else { |
| 283 |
$sth2->execute($language_subtag_registry->{subtag},$default_language); |
| 284 |
} |
| 285 |
my $sth3 = $dbh->prepare("SELECT description FROM language_descriptions WHERE type='language' AND subtag=? AND lang=?"); |
| 286 |
# add the correct description info |
| 287 |
while (my $language_descriptions = $sth2->fetchrow_hashref) { |
| 288 |
$sth3->execute($language_subtag_registry->{subtag},$language_subtag_registry->{subtag}); |
| 289 |
my $native_description; |
| 290 |
while (my $description = $sth3->fetchrow_hashref) { |
| 291 |
$native_description = $description->{description}; |
| 292 |
} |
| 293 |
|
| 294 |
# fill in the ISO6329 code |
| 295 |
$language_subtag_registry->{iso639_2_code} = $language_descriptions->{iso639_2_code}; |
| 296 |
# fill in the native description of the language, as well as the current language's translation of that if it exists |
| 297 |
if ($native_description) { |
| 298 |
$language_subtag_registry->{language_description} = $native_description; |
| 299 |
$language_subtag_registry->{language_description}.=" ($language_descriptions->{description})" if $language_descriptions->{description}; |
| 300 |
} |
| 301 |
else { |
| 302 |
$language_subtag_registry->{language_description} = $language_descriptions->{description}; |
| 303 |
} |
| 304 |
} |
| 305 |
if ( !$language_list || index ( $language_list, $language_subtag_registry->{ iso639_2_code } ) >= 0) { |
272 |
if ( !$language_list || index ( $language_list, $language_subtag_registry->{ iso639_2_code } ) >= 0) { |
| 306 |
push @languages_loop, $language_subtag_registry; |
273 |
push @languages_loop, $language_subtag_registry; |
| 307 |
} |
274 |
} |
| 308 |
- |
|
|