function q1m(oCtrl) { calc_col(oCtrl,"q1m[","]",Array("i1","i2","i3","i4","i5"),"tot"); }
function s6(oCtrl) { calc_col(oCtrl,"s6[","]",Array("i1","i2","i3","i4","i5"),"tot"); }
function q1d(oCtrl) { calc_col(oCtrl,"q1d[","]",Array("i1","i2","i3","i4","i5","i6","i7","i8","i9","i98","i97"),"tot"); }

function q2h(oCtrl) {
  var tPre="q2h[";
  var tPost="]";
  var tot="tot";

  var n=0;
  for (var r=1;r<=27;r++) {
    if(r==27) { r=97; }
    if(typeof(oCtrl.form.elements[tPre+"v"+String(r)+tPost])!='undefined') {
      var v=parseInt(oCtrl.form.elements[tPre+"v"+String(r)+tPost].value);
      if(!isNaN(v)) { n+=v; }
    }
  }
  oCtrl.form.elements[tPre+tot+tPost].value=n;
  oCtrl.form.elements['_'+tPre+tot+tPost].value=n;
}

//function xq15(oCtrl) {
//
// If q15:i12:_1_ or q15:i12:_2_ are ticked, show i13, otherwise hide i13
//
//var a1 = document.getElementById('q15:i12:_1_');
//var a2 = document.getElementById('q15:i12:_2_');
//
//var x = document.getElementById('q15:i13:_1_').parentNode.parentNode;
//
//  if ((a1.checked) || (a2.checked)) {
//    x.style.visibility='';
//  } else {
//    x.style.visibility='hidden';
//  }
//}

function getElementsByClass(searchClass,tag) {
    var classElements = new Array();
    var els = document.getElementsByTagName(tag); // use "*" for all elements
    var elsLen = els.length;
    for (i = 0, j = 0; i < elsLen; i++) {
         if ( els[i].className == searchClass ) {
             classElements[j] = els[i];
             j++;
         }
    }
    return classElements;
}

function xq7(oCtrl) {

// If q7d[i23].a is >0 show q7d[i23].b & q7d[i23].c

var a1 = document.getElementsByName('q7d[i23].a');

var x0 = document.getElementsByName('q7d[i23].b');
var x1 = document.getElementsByName('q7d[i23].c');
var x2 = getElementsByClass('tempclass','td');

  if (a1[0].value>0) {
    x0[0].style.visibility='';
    x1[0].style.visibility='';
    x2[0].style.visibility='';
    x2[1].style.visibility='';
  } else {
    x0[0].style.visibility='hidden';
    x1[0].style.visibility='hidden';
    x2[0].style.visibility='hidden';
    x2[1].style.visibility='hidden';
  }
}







function p7total(oForm) {
  var q='p7';
  var n=4;
  var nTot=0;


  for(var i=1;i<=n;i++) {
    nTot+=get(oForm,q+'[i'+i+']');
  }
  set(oForm,q+'[tot]',nTot);
}

function rtot1(oForm,q,n) {
  var nTot=0;

  for(var i=1;i<=n;i++) {
    nTot+=get(oForm,q+'[i'+i+']');
  }
  set(oForm,q+'[tot]',nTot);
}

function q10b(oForm) { rtot1(oForm,"q10b",6); }

function q11(oForm) {
  for(var c=1;c<=6;c++) {
    var nTot=0;
    for(var r=1;r<=8;r++) { nTot+=get2(oForm,'q11[t'+r+'][i'+c+']'); }
    set(oForm,'q11[tot][i'+c+']',nTot);
  }
}

function get2(oCtrl,sName) {
  var nRet=0;

  for(var i=0;i<oCtrl.form.elements.length;i++) {
    var oC=oCtrl.form.elements[i];
    if(oC.name==sName) { nRet=oC.value*1; break; }
  }

  return(nRet);
}

  

function q57(oForm) {
  var q="q57";
  var n=9;
  var nTot1=0;
  var nTot2=0;

  for(var i=1;i<=n;i++) {
    nTot1+=get(oForm,q+'[i'+i+'][s1]');
    nTot2+=get(oForm,q+'[i'+i+'][s2]');
  }
  set(oForm,q+'[tot][s1]',nTot1);
  set(oForm,q+'[tot][s2]',nTot2);
}

function uniqSlct(oCtrl,sQ,nItm) {
  for(var i=1;i<=nItm;i++) {
    var sS=sQ+"[i"+i+"]";
    if(sS!=oCtrl.name) {
      for(var j=0;j<oCtrl.form.elements.length;j++) {
        var oCur=oCtrl.form.elements[j];
        if((oCur.name==sS) && (oCur.selectedIndex==oCtrl.selectedIndex)) { oCur.selectedIndex=0; }
      }
    }
  }
}

function rankq11(oCtrl) { uniqSlct(oCtrl,"q11",8); }

function totq2(oCtrl) { calc_col(oCtrl,"q2[","]",Array("i1","i2","i3","i4"),"tot"); }
function totq3(oCtrl) { calc_col(oCtrl,"q3[","]",Array("i1","i2","i3","i4","i5","i6","i7","i8"),"tot"); }
function totq4(oCtrl) { calc_col(oCtrl,"q4[","]",Array("i1","i2","i97"),"tot"); }
function totq7(oCtrl) { calc_col(oCtrl,"q7[","]",Array("i1","i2","i3","i4"),"tot"); }
function totq24b(oCtrl) { calc_col(oCtrl,"q24b[","]",Array("i1","i2","i3","i4","i5","i6","i7","i8","i9"),"tot"); }
function totq24c(oCtrl) { calc_col(oCtrl,"q24c[","]",Array("i1","i2","i3","i4","i5","i6","i7","i8","i9"),"tot"); }
function totq24d(oCtrl) { calc_col(oCtrl,"q24d[","]",Array("i1","i2","i3","i4","i5","i6","i7"),"tot"); }