//________________________________
var cF13A_ModNm = "F13A_Root_SiteHistory_Funcs.js";
var cF13A_cpyra = "©2011 Rako DP Enterprises";
// 
/*jsl:ignoreall*/
//________________________________

function fF13Ag_SiteHistory_Insert_CurrPage (pCurrPageAddr) {
	var wCurrPageAddr = fA9m_Get_Relative_Path (pCurrPageAddr);
	if (wCurrPageAddr == "")  {
		return; }
	if (eA0g_Root_Article_as_Child_Obj) {
		if (eA0g_Root_Article_as_Child_Obj.mcHistoryListIgnore) {
			return; }
		}
	var wCookieEntry = "*µ" + wCurrPageAddr;
	var wLinkList_Id = fA4g_GetLinkList_Id (wCurrPageAddr);
	if (wLinkList_Id != "")  {
		wCookieEntry = "#µ" + wLinkList_Id;
		}
	fF13Am_SiteHistory_Insert_Info (wCookieEntry);
}  // ________________ end of function:  fF13Ag_SiteHistory_Insert_CurrPage (pCurrPageAddr) {

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

function fF13Ag_SiteHistory_Insert_CurrPage_Id (pCurrPage_Id) {
	wCookieEntry = "#µ" + pCurrPage_Id;
	fF13Am_SiteHistory_Insert_Info (wCookieEntry);
}  // ________________ end of function:  fF13Ag_SiteHistory_Insert_CurrPage_Id (CurrPageAddr) {

function fF13Am_SiteHistory_Insert_Info (pCurrPageEntry) {
	var wSiteHistoryList = fRPRIp_REU_Get_Cookie_Info (cC0Bg_SiteHistory_Cookie_Name);
	if (wSiteHistoryList != "") {
		wSiteHistoryList = wSiteHistoryList.replace(pCurrPageEntry, "");
		var wSiteHistoryArray = wSiteHistoryList.split("|");
		var wItemsToRetain = Math.min(25, wSiteHistoryArray.length);
		wSiteHistoryList = "";
		var wCurrHistItem;
		for (i = 0; i < wItemsToRetain; i++) {
			wCurrHistItem = wSiteHistoryArray[i];
			if (wCurrHistItem != "") {
//				if (wCurrHistItem.charAt(1) != "µ")  {
//					wCurrHistItem = fF13Bm_SiteHistory_TestIf_Delete (wCurrHistItem); }
				wSiteHistoryList = wSiteHistoryList + wCurrHistItem + "|";
				}
			}
		}
	wSiteHistoryList = pCurrPageEntry + "|" + wSiteHistoryList;
	if (wSiteHistoryList == "|")  {
		wSiteHistoryList = ""; }
	fRPRIp_REU_Cookie_Write (cC0Bg_SiteHistory_Cookie_Name, wSiteHistoryList);
}  // ________________ end of function:  fF13Am_SiteHistory_Insert_Info (pCurrPageEntry)

//