//________________________________--
var ModNm = "Rako_PRI_Reusables.js"; 
var cpyra = "©2011 Rako DP Enterprises"; 
//   
/*jsl:ignoreall*/
//________________________________--

/*const*/ var cRPRIp_REU_BrowserName_Strings = new Array ("Dummy","Microsoft Internet Explorer","Netscape","Opera","Chrome" );

var vRPRIp_REU_Browser_Switch = 0;
var vRPRIp_REU_Browser_Is_IE6 = false;

var vRPRIp_BrowserCodeName = "?";
var vRPRIp_BrowserAppName = "?";
var vRPRIp_BrowserAppVersion = "?";
var vRPRIp_BrowserUserAgent = "?";
var vRPRIp_Browser_Info = "?";

var vRPRIp_REU_Curr_Window_Available_Width = 0;
var vRPRIp_REU_Curr_Window_Available_Height = 0;

var vRPRIp_REU_ScrollBar_Width = 15;

var vPRIg_Curr_XPos;
var vPRIg_Curr_YPos;

//________________________________

function fRPRIp_REU_Console_Logger(pLogText) {
	if (typeof(console) != "undefined") {
		console.log("* " + pLogText);}
}  // ________________ end of function:  fRPRIp_REU_Console_Logger()

function fRPRIp_REU_TestFor_Browser_Type() {
	vRPRIp_REU_Browser_Switch = -1;
	var wBrowserCounts = cRPRIp_REU_BrowserName_Strings.length;
	vRPRIp_BrowserCodeName = navigator.appCodeName;
	vRPRIp_BrowserAppName = navigator.appName;
	vRPRIp_BrowserAppVersion = navigator.appVersion;
	vRPRIp_BrowserUserAgent = navigator.userAgent;
	vRPRIp_Browser_Info = vRPRIp_BrowserCodeName + " = " + vRPRIp_BrowserAppName + " v:"+ vRPRIp_BrowserAppVersion;
//fRPRIp_REU_Console_Logger("fRPRIp_REU_TestFor_Browser_Type ~ vRPRIp_Browser_Info=" + vRPRIp_Browser_Info);
//fRPRIp_REU_Console_Logger("fRPRIp_REU_TestFor_Browser_Type ~ vRPRIp_BrowserUserAgent=" + vRPRIp_BrowserUserAgent);
	var wCurrName;
	for (var i = 0; i < wBrowserCounts; i++) {
		wCurrName = cRPRIp_REU_BrowserName_Strings[i];
		if (vRPRIp_BrowserAppName.search (wCurrName) > -1) {
			vRPRIp_REU_Browser_Switch = i;
			break;
			}
		}
	if (vRPRIp_REU_Browser_Switch == 1) {
		fRPRIp_REU_Hover_Check_If_Implemented
		}
}  // ________________ end of function:  fRPRIp_REU_TestFor_Browser_Type()


function fRPRIp_REU_Hover_Check_If_Implemented() {
	if (document.body.offsetWidth) { 			// Internet Explorer
		vRPRIp_REU_Browser_Switch = 1;
		if (vRPRIp_BrowserAppVersion.search ("MSIE 6")> -1) {
			vRPRIp_REU_Browser_Is_IE6 = true;
            if (fRPRIp_IE6_Make_IE6_Hoverable) {
				fRPRIp_IE6_Make_IE6_Hoverable();}
			}
		}
}  // ________________ end of function:  fRPRIp_REU_Hover_Check_If_Implemented() {



function fRPRIp_REU_Get_Window_Size() {
	vRPRIp_REU_Curr_Window_Available_Width = fRPRIp_REU_Get_Window_Width();
	vRPRIp_REU_Curr_Window_Available_Height = fRPRIp_REU_Get_Window_Height();
}  // ________________ end of function:  fRPRIp_REU_Get_Window_Size()

function fRPRIp_REU_Get_Window_Width() {
	var wRes_Width ;
	if (window.clientWidth) {
		wRes_Width = window.clientWidth;}
	else if (window.innerWidth) {
		wRes_Width = window.innerWidth; }
	else if (document.documentElement.offsetWidth) {
		wRes_Width = document.documentElement.offsetWidth; }
	if ( (typeof(wRes_Width) == "undefined") || (wRes_Width > screen.availWidth) || (wRes_Width == 0) ) {
		wRes_Width = screen.availWidth; }
	return wRes_Width;
}  // ________________ end of function:  fRPRIp_REU_Get_Window_Width()

function fRPRIp_REU_Get_Window_Height() {
	var wRes_Height;
	if (window.clientHeight) {
		wRes_Height = window.clientHeight;}
	else if (window.innerHeight) {
		wRes_Height = window.innerHeight; }
	else if (document.documentElement.offsetHeight) {
		wRes_Height = document.documentElement.offsetHeight; }
	if ( (typeof(wRes_Height) == "undefined") || (wRes_Height  > screen.availHeight) || (wRes_Height == 0) ) {
		wRes_Height = screen.availHeight; }
	return wRes_Height ;
}  // ________________ end of function:  fRPRIp_REU_Get_Window_Height()

//________________________________--

