//________________________________--
var cPGLC_ModNm = "Rako_PGL_Client.js";
var cPGLC_cpyra = "©2011 Rako DP Enterprises";
//   
/*jsl:ignoreall*/
//________________________________--


function fRPGLp_PolyGlot_Get_Texts_Call (pParam_Array) {
//	return;
	if ( (typeof(pParam_Array) == "undefined") || (pParam_Array == "") ) {
		return; }
	if (pParam_Array.length < cRPGL_Param_Array_Size) {
		return; }
	vRPLGm_Request_Cnt = vRPLGm_Wait_Stack_Params.push (pParam_Array);
	if ((vRPLGm_Request_Cnt == 1) && (!vRPGLg_WaitingFor_Answer)) {
		fRPGLAp_PolyGlot_Get_Next_Texts(); }
}  // ________________ end of function:  fRPGLp_PolyGlot_Get_Texts_Call


/*function fRPLGm_VerifyLanguage_Id (pLang_Id)	{
	var wDefLang_Id = gRPGL_LanguagePriorityArray[1].substr(0, 2); 
	var wAvailLang_Id; 
	if (pLang_Id != "")	{
		pLang_Id = pLang_Id.toUpperCase(); 
		for (var i = 0; i <= gRPGL_AvailUILanguages_Cnt; i++)	{
			wAvailLang_Id = gRPGL_AvailUILanguagesArray[i].substr(0, 2); 
			if (pLang_Id == wAvailLang_Id)  	{
				wDefLang_Id = pLang_Id; 
				break; 
				}
		}
	}
	return wDefLang_Id; 
}  // ________________ end of function:  fRPLGm_VerifyLanguage_Id	 */

function fRPGLm_Polyglot_Selected_Language()	{
	if ((!vRPLGm_Initialising)&& (vRPLGm_LangSelect_Obj_Exists)) {
		var wSelectedLang_Ix = vRPLGm_LangSelect_Obj.selectedIndex; 
		var wSelectedLang = vRPLGm_LangSelect_Obj.options[wSelectedLang_Ix].value; 
        fRPGLm_Polyglot_Selected_Language (wSelectedLang);
		}
}  // ________________ end of function:  fRPGLm_Polyglot_Selected_Language

function fRPGLm_Extern_Selected_Language (pSelectedLanguage_IdLang)	{
	wSelectedLang = pSelectedLanguage_IdLang;
	wSelectedLang = wSelectedLang.replace(/\s/g, "");
	gRPGL_LanguagePriorityArray[cRPGL_CurrSelectedUILanguage_Ix] = wSelectedLang ; 
	var wCookieStr = gRPGL_LanguagePriorityArray.join ("|");
	fRPRIp_REU_Cookie_Write (vRPLGm_Cookie_Name, wCookieStr, 999)
	aRPGL_ReqParams_Array[cRPGL_CMN_ReqApplicSubCd_Ix] = ""; 
	aRPGL_ReqParams_Array[cRPGL_CMN_ReqLanguage_Id_Ix] = wSelectedLang; 
    vRPLGm_CurrUILanguage = wSelectedLang; 
	aRPGL_ReqParams_Array[cRPGL_CMN_ReqFuncCd_Ix] = cRPGL_ReqFuncCd_GetStdLanguageTexts; 
	fRPLGAm_SendThisRequestToHost(); 
}  // ________________ end of function:  fRPGLm_Extern_Selected_Language


function fRPGLp_ParentLanguageChanged (pParentLang)	{
	var wSelectedLang = pParentLang.replace(/\s/g, ""); 
	gRPGL_LanguagePriorityArray[cRPGL_ParentSelLanguage_Ix] = wSelectedLang ; 
	vRPLGm_CookieStr = gRPGL_LanguagePriorityArray.join ("|"); 
	fRPRIp_REU_Cookie_Write (vRPLGm_Cookie_Name, vRPLGm_CookieStr, 999)
}  // ________________ end of function:  fRPGLp_ParentLanguageChanged

//*******************************************

