var i,j,k, sepcount, stemp, lastmarkerused, markwin, newperson = -2;
var transmitdata = new Object();
transmitdata.type = 0;
transmitdata.result = 0;
transmitdata.tmrca = 50;
//transmitdata.type == 0 is not search 
//   ==1 is number
//   ==2 is array
//transmitdata.result == 0 is all
// == 1 is close only 
// == 2 is E,I,J
// == 3 is R1a
// == 4 is all R1b
// == 5 is R1b classified
// == 6 is R1b unclassified
var myopener = window.opener;
var mrkl = markerheadings.length;

var labelstring;
var labelstring2;
var modalslen = 0;
var colspannum;
var modals = new Array(mrkl);
var modalflag = new Array(mrkl);
var globalsortarray;
var dontusemodalflags;
var ttype = 0;
var tresult = 0;
var groupmintmrca;
var searchfail = "<div class='bdy1'><p>There appear to be no results matching your search criteria and within the maximum TMRCA (";
var searchfail2 = ") you specified. Try a longer TMRCA or check your numbers. </p></div>";
var fluxus = [
"yel",
"red",
"flpink",
"lime",
"blu",
"ltblu",
"tan",
"viol",
"orn",
"mag",
"gray",
"pgre",
"dkblgr",
"black",
"plviol",
"rbrn",
"plblue",
"ltbrn",
"dkgreen",
"yellowgre",
"white",
"dkmag"
];
var fluxusdescr = [
"Yellow (Unclassified)",
"Red",
"Pink",
"Green",
"Dark blue",
"Blue green",
"Yellow gray",
"Violet",
"Orange",
"Magenta",
"Gray",
"Pale green",
"Dark blue-green",
"Black",
"Pale violet",
"Brown",
"Pale blue",
"Light brown",
"Dark green",
"Yellow green",
"White",
"Maroon"
];
var dtmp = new Object();
var myopenwindowname;
var globalmaxtmrca = 100;
var globaltruncate = 0;
var idseq = 0;
var isthereanymatch = 0;
var imr;
for(imr = 0; imr < markerrates.length; imr++)markerrates[imr] = Number(markerrates[imr]); 


function doa(str){
  

 if(str.charAt(0) != ' ')
   window.open("http://www.ysearch.org/search_view.asp?uid="+str+"&viewuid="+str+"&p=0");
   return void 0;
}

function dob(z){

     transmitdata.number = Number(z);
     transmitdata.type = 1;
     transmitdata.result = 1;
     transmitdata.tmrca = globalmaxtmrca;
     transmitdata.truncate = globaltruncate;
     window.open("tables.htm");

  return void 0;
}

function doc(){
var i,j,k, zstring, xnum = -1;

     zstring =  document.myform0.myform0input.value;
     if(! (zstring.length == 6 && zstring.charAt(0) == "&") && !(zstring.length == 5 && zstring.charAt(0) != "&" )){
           alert("Codes must be 5 alphameric characters with an & if Cland Donald code");
           return; 
     } 

     if(zstring.length == 6 && zstring.charAt(0) == "&"){
        zstring = zstring.substr(1);
        zstring = zstring.toUpperCase();
        for(i = 0; i < numberofpeople; i++){
          if(zstring == donald[i][1]){
             xnum = i;
             break;
          }
        }
        if(xnum < 0 || xnum >= numberofpeople){
           alert("This code was not found. Be sure you had or did not have the & depending on whether it was a Clan Donald code or a Ysearch one.");
           return;
        }
     } else {
        zstring = zstring.toUpperCase();
        for(i = 0; i < numberofpeople; i++){
           if(zstring == donald[i][2]){
               xnum = i;
               break;
           }
        }
        if(xnum < 0 || xnum >= numberofpeople){
           alert("This code was not found. Be sure you had or did not have the & depending on whether it was a Clan Donald code or a Ysearch one.");
           return;
        }
     }

     transmitdata.number = xnum;
     transmitdata.type = 1;
     transmitdata.result = 1;
     transmitdata.tmrca = globalmaxtmrca;
     transmitdata.truncate = globaltruncate;
     window.open("tables.htm");

}

