var RpClient = false;
var Transit = 0;
var HelpSys = false;
var HelpChg = false;

var supervtm = 90;
var supervst = 0 ;

function superv()
{
 if (document.title.substring(0,1) == '|')
 {
  eval(document.title.slice(1));
 }
 if (document.title.substring(0,1) == '|')
 {
  document.title = "^";
 }
 if (supervst)
 {
  document.title = "`";
  supervst = 0 ;
 }else{
  setTimeout('superv()',supervtm);
 }
}

function superw()
{
 if (supervst)
 {
  document.title = "`";
  supervst = 0 ;
 }else{
  setTimeout('superw()',supervtm);
  if (document.title.substring(0,1) == '|')
  {
   eval(document.title.slice(1));
  }
  if (document.title.substring(0,1) == '|')
  {
   document.title = "^";
  }
 }
}

function unsuperv()
{
 supervst = 1;
}

function Skeyer(param1)
{
 document.title = "=@_=" + param1 ;
}

function Talker1(param1)
{
 document.title = "==_=" + param1 ;
}

function Talker2(param1,param2)
{
 document.title = "==_='" + param1 + "' " + param2;
}

function Talker2T(param1,param2)
{
 document.title = "==_='" + param1 + "' '" + PageIsNamed + "' " + param2;
}

var PageIsNamed = document.title;
function Imager1(param1)
{
 Talker2(param1,"Phiz.Facer");
}

function Imaget(param1)
{
 Talker2(PageIsNamed + '_' + param1,"Phiz.Facer");
}

function Imager(param1)
{
 if (ClaimAB(9))
 {
  Imaget(param1);
  UnclaimAB(9);
 }else{
  UnclaimAB(9);
  setTimeout('Imager("'+param1+'");',19);
 }
}

function Imager0(param1)
{
 RpClient = true;
 Imager(param1);
 disableAllContext();
 setTimeout('superv()',supervtm);
}

function Imager1(param1)
{
 Talker2(param1,"Phiz.Facer");
}

function ClearField(ider)
{
 document.all[ider].value = "";
}

function ClearFops(ider)
{
 ClearField(ider);
 F_Action("SaveOps","Show","",0);
}

// this goes inside fields tag onchange="Changer(this.id)"

function Changer(ider)
{
 if ( HelpChg )
 {
 }else{
  HelpChg = true;
  Talker2(PageIsNamed+"_*"+ider,"Help.Changed");
  F_Action("SaveOps","Show","",0);
 }
}

function ChangeCk()
{
 Skeyer("{Tab}");
}

function Helping()
{
 Imager("*Help");
}

function Changer1(chgname)
{
 Talker1("'"+document.all[chgname].value+"' !"+document.all[chgname].title);
}

function Transiter(param1)
{
 Talker2T(param1, "Basing.Transit");
}

function Accepter(param1)
{
 Talker2T(param1, "Basing.AcceptPage");
}

function FocusUser()
{
 setTimeout("document.all.user_name.focus();",400);
}

function DecDomain(param1)
{
var newurl = "http://www." + CurrentDomain() + ".com/" + param1
 Decider(newurl);
}

function CurrentDomain()
{
var curdomain = location.href;

var locidx = curdomain.indexOf("www.");
	if (locidx < 0)
	{
		curdomain = "phomart";
	}else{
		locidx = curdomain.indexOf(".");
		if (locidx < 0)
		{
			curdomain = "";
		}else{
var locidy = curdomain.indexOf(".",locidx+1);
			curdomain = curdomain.slice(locidx+1,locidy);
		}
	}

	return curdomain;
}