function fRPRIp_REU_Remove_All_Children_Obj (pParent_Obj) {
	var wChildNode; 
	while (pParent_Obj.childNodes.length > 0){
		wChildNode = pParent_Obj.firstChild; 
		pParent_Obj.removeChild (wChildNode); 
		wChildNode = null; 
		delete wChildNode; 
		}
}  // ________________ end of function:  fRPRIp_REU_Remove_All_Children_Obj

function fRPRIm_REU_Get_TimeStamp_Str() {
	var wCurrDate = new Date(); 
	var wCurrYear = wCurrDate.getFullYear(); 
	var wCurrMonth = fRPRIm_REU_TwoDigits (wCurrDate.getMonth(), 1) ; 
	var wCurrDay = fRPRIm_REU_TwoDigits (wCurrDate.getDate(), 0); 
	var wCurrHours = fRPRIm_REU_TwoDigits (wCurrDate.getHours(), 0); 
	var wCurrMinutes = fRPRIm_REU_TwoDigits (wCurrDate.getMinutes(), 0); 
	var wCurrSeconds = fRPRIm_REU_TwoDigits (wCurrDate.getSeconds(), 0); 
	var wTimeStamp = wCurrYear + wCurrMonth + wCurrDay + wCurrHours + wCurrMinutes + wCurrSeconds; 
	return wTimeStamp; 
}  // ________________ end of function:  fRPRIm_REU_Get_TimeStamp_Str

function fRPRIm_REU_TwoDigits (pNumber, pToAdd) {
	var wNumber = pNumber; 
	if (typeof(wNumber) == "string") {
        wNumber = Number(wNumber); }
    wNumber = 100 + wNumber + pToAdd; 
    wNumber = String(wNumber); 
    wNumber = wNumber.slice(1); 
	return wNumber; 
}  // ________________ end of function:  fRPRIm_REU_TwoDigits

function fRPRIm_REU_Remove_Item_From_Array (pArray, pItemNr) {
	var wStartArray = pArray.slice(0, pItemNr); 
	var wRestArray = pArray.slice(pItemNr + 1); 
	var wNewArray = wStartArray.concat (wRestArray); 
	return wNewArray; 
}  // ________________ end of function:  fRPRIm_REU_Remove_Item_From_Array (pArray, pItemNr) {

//**************** __________________________________________--

function fRPRIp_REU_Get_ScrollTop() {
	var wScrollTop = document.body.scrollTop;
	if (typeof(wScrollTop) == "undefined"){
		wScrollTop = 0; }
	var wScrollTop2 = window.pageYOffset;
	if (typeof(wScrollTop2) == "undefined") {
		wScrollTop2 = 0; }
	wScrollTop = Math.max(wScrollTop, wScrollTop2);
	return wScrollTop;
}  // ________________ end of function:  fRPRIp_REU_Get_ScrollTop

function fRPRIp_REU_Get_Scroll_Left() {
   	var wScroll_Left = document.body.Scroll_Left;
	if (typeof(wScroll_Left) == "undefined") {
		wScroll_Left = 0; }
	var wScroll_Left2 = window.pageXOffset;
	if (typeof(wScroll_Left2) == "undefined") {
		wScrollTop2 = 0; }
	wScroll_Left = Math.max(wScroll_Left, wScroll_Left2);
	return wScroll_Left
}  // ________________ end of function:  fRPRIp_REU_Get_Scroll_Left

//**************** __________________________________________--

function fRPRIp_REU_PositTo_Id (pElemID) {
	if ( (typeof(pElemID)!= "undefined") && (pElemID != "") ) {
		var wElem_Obj = document.getElementById(pElemID);
		return fRPRIp_REU_PositTo_Obj (wElem_Obj);
		}
	else  {
		return 0; }
}  // ________________ end of function:  fRPRIp_REU_PositTo_Id (_AreaID) )

function fRPRIp_REU_PositTo_Obj (pElem_Obj) {
	if (typeof(pElem_Obj) == "object") {
		var wOffsTop = pElem_Obj.offsetTop;
		var wOffsLeft = pElem_Obj.offsetLeft;
		window.scrollTo (0,wOffsTop);
//		pElem_Obj.scrollIntoView (true);
		return pElem_Obj.offsetTop;
		}  //  fRPRIp_REU_PositTo_Id (_AreaID) {
	else   {
		return 0; }
}  // ________________ end of function:  fRPRIp_REU_PositTo_Obj (_AreaID) )


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

function fRPRIp_REU_Get_KeyCode_Value (pKeyEvent)	{
	var wKeyCodeVal = 0; 
	var wCharCodeVal = 0; 
	var wRetCodeVal = 0; 
	if (!pKeyEvent)  	{
		pKeyEvent = window.event; 	}
	if (pKeyEvent.charCode)	{
		wCharCodeVal = pKeyEvent.charCode; }
	if (pKeyEvent.keyCode)	{
		wKeyCodeVal = pKeyEvent.keyCode; }
	if (pKeyEvent.which)	{
		wKeyCodeVal = pKeyEvent.keyCode; }
	if ( (wCharCodeVal  == 0) && (wKeyCodeVal > 0) ) {
		wRetCodeVal = 0 - wKeyCodeVal; }
	else {
		wRetCodeVal = wCharCodeVal; }

	if (wRetCodeVal == 160) {
		wRetCodeVal = 32; }

	if ( (wRetCodeVal > 0) && (wRetCodeVal < 32) ){
		wRetCodeVal = 0 - wRetCodeVal; }
/*	if (pKeyEvent.which)	{
		wKeyCodeVal = pKeyEvent.keyCode; 
		if ( (wCharCodeVal  == 0) && (wKeyCodeVal > 0) ) {
			wKeyCodeVal = 0 - wKeyCodeVal; }
		else {
			wKeyCodeVal = wCharCodeVal; }
		}
	else 	{
			}
		} */
	return  wRetCodeVal; 
}  // ________________ end of function:  fRPRIp_REU_Get_KeyCode_Value