function fRPLGg_ReturnDataFromServer (pServerResponseText) {
	var wAnswerFromHost =  pServerResponseText.split("¤");
	var wFunctionCode = wAnswerFromHost[cRPGL_CMN_ReqFuncCd_Ix];
//fRPRIp_REU_Console_Logger(" \n ====»»» fRPLGg_ReturnDataFromServer  Req-Msg_Nr:",wAnswerFromHost[cRPGL_CMN_ReqMsgNr_Ix],"   Appl-Code=",wAnswerFromHost[cRPGL_CMN_ReqApplicCd_Ix]," \n " );
//		var wApplicCode = wAnswerFromHost[cRPGL_CMN_ReqApplicCd_Ix];
//	var wCurrLanguage = wAnswerFromHost[cRPGL_CMN_ReqLanguage_Id_Ix];
	switch (wFunctionCode) {
		case cRPGL_ReqFuncCd_GetAvailLanguageList:
			gRPGL_AvailUILanguagesList = wAnswerFromHost[cRPGL_Ret_AvailLangsList_Ix]; 
			gRPGL_AvailUILanguagesArray = gRPGL_AvailUILanguagesList.split(","); 
			gRPGL_AvailUILanguages_Cnt = gRPGL_AvailUILanguagesArray.length; 
			if (vRPLGm_LangSelect_Obj_Exists) {
				var wReqLang_Id = wAnswerFromHost[cRPGL_CMN_ReqLanguage_Id_Ix]; 
				fRPLGm_SetSelectableLanguages (wReqLang_Id); 
				}
		case cRPGL_ReqFuncCd_GetStdLanguageTexts:
			gRPGL_UITextsDirectoryList = wAnswerFromHost[cRPGL_Ret_TextsDir_Ix]; 
			gRPGL_UITextsList = wAnswerFromHost[cRPGL_Ret_TextsList_Ix]; 
			var wCurrApplicCd = wAnswerFromHost[cRPGL_CMN_ReqApplicCd_Ix];
			var wCurrTextGrp = wAnswerFromHost[cRPGL_CMN_ReqApplicSubCd_Ix];
			var wIndexedArray_Size = wAnswerFromHost[cRPGL_CMN_IndexedArray_Size_Ix];
			if (isNaN(wIndexedArray_Size)) {
				wIndexedArray_Size = 0; }
			vRPGLg_Indirect_Texts_Array.length = wIndexedArray_Size;
//fRPRIp_REU_Console_Logger("fRPLGg_ReturnDataFromServer  wIndexedArray_Size=",vRPGLg_Indirect_Texts_Array.length);
			fRPLGm_UseNewUILangTexts(wIndexedArray_Size);
			if (typeof(fRPGLg_Texts_Read) == "function") {
				fRPGLg_Texts_Read (wCurrApplicCd); }
			if (typeof(fRPGLp_ApplicSetSpecialTexts) == "function") {
				fRPGLp_ApplicSetSpecialTexts (wCurrTextGrp); }
			var wNextTextGrp = wAnswerFromHost[cRPGL_CMN_RetNextAvailSubCd_Ix]; 
			if (wNextTextGrp != "")  {
				aRPGL_ReqParams_Array[cRPGL_CMN_ReqApplicSubCd_Ix] = wNextTextGrp; 
				fRPLGAm_SendThisRequestToHost(); 
				}
//				vRPLGm_CreateTitledArray = false;
//				vRPLGm_TitledArrayLim = vRPLGm_TitledArray.length;
//				fRPGLp_ShowHide_Area_By_Language ("",wCurrLanguage);
			break; 
		default:
			fRPRIp_GEM_ErrorMsgOut (cRPGL_ErrMsgUnidentifiedFunctionCode + wServerProgID,"","",cRPLG_Own_Application_Name);
			break; 
		}
//fRPRIp_REU_Console_Logger("«««==== fRPLGg_ReturnDataFromServer  Req-Msg_Nr:",wAnswerFromHost[cRPGL_CMN_ReqMsgNr_Ix],"   Appl-Code=",wAnswerFromHost[cRPGL_CMN_ReqApplicCd_Ix]," \n " );
}  // ________________ end of function:  fRPLGg_ReturnDataFromServer


//+++++++++++++++++++++++++++++++++++++++