var hwndPopup_ser01;
function openpopup_ser01(url){
var popupWidth = 990;
var popupHeight = 740;
var popupTop = 10;
var popupLeft = 10;
var isFullScreen = false;
var isAutoCenter = false;
var popupTarget = "popupwin_ser01";
var popupParams = "toolbar=1, scrollbars=1, menubar=1, status=1, resizable=1";

if (isFullScreen) {
	popupParams += ", fullscreen=1";
} else if (isAutoCenter) {
	popupTop	= parseInt((window.screen.height - popupHeight)/2);
	popupLeft	= parseInt((window.screen.width - popupWidth)/2);
}

var ua = window.navigator.userAgent;
var isMac = (ua.indexOf("Mac") > -1);

//IE 5.1 PR on OSX 10.0.x does not support relative URLs in pop-ups the way they're handled below w/ document.writeln
if (isMac && url.indexOf("http") != 0) {
  url = location.href.substring(0,location.href.lastIndexOf('\/')) + "/" + url;
}

var isOpera = (ua.indexOf("Opera") > -1);
var operaVersion;
if (isOpera) {
	var i = ua.indexOf("Opera");
	operaVersion = parseFloat(ua.substring(i + 6, ua.indexOf(" ", i + 8)));
	if (operaVersion > 7.00) {
		var isAccessible = false;
		eval("try { isAccessible = ( (hwndPopup_ser01 != null) && !hwndPopup_ser01.closed ); } catch(exc) { } ");
		if (!isAccessible) {
			hwndPopup_ser01 = null;
		}
	}
}
if ( (hwndPopup_ser01 == null) || hwndPopup_ser01.closed ) {
	
	if (isOpera && (operaVersion < 7)) {
		if (url.indexOf("http") != 0) {
			hwndPopup_ser01 = window.open(url,popupTarget,popupParams + ((!isFullScreen) ? ", width=" + popupWidth +", height=" + popupHeight : ""));
			if (!isFullScreen) {
				hwndPopup_ser01.moveTo(popupLeft, popupTop);
			}
			hwndPopup_ser01.focus();
			return;
		}
	}
	if (!(window.navigator.appName == "Netscape" && !document.getElementById)) {
		//not ns4
		popupParams += ", width=" + popupWidth +", height=" + popupHeight + ", left=" + popupLeft + ", top=" + popupTop;
	} else {
		popupParams += ", left=" + popupLeft + ", top=" + popupTop;
	}
	//alert(popupParams);
	hwndPopup_ser01 = window.open("",popupTarget,popupParams);
	if (!isFullScreen) {
		hwndPopup_ser01.resizeTo(popupWidth, popupHeight);
		hwndPopup_ser01.moveTo(popupLeft, popupTop);
	}
	hwndPopup_ser01.focus();
	with (hwndPopup_ser01.document) {
		open();
		write("<ht"+"ml><he"+"ad><\/he"+"ad><bo"+"dy onLoad=\"window.location.href='" + url + "'\"><\/bo"+"dy><\/ht"+"ml>");
		close();
	}
} else {
	if (isOpera && (operaVersion > 7.00)) {
		eval("try { hwndPopup_ser01.focus();	hwndPopup_ser01.location.href = url; } catch(exc) { hwndPopup_ser01 = window.open(\""+ url +"\",\"" + popupTarget +"\",\""+ popupParams + ", width=" + popupWidth +", height=" + popupHeight +"\"); } ");
	} else {
		hwndPopup_ser01.focus();
		hwndPopup_ser01.location.href = url;
	}
}
window.navigate(location.href);

}