var cRPRI_ReservedChars ="|©®µ™‰†‡¤\§$"; 
var cRPRI_ReservedChars2 ="@; ="; 

function fRPRIp_REU_Test_Input_Char (pKeyCodeVal, pIllegType)	{
	var wInpChar = String.fromCharCode (pKeyCodeVal); 
	var p = cRPRI_ReservedChars.indexOf(wInpChar); 
	if (p > -1)  {
		 wInpChar = ""; }
	else {
		switch (pIllegType) {
			case 1:
				p = cRPRI_ReservedChars2.indexOf(wInpChar); 
				if (p > -1)  {
					 wInpChar = ""; }
				break
			case 2:
				p = cRPRI_ReservedChars2.indexOf(wInpChar); 
				if (p > 0)  {
					 wInpChar = ""; }
				break
			case 3:
				break
			}
		}
	return  wInpChar; 
}  // ________________ end of function:  fRPRIp_REU_Get_KeyCode_Value

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



function fRPRIp_REU_HighlightMe (pField_Id)	{
	fRPRIp_REU_SetMyBG (pField_Id, "#ffff00") ; 
}  // ________________ end of function:  fRPRIp_REU_HighlightMe

function fRPRIp_REU_ResetMyBG (pField_Id)	{
	fRPRIp_REU_SetMyBG (pField_Id, "#ffffee") ; 
}  // ________________ end of function:  fRPRIp_REU_ResetMyBG

function fRPRIp_REU_SetMyBG (pField_Id, pBGColour)	{
	document.getElementById(pField_Id).style.backgroundColor = pBGColour; 
}  // ________________ end of function:  fRPRIp_REU_SetMyBG


function fRPRIp_REU_HideMe (pIdToHide)	{
	document.getElementById(pIdToHide).style.display = "none"; 
}  // ________________ end of function:  fRPRIp_REU_HideMe

function fRPRIp_REU_Set_Radio_Or_ChkBox_By_Id (pChkBoxId) {
	var wChkBox_Obj = document.getElementById(pChkBoxId); 
	var wChkBoxTagName = wChkBox_Obj.tagName; 
	wChkBoxTagName = wChkBoxTagName.toLowerCase()
	if (wChkBoxTagName == "input") {
		var wChkBox_ObjClassName = wChkBox_Obj.className; 
	 	if ( (wChkBox_ObjClassName.slice(-3) != "Dis") || (wChkBox_ObjClassName.slice(-3) != "dis") ) {
			wChkBox_Obj.click(); }
		}
}  // ________________ end of function:  fRPRIp_REU_Set_Radio_Or_ChkBox_By_Id

function fRPRIp_REU_Check_If_Selected (pGrp_Obj, pGroupName) {
	var wRadioCells = pGrp_Obj.getElementsByTagName("input"); 
	var wCheckedIndex = -1; 
	for (var i = 0; i <  wRadioCells.length; i++) {
		if (wRadioCells[i].checked)	  {
			wCheckedIndex = i; 
			break; 
			}
		}
	if (wCheckedIndex < 0) {
		fRPRIp_GEM_ErrorMsgOut (cRDRI_NoActionSelectedIx, "", pGrp_Obj.title ); }   //*****
	return wCheckedIndex; 
}  // ________________ end of function:  fRPRIp_REU_Check_If_Selected

function fRPRIp_REU_Toggle_ClapUp_State (pMain_AreaId, pToHideId) {
	var wMain_Area_Obj = document.getElementById(pMain_AreaId)
	if (typeof(wMain_Area_Obj.ClapUp) == "undefined") {
		wMain_Area_Obj.ClapUp = 1; }
	else {
		if (isNaN(wMain_Area_Obj.ClapUp) ) {
			wMain_Area_Obj.ClapUp = Number(wMain_Area_Obj.ClapUp); }
		}
	wMain_Area_Obj.ClapUp = 1 - wMain_Area_Obj.ClapUp ; 
	fRPRIp_REU_Set_Chosen_ClapUp_State_Opt (pMain_AreaId, pToHideId); 
    fmRPRS_ProjectSpecialClapUpDown (pMain_AreaId, pToHideId); 
}  // ________________ end of function:  fRPRIp_REU_Toggle_ClapUp_State