function fRPLGm_SetSelectableLanguages (pReqLang_Id)	{
	fRPRIp_REU_Remove_All_Children_Obj (vRPLGm_LangSelect_Obj); 
	var wAvailLangOpt; 
	var wCurrLang; 
	var wTextNode; 
	var wCurrLang_Id; 
	vRPLGm_LangSelect_Obj.onchange = fRPGLm_Polyglot_Selected_Language; 
//	vRPLGm_LangSelect_Obj.ondblclick = fRPGLm_Polyglot_Selected_Language; 
	vRPLGm_Initialising = true; 
	if (gRPGL_AvailUILanguages_Cnt > 0) {
		for (var i = 0; i < gRPGL_AvailUILanguages_Cnt; i++) {
			wAvailLangOpt = document.createElement("option"); 
			wCurrLang = gRPGL_AvailUILanguagesArray[i]; 
			wTextNode = document.createTextNode (wCurrLang); 
			wAvailLangOpt.appendChild(wTextNode); 
//			wAvailLangOpt.onclick = fRPGLm_Polyglot_Selected_Language; 
			wCurrLang_Id = wCurrLang.substr(0, 2); 
			wAvailLangOpt.value = wCurrLang_Id; 
			vRPLGm_LangSelect_Obj.appendChild(wAvailLangOpt); 
			if (wCurrLang_Id == pReqLang_Id) {
				wAvailLangOpt.selected = true; 
				vRPLGm_LangSelect_Obj.selectedIndex = i; 
				}
			}
		}
	vRPLGm_Initialising = false
}  // ________________ end of function:  fRPLGm_SetSelectableLanguages

//+++++++++++++++++++++++++++++++++++++++


function fRPLGm_UseNewUILangTexts(pIndexedArray_Size)	{
//fRPRIp_REU_Console_Logger("fRPLGm_UseNewUILangTexts  pIndexedArray_Size=",pIndexedArray_Size);
	var wPtr;
	var wLineEndChar = "µ";
	wPtr = gRPGL_UITextsDirectoryList.indexOf("µ");
	if (wPtr < 0) {
		wPtr = gRPGL_UITextsDirectoryList.indexOf(">");
		wLineEndChar = gRPGL_UITextsDirectoryList.charAt(wPtr +1);
		}
	var wUITextsDirArray = gRPGL_UITextsDirectoryList.split(wLineEndChar) ;
	var wUITextsDirItem_Cnt = wUITextsDirArray.length; 
	var wUILangTextsArray = gRPGL_UITextsList.split("µ"); 
	var wUITextsItem_Cnt = wUILangTextsArray.length; 
	var wCurrDirectoryItem; 
	var wCurrDirItemInfo; 
	var wTextNrStr;
	var wTextNrLg;
	var wTextNr;
	var wCurrTextEntry;
	var wCurrLangTextInfo; 
	var wCurrName_Undef;
	var wCurrName;
	var wCurrAccessType;
	var wCurrTargetType;
	var wCurr_Obj;
	var wCurr_Objs_Cnt; 
	var wNewText ; 
	var wSlotIndex ; 
	var wMissingFields = ""; 
	vRPLGm_LangTextArrayTxts = true; 
	for (var i = 0; i < wUITextsDirItem_Cnt; i++)	{
		wCurrDirectoryItem = wUITextsDirArray[i]; 
		wCurrName = wCurrName_Undef;
		if (wCurrDirectoryItem != "")	{
			wCurrDirItemInfo = wCurrDirectoryItem.split("|"); 
			wCurrName = wCurrDirItemInfo[cRPGL_DI_AccessName]; 
			}
	//if (wCurrName =="MSGFi_Remember_Btn") {
//	wSlotIndex = wSlotIndex; }
		if (typeof(wCurrName) != "undefined") {
			wTextNrStr = wCurrDirItemInfo[cRPGL_DI_TextNr];
			wTextNr = Number(wTextNrStr);
            wTextNrLg = wTextNrStr.length;
			switch (wTextNrLg) {
				case 1:
			        wTextNrStr = "00" + wTextNr;
					break;
				case 2:
			        wTextNrStr = "0" + wTextNr;
					break;
				}
			if ( (wTextNr <= wUITextsItem_Cnt) && (wCurrName != "") && (wCurrDirItemInfo[cRPGL_DI_UseCode] != "-") )	{
				wCurrTextEntry = wUILangTextsArray[wTextNr]; 
				wCurrLangTextInfo = wCurrTextEntry.split("|"); 
				wNewText = wCurrLangTextInfo[cRPGL_TxI_Text]; 
				if ( (wCurrLangTextInfo[cRPGL_TxI_TextNr] == wTextNrStr) && (wNewText != "") )	{
					wCurrAccessType =  wCurrDirItemInfo[cRPGL_DI_AccessType].toLowerCase();
					wCurrTargetType =  wCurrDirItemInfo[cRPGL_DI_TargetType].toLowerCase();
					switch (wCurrAccessType)	{
						case "id":
							wCurr_Obj = document.getElementById(wCurrName); 
							if (wCurr_Obj != null)		{
								fRPLGm_Insert_New_Text_Obj (wCurr_Obj, wCurrTargetType, wNewText); }
							else	{
								if ( (wCurrDirItemInfo[cRPGL_DI_UseCode] == "")|| (wCurrDestAttrib == vRPLGm_DI_PageUseCd) )	{
									wMissingFields = wMissingFields + "‰" + " Element (Txt#=" + wCurrLangTextInfo[cRPGL_TxI_TextNr] + ") with id = " + wCurrName + "  does not exist"; }
								}
							break; 
						case "name":
							wCurr_ObjColl = document.getElementsByName(wCurrName); 
							wCurr_Objs_Cnt = wCurr_ObjColl.length; 
							if (wCurr_Objs_Cnt > 0)	{
								for (var x = 0; x < wCurr_Objs_Cnt; x++)	{
									fRPLGm_Insert_New_Text_Obj (wCurr_ObjColl[x], wCurrTargetType, wNewText);
								}
							}
							else	{
								if ( (wCurrDirItemInfo[cRPGL_DI_UseCode] == "")|| (wCurrDirItemInfo[cRPGL_DI_UseCode] == vRPLGm_DI_PageUseCd) )	{
									wMissingFields = wMissingFields + "‰" + "  No Elements with name=" + wCurrName + "	 (Txt#=" + wCurrLangTextInfo[cRPGL_TxI_TextNr] + ")"; }
							}
							break; 
						case "value":
							document.getElementById(wCurrName).value = wNewText; 
							break; 
						case "index":
							if (pIndexedArray_Size > 0) {
								wSlotIndex = Number(wCurrTargetType);
								vRPGLg_Indirect_Texts_Array[wSlotIndex] = wNewText;
//fRPRIp_REU_Console_Logger("fRPLGm_UseNewUILangTexts  vRPGLg_Indirect_Texts_Array[",wSlotIndex,"]=",vRPGLg_Indirect_Texts_Array[wSlotIndex]);
								}
							break; 
						default:
							if (typeof(fuRPGL_User_UITextTypes) != "undefined")	{
								fuRPGL_User_UITextTypes (wCurrName, wCurrAccessType, wNewText); }
		}	}	}	}	}
	if (wMissingFields != "") 	{
		fRPRIp_GEM_ErrorMsgOut ("Errors found while assigning texts: ‰" + wMissingFields, "x","fRPLGm_UseNewUILangTexts",vRPLGm_Application_Name); 	}
//	if (typeof(gRPGL_UnusedSlot) == "function") {
//		gRPGL_UnusedSlot (vRPGLm_Curr_Application_Code); }
	vRPLGm_LangTextArrayTxts = false;
//		}
}  // ________________ end of function:  fRPLGm_UseNewUILangTexts