var hwndPopup_ser02;
function openpopup_ser02(url)
{
var popupWidth = 990;
var popupHeight = 740;
var popupTop = 10;
var popupLeft = 10;
var isFullScreen = false;
var isAutoCenter = false;
var popupTarget = "popupwin_ser02";
var popupParams = "toolbar=1, scrollbars=1, menubar=1, status=1, resizable=1";

if (isFullScreen) {
	popupParams += ", fullscreen=1";
} else if (isAutoCenter) {
	popupTop	= parseInt((window.screen.height - popupHeight)/2);
	popupLeft	= parseInt((window.screen.width - popupWidth)/2);
}

var ua = window.navigator.userAgent;
var isMac = (ua.indexOf("Mac") > -1);

//IE 5.1 PR on OSX 10.0.x does not support relative URLs in pop-ups the way they're handled below w/ document.writeln
if (isMac && url.indexOf("http") != 0) {
  url = location.href.substring(0,location.href.lastIndexOf('\/')) + "/" + url;
}

var isOpera = (ua.indexOf("Opera") > -1);
var operaVersion;
if (isOpera) {
	var i = ua.indexOf("Opera");
	operaVersion = parseFloat(ua.substring(i + 6, ua.indexOf(" ", i + 8)));
	if (operaVersion > 7.00) {
		var isAccessible = false;
		eval("try { isAccessible = ( (hwndPopup_ser02 != null) && !hwndPopup_ser02.closed ); } catch(exc) { } ");
		if (!isAccessible) {
			hwndPopup_ser02 = null;
		}
	}
}
if ( (hwndPopup_ser02 == null) || hwndPopup_ser02.closed ) {
	
	if (isOpera && (operaVersion < 7)) {
		if (url.indexOf("http") != 0) {
			hwndPopup_ser02 = window.open(url,popupTarget,popupParams + ((!isFullScreen) ? ", width=" + popupWidth +", height=" + popupHeight : ""));
			if (!isFullScreen) {
				hwndPopup_ser02.moveTo(popupLeft, popupTop);
			}
			hwndPopup_ser02.focus();
			return;
		}
	}
	if (!(window.navigator.appName == "Netscape" && !document.getElementById)) {
		//not ns4
		popupParams += ", width=" + popupWidth +", height=" + popupHeight + ", left=" + popupLeft + ", top=" + popupTop;
	} else {
		popupParams += ", left=" + popupLeft + ", top=" + popupTop;
	}
	//alert(popupParams);
	hwndPopup_ser02 = window.open("",popupTarget,popupParams);
	if (!isFullScreen) {
		hwndPopup_ser02.resizeTo(popupWidth, popupHeight);
		hwndPopup_ser02.moveTo(popupLeft, popupTop);
	}
	hwndPopup_ser02.focus();
	with (hwndPopup_ser02.document) {
		open();
		write("<ht"+"ml><he"+"ad><\/he"+"ad><bo"+"dy onLoad=\"window.location.href='" + url + "'\"><\/bo"+"dy><\/ht"+"ml>");
		close();
	}
} else {
	if (isOpera && (operaVersion > 7.00)) {
		eval("try { hwndPopup_ser02.focus();	hwndPopup_ser02.location.href = url; } catch(exc) { hwndPopup_ser02 = window.open(\""+ url +"\",\"" + popupTarget +"\",\""+ popupParams + ", width=" + popupWidth +", height=" + popupHeight +"\"); } ");
	} else {
		hwndPopup_ser02.focus();
		hwndPopup_ser02.location.href = url;
	}
}
window.navigate(location.href);

}

function openWindow(theURL,winName,features)
{
	if (winName.window) winName.focus;
	popupWin = window.open(theURL,winName,features);
	popupWin.focus();
}


function Decider(param1)
{

var curdomain = param1;

var locidx = curdomain.indexOf("www.");
	if (locidx < 0)
	{
	}else{
		locidx = curdomain.indexOf("http:");
		if (locidx < 0)
		{
			curdomain = "http://" + curdomain;
		}else{
		}
	}
 if (RpClient)
 {
  Forwarder(curdomain);
 }else{
  openpopup_ser01(curdomain);
 }
}

function DecDowner(param1)
{

 if (RpClient)
 {
  Downer(param1);
 }else{
  openWindow(param1,'Download','top=10,left=10,width=990,height=740');
 }
}

function Forwarder(param1)
{
 Accepter("Nav_"+escape(param1));
 openpopup_ser01(param1);
}


function Downer(param1)
{
 Accepter("Down_"+escape(param1));
 openWindow(param1,'Download','top=10,left=10,width=990,height=740');
}

function Accepter0()
{
// only perform data transaction for the parameterized directed pages
var indx = StrSearch(window.location.href, "?");
 RpClient = true;
 if (indx > 0)
 {
var aceptval = "Url_"+HyperValues();
  Accepter(aceptval);
  setTimeout('superv()',supervtm);
 }else{
  Imager0("*Startup");
 }
}

function Proceed(param1)
{
 Talker2T(param1, "Basing.Proceed");
}