function fRPRIp_REU_Set_Chosen_ClapUp_State_Opt (pMain_AreaId, pToHideId) {
	var wNewHight; 
	var wMain_Area_Obj = document.getElementById(pMain_AreaId)
	var wIcon_Id = pMain_AreaId + "_ClapUpDownIco"; 
	var wIcon_Obj = document.getElementById(wIcon_Id)
	var wNewIcon; 
	var wSub_AreaDispl; 
	if (wMain_Area_Obj.ClapUp == 0) {
		wNewIcon = cRDRI_ClapDown_Img_Name; 
		wNewHight = wMain_Area_Obj.ClapUp_Height; 
		wMain_Area_Obj.ClapDown_Height = wMain_Area_Obj.offsetHeight - 6; 
		wSub_AreaDispl = "none"; 
		}
	else {
		wNewIcon = cRDRI_ClapUp_Img_Name; 
		wNewHight = wMain_Area_Obj.ClapDown_Height; 
		wSub_AreaDispl = "block"; 
		}
	wIcon_Obj.src = wNewIcon; 
	if (typeof(wNewHight) == "number") {
		wMain_Area_Obj.style.height = wNewHight + "px"; }
	document.getElementById(pToHideId).style.display = wSub_AreaDispl; 
}  // ________________ end of function:  fRPRIp_REU_Set_Chosen_ClapUp_State_Opt

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



var cRPRI_PathAndExpiryTxt="; path=/; expires="; 

function fRPRIp_REU_Get_Cookie_Info (pCookieName) {
	var wCookieVal = ""; 
	var wCookieName = pCookieName; 
	var p = wCookieName.indexOf("="); 
	if (p > -1) {
		wCookieName = wCookieName.substr(0, p-1); }
	var wLocalStorageAvail = false; 
	var wCookies_Cnt = 0; 
	if (typeof(localStorage) == "object") {
        wLocalStorageAvail = true; 
        wCookies_Cnt = localStorage.length; 
		if (wCookies_Cnt > 0) {
		    wCookieVal = localStorage.getItem (wCookieName); 
			if ( (wCookieVal == null) || (typeof(wCookieVal) == "undefined") ) {
				wCookieVal = ""; }
			}
		}
	else {
		if (navigator.cookieEnabled == true) {
			if (document.cookie) {
				var wCookieStr = document.cookie; 
				if (wCookieStr != "") {
					var wCookiesArray = wCookieStr.split("; "); 
					var wCookies_Cnt = wCookiesArray.length; 
					var wCookieParts; 
					for (var i = 0; i < wCookies_Cnt; i++) {
						wCookieParts = wCookiesArray[i].split("="); 
						if (wCookieParts[0] == wCookieName) {
							wCookieVal = fRPRIm_REU_Cookie_Convert_Spec_Asci_2byteChars_To_UTF8 (wCookieParts[1]); 
							break; 
							}
						}
					}
				}
			}
		}
	p = wCookieVal.indexOf("~"); 
	if (p > -1) {
        wCookieVal = ""; 
		}
 	return wCookieVal; 
}  // ________________ end of function:  fRPRIp_REU_Get_Cookie_Info


function fRPRIp_REU_Adjust_InputField_Width (pInputInfo) {
	if ( (typeof(pInputInfo) == "undefined") || (pInputInfo == "") ) {
		return; }
	var wInputInfoArray = pInputInfo.split("|"); 
	var wRow_Obj = document.getElementById(wInputInfoArray[0]); 
	var wCurrDispl = wRow_Obj.style.display; 
	wRow_Obj.style.display = "block"; 
	var wFields_Cnt = wInputInfoArray.length; 
	var wTempArray; 
	var wCell_Width; 
	var wInput_Obj; 
	var wInput_Width; 
	var wInputSize; 
	for (var i = 1; i < wFields_Cnt; i++) {
		if (wInputInfoArray[i] != "") {
			wTempArray = wInputInfoArray[i].split(","); 
			wInput_Obj = document.getElementById(wTempArray[0]); 
			wCell_Width = Number(wTempArray[1]); 
			wInput_Width = wInput_Obj.offsetWidth; 
			if (wInput_Width == 0) {
				return; }
			wInputSize = wInput_Obj.size; 
			while (wInput_Width < wCell_Width) {
				wInputSize = wInputSize + 1; 
				wInput_Obj.size = wInputSize; 
				wInput_Width = wInput_Obj.offsetWidth; 
				}
			while (wInput_Width > wCell_Width) {
				wInputSize = wInputSize - 1; 
				wInput_Obj.size = wInputSize; 
				wInput_Width = wInput_Obj.offsetWidth; 
				}
		}   }
	wRow_Obj.style.display = wCurrDispl; 
}  // ________________ end of function:  fRPRIp_REU_Adjust_InputField_Width

function fRPRIp_REU_SetText_Area_Width (pCellsId, pText_Area_Obj) {
	var wCells_Width = document.getElementById(pCellsId).offsetWidth - 2; 
	var wCols = pText_Area_Obj.cols; 
	var wText_Area_Width = pText_Area_Obj.offsetWidth; 
	while (wText_Area_Width < wCells_Width) {
		wCols = wCols + 1; 
		pText_Area_Obj.cols = wCols; 
		wText_Area_Width = pText_Area_Obj.offsetWidth; 
		}
	if (wText_Area_Width > wCells_Width) {
		wCols = wCols - 1; 
		pText_Area_Obj.cols = wCols; 
		}
}  // ________________ end of function:  fRPRIp_REU_SetText_Area_Width


