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; |