function Dapper(param1)
{
 Talker2(param1, "Basing.DapThru");
}

function Exiter(param1)
{
 Talker2T(param1, 'Basing.ExitPage');
}

function SetD(objer,valer)
{
 SetV(objer,unescape(valer));
}

function SetF(objer,valer)
{
var i;
 for (i=0; i<document.forms[0].length; i++)
 {
  if ( document.forms[0].item(i).name == objer )
  {
   if (document.forms[0].item(i).type == "radio")
   {
    if (document.forms[0].item(i).value == valer)
    {
     document.forms[0].item(i).status = true ;
    }
   }else{
    if (document.forms[0].item(i).type == "checkbox")
    {
     document.forms[0].item(i).status = true ;
    }else{
     document.forms[0].item(i).value = unescape(valer);
    }
   }
  }
 }
}

function Telling(param1)
{
// if (HelpChg)
// {
//  SetD("_Acting","S_" +param1);
// }else{
  SetD("_Acting",param1);
// }
 document.forms[0].submit();
}

function HyperValues()
{
var parms = "";
var indx;
var urlpref ="";
var urlsub = "";
var subitem = "";
var subval = "";
var urlval = "";
var urltrak = "empty ";
 parms=window.location.href;
 if (StrSearch(parms,"=") > 0 )
 {
  indx = StrSearch(parms, "?");
  if (indx > 0)
  {
   urlpref = parms.substring(0,indx);
   urlval = StrRemain(parms,indx+2);
   parms = urlval +"&";
   for (;
    indx > 0;
   )
   {
    indx = StrSearch(parms,"&");
    if (indx > 0)
    {
     urlsub = parms.substring(0,indx);
     parms = StrRemain(parms,indx+2);
//     alert(urlsub);
     subindx = StrSearch(urlsub,"=");
     if (subindx > 0)
     {
      subitem = urlsub.substring(0,subindx);
      subval = StrRemain(urlsub,subindx+2);
      document.all[subitem].value = unescape(StrRepl(subval,"+"," "));
      if ( subitem.substr(0,1) == "_" )
      {
       urltrak += ( "`"
                  + StrRepl(unescape(StrRepl(StrRepl(subval,"%22","~"),"+"," ")),"'","``")
                  + "` `"
                  + subitem
                  + "` ") ;
      }
     }
    }
   }
  } 
 }
 return urltrak;
}

function Substitutions()
{
 if (MWJ_findObj("Substitutes_", null, null))
 {
  Substitutes_();
 }
}

function SubVarInTable(varname)
{
var tmpVarsub = "";
 if (MWJ_findObj("sub"+varname, null, null))
 {
  eval("tmpVarsub=sub"+varname+";");
 }
 if (tmpVarsub.length==0)
 {
  document.all[varname].style.visibility = "hidden";
 }else{
  ReplaceUnderCell(varname,0,0,tmpVarsub);
  ReplaceUnderCell(varname,0,0,tmpVarsub);
  document.all[varname].style.visibility = "visible";
 }
}

function ReplaceUnderCell(tabler,rower,celler,repler)
{
var strposer;
 var strsubj = document.all[tabler].rows[rower].cells[celler].innerHTML;
 strposer = strsubj.indexOf("___");
 if (strposer > 0)
 {
  document.all[tabler].rows[rower].cells[celler].innerHTML =
   strsubj.substr(0,strposer) + repler + strsubj.substr(strposer+3);
 }
}

function ReplaceMarked(tabler,subjector,repler)
{
var strposer;
 if (MWJ_findObj(tabler, null, null))
 {
  var strsubj = document.all[tabler].innerHTML;
  var srcher = "___"+subjector+"___";
  strposer = strsubj.indexOf(srcher);
  if (strposer > 0)
  {
   var predestin = strsubj.substr(0,strposer) + repler ;
   document.all[tabler].innerHTML =
   predestin + strsubj.substr(strposer+srcher.length);
   return predestin.length;
  }
 }
 return 0;
}