function fRPRIp_REU_Cookie_Write (pCookieName, pCookieVal, pDaysToKeep) {
    var wCookieVal = pCookieVal;
	if (typeof(wCookieVal) == "number") {
		wCookieVal = String(wCookieVal); }
	else {
    	wCookieVal = pCookieVal.replace("~","_");}
	if (typeof(localStorage) == "object") {
		var wCookieName = pCookieName.replace(/=/g, ""); 
		localStorage.setItem (pCookieName, wCookieVal); 
		}
	else {
		var p = wCookieName.indexOf("="); 
		if (p == -1) {
			wCookieName = pCookieName + "="; }
		var wDaysToKeep = 999; 
		if (typeof(wCookieVal) == "string") {
			wCookieVal = fRPRIm_REU_Cookie_Convert_UTF8_To_Spec_Asci_2byteChars (wCookieVal); 
		if (typeof(pDaysToKeep) != "undefined") {
			wDaysToKeep = pDaysToKeep; }
			} //  	if (typeof(wCookieVal) == "string") {
		var wCookieStr = wCookieName + wCookieVal + cRPRI_PathAndExpiryTxt ; 
		if (navigator.cookieEnabled == true) {
			if (wDaysToKeep > 0) {
				var wExpDate = new Date(); 
				var wLimit = wExpDate.getTime() + (wDaysToKeep * 24 * 60 * 60 * 1000); 
				wExpDate.setTime (wLimit); 
				wCookieStr = wCookieStr + wExpDate.toGMTString(); 
			}
	//		fRPRIp_REU_Cookie_Delete (pCookieName); 
			document.cookie = wCookieStr; 
			}
		}
}  // ________________ end of function:  fRPRIp_REU_Get_Cookie_Info

function fRPRIp_REU_Cookie_Delete (pCookieName) {
	if (typeof(localStorage) == "object") {
		localStorage.removeItem (pCookieName); }
	else {
		var wCookieStr = (pCookieName + "=" + cRPRI_PathAndExpiryTxt + "Thu, 01 - Jan - 70 00:00:01 GMT"); 
		document.cookie = wCookieStr; 
		}
}  // ________________ end of function:  fRPRIp_REU_Cookie_Delete

function fRPRIm_REU_Cookie_Convert_UTF8_To_Spec_Asci_2byteChars (pCookieVal) {
	var wCookieVal = pCookieVal.replace(/=/g, "°"); 
	wCookieVal = wCookieVal.replace(/; /g, "ˇ"); 
	wCookieVal = wCookieVal.replace(/ő/g, "öö"); 
	wCookieVal = wCookieVal.replace(/Ő/g, "ÖÖ"); 
	wCookieVal = wCookieVal.replace(/ű/g, "üü"); 
	wCookieVal = wCookieVal.replace(/Ű/g, "ÜÜ"); 
	return  wCookieVal;
}  // ________________ end of function:  fRPRIm_REU_Cookie_Convert_UTF8_To_Spec_Asci_2byteChars

function fRPRIm_REU_Cookie_Convert_Spec_Asci_2byteChars_To_UTF8 (pCookieVal) {
	var wCookieVal = pCookieVal.replace(/°/g, "="); 
	wCookieVal = wCookieVal.replace(/ˇ/g, "; "); 
	wCookieVal = wCookieVal.replace(/öö/g, "ő"); 
	wCookieVal = wCookieVal.replace(/ÖÖ/g, "Ő"); 
	wCookieVal = wCookieVal.replace(/üü/g, "ű"); 
	wCookieVal = wCookieVal.replace(/ÜÜ/g, "Ű"); 
	return  wCookieVal;
}  // ________________ end of function:  fRPRIm_REU_Cookie_Convert_Spec_Asci_2byteChars_To_UTF8

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

function fRPRIp_REU_Get_ScrollBar_Width() {		// adapted from Author: Fleegix
	var wOuter_Area_Obj = null; 
	var wInner_Area_Obj = null; 
	var wWidthWithoutScroll = 0; 
	var wWidthWithScroll = 0; 

	wOuter_Area_Obj = document.createElement('div'); 
	document.body.appendChild(wOuter_Area_Obj); 
	wOuter_Area_Obj.style.position = 'absolute'; 
	wOuter_Area_Obj.style.top = '-2000px'; 
	wOuter_Area_Obj.style.left = '-2000px'; 
	wOuter_Area_Obj.style.width = '100px'; 
	wOuter_Area_Obj.style.height = '50px'; 
	wOuter_Area_Obj.style.overflow = 'hidden'; 

	wInner_Area_Obj = document.createElement('div'); 
	wInner_Area_Obj.style.width = '100%'; 
	wInner_Area_Obj.style.height = '200px'; 

	wOuter_Area_Obj.appendChild(wInner_Area_Obj); 
	wWidthWithoutScroll = wInner_Area_Obj.offsetWidth; 
	wOuter_Area_Obj.style.overflow = 'auto'; 
	wWidthWithScroll = wInner_Area_Obj.offsetWidth; 
	document.body.removeChild (document.body.lastChild); 
	wOuter_Area_Obj = null; 
	wInner_Area_Obj = null; 
	vRPRIp_REU_ScrollBar_Width = (wWidthWithoutScroll - wWidthWithScroll);
}  // ________________ end of function:  fRPRIp_REU_Get_ScrollBar_Width

