//________________________________
var cA9_ModNm = "A9_Root_Load_Article_Funcs.js";
var cA9_cpyra = "©2011 Rako DP Enterprises";
//   
/*jsl:ignoreall*/
//________________________________

function fA9ge_Root_Article_Reload() {
//fRPRIp_REU_Console_Logger("fA9ge_Root_Article_Reload");
	var wCurr_Article_Url = eA0g_Root_Articles_IFrame_Obj.src;
	eA0g_Root_Articles_IFrame_Obj.src = wCurr_Article_Url;
}  // ________________ end of function:  fA9ge_Root_Article_Reload() {

function fA9ge_Root_Article_Load_New (pPageUrl) {
//fRPRIp_REU_Console_Logger("fA9ge_Root_Article_Load_New");
	if ( (typeof(pPageUrl) == "undefined") || (pPageUrl == "") )  {
		return; }
	var wExtSiteCall = fA9m_TestForSite (pPageUrl); 
	if (wExtSiteCall) {
		fA9g_Load_Into_New_Tab_Or_Window(); 
		return; 
		}
	var wRelPath = pPageUrl; 
	var wPtr = pPageUrl.indexOf(cS0g_Base_Url_Short); 
	if (wPtr > -1)  {
		wPtr = wPtr + cS0g_Base_Url_Short.length; 
		wRelPath = pPageUrl.slice(wPtr) ; 
		}
	fA9m_Resolve_Relative_Path_Call (wRelPath); 
	fA9g_LoadReqNewPage(); 
}  // ________________ end of function:  fA9ge_Root_Article_Load_New (pPageUrl)

function fA9ge_Root_Article_Load_New_Thru_LinksList (pLinkList_Id) {
//fRPRIp_REU_Console_Logger("fA9ge_Root_Article_Load_New_Thru_LinksList");
	if ( (typeof(pLinkList_Id) == "undefined") || (pLinkList_Id == "") ) {
		return; }
	var wLinkList_Id = pLinkList_Id; 
	var wLinkGoToPg = ""; 
	var wPtr = wLinkList_Id.indexOf("/"); 
	if (wPtr> 0) {
		wLinkGoToPg = wLinkList_Id.slice(wPtr + 1); 
		wLinkList_Id = wLinkList_Id.substr(0, wPtr);
		fRPRIp_REU_Cookie_Write (cC0Bg_PageToLoadGoToPg_Cookie_Name, wLinkGoToPg, 0); 
		}
	vA0bg_Call_Param_Path = fA4g_GetPathFromLinkListDir (wLinkList_Id); 
	if (vA0bg_Call_Param_Path == "")  {
		return; }
	vA0bg_Call_Param_Code = wLinkList_Id; 
	vA0bg_Link_DisplAddr = cS0g_Site_Link_Url + vA0bg_Call_Param_Code; 
	fA9g_LoadReqNewPage(); 
//	fRPRIp_REU_Cookie_Write (CurrCallUrlCookie Id, vA0bg_Call_Param_Path, 0); 
}  // ________________ end of function:  fD2ge_Article_Load_New_Thru_LinksList (pLinkList_Id) {

function fA9ge_Root_Obits_Load (pObitId) {
//fRPRIp_REU_Console_Logger("fA9ge_Root_Obits_Load");
    var wPageUrl = cC0Bg_AnyakonyvPathObitsCallPath + pObitId.slice(1);
	window.open (wPageUrl, "_blank"); 
}  // ________________ end of function:  fA9ge_Root_ExtPage_Load_Thru_LinksList (pLinkList_Id) {

function fA9ge_Root_ExtPage_Load_Thru_LinksList (pLinkList_Id) {
//fRPRIp_REU_Console_Logger("fA9ge_Root_ExtPage_Load_Thru_LinksList");
    var wPageUrl = fA9ge_Root_ExtPage_Get_URL_Thru_LinksList (pLinkList_Id);
	window.open (wPageUrl, "_blank"); 
}  // ________________ end of function:  fA9ge_Root_ExtPage_Load_Thru_LinksList (pLinkList_Id) {

function fA9ge_Root_ExtPage_Get_URL_Thru_LinksList (pLinkList_Id) {
//fRPRIp_REU_Console_Logger("fA9ge_Root_ExtPage_Get_URL_Thru_LinksList");
	if ( (typeof(pLinkList_Id) == "undefined") || (pLinkList_Id == "") )  {
		return; }
	var wLinkList_Id = pLinkList_Id; 
	var wPageUrl = wLinkList_Id; 
	var wLinkRest = ""; 
	var wPtr = wLinkList_Id.indexOf("/"); 
	if (wPtr == -1) {
		wPtr = wLinkList_Id.indexOf("?"); }
	if (wPtr> 0) {
		wLinkRest = wLinkList_Id.slice(wPtr ); 
		wLinkList_Id = 	wLinkList_Id.substr(0, wPtr); 
		}
	if (wLinkList_Id != "http:") {
		var wExtPg_Cnt = gciExtPageListArray.length; 
		for (var i = 0; i < wExtPg_Cnt; i++) {
			if (gciExtPageListArray[i] != "") {
				vA0bg_ArrayItem_Info_Parts = gciExtPageListArray[i].split("|"); 
				if (vA0bg_ArrayItem_Info_Parts[0] == wLinkList_Id) {
					wPageUrl = vA0bg_ArrayItem_Info_Parts[1] + wLinkRest; 
					break; 
					}
				}
			}
		}
	return wPageUrl; 
}  // ________________ end of function:  fA9ge_Root_ExtPage_Get_URL_Thru_LinksList (pLinkList_Id) {

