languages.pm (852d2129) languages.pm (60b96b8d)
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 448 unchanged lines hidden (view full) ---

457 else
458 {
459 return "multiwestern";
460 }
461 }
462 }
463}
464
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 448 unchanged lines hidden (view full) ---

457 else
458 {
459 return "multiwestern";
460 }
461 }
462 }
463}
464
465
466
467
468=head2 get_normalized_language ($language)
469
470 Transform "..._<language>" into "<language>".
471 The ... part, if it exists, is typically en-US.
472
473 If $language does not contain a '_' then $language is returned unmodified.
474
475=cut
476sub get_normalized_language ($)
477{
478 my ($language) = @_;
479
480 if ($language =~ /^.*?_(.*)$/)
481 {
482 return $1;
483 }
484 else
485 {
486 return $language;
487 }
488}
489
4651;
4901;