function fRPRIp_REU_Maximise_Browser_Window (pRatio) {
	var wRatio = pRatio; 
	if (typeof(wRatio) != "number") {
        wRatio = 100; }
	var wAvailWidth = screen.availWidth; 
	var wBody_Objs = document.getElementsByTagName("body");
	var wBody_Width = wBody_Objs[0].offsetWidth;
	var wAvail_Height = screen.availHeight;
	var wReq_Width = Math.floor(wAvailWidth / 100 * wRatio); 
	var wReq_Height = Math.floor(wAvail_Height / 100 * wRatio); 
	window.moveTo (0, 0); 
	window.resizeTo (wReq_Width, wReq_Height); 
	var wBody_Width2 = wBody_Objs[0].offsetWidth;
/*	top.window.moveTo(0,0);
	if (document.all) {
		top.window.resizeTo(screen.availWidth,screen.availHeight);
		}
	else if (document.layers||document.getElementById) {
		if (top.window.outerHeight<screen.availHeight||top.window.outerWidth<screen.availWidth){
			top.window.outerHeight = screen.availHeight;
			top.window.outerWidth = screen.availWidth;
		}
	}*/
/*	if ( vRPRIp_REU_Browser_Switch == 1) {
		var wBody_Width = -1; 
		var wBody_Objs = document.getElementsByTagName("body"); 
		if (wBody_Objs) {
			wBody_Width = wBody_Objs[0].offsetWidth; }
		alert ("fRPRIp_REU_Maximise_Browser_Window \n wAvailWidth="+wAvailWidth + "\n wReq_Width="+wReq_Width+ "\n wBody_Width="+wBody_Width); }*/
/*
	var wMaximizeBrowser = true;
	var wBody_Objs = document.getElementsByTagName("body"); 
	var wBody_Width = wBody_Objs[0].offsetWidth; 
	var wBody_Height = wBody_Objs[0].offsetHeight; 
	var wWindowOut_Width = window.outerWidth; 
	var wWindowOut_Height = window.outerHeight; 
	var wWindowIn_Width = window.innerWidth; 
	var wWindowIn_Height = window.innerHeight; 
	var wAvailWidth = screen.availWidth; 
	var wAvail_Height = screen.availHeight; 
	if (window.outerWidth) {
		wMaximizeBrowser = false; 
		var HT = (window.outerHeight< screen.availHeight); 
		var WT = (window.outerWidth < screen.availWidth); 
		var ScX = window.screenX; 
		var ScY = window.screenY; 
		var SX = (ScX != 0) && ! ( (ScX < 0) && ( (ScX + window.outerWidth )>= screen.availWidth) ); 
		var SY = (ScY != 0) && ! ( (ScY < 0) && ( (ScY + window.outerHeight )>= screen.availHeight) ); 
		wMaximizeBrowser = (HT || WT || SX || SY); // true; 
		}
	if (wMaximizeBrowser) {
		window.resizeTo (screen.availWidth, screen.availHeight); 
		window.moveTo (0, 0); 
		}
	if (window.innerWidth) {
		wAvailWidth = window.innerWidth; 
		wAvail_Height = window.innerHeight; 
		}
	else {
		wAvailWidth = screen.availWidth; 
		wAvail_Height = screen.availHeight; 
		 }
	wBody_Objs[0].style.width = wAvailWidth + "px"; 
	wBody_Objs[0].style.height = wAvail_Height + "px";
 */
}  // ________________ end of function:  fRPRIp_REU_Maximise_Browser_Window


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

function fRPRIp_REU_Get_Clicked_Elem_Id (pEvent) {
	var wEvent = pEvent || window.event; 
    fRPRIp_REU_Get_Clicked_Elem_Obj (wEvent);
	return wClickedOn_Obj.id;
}  // ________________ end of function:  fRPRIp_REU_Get_Clicked_Elem_Obj

function fRPRIp_REU_Get_Clicked_Elem_Obj (pEvent) {
	var wEvent = pEvent || window.event;
	var wClickedOn_Obj = document.elementFromPoint (wEvent.clientX, wEvent.clientY);
	if (!wClickedOn_Obj) {
		wClickedOn_Obj = document.elementFromPoint (wEvent.pageX, wEvent.pageY); }
	if (wClickedOn_Obj.nodeType == 3) { // Opera
		wClickedOn_Obj = wClickedOn_Obj.parentNode; }
	return wClickedOn_Obj;
}  // ________________ end of function:  fRPRIp_REU_Get_Clicked_Elem_Obj

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

function fRPRIp_REU_Get_Curr_XY (event) {
	var wCurrEvent = event || window.event;
	if (typeof(wCurrEvent.clientX) == "number") {
		vPRIg_Curr_XPos = wCurrEvent.clientX ;
		vPRIg_Curr_YPos = wCurrEvent.clientY;
		}
	else {
		vPRIg_Curr_XPos = wCurrEvent.pageX;
		vPRIg_Curr_YPos = wCurrEvent.pageY;
		 }
	if (window != top) {
		if (parent.fRPRIp_REU_Get_Curr_XY) {
			parent.fRPRIp_REU_Get_Curr_XY (wCurrEvent); }
		}
}  // ________________ end of function:  fRPRIp_REU_Get_Curr_XY (event)

function fRPRIp_REU_Get_Curr_XY_Obj (event) {
	var wCurrEvent = event || window.event;
	fRPRIp_REU_Get_Curr_XY (wCurrEvent);
	return  document.elementFromPoint (vPRIg_Curr_XPos, vPRIg_Curr_YPos);
}  // ________________ end of function:  fRPRIp_REU_Get_Curr_XY (event)

