// Ajax

function changeElement(sURL,sId) {
  var oXHR=getHttpObject();

  document.body.style.cursor="wait";

  oXHR.onreadystatechange=function() {
    if(oXHR.readyState==4) {
      var sTxt="";
      var sErr="";
      if(oXHR.status==200) {
        sTxt=oXHR.responseText;
        if(sTxt.match(/^err\d+/)) { sErr=sTxt; }
      }
      else { sTxt=oXHR.statusText; }
      if(sErr=="") {
        document.getElementById(sId).innerHTML=sTxt;
      }
      else { alert("Error: "+sErr); }
      document.body.style.cursor="";
    }
  };

  oXHR.open("GET",sURL,true);
  oXHR.send(null);
}

function getHttpObject() {
  var oObj=false;

  try { oObj=new ActiveXObject("Msxml2.XMLHTTP"); }
  catch(e) {
    try { oObj=new ActiveXObject("Microsoft.XMLHTTP"); }
    catch(e) { oObj=new XMLHttpRequest(); }
  }

  return oObj;
}

// END OF Ajax

function q7tot(oCtrl) { calc_col(oCtrl,"q7[","]",Array("i1","i2","i3","i4","i5","i6"),"tot"); }

function makmod(sParms) {
  var a=sParms.split(/:/);
  var sQ=a[0];
  var sMod1=a[1];
  var sMod2=a[2];
  var sMod3=a[3];
  var sCGI=window.location.href.replace(/profiling2?.pl.*/,"makmod/makmod.pl");
  var oForm=document.forms[0];

  var j=0;
  for(var i=0;i<oForm.elements.length;i++) {
    var oC=oForm.elements[i];
    if(oC.name==sQ+"[i1].mod") { oC.parentNode.id="modcell1"; j++; }
    else if(oC.name==sQ+"[i2].mod") { oC.parentNode.id="modcell2"; j++; }
    else if(oC.name==sQ+"[i3].mod") { oC.parentNode.id="modcell3"; j++; }
    if(j==3) { break; }
  }

  var oRE=new RegExp(sQ+".i(.)..mak");
  j=0;
  for(var i=0;i<oForm.elements.length;i++) {
    var oC=oForm.elements[i];
    var a=oC.name.match(oRE);
    if(a!=null) {
      var sQmak=a[0];
      var nI=parseInt(a[1],10);
      var sMod=(nI==1 ? sMod1 : (nI==2 ? sMod2 : sMod3));
      var sQmod=sQmak.replace(/mak/,"mod");
      changeElement(sCGI+'?f=mod.csv&k1=makc&v1='+oC.value+'&k2=modc&v2='+sMod+'&l2=modl&q='+sQmod,'modcell'+String(nI));
//    alert(sCGI+'?f=mod.csv&k1=makc&v1='+oC.value+'&k2=modc&v2='+sMod+'&l2=modl&q='+sQmod,'modcell'+String(nI));
      oC.var_q=sQmod;
      oC.var_td='modcell'+String(nI);
      oC.onchange=function() {
        changeElement(sCGI+'?f=mod.csv&k1=makc&v1='+this.value+'&k2=modc&l2=modl&q='+this.var_q,this.var_td);
//      alert(sCGI+'?f=mod.csv&k1=makc&v1='+this.value+'&k2=modc&l2=modl&q='+sQmod,'modcell'+String(nI));
      }
      j++;
    }
    if(j==3) { break; }
  }
}

function bdcom(sParms) {
  var a=sParms.replace(/::/g,":-:").split(/:/);
  var sQcp=a[0];
  var sCP=(a[1]=="-" ? "" : a[1]);
  var sQcm=(a[2]=="-" ? "" : a[2]);
  var sID=(a[3]=="-" ? "" : a[3]);
  var sCGI=window.location.href.replace(/profiling1?.pl.*/,"bdcom/bdcom.pl");
  var oForm=document.forms[0];

  for(var i=0;i<oForm.elements.length;i++) {
    var oC=oForm.elements[i];
    if(oC.name==sQcm) { oC.parentNode.id="bdcomcell"; break; }
  }

  for(var i=0;i<oForm.elements.length;i++) {
    var oC=oForm.elements[i];
    if(oC.name==sQcp) {
      changeElement(sCGI+'?cp='+sCP+'&id='+sID,'bdcomcell');
      oC.onkeyup=function() {
        changeElement(sCGI+'?cp='+this.value,'bdcomcell');
      }
      break;
    }
  }
}

function infoclient() {
  document.forms[0].elements['screenw'].value=screen.width;
  document.forms[0].elements['screenh'].value=screen.height;
  document.forms[0].elements['navname'].value=navigator.appName;
  document.forms[0].elements['navcode'].value=navigator.appCodeName;
  document.forms[0].elements['navvers'].value=navigator.appVersion;
  document.forms[0].elements['navhead'].value=navigator.userAgent;
  document.forms[0].elements['navos'].value=navigator.platform;
}