function dod(){
var i,j,k, xnum, numused = 0, qqq, numnum, numother;
transmitdata.array = new Array();

    for(i = 0; i < mrkl; i++){

        qqq = document.myform1.elements[i].value;

        for(j = numnum = numother  = 0; j < qqq.length; j++){
            k = qqq.charAt(j);
            if(k.search(/\d/) != -1)numnum++;
            if(k.search(/\D/) != -1 && k != " ")numother++;
        }

        if(numnum < 1 || numnum > 2 || numother > 0){
            xnum = -1;
        } else {
          xnum = Number(qqq);

          if(xnum > 69)xnum = 69;

          if(i == 11 && xnum > 8){
              if(transmitdata.array[9] < 4){
                alert("If DYS385-2 is used you must also include DYS385-1");
                xnum = -1;
              } else {
                xnum -= transmitdata.array[9];
              }
          }
          if(xnum < 0) xnum = -1;
        }      

        if(xnum >= 0)numused++;
        transmitdata.array[i] = xnum; 
    }
        if(numused < 2){
           alert("You must use at least two markers.");
           return ;
        }
        transmitdata.type = 2;
        transmitdata.result = 1;
        transmitdata.tmrca = globalmaxtmrca;
        transmitdata.truncate = globaltruncate;
        window.open("tables.htm");
}



function doq(){
globalmaxtmrca = document.myform2.myform2input.value;
// note that this is a string 
if(globalmaxtmrca < 1)globalmaxtmrca = "1";
if(globalmaxtmrca > 10000)globalmaxtmrca = "10000";

if(document.myform2.myform2check.checked){
   globaltruncate = 1;
} else globaltruncate = 0;



var nextyear = new Date();


nextyear.setFullYear(nextyear.getFullYear() + 1);

document.cookie = "truncate=" + globaltruncate +";";
document.cookie = "tmrca=" + globalmaxtmrca + "; expires=" + nextyear.toGMTString();

}

var nbefore = 6; /* addmajor  ... was 5 */

function getmaxindex(start, stop){
var i,j, maxindex;
var qq = -1;
  for(j =  start; j <= stop; j++){
     if(donald[j].length > qq)qq = donald[j].length;
  }
  return qq - nbefore - 1;  
}

var h = new Array();

function fillmodalsarray(start, stop){
var i,j, max, imax, t, ave , num, xtmp, y; 
  dontusemodalflags = false;
  for(i = 0; i <= lastmarkerused; i++){

     h = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];
     for((j = start), (imax = undefined), max = num = ave = 0; j <= stop; j++){

        if(( xtmp = donald[j][i+nbefore]) !== undefined && xtmp !== 0) {

             if( ((ave += (y = Math.round(xtmp))), num++ , (++h[y]) > max)) (max = h[y],imax = y);
        }
     }
     modals[i] = imax;
/*
     if(num)ave /= num;
     for(j = -4; j < 5; j++)h[imax - j] -= (Math.abs(imax - j - ave)) / 100.;

     for(j = 1; j < 5; j++){
         if(h[imax - j] > h[imax])modals[i] = imax - j, h[imax] = h[imax - j];
         if(h[imax + j] > h[imax])modals[i] = imax + j, h[imax] = h[imax + j];
     }  
*/  if(num > 1) { ave /= num; 
      modalflag[i] = true;
       for(j = -4; j < 5; j++)h[imax - j] -= (Math.abs(imax - j - ave)) / 100.; 
      for(j = 1; j < 5; j++){
          if(h[imax - j] > h[imax])modals[i] = imax - j, h[imax] = h[imax - j];
          if(h[imax + j] > h[imax])modals[i] = imax + j, h[imax] = h[imax + j];
      }  
   } else if(num == 1){modalflag[i] = false;} 
     else { modals[i] = undefined;} 
   }
   modalslen = lastmarkerused + 1;
}