function fRPLGm_Insert_New_Text_Obj (pObjectForText, pAttrib, pNewText)	{
	var wObjectForText = pObjectForText; 
	if (typeof(pObjectForText) == "string")	 {
		wObjectForText = document.getElementById(pObjectForText); 	}
	var wNewText = pNewText; 
	if (typeof(wNewText) == "number")  	{
		wNewText = String(wNewText); 	}
	switch (pAttrib)	{
		case  "title":
/*			if (vRPLGm_CreateTitledArray) {
				vRPLGm_TitledArray.push (wObjectForText); }
			if (vRPLGm_SuppressTitles) {
				wObjectForText.UnTitle = wNewText; 
				wObjectForText.title = ""; 
				}
			else  {
				wObjectForText.UnTitle = ""; 
				wObjectForText.title = wNewText; 
				} */
			wObjectForText.title = wNewText;
			break;
		case  "node":
		case  "text":
			fRPLGp_Set_Child_Text_Obj (wObjectForText, wNewText); 
			break; 
		case  "value":
			wObjectForText.value = wNewText; 
			break; 
		default:
			wObjectForText.setAttribute (pAttrib, wNewText) ; 
			break; 
	} 
}  // ________________ end of function:  fRPLGm_Insert_New_Text_Obj (pLang_Id)