function fRPRIp_REU_Get_Curr_ScreenXY (event) {
	var wCurrEvent = event || window.event;
	vPRIg_Curr_XPos = wCurrEvent.screenX;
	vPRIg_Curr_YPos = wCurrEvent.screenY;
	if (parent.vPRIg_Curr_XPos) {
		parent.vPRIg_Curr_XPos = vPRIg_Curr_XPos;
		parent.vPRIg_Curr_YPos = vPRIg_Curr_YPos;
		}
}  // ________________ end of function:  fRPRIp_REU_Get_Curr_ScreenXY (event)

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

function fRPRIp_REU_Get_StyleAttrib_Value (pElem_Obj, pStyleAttrib) {
	var wStyleList = pElem_Obj.getAttribute ("style");
	var wAttribVal;
	var wPtr = wStyleList.indexOf(pStyleAttrib);
	if (wPtr > -1 )  {
		wPtr = wPtr + pStyleAttrib.length + 2;
		wStyleList = wStyleList.slice(wPtr);
		wPtr = wStyleList.indexOf("; ") ;
		wStyleList = wStyleList.substr(0, wPtr);
		wPtr = wStyleList.indexOf("px");
		if (wPtr == -1 )  {
			wPtr = wStyleList.indexOf("%"); }
   		if (wPtr > -1 )  {
  			wAttribVal = wStyleList.substr(0, wPtr);
			wAttribVal = Number(wAttribVal);
			}
 		}
	return wAttribVal;
}  // ________________ end of function:  fRPRIp_REU_Get_StyleAttrib_Value



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

function fRPRIp_REU_Normalise_Sort_Name (pInName) {
	var wOutName = ""; 
	if ( (typeof(pInName) == "undefined") || (pInName == "") )   {
		return wOutName; 	}
	var p = wOutName.indexOf(" ("); 
	if (p > 0) {
        wOutName = wOutName.substr(0, p - 1); }
	var p = wOutName.indexOf("!"); 
	if (p > 0) {
        var wOutName1 = wOutName.slice( p + 1); 
        wOutName = wOutName.substr(0, p - 1); 
		p = wOutName1.indexOf("!"); 
		if (p > -1) {
	        wOutName = wOutName + wOutName1.slice( p + 1); }; 
		}
	wOutName = wOutName.replace(/\s/g, " "); 
	wOutName = pInName.replace(/, /g, ""); 
	wOutName = wOutName.replace(/; /g, ""); 
	wOutName = wOutName.replace(/  /g, " "); 
	wOutName = wOutName.toLowerCase(); 
	var wNameEnd = wOutName.length - 1; 
	if (wOutName.charAt(wNameEnd) == " ") {
		for (var i = wNameEnd - 1; i < 2; i--) {
			if (wOutName.charAt(i) != " ")	{
				break; 	}
			}
		wOutName = wOutName.substring(0, i + 1); 
		}
	wOutName = wOutName.replace(/á/g, "a"); 
	wOutName = wOutName.replace(/ä/g, "a"); 
	wOutName = wOutName.replace(/é/g, "e"); 
//	wOutName = wOutName.replace(/cz/g, "µ"); 
//	wOutName = wOutName.replace(/c/g, "cc"); 
//	wOutName = wOutName.replace(/µ/g, "cz"); 
	wOutName = wOutName.replace(/í/g, "i"); 
	wOutName = wOutName.replace(/o/g, "oo"); 
	wOutName = wOutName.replace(/ó/g, "oo"); 
	wOutName = wOutName.replace(/ö/g, "oö"); 
	wOutName = wOutName.replace(/ő/g, "oö"); 
	wOutName = wOutName.replace(/u/g, "uu"); 
	wOutName = wOutName.replace(/ú/g, "uu"); 
	wOutName = wOutName.replace(/ü/g, "uü"); 
	wOutName = wOutName.replace(/ű/g, "uü"); 
	return wOutName; 
}  // ________________ end of function:  fRPRIp_REU_Normalise_Sort_Name (

function fRPRIp_REU_Normalise_Sort_ImgNr (pPicNr) {
	var wPicNr = ""; 
	if ( (typeof(pPicNr) == "undefined") || (pPicNr == "") )   {
		return wPicNr; 	}
	var wPicNr = pPicNr; 
	if (typeof(wPicNr) == "string") {
        wPicNr = Number(wPicNr); }
    wPicNr = 10000 + wPicNr; 
    wPicNr = String(wPicNr); 
    wPicNr = wPicNr.slice(1); 
	 return wPicNr; 
}  // ________________ end of function:  fRPRIp_REU_Normalise_Sort_ImgNr (pNumber)

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