function fA9ge_Root_ExtPage_Load_Direct (pExtPageUrl) {
//fRPRIp_REU_Console_Logger("fA9ge_Root_ExtPage_Load_Direct");
    if (fA9m_TestForSite (pExtPageUrl) ) {
	   window.open (pExtPageUrl, "_blank"); }
}  // ________________ end of function:  fA9ge_Root_ExtPage_Load_Direct (pExtPageUrl) {

function fA9g_LoadReqNewPage() {
//fRPRIp_REU_Console_Logger("fA9g_LoadReqNewPage");
//alert ("fA9g_LoadReqNewPage");
	var wExtSiteCall = fA9m_TestForSite (vA0bg_Call_Param_Path); 
	if (vA0bg_Call_Param_Code != "") {
		fF13Ag_SiteHistory_Insert_CurrPage_Id (vA0bg_Call_Param_Code); }
	else {
		if (!wExtSiteCall)  {
			fF13Ag_SiteHistory_Insert_CurrPage (vA0bg_Call_Param_Path); }
		}
	if (wExtSiteCall) {
		vA0bg_Repair_404Call = false; 
		fA9g_Load_Into_New_Tab_Or_Window(); 
		}
	else {
		if (vA0bg_Repair_404Call) {
			fA6g_FiTb_Legibility_EnOrDisable_Btns (0); 
			vA0bg_Repair_404Call = false; 
			fA9g_Load_Article_Into_IFrame_Obj(); 
			}
		else {
			fA9g_Load_Into_New_Tab_Or_Window(); 
			}
		}
}  // ________________ end of function:  fA9g_LoadReqNewPage() {

function fA9gi_Set_Article_Frame_Src() {
//fRPRIp_REU_Console_Logger("fA9gi_Set_Article_Frame_Src");
//	if (cA0bg_Revisitor_Flag == "*") {
//		document.getElementById("CalledTargetsLink_Area").style.display = cC0Bg_DisplOff;
//		}
/*	else {
		document.getElementById("CalledTargetsLink_Area").style.display = cC0Bg_DisplOn; 
		}// */
	fA9g_Load_Article_Into_IFrame_Obj(); 
}  // ________________ end of function:  fA9gi_Set_Article_Frame_Src()
		
function fA9g_Load_Article_Into_IFrame_Obj() {
//fRPRIp_REU_Console_Logger("fA9g_Load_Article_Into_IFrame_Obj");
	if ((typeof(vA0bg_Call_Param_Path) == "undefined") || (vA0bg_Call_Param_Path == "")) {
        fA9ge_Root_Article_Load_New_Thru_LinksList(cS0g_Default_Article_Code); }
//		vA0bg_Call_Param_Path = cS0g_Default_Article_Url;}
	else {
//fRPRIp_REU_Console_Logger("fA9g_Load_Article_Into_IFrame_Obj  src1= " + vA0bg_Call_Param_Path );
		fA9m_SaveAddressFor404Err (vA0bg_Call_Param_Path);
//fRPRIp_REU_Console_Logger("fA9g_Load_Article_Into_IFrame_Obj  src2= " + eA0g_Root_Articles_IFrame_Obj.src );
		eA0g_Root_Articles_IFrame_Obj.src = vA0bg_Call_Param_Path;
//fRPRIp_REU_Console_Logger("fA9g_Load_Article_Into_IFrame_Obj  src3= " + eA0g_Root_Articles_IFrame_Obj.src );


		vA0bg_Link_DisplAddr = vA0bg_Link_DisplAddr.replace("?=","?id=");
	    var p = vA0bg_Link_DisplAddr.indexOf("=");
	    vC0Ag_Curr_Article_Id = vA0bg_Link_DisplAddr.substr(p + 1);
	}
}  // ________________ end of function:  fA9g_Load_Article_Into_IFrame_Obj() {

function fA9g_Load_Into_New_Tab_Or_Window() {
//fRPRIp_REU_Console_Logger("fA9g_Load_Into_New_Tab_Or_Window");
	var wMyUrl = vA0bg_Call_Param_Path;
	var wExtSiteCall = fA9m_TestForSite (vA0bg_Call_Param_Path); 
	if (!wExtSiteCall)  {
		wMyUrl = cS0g_Call_To_Top_Url + "id=" + vA0bg_Call_Param_Code; }
//	fA9m_SaveAddressFor404Err (wMyUrl); 
	window.open (wMyUrl, "_blank"); 
}  // ________________ end of function:  fA9g_Load_Into_New_Tab_Or_Window()

// == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == 

