From cfe959606e14f20816a02babf5fe6d40a32ce507 Mon Sep 17 00:00:00 2001
From: Shinjiman <shinjiman@users.mediawiki.org>
Date: Sat, 25 Jul 2009 07:23:03 +0000
Subject: [PATCH] Tweak to use lowercase on other cases, which follows r53720
 and r53722.

---
 includes/GlobalFunctions.php | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/includes/GlobalFunctions.php b/includes/GlobalFunctions.php
index c1dbb921dd..ea824f2a67 100644
--- a/includes/GlobalFunctions.php
+++ b/includes/GlobalFunctions.php
@@ -3191,23 +3191,26 @@ function wfObjectToArray( $object, $recursive = true ) {
 	return $array;
 }
 
-/* Get the normalised IETF language tag */
+/* Get the normalised IETF language tag
+ * @param $code String: The language code.
+ * @return $langCode String: The language code which complying with BCP 47 standards.
+ */
 function wfBCP47( $code ) {
 	$codeSegment = explode( '-', $code );
 	foreach ( $codeSegment as $segNo => $seg ) {
 		if ( count( $codeSegment ) > 0 ) {
 			// ISO 3166 country code
 			if ( ( strlen( $seg ) == 2 ) && ( $segNo > 0 ) )
-				$codeBCP[$segNo] = strtoupper ( $seg );
+				$codeBCP[$segNo] = strtoupper( $seg );
 			// ISO 15924 script code
 			else if ( ( strlen( $seg ) == 4 ) && ( $segNo > 0 ) )
 				$codeBCP[$segNo] = ucfirst( $seg );
+			// Use lowercase for other cases
 			else
-			// Keep casing for other cases
-				$codeBCP[$segNo] = $seg;
+				$codeBCP[$segNo] = strtolower( $seg );
 		} else {
-		// Keep casing for single segment
-			$codeBCP[$segNo] = $seg;
+		// Use lowercase for single segment
+			$codeBCP[$segNo] = strtolower( $seg );
 		}
 	}
 	$langCode = implode ( '-' , $codeBCP );
-- 
2.20.1