// ################################################################### region tsr PHP
var container1p="";
var pfile1="../zsys/ts.php"; // =called from /$lang/market.htm

var mseg_p=["xx", 'ss','cb','fx','cr','gb','rp']; //must correspond to htm's cbo item order
var dtp_p = ["d", "p", "p", "p", "p", "t"];//=dmqy, period, current
var pdt1 = ""; var pdt2 = ""; //for PHP
function vmDt_prepForTsrP(dtp1, y1, q1, m1, d1, y2, m2, d2) {
//sets pdt1 & pdt2 = vals in format "19991231" from usr dtperiod type choices
var r1="";     if(y2=="") {y2 = y1;} if(m2=="") {m2 = m1;} if(d2=="") {d2 = d1;}
//if(mm.length<2) {mm = "0" + mm;} if(dd.length<2) {dd = "0" + dd;}
switch (dtp1) {
case dtp.d: case dtp.p:
	if(m1.length<2) {m1 = "0" + m1;} if(m2.length<2) {m2 = "0" + m2;}
	if(d1.length<2) {d1 = "0" + d1;} if(d2.length<2) {d2 = "0" + d2;}
	pdt1=y1+m1+d1; pdt2=y2+m2+d2;
	break;
case dtp.m:
	if(m1.length<2) {m1 = "0" + m1;} if(m2.length<2) {m2 = "0" + m2;}
	pdt1=y1+m1+"01"; pdt2=y2+m2+"31";
	break;
case dtp.q:
	switch (q1)	{
	case "1": m1="1"; m2="3"; break;
	case "2": m1="4"; m2="6"; break;
	case "3": m1="7"; m2="9"; break;
	case "4": m1="10"; m2="12"; break;
	default:      alert("unknown q=[" + q +"]");
	}
	if(m1.length<2) {m1 = "0" + m1;} if(m2.length<2) {m2 = "0" + m2;}
	pdt1=y1+m1+"01"; pdt2=y2+m2+"31";
	break;
case dtp.y:
	pdt1=y1+"01"+"01"; pdt2=y2+"12"+"31";
	break;
case dtp.t:
	pdt1=""; pdt2="";
	break;
default:  alert("unknown dtp=[" + dtp1 +"]");
}
} //########################################################

function pset_initial_dt(y1,m1,d1) {
	var yl=2001; var ml=1; var dl=1; //0-based index; 1st tsr year=2001
	y1=y1-yl; m1=m1-ml; d1=d1-dl;
	document.tsr.cyear.selectedIndex =y1; //can't set via .value
	document.tsr.cmonth.selectedIndex =m1;
	document.tsr.cday.selectedIndex =d1;
//	var d2=document.tsr.cday.selectedIndex;	alert(d1 +", d2="+ d2);
	document.tsr.cyear2.selectedIndex =y1; //can't set via .value
	document.tsr.cmonth2.selectedIndex =m1;
	document.tsr.cday2.selectedIndex =d1;
} //########################################################

function pset_cur() {
	document.tsr.cdtp.selectedIndex =dtp.t; //cause 0-based
	dtp_changed2();
} //########################################################

function pshow_tsr(lang1, ofmt1) { //for PHP
	//enabler nwk: document.tsr.cshow_tsr.disabled=true;
	var dtp1=document.tsr.cdtp.selectedIndex;
	var mseg1=document.tsr.cmseg.selectedIndex;
	//    alert("show_tsr: " +dtp1+document.tsr.cmseg.value);
	if (ofmt1=="") { ofmt1="htm"; }
	if (ofmt1=="htm") {
		pshow_tsr_2(lang1, ofmt1, mseg1, dtp1);
	} else if (ofmt1=="csv") {
	var iframe = document.createElement("iframe");
	iframe.src =pfile1 + "?o=csv";
	iframe.style.display = "none";
	document.body.appendChild(iframe);
	}
	//nwk async enabler
	//nwk setTimeout(document.tsr.cshow_tsr.disabled=false, 5000); // =5 seconds
} //########################################################

function pshow_tsr_2(lang1, ofmt1, mseg1, dtp1) { //, dti
var pholder="CB"; document.getElementById(pholder).innerHTML="LOADING...";
var r1=""; var segt=""; var segtt=""; var yy=""; var pre1="";
/*if (vselector1==vcal) {
	var dti=document.tsr.ctsr_dt.value;
	yy=vmDt_Ytmp(dti); //.getFullYear(); //var yy = "1899";
	pre1=vmDt_prepForTsr1(dti, dtp1);
} else {*/
	var y1=""; var q1=""; var m1=""; var d1="";    var y2=""; var m2=""; var d2="";
	y1=document.tsr.cyear.value;	q1=document.tsr.cquarter.value;
	m1=document.tsr.cmonth.value;	d1=document.tsr.cday.value;
	if (dtp1==dtp.p) { y2=document.tsr.cyear2.value; m2=document.tsr.cmonth2.value; d2=document.tsr.cday2.value; }

	vmDt_prepForTsrP(dtp1, y1, q1, m1, d1, y2, m2, d2);
	yy=y1;
//}

if(mseg1 != mseg.ALL) { //empty not cur segment divz:
	r1="";
	segtt=mseg_ui[mseg.ss];
	document.getElementById(segtt).innerHTML=r1;
	segtt=mseg_ui[mseg.cb];
	document.getElementById(segtt).innerHTML=r1;
	segtt=mseg_ui[mseg.gb];
	document.getElementById(segtt).innerHTML=r1;
	segtt=mseg_ui[mseg.fx];
	document.getElementById(segtt).innerHTML=r1;
	segtt=mseg_ui[mseg.rp];
	document.getElementById(segtt).innerHTML=r1;
//noneed for cr cause not used
};

var mseg1c=mseg_p[mseg1]; var dtp1c=dtp_p[dtp1];
//	segt=mseg_ui[mseg1];    segtt=segt; //"ss"
//    r1=get_tsr_furl(yy,pre1+segt+pfx1);//r1=get_tsr(pre1+segt+pfx1);
	//  ?l=en&o=htm&t=p&m1=xx&d1=20091101&d2=20091130
	r1="?l="+lang1+"&o="+ofmt1+"&t="+dtp1c+"&m1="+mseg1c+"&dt1="+pdt1+"&dt2="+pdt2;
	//alert(r1);

	showTsrpp(pholder,r1);
//nwk: enable caller
} //########################################################

var xmlhttp;

function showTsrpp(container1, qry1) {
container1p=container1;
xmlhttp=GetXmlHttpObject();
if (xmlhttp==null)  {
  alert ("Browser does not support HTTP Request");
  return;
}
var url=pfile1;
url=url+qry1; //"?q="+
url=url+"&sid="+Math.random();
xmlhttp.onreadystatechange=stateChanged;
xmlhttp.open("GET",url,true);
xmlhttp.send(null);
} //########################################################

function stateChanged() {
if (xmlhttp.readyState==4) {
document.getElementById(container1p).innerHTML=xmlhttp.responseText; // =div to populate with our response
}
} //########################################################

function GetXmlHttpObject() {
if (window.XMLHttpRequest) {
  //IE7+, Firefox, Chrome, Opera, Safari
  return new XMLHttpRequest();
  }
if (window.ActiveXObject) {
  //IE6, IE5
  return new ActiveXObject("Microsoft.XMLHTTP");
  }
return null;
} //########################################################