function fA9m_SaveAddressFor404Err (pCalledUrl) {
//fRPRIp_REU_Console_Logger("fA9m_SaveAddressFor404Err");
	var wPtr = pCalledUrl.indexOf("404");
	if (wPtr == -1) {
		var wCookieStr = vA0bg_Call_Param_Code + "|" + pCalledUrl; 
		fRPRIp_REU_Cookie_Write (cC0Bg_CurrCallUrl_Cookie_Name, wCookieStr, 0); 	
		}
}  // ________________ end of function:  fA9m_SaveAddressFor404Err (pCalledUrl) {

// == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == = 

function fA9g_Set_Path_To_Call (pToCallParam) {
//fRPRIp_REU_Console_Logger("fA9g_Set_Path_To_Call");
	var wCallParam = pToCallParam;
	var wTestChar = wCallParam.charAt(0); 
	var wPtr; 
	if (wTestChar == "#") {
		wCallParam = wCallParam.slice(1); 
		var wCookieStr = fRPRIp_REU_Get_Cookie_Info (wCallParam); 
		if (wCookieStr != "") {
			fRPRIp_REU_Cookie_Delete (wCallParam); }
		wCallParam = wCookieStr; 
		}
	if (wTestChar == "=") {
		wCallParam = wCallParam.slice(1); 
		vA0bg_Call_Param_Code = wCallParam; 
		if (vA0bg_Call_Param_Code.substr(0, 2) == "Lh") {
			var wDirLvl = vA0bg_Call_Param_Code.charAt(3); 
			fA4g_OpenLinkListSubDir (vA0bg_Call_Param_Code, wDirLvl); 
				vA0bg_Call_Param_Code = vA0bg_ArrayItem_Info_Parts[0]; // ???
			wPtr = wPtr + 1; 
				}
	    vA0bg_Call_Param_Path = fA4g_GetPathFromLinkListDir (vA0bg_Call_Param_Code); 
		if (vA0bg_Call_Param_Path != "")  {
			vA0bg_Link_DisplAddr = cS0g_Site_Link_Url + vA0bg_Call_Param_Code ; 
			}
		}
	else {
		fA9m_Resolve_Relative_Path_Call (wCallParam); 
		}
}  // ________________ end of function:  fA9g_Set_Path_To_Call()

function fA9m_Resolve_Relative_Path_Call (pRelPath) {
//fRPRIp_REU_Console_Logger("fA9m_Resolve_Relative_Path_Call");
		var wPtr = fA4g_Get_LinkLine_Id_From_Url (pRelPath);
		if (wPtr > -1) {
			vA0bg_Call_Param_Code = vA0bg_ArrayItem_Info_Parts[0]; 
			vA0bg_Call_Param_Path = vA0bg_ArrayItem_Info_Parts[2]; 
			vA0bg_Link_DisplAddr = cS0g_Site_Link_Url + vA0bg_Call_Param_Code ; 
			}
		else {
			wPtr = pRelPath.indexOf(cS0g_Site_Root_Url); 
			vA0bg_Call_Param_Path = pRelPath; 
			if (wPtr > -1) {
				wPtr = wPtr + cS0g_Site_Root_Url.length; 
				vA0bg_Call_Param_Path = pRelPath.slice(wPtr); 
				}
			vA0bg_Link_DisplAddr = cS0g_Site_Link_Url + vA0bg_Call_Param_Path; 
			}
}  // ________________ end of function:  fA9m_Resolve_Relative_Path_Call (pRelPath) {

// == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == = 

function fA9m_TestForSite (pCallPath) {
//fRPRIp_REU_Console_Logger("fA9m_TestForSite");
	var wRetVal = true;
	if ( (typeof(pCallPath) == "undefined") || (pCallPath == "") )  {
          wRetVal = false; }
    else {
    	var	wPtr = pCallPath.indexOf("www."); 
    	if (wPtr == -1)  {
    		wPtr = pCallPath.indexOf("://"); 
    		if (wPtr == -1) {
    			 wRetVal = false; }
    		}
    	if (wPtr > -1)  {
    		wPtr = pCallPath.indexOf(cS0g_Site_Url); 
    		if (wPtr > -1) {
    			 wRetVal = false; }
    		}
        }
	return wRetVal; 
}  // ________________ end of function:  fA9m_TestForSite (pCallPath)

// == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == = 


function fA9m_Get_Relative_Path (pFullPath) {
//fRPRIp_REU_Console_Logger("fA9m_Get_Relative_Path");
	var wRelPath = "";
	var wPtr = pFullPath.indexOf(cS0g_Base_Url_Short); 
	if (wPtr > -1)  {
		wPtr = wPtr + cS0g_Base_Url_Short.length; 
		wRelPath = pFullPath.slice(wPtr) ; 
		}
	else {
		wPtr = pFullPath.indexOf("www."); 
		if (wPtr == -1)  {
			wPtr = pFullPath.indexOf("://"); 
			if (wPtr == -1)   {
				 wRelPath = pFullPath; }
			}
		}
	return wRelPath; 
}  // ________________ end of function:  fA9m_Get_Relative_Path (pFullPath) {

// == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == == = 

//