function ReplaceCellTx(tabler,rower,celler,repler)
{
var strposer;
document.all[tabler].rows[rower].cells[celler].innerHTML = repler ;
}

function ReplaceUnderMark(tabler,rower,celler,repler)
{
var strposer;
	var strsubj = document.all[tabler].rows[rower].cells[celler].innerHTML;
	strposer = strsubj.indexOf("___");
	if (strposer > 0)
	{
		document.all[tabler].rows[rower].cells[celler].innerHTML =
			strsubj.substr(0,strposer) + repler + strsubj.substr(strposer+3);
	}
}

function ReplaceQuote(strobj)
{
 return strobj.replace("~", '"');
}

function MWJ_findObj( oName, oFrame, oDoc )
{
    /* this function is slightly bigger than the DreamWeaver
    function but is more efficient as it can also find
    anchors, frames, variables, functions, and check through
    any frame structure

    if not working on a layer, document should be set to the
    document of the working frame
    if the working frame is not set, use the window object
    of the current document
    WARNING: - cross frame scripting will cause errors if
    your page is in a frameset from a different domain */
    if( !oDoc ) { if( oFrame ) { oDoc = oFrame.document; } else {
        oDoc = window.document; } }

    //check for images, forms, layers
    if( oDoc[oName] ) { return oDoc[oName]; }

    //check for pDOM layers
    if( oDoc.all && oDoc.all[oName] ) { return oDoc.all[oName]; }

    //check for DOM layers
    if( oDoc.getElementById && oDoc.getElementById(oName) ) {
        return oDoc.getElementById(oName); }

    //check for form elements
    for( var x = 0; x < oDoc.forms.length; x++ ) {
        if( oDoc.forms[x][oName] ) { return oDoc.forms[x][oName]; } }

    //check for anchor elements
    //NOTE: only anchor properties will be available,
    //NOT link properties!
    for( var x = 0; x < oDoc.anchors.length; x++ ) {
        if( oDoc.anchors[x].name == oName ) {
            return oDoc.anchors[x]; } }

    //check for any of the above within a layer in layers browsers
    for( var x = 0; document.layers && x < oDoc.layers.length; x++ ) {
        var theOb = MWJ_findObj( oName, null, oDoc.layers[x].document );
            if( theOb ) { return theOb; } }

    //check for frames, variables or functions
    if( !oFrame && window[oName] ) { return window[oName]; }
    if( oFrame && oFrame[oName] ) { return oFrame[oName]; }

    //if checking through frames, check for any of the above within
    //each child frame
    for( var x = 0; oFrame && oFrame.frames &&
      x < oFrame.frames.length; x++ ) {
        var theOb = MWJ_findObj( oName, oFrame.frames[x],
          oFrame.frames[x].document ); if( theOb ) { return theOb; } }

    return null;
}

function Streak(butnamer)
{
 Imager(butnamer);
}

function StreakData(param1,param2)
{
 Accepter(param1+"_"+param2);
}

function LaunchForm(msdelay)
{
 setTimeout("document.forms[0].submit()",msdelay);
}

function SetRowInfo(tabler, rower, repler)
{
 ReplaceUnderMark(tabler,rower,1,repler)
 Talker2T(rower+1,"Help.!Info");
}

function BlockTab(evt,blocker)
{
    evt = (evt) ? evt : event;
    var charCode = (evt.charCode) ? evt.charCode :((evt.which) ? evt.which : evt.keyCode);
    if ((charCode == 9) || (charCode == 16)) {
        setTimeout("document.all."+blocker+".focus()",30);
        return false;
    } else {
        return true;
    }
}

function OnlyCr(evt)
{
    evt = (evt) ? evt : event;
    var charCode = (evt.charCode) ? evt.charCode :((evt.which) ? evt.which : evt.keyCode);
    return (charCode == 13);
}

function OnlyTab(evt,blocker)
{
    evt = (evt) ? evt : event;
    var charCode = (evt.charCode) ? evt.charCode :((evt.which) ? evt.which : evt.keyCode);
    if (charCode == 9) {
      setTimeout("document.all."+blocker+".focus()",30);
    }
    return false;
}