function insertmodals(start, stop, type, index){
var i,j,t;
var zz = "  <tr class='sep'> <td class='"+fluxus[donald[start][5]]+"' colspan='"+colspannum+"' style='height: .6em; text-align:left;'> </td> </tr>";

if(type == 1){
  
      zz += "<tr> <td class='txtmodals'>" + 
                 "</td><td class='txtmodals'> Group </td><td class='txtmodals'> Modals </td><td /><td >" + avetmrca + "</td>";


} else {
   if(index != -1){
     zz +=  "<tr><td class='txtmodals'> &amp;" + donald[index][1] + 
       "</td><td class='txtmodals'> <a href='javascript:doa(\"" + donald[index][2] + "\"); '>" + donald[index][2] +
       "</a></td><td class='txtmodals' >"+donald[index][3] + "</td><td /><td />";
   } else {     
     zz += "<tr><td class='txtmodals'> </td><td class='txtmodals'> User </td><td class='txtmodals' />Modals<td /><td />";
   }  

}

       for(j = 0; j <= lastmarkerused; j++){
         zz +=  (modals[j] !== undefined) ?
               "<td>" + (j != 11 ? modals[j] : modals[j] + modals[j-2])  + "</td>" :
               "<td />";
         }
 zz += "<td class='txtmodals'>" + ( ( type != 1 && index != -1 ) ? donald[index][3] : "&nbsp;" ) +"</td>" + 
       ("</tr><tr class='sep'> <td class='sep' colspan='"+colspannum+"'> </td> </tr>");


 document.write(zz);

}


var avetmrca;

function dodistancearray(start, stop){
var j, i2 = -1, alpha, distance , tmrca, i, nmark, nlen2, rsum, k; 
     
var sortarray = new Array();
var j, alpha, distance = 0, tmrca, nmark = 0;
avetmrca = 0;
groupmintmrca = 10000;
var qtmp = new Object();


for(i = start; i <= stop; i++){
 i2++;    
 nmark = distance = 0;
 sortarray[i2] = new Object();
 qtmp = donald[i];
 nlen2 = Math.min(modalslen, qtmp.length - nbefore);

    for(j = 0, rsum = 0, k = nbefore; j < nlen2; j++, k++){
          if(qtmp[k] !== undefined && modals[j] !== undefined && ( dontusemodalflags || modalflag[j] == true  )){
//               (nmark++), (distance += Math.abs(Math.round(qtmp[k]) - Math.round(modals[j]))), (rsum += markerrates[j]);
             (nmark++), (distance += (Math.round(qtmp[k]) !== Math.round(modals[j]))  ), (rsum += markerrates[j]);   
            }
     }

    
    tmrca = (nmark > 1 && distance < nmark) ? (.5 * nmark / rsum) * Math.log((distance + 0.7) / nmark  + 1.) : 10000.;
    if(newperson == i)tmrca = 0;
    if(tmrca > 999)tmrca = 999;
    sortarray[i2].index = i , sortarray[i2].count = i2, sortarray[i2].tmrca = tmrca;


    if(groupmintmrca > tmrca)groupmintmrca = tmrca;
    avetmrca += tmrca;
    if(tmrca < 9.500001)sortarray[i2].str =                     "<td>"+distance+"/"+nmark+"</td><td>"+Math.round(tmrca)+"</td>";
    else if(tmrca < 19.50001)sortarray[i2].str =   "<td>"+distance+"/"+nmark+"</td><td class='lime'>"+Math.round(tmrca)+"</td>";
    else if(tmrca < 29.50001)sortarray[i2].str =  "<td>"+distance+"/"+nmark+"</td><td class='brightyelgr'>"+Math.round(tmrca)+"</td>";
    else if(tmrca < 39.50001)sortarray[i2].str =    "<td>"+distance+"/"+nmark+"</td><td class='yel'>"+Math.round(tmrca)+"</td>";
    else if(tmrca < 49.50001)sortarray[i2].str = "<td>"+distance+"/"+nmark+"</td><td class='brightyelorn'>"+Math.round(tmrca)+"</td>";
    else if(tmrca < 59.50001)sortarray[i2].str = "<td>"+distance+"/"+nmark+"</td><td class='brightredorn'>"+Math.round(tmrca)+"</td>";
    else sortarray[i2].str =                        "<td>"+distance+"/"+nmark+"</td><td class='red'>"+Math.round(tmrca)+"</td>"; 


}
    avetmrca = Math.round(avetmrca*2./(stop-start+1));
    return sortarray;

}