function fRPLGp_Set_Child_Text_Obj (pText_Obj, pNewText)	{
	if (typeof(pText_Obj) != "object") {
		return; }

	if ( (typeof(pNewText) != "undefined") && (pNewText != "") )	{
		var wNewText = pNewText; 
		if (typeof(wNewText) == "number") {
            wNewText = String(wNewText); }
		if (typeof(wNewText) != "string") {
			return; }
		var wNodes_Cnt = pText_Obj.childNodes.length; 
		var wCurrChildNode; 
		var wNodeType; 
		var wNodeVal; 
		var wNewNodeVal; 
		var wCurrLng; 
		var wTextInserted = false; 
		for (var x = 0; x < wNodes_Cnt; x++)	{
			wCurrChildNode = pText_Obj.childNodes[x]; 
			wNodeType = wCurrChildNode.nodeType; 
			if (wNodeType == 3)	{
				wNodeVal = wCurrChildNode.nodeValue; 
				wNewNodeVal = wNodeVal.replace(" ",""); 
				wCurrLng = wNewNodeVal.length; 
				if ( (vRPLGm_LangTextArrayTxts) || (wCurrLng > 3) )	{
					wCurrChildNode.nodeValue = wNewText; 
					wTextInserted = true; 
					break; 
			}	}	}
		if (!wTextInserted)	{
			var wTextNode = document.createTextNode (wNewText); 
			pText_Obj.appendChild(wTextNode); 
			}
	}
}  // ________________ end of function:  fRPLGp_Set_Child_Text_Obj

function fRPGLp_Set_Simple_Text_Id (pElemId, pNewText, pDisplPar)	{
	if (typeof(pElemId) != "string")  {
		return; }
	var wDisplPar = pDisplPar; 
	var wText_Obj = document.getElementById(pElemId); 
//	if ((typeof(wText_Obj) != "object") || (wText_Obj == null)) {
	if (!wText_Obj) {
		alert("Element=" + pElemId + " does not exist");
		return; }
	var wNewText = pNewText; 
	if (typeof(wNewText) == "number") {
        wNewText = String(wNewText); }
	else if (typeof(wNewText) == "undefined") {
        wNewText = "?!?"; }
	if ( (typeof(wNewText) == "undefined") || (wNewText == "") )	{
		wDisplPar = "none"; 	}
	else	{
		var wCurrLng = wText_Obj.firstChild.nodeValue.length; 
		if (wCurrLng > 0)	{
			wText_Obj.firstChild.replaceData (0, wCurrLng, wNewText); 
			wDisplPar = "block"; 
		}
	}
	if (typeof(wDisplPar) != "undefined")  	{
		wText_Obj.style.display = wDisplPar; 	}
}  // ________________ end of function:  fRPGLp_Set_Simple_Text_Id

function fRPGLp_Set_Simple_Text_Obj (pText_Obj, pNewText)	{
	if (typeof(pText_Obj) != "object")  {
		return; }
	var wDisplPar; 
	if (typeof(wNewText) == "number") {
        wNewText = String(wNewText); }
	else if (typeof(wNewText) == "undefined") {
        wNewText = "?!?"; }
	if (pNewText != "") 	{
		var wNewText = pNewText; 
		if (typeof(wNewText) == "number") {
            wNewText = String(wNewText); }
		var wCurrLng = 0; 
		var wTextNodeIx = fRPLGp_Get_First_Text_Child_Obj (pText_Obj); 
		if (wTextNodeIx > -1)	{
			var wCurrTextNode = pText_Obj.childNodes[wTextNodeIx]; 
			wCurrLng = wCurrTextNode.nodeValue.length; 
			if (wCurrLng > 0)	{
				wCurrTextNode.replaceData (0, wCurrLng, wNewText); 
				}
			}
		if (wCurrLng == 0)	{
			pText_Obj.appendChild(document.createTextNode (wNewText) ); 
			}
		}
}  // ________________ end of function:  fRPGLp_Set_Simple_Text_Obj

function fRPGLp_Get_Simple_Text_Id (pElemId)	{
	var wCurrText = ""; 
	if (pElemId != "")	{
		var wText_Obj = document.getElementById(pElemId); 
		if (wText_Obj)  	{
			wCurrText = fRPGLp_Get_Simple_Text_Obj (wText_Obj); 	}
		}
	return wCurrText; 
}  // ________________ end of function:  fRPGLp_Get_Simple_Text_Id