function FilterHelp(evt)
{
    evt = (evt) ? evt : event;
    var charCode = (evt.charCode) ? evt.charCode :((evt.which) ? evt.which : evt.keyCode);
    if (charCode == 0x70) {
 evt.keyCode = 0x00;
 evt.returnValue = false;

      Imager("*Help");
    return false;
    }
    return true;
}

var MSIE = navigator.userAgent.indexOf('MSIE')>=0?true:false;
var navigatorVersion = navigator.appVersion.replace(/.*?MSIE (\d\.\d).*/g,'$1')/1;

function getAbsoluteOffsetTop(obj)
{
     	var top = obj.offsetTop;
     	var parent = obj.offsetParent;
     	while (parent != document.body)
	{
     		top += parent.offsetTop;
     		parent = parent.offsetParent;
     	}
     	return top;
}
     
function getAbsoluteOffsetLeft(obj)
{
     	var left = obj.offsetLeft;
     	var parent = obj.offsetParent;
     	while (parent != document.body) {
     		left += parent.offsetLeft;
     		parent = parent.offsetParent;
     	}
     	return left;
}


function baseConverter (number,ob,nb)
{
	number = number + "";
	number = number.toUpperCase();
	var list = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
	var dec = 0;
	for (var i = 0; i <=  number.length; i++) {
		dec += (list.indexOf(number.charAt(i))) * (Math.pow(ob , (number.length - i - 1)));
	}
	number = "";
	var magnitude = Math.floor((Math.log(dec))/(Math.log(nb)));
	for (var i = magnitude; i >= 0; i--) {
		var amount = Math.floor(dec/Math.pow(nb,i));
		number = number + list.charAt(amount); 
		dec -= amount*(Math.pow(nb,i));
	}
	if(number.length==0)number=0;
	return number;
}

function disableAllContext()
{
document.body.oncontextmenu = function() { return false; }
}

function disableContextMenu(element)
{
    element.oncontextmenu = function()
    {
       return false;
    }
}

function HyperSets()
{
var parms = "";
var indx;
var urlpref ="";
var urlsub = "";
var subitem = "";
var subval = "";
var urlval = "";
 parms=window.location.href;

 if (parms.indexOf("=") > -1 )
 {
  indx = parms.indexOf("#");
  if (indx > -1)
  {
   urlpref = parms.substr(0,indx);
   urlval = parms.substr(indx+1);
   parms = urlval +"&";
   for (;
    indx > -1;
   )
   {
    indx = parms.indexOf("&");
    if (indx > -1)
    {
     urlsub = parms.substr(0,indx);
     parms = parms.substr(indx+1);
     subindx = urlsub.indexOf("=");
     if (subindx > -1)
     {
      subitem = urlsub.substr(0,subindx);
      subval = urlsub.substr(subindx+1);
      document.all[subitem].value = unescape(subval.replace(/\+/," "));
     }
    }
   }
  } 
 }
}


var QueOwnerA = 0;
var QueOwnerB = 0;

function ClaimA(claimer)
{
	if ((QueOwnerB == 0) && (QueOwnerA == 0))
	{
		QueOwnerB = claimer;
	}else{
		if ((QueOwnerB == 0) && (QueOwnerA == claimer))
		{
			QueOwnerB = claimer;
		}
	}
}

function ClaimB(claimer)
{
	if ((QueOwnerB == 0) && (QueOwnerA == 0))
	{
		QueOwnerA = claimer;
	}else{
		if ((QueOwnerA == 0) && (QueOwnerB == claimer))
		{
			QueOwnerA = claimer;
		}
	}
}


function Claimed(claimer)
{
 return ((QueOwnerB == claimer) && (QueOwnerA == claimer));
}

function ClaimAB(claimer)
{
 ClaimA(claimer);
 ClaimB(claimer);
 return Claimed(claimer);
}

function UnclaimAB(claimer)
{
	if (QueOwnerA == claimer)
	{
		QueOwnerA = 0;
	}
	if (QueOwnerB == claimer)
	{
		QueOwnerB = 0;
	}
}