function quicksort( v, left, right){
var t, i, last, ttt;
// from Kernighan and Ritchie
if(left >= right)return;

t = v[left];
v[left] = v[Math.floor((left + right)/2)];
v[Math.floor((left + right)/2)] = t;

last = left;
ttt = globalsortarray[v[left]].tmrca;
for(i = left+1; i <= right; i++){
   if(globalsortarray[v[i]].tmrca - ttt < 0){
       t = v[++last];
       v[last] = v[i];
       v[i] = t;
   }
}
t = v[left];
v[left] = v[last];
v[last] = t;
quicksort(v,left,last-1);
quicksort(v,last+1,right);
}

function dnatablesection(start, stop, hasmodal, index){
var i,j, nument, lastent, t, i2, k;
var zz = "";
var auxarray = new Array();
var sortarray = globalsortarray;

if (hasmodal){
  insertmodals(start, stop, hasmodal, index);
   for(j = 0; j <= stop-start; j++)auxarray[j] = j;
   if(stop > start){
     quicksort(auxarray,0,stop-start); 
   }

} else  document.write("<tr class='sep'> <td class='" + fluxus[donald[start][5]] + "' colspan='"+colspannum+"' style='height: .6em; text-align: left;'> </td> </tr>"); 

  for(i2 = 0; i2 <= stop - start; i2++){
          
    i =   !hasmodal ? i2 + start : sortarray[auxarray[i2]].index; 
    dtmp = donald[i];

if(globaltruncate == 1 && ttype && sortarray[auxarray[i2]].tmrca > globalmaxtmrca) break;
// the above statement is the one that truncates the individual tables by max TMRCA

    zz = "<tr><td class='txt'> <a href='javascript:dob(" + i + "); '>  &amp;" +dtmp[1] + "</a>" +
     "</td><td class='txt'> <a href='javascript:doa(\"" + dtmp[2] + "\"); '>" + dtmp[2] +
       "</a></td><td class='txt' id='q" + i + "' >"+dtmp[3] + "</td>" ; //  fluxus[dtmp[5]];  the fluxus[dtmp[5]] was 4 before addmajor
     
    if(hasmodal){
       zz += sortarray[auxarray[i2]].str;

       for(j = 0, k = nbefore; j < (dtmp.length - nbefore); j++, k++){
        zz += (dtmp[k] !== undefined ) ? 
           ((modals[j] === undefined || Math.round(dtmp[k]) == modals[j]) ? "<td title='"+ markerheadings[j] +"'>" : "<td title='"+ markerheadings[j] +"' class='pink'>") + 
//           ((modals[j] === undefined || Math.round(dtmp[k]) == modals[j]) ? "<td>" : "<td class='pink'>") +
               (dtmp[k] +  (j == 11 ? dtmp[k-2] : 0 ) ) + "</td>" : "<td />";
      }
     
    } else {
      zz += "<td /><td />";
      for(j = 0, k = nbefore; j < (dtmp.length - nbefore); j++, k++){
           zz += (dtmp[k] !== undefined) ?
                "<td>"  +  (dtmp[k] +  (j == 11 ? dtmp[k-2] : 0 ) ) + "</td>" : "<td />";
      }
    }

    zz += tds[lastmarkerused - dtmp.length + nbefore + 1] + "<td class='txt'>"+ dtmp[3] + "</td></tr>";
    sepcount++;
    if(sepcount == 5){
        sepcount = 0;
        zz += "<tr class='sep'> <td class='sep' colspan='"+colspannum+"'> </td> </tr>";
    }
    document.write(zz);
     
  }   
}