function fRPRIp_REU_Array_True_Sort (pArray, pSepChar) {
	var wArrayList = pArray.join (pSepChar); 
	wArrayList = wArrayList.replace(/a/g, "aa"); 
	wArrayList = wArrayList.replace(/á/g, "aá"); 
	wArrayList = wArrayList.replace(/ä/g, "aä"); 
	wArrayList = wArrayList.replace(/A/g, "AA"); 
	wArrayList = wArrayList.replace(/Á/g, "AÁ"); 
	wArrayList = wArrayList.replace(/Ä/g, "AÄ"); 
	wArrayList = wArrayList.replace(/e/g, "ee"); 
	wArrayList = wArrayList.replace(/é/g, "eé"); 
	wArrayList = wArrayList.replace(/E/g, "EE"); 
	wArrayList = wArrayList.replace(/É/g, "EÉ"); 
	wArrayList = wArrayList.replace(/c/g, "cc"); 
	wArrayList = wArrayList.replace(/C/g, "CC"); 
	wArrayList = wArrayList.replace(/ccs/g, "cs"); 
	wArrayList = wArrayList.replace(/CCs/g, "Cs"); 
	wArrayList = wArrayList.replace(/ccz/g, "cz"); 
	wArrayList = wArrayList.replace(/CCz/g, "Cz"); 
	wArrayList = wArrayList.replace(/i/g, "ii"); 
	wArrayList = wArrayList.replace(/í/g, "ií"); 
	wArrayList = wArrayList.replace(/I/g, "II"); 
	wArrayList = wArrayList.replace(/Í/g, "IÍ"); 
	wArrayList = wArrayList.replace(/o/g, "oo"); 
	wArrayList = wArrayList.replace(/ó/g, "oó"); 
	wArrayList = wArrayList.replace(/ö/g, "oö"); 
	wArrayList = wArrayList.replace(/ő/g, "oő"); 
	wArrayList = wArrayList.replace(/O/g, "OO"); 
	wArrayList = wArrayList.replace(/Ó/g, "OÓ"); 
	wArrayList = wArrayList.replace(/Ö/g, "OÖ"); 
	wArrayList = wArrayList.replace(/Ő/g, "OŐ"); 
	wArrayList = wArrayList.replace(/u/g, "uu"); 
	wArrayList = wArrayList.replace(/ú/g, "uú"); 
	wArrayList = wArrayList.replace(/ü/g, "uü"); 
	wArrayList = wArrayList.replace(/ű/g, "uű"); 
	wArrayList = wArrayList.replace(/U/g, "UU"); 
	wArrayList = wArrayList.replace(/Ú/g, "UÚ"); 
	wArrayList = wArrayList.replace(/Ü/g, "UÜ"); 
	wArrayList = wArrayList.replace(/Ű/g, "UŰ"); 
	var wSortArray = wArrayList.split(pSepChar); 
	wSortArray.sort(); 
	var wArrayList = wSortArray.join (pSepChar); 
	wArrayList = wArrayList.replace(/aä/g, "ä"); 
	wArrayList = wArrayList.replace(/aá/g, "á"); 
	wArrayList = wArrayList.replace(/aa/g, "a"); 
	wArrayList = wArrayList.replace(/AÄ/g, "Ä"); 
	wArrayList = wArrayList.replace(/AÁ/g, "Á"); 
	wArrayList = wArrayList.replace(/AA/g, "A"); 
	wArrayList = wArrayList.replace(/eé/g, "é"); 
	wArrayList = wArrayList.replace(/ee/g, "e"); 
	wArrayList = wArrayList.replace(/EÉ/g, "É"); 
	wArrayList = wArrayList.replace(/EE/g, "E"); 
	wArrayList = wArrayList.replace(/cc/g, "c"); 
	wArrayList = wArrayList.replace(/CC/g, "C"); 
	wArrayList = wArrayList.replace(/ií/g, "í"); 
	wArrayList = wArrayList.replace(/ii/g, "i"); 
	wArrayList = wArrayList.replace(/IÍ/g, "Í"); 
	wArrayList = wArrayList.replace(/II/g, "I"); 
	wArrayList = wArrayList.replace(/oő/g, "ő"); 
	wArrayList = wArrayList.replace(/oö/g, "ö"); 
	wArrayList = wArrayList.replace(/oó/g, "ó"); 
	wArrayList = wArrayList.replace(/oo/g, "o"); 
	wArrayList = wArrayList.replace(/OŐ/g, "Ő"); 
	wArrayList = wArrayList.replace(/OÖ/g, "Ö"); 
	wArrayList = wArrayList.replace(/OÓ/g, "Ó"); 
	wArrayList = wArrayList.replace(/OO/g, "O"); 
	wArrayList = wArrayList.replace(/uű/g, "ű"); 
	wArrayList = wArrayList.replace(/uü/g, "ü"); 
	wArrayList = wArrayList.replace(/uú/g, "ú"); 
	wArrayList = wArrayList.replace(/uu/g, "u"); 
	wArrayList = wArrayList.replace(/UŰ/g, "Ű"); 
	wArrayList = wArrayList.replace(/UÜ/g, "Ü"); 
	wArrayList = wArrayList.replace(/UÚ/g, "Ú"); 
	wArrayList = wArrayList.replace(/UU/g, "U"); 
	var wSortArray = wArrayList.split(pSepChar); 
	return  wSortArray; 
}  // ________________ end of function:  fRPRIp_REU_Array_True_Sort

String.prototype.trim = function() {
	a = this.replace(/^\s + /, '');
	return a.replace(/\s + $/, '');
};

String.prototype.nl2br = function() {
	 return  this.replace(/ (\r\n)| (\r)| (\n)/g, '<br />');
} ;

String.prototype.br2nl = function() {
	  return this.split('<br />').join ('\n');
} ;

//