function fRPGLp_Get_Simple_Text_Obj (pText_Obj)	{
	if ( (typeof(pText_Obj) == "undefined") || ! (pText_Obj) )   {
		return "£"; 	   }
	var w_ObjText = ""; 
	var wTextNodeIx = fRPLGp_Get_First_Text_Child_Obj (pText_Obj); 
	if (wTextNodeIx > -1)	{
		w_ObjText = pText_Obj.childNodes[wTextNodeIx].nodeValue; }
	return w_ObjText ; 
}  // ________________ end of function:  fRPGLp_Get_Simple_Text_Obj

function fRPLGp_Get_First_Text_Child_Obj (pText_Obj)	{
 	var wNodeIx = - 1; 
	if ( (pText_Obj) && (pText_Obj.childNodes) )	{
		var wNodes_Cnt = pText_Obj.childNodes.length; 
		var wNodeType; 
		for (var i = 0; i < wNodes_Cnt; i++)	{
			wNodeType=pText_Obj.childNodes[i].nodeType; 
			if (wNodeType == 3)	{
				wNodeIx = i; 
				break; 
				}
			}
		}
	return wNodeIx; 
}  // ________________ end of function:  fRPLGp_Get_First_Text_Child_Obj

function fRPGLp_SetResetTitles (pSuppressAllow)	{
/*	vRPLGm_SuppressTitles = (pSuppressAllow == "0");
	if (vRPLGm_TitledArrayLim > 0) {
		var wCurr_Obj; 
		for (var i = 0; i < vRPLGm_TitledArrayLim; i++) {
			wCurr_Obj = vRPLGm_TitledArray[i]; 
			if (pSuppressAllow == "1") {
				wCurr_Obj.title = wCurr_Obj.Untitle; 
				wCurr_Obj.Untitle = ""; 
				}
			else {
				wCurr_Obj.Untitle = wCurr_Obj.title; 
				wCurr_Obj.title = ""; 
				}
			}
		}
*/
}  // ________________ end of function:  fRPGLp_SetResetTitles

function fRPGLp_ShowHide_Area_By_Language (pContainer,pLanguage_Id)	{
	var wContainer_Obj;
	var wArea_Objs;
	if (typeof(pContainer) == "object") {
        wContainer_Obj = pContainer; }
	if ((typeof(pContainer) == "string") && (pContainer != ""))  {
        wContainer_Obj = document.getElementById(pContainer); }
	if (typeof(wContainer_Obj) == "object") {
		wArea_Objs = wContainer_Obj.getElementsByTagName("div"); }
	else {
		wArea_Objs = document.getElementsByTagName("div"); }
	var wArea_Objs_Cnt = wArea_Objs.length;
	if (wArea_Objs_Cnt == 0) {
		return; }
	var wAreaLang;
	var wPtr; 
	var wDisplOnOff; 
	var wCurrArea_Obj; 
	var wLanguage_Id = pLanguage_Id; 
	for (var i = 0; i < wArea_Objs_Cnt; i++) {
		wCurrArea_Obj = wArea_Objs[i];
		wAreaLang = wCurrArea_Obj.lang;
   		wLangLng = wAreaLang.length;
		if (wLangLng > 0)  {
			wPtr = wAreaLang.indexOf(wLanguage_Id);
			if (wPtr == -1)   {
				wDisplOnOff = "none"; }
			else {
				wDisplOnOff = "block"; }
			wCurrArea_Obj.style.display = wDisplOnOff;
			}
		 }
}  // ________________ end of function:  pLanguage_Id

function fRPLGg_Get_Language_From_Browser() {
	var wNavUserLanguage = ""; 
	var wNavBrowserLanguage = ""; 
	var wNavLanguage = ""; 
	if (window.navigator.language) {  // Firefox and Opera
		wNavBrowserLanguage = window.navigator.language; }
	else {
		if (navigator.browserLanguage) {
			wNavBrowserLanguage = navigator.browserLanguage; }
		}
	if (navigator.userLanguage) {
		wNavUserLanguage = navigator.userLanguage; 
		}
	if (wNavUserLanguage != "")  {
		wNavLanguage = wNavUserLanguage; }
	else {
		if (wNavBrowserLanguage != "") {
			wNavLanguage = wNavBrowserLanguage; }
		}
	if (wNavLanguage.length > 2) {
		wNavLanguage = wNavLanguage.substr(0, 2); }
	wNavLanguage = wNavLanguage.toUpperCase(); 
	if (wNavLanguage == "") {
		wNavLanguage = "EN"; }
	return wNavLanguage; 

}  // ________________ end of function:  fRPLGg_Get_Language_From_Browser

//