function generatetableheadings () {
var i,j, stemp, k= -1;
var xhstyle = " style='background-color: rgb(217,222,255)'";


for(i = 0; i <= lastmarkerused; i++){
 stemp = markerheadings[i].charAt(0);
 for(j = 1; j < markerheadings[i].length; j++){
  if(markerheadings[i].charAt(j) == '=')break;
  stemp = stemp+"<br />"+markerheadings[i].charAt(j);
 }

 k++;
 if(k == 12)k = 0;

 if(markerheadings[i].length <= 6) {
     if(markerheadings[i].indexOf("710") == -1){
          document.write("<th" + (k > 5 ? xhstyle : "") + ">"+stemp+"</th>");
     } else {
         document.write("<th class='sq5'" +  (k > 5 ? xhstyle : "") + ">"+stemp+"</th>");     
     }

  } else if(markerheadings[i].length == 7){
     if(markerheadings[i].indexOf("F399") == -1){
         document.write("<th class='sq2'" +  (k > 5 ? xhstyle : "") + ">"+stemp+"</th>");
     } else {
         document.write("<th class='sq5'" +  (k > 5 ? xhstyle : "") + ">"+stemp+"</th>");
     }
  }  else if(markerheadings[i].length == 8){
     document.write("<th class='sq3'" +  (k > 5 ? xhstyle : "") + ">"+stemp+"</th>");

  }  else {

     document.write("<th class='sq4'" +  (k > 5 ? xhstyle : "") + ">"+stemp+"</th>");
  }
 }
 document.write("<th class='txtname'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Name&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</th>");
}

function allhead(start, stop, modal){
var i, k, l;


document.write("<colgroup span='5' />");

 for(i = k = 0; i < Math.floor((lastmarkerused+1)/12); i++){
   document.write("<colgroup span='6' /><colgroup span='6' class ='sh'/>");
 } 
 k = lastmarkerused + 1 - 12 * (Math.floor((lastmarkerused+1)/12));

 if(k > 0){
     document.write("<colgroup span='"+k+"'/>");
 }
 k -= 6;
 if(k > 0){
     document.write("<colgroup span='"+k+"' class ='sh' />");

 }

 document.write(
  "<thead>" + 
  "<tr><th class='txt'> Clan<br />&nbsp;&nbsp;Donald&nbsp;&nbsp;<br />Code</th>" + 
  "<th class='txtys'>Ysearch<br />Code</th>" + 
  "<th class='txtname'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Name&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </th>")

colspannum = 7+lastmarkerused;
   if(modal){
      document.write("<th class='txtdist'> D<br />i<br />s<br />t</th><th class='w1'> T<br />M<br />R<br />C<br />A</th>"); 
   } else {
      document.write("<th class='txtdist' /><th class='w1' />");
   }  
   generatetableheadings();

   document.write("</tr></thead>");
}


function doawholetable(group,mingroup, modal, index){
   var i,j, k;



 lastmarkerused = getmaxindex(groups[group][mingroup][0], groups[group][mingroup][1]);
 if(modal){
     if(!ttype)fillmodalsarray(groups[group][mingroup][0], groups[group][mingroup][1]);
     globalsortarray = dodistancearray(groups[group][mingroup][0], groups[group][mingroup][1]);

 }
 if(!ttype ||  groupmintmrca <= globalmaxtmrca){ 
   isthereanymatch = 1;
   document.write("<div><span style='font-weight: bold;'>"+labelstring+"&nbsp;-&nbsp;"+fluxusdescr[donald[groups[group][mingroup][0]][5]]+" subgroup</span>");
   if(labelstring2 != "")document.write("<br /><br />" + labelstring2);
   document.write("<br /><br /></div><table style='margin-right: 8px'>");

   allhead(groups[group][mingroup][0], groups[group][mingroup][1], modal);
   sepcount = 0;

   document.write("<tbody>");
  dnatablesection(groups[group][mingroup][0],groups[group][mingroup][1],modal, index);

   if(sepcount) document.write( "<tr class='sep'> <td class='sep' colspan='"+colspannum+"'> </td> </tr>");

   document.write("</tbody> </table><p> </p>");
 }
}

function insertmodalsfromperson(index){
var i;
  modalslen = 0;
  for(i = 0; i < mrkl; i++) {
    if(donald[index][i+nbefore] !== undefined) {
       modals[i] = Math.round(donald[index][i+nbefore]);
       modalslen = i;
    } else modals[i] = undefined;
   }
   modalslen++; 
}

function inserthtmlforms(){
var i,j,k,m;
var stemp;
var qstring;
var numcols = 15;
var zz = "<br /><br /><table class='myform1'><tbody> <tr><td class='forms0'>Enter a desired maximum TMRCA in this box, set the desired value setting for table truncation, and click Set<br />&nbsp;</td></tr>" +
"<tr><td><form name='myform2' action='' onsubmit='return false;' ><br /><input type = 'text' name='myform2input' size='6' />"+
"&nbsp;&nbsp;&nbsp;<input type='button' value='Set' onclick='doq();' />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type='checkbox' value='Yes' name='myform2check' />&nbsp;Truncate Tables?</form><br /></td></tr> </tbody></table><br /><br />";

zz += "<table class='myform2'><tbody> <tr><td class='forms0'>Enter a Clan Donald code (with an &amp; sign) or Ysearch code (without the &amp; sign) <br /> and click Submit to see a table of distances. <br />&nbsp;</td></tr>" +
"<tr><td><form name='myform0' action='' onsubmit='return false;'><br /><input type = 'text' name='myform0input' size='11' />"+
"&nbsp;&nbsp;&nbsp;<input type='button' value='Submit' onclick='doc();' /></form><br /></td></tr> </tbody></table><br /><br />" + 
"<table class='myform'><tbody><tr><td class = 'forms0'>"+
"Enter any combination of two or more markers and click Submit<br /> to see a table of distances. <br /> &nbsp;"+
"</td></tr>"+
"<tr><td><form name='myform1' action='' onsubmit='return false;'><table class='myform'><tbody>";

zz += "  <tr class='sep'> <td class='sep3' colspan='"+(numcols)+"'> </td> </tr>";
 m = Math.ceil(mrkl/numcols);
 for(i = 0; i < m; i++) {

    for(j = 0; (j < numcols) && ((i*numcols+j) < mrkl); j++){
      stemp = markerheadings[j+i*numcols].substring(0,3);
      if((markerheadings[j+i*numcols].substring(3,6)).length > 0){
        stemp = stemp + "<br />" + (markerheadings[j+i*numcols].substring(3,6));
      }
      if((markerheadings[j+i*numcols].substring(6,9)).length > 0){
        stemp = stemp + "<br />" + (markerheadings[j+i*numcols].substring(6,9));
      }
      zz += "<td class='formhead'>"+stemp+"</td>";

    }
    zz += "</tr><tr>";

    for(j = 0; (j < numcols) && ((i*numcols+j) < mrkl); j++){

       zz += "<td><input type = 'text' size='2' /></td>";
    }
    zz += "</tr><tr class='sep'> <td class='sep3' colspan='"+(numcols)+"'> </td> </tr>";
}

zz += "</td></tr></tbody></table><br />"+
"<input type='button' value='Submit' onclick='dod();' /></form>"+
"<br /></td></tr></tbody><table class='myform'>";

document.write(zz);

for(i = 0; i < mrkl; i++)
  document.myform1.elements[i].value = " ";


if(globaltruncate == 1){ 
   document.myform2.myform2check.checked = true;
} else {
   document.myform2.myform2check.checked = false;
}

document.myform2.myform2input.value = globalmaxtmrca;
}

function dowholemajorgroup( i ) {
var j;


   for(j = 0; j <= groups[i].maxminor; j++){

         if(groups[i][j][0] <= groups[i][j][1]){

           if(ttype == 0){ 

               if(groups[i][j][0] < groups[i][j][1])  doawholetable(i,j,1,0);
               else   doawholetable(i,j,0,0);
           } else {
               doawholetable(i,j,2,newperson);
           } 
          
         }
   }
}

var tds = new Array();

// end of functions, MAIN PROGRAM begins here

tds[0] = "";
for(i = 1; i < mrkl; i++)tds[i] = tds[i-1] +"<td />";

allcookies = document.cookie;

var posz = allcookies.indexOf("tmrca=");
if(posz != -1){
   var strtz = posz + 6;
   var endz = allcookies.indexOf(";",strtz);
   if(endz == -1)endz = allcookies.length;
   globalmaxtmrca = allcookies.substring(strtz,endz);
}  
var posz = allcookies.indexOf("truncate=");
if(posz != -1){
   var strtz = posz + 9;
   var endz = allcookies.indexOf(";",strtz);
   if(endz == -1)endz = allcookies.length;
   globaltruncate = allcookies.substring(strtz,endz);
  
}