// This file contains intellectual property and artistic creations 
// by Dennis Sandow and is copyright 2000-2010 by the author. 
// For use only on websites maintained by Dennis Sandow, or with
// specific permission.  Do not remove this notice.

var cmdLnArg = location.search.substring(2,1);
var inDataMnesA=new Array(), allDataArray = new Array(), oneLine=new Array(), threeMneLstsA = new Array('STD','MOR','ALL'), ma = new Array(), isInput = new Array(), DisplayArray = new Array();

var HS=' ', dataCellsIn=0, flavor='STD', moreDat='',nxDat='', moreHis='', nxHis='', dWindowCtr=1234, WbaA='';  

function setUpSlider(){
  r2topImg='<div align="center" class="v8">'+
        '<a href="javascript: DoIt(\'Alltowns\')" onMouseout="window.status=window.defaultStatus; return true;" onmouseover="window.status=\'All 47 towns.\'; return true;" ><b>Whole List</b></a>'+
    '<br><a href="javascript: DoIt(\'Short\')" onMouseout="window.status=window.defaultStatus; return true;" onmouseover="window.status=\'Long Hill quartile plus top and bottom five towns.\'; return true;" ><b>Abbreviated List</b></a>'+
    '<br><a href="javascript: DoIt(\'Include\')" onMouseout="window.status=window.defaultStatus; return true;" onmouseover="window.status=\'Include checked towns\'; return true;" ><b>Include Only </b>'+Wingding('check',1)+'</a>'+
    '<br><br><input type="button" value = "Clear" onclick="clearEm(\'textarea\')"></div>';
};

function Yr2(arg){ // arg may be 1998, -2, 2007, 7 
  yr2b= arg - (arg>1000?2000:0); 
  if(yr2b<0) return yr2b+=100; 
  if(yr2b<10) return '0'+yr2b;
  return yr2b;
};

function rankKey(arg){
  if (arg.indexOf('PctChg') >= 0 )return 'PctChgRk'+arg.replace('PctChg','');
  if (arg.indexOf('ChgRnk') >= 0 )return 'ChgRnkRk'+arg.replace('ChgRnk','');
  if (arg.indexOf('ChgVl') >= 0 )return 'ChgVlRk'+arg.replace('ChgVl','');
  if (arg.indexOf('ChgVvl') >= 0 )return 'ChgVvlRk'+arg.replace('ChgVvl','');
  if (arg.indexOf('Avgg') >= 0 )return 'AvggRk'+arg.replace('Avgg','');
  return 'Rk'+arg;
};

function stripYear(arg,from){
//if(pageOrSpawn) alert(36+' '+arg+' '+from)
  return arg.replace(/[0-9]*$/,'');
};

function extractYear(arg){
  return arg.replace(/[ %\/a-zA-Z]/g,'');
};
 
function stripMne(arg, from){
//if(pageOrSpawn)alert(44+' '+arg+' '+from)
  striped = stripYear(arg,'rf46<'+from).replace('PctChg','').replace('Avgg','').replace( 'ChgRnk','' ).replace( 'ChgVl','' ).replace( 'ChgVvl','' ).replace( 'Val','' ).replace('Rk','');
  if ( typeof CB[striped] != udf ) return striped; else return arg;
};

function clearEm(arg){
  aa=document.forms.FZ;
  for (x=0;x<aa.length;x++){
// Don't reset font size.  
    if ( aa[x].type == 'checkbox' && aa[x].name.indexOf('Bigge') ) document.forms.FZ[x].checked = false;
    if ( aa[x].type == 'textarea' || aa[x].type == 'text' ) document.forms.FZ[x].value = '';
  };
  for (x=0;x< aa.sort1.length;x++){
    document.forms.FZ.sort1[x].checked = false;
    if (aa.sort1[x].value == 'Towns') document.forms.FZ.sort1[x].checked=true;
  };
  document.forms.FZ['TwnLong Hill'].checked = true;
};

function popThings(arg, inCapt){
  if (isPrint) return false;
  if (typeof Mesage[arg] != udf && typeof Captn[arg] != udf) return true;
  if (typeof Mesage[stripYear(arg,'rf67')] == udf ) return false;
  if (arg != stripYear(arg,'rf67a') ) Mesage[arg] = Mesage[stripYear(arg,'rf67b')];
  if (typeof Captn[arg] == udf && inCapt) Captn[arg]=inCapt;
  return true;
};

// Below is in-line at load-time.
// Make the parameter sequence list

DisplayArray = DisplayList.split('|'); 
for (x=0; x<DisplayArray.length-1; x++) {
  seqItem = DisplayArray[x].split('!')[0];
  toFlavor=(DisplayArray[x]+'!').split('!')[1];
  if (! toFlavor) toFlavor='S'
// Lists:'|S'=STD; 'I'=More items; 'D'=show hidden
  threeMneLstsA['STD'] += ( toFlavor == 'S' )?'|'+seqItem:'';
  threeMneLstsA['MOR'] += ( 'SI'.indexOf(toFlavor) >= 0 )?'|'+seqItem:'';
  threeMneLstsA['ALL'] += '|'+seqItem;
};

// Load the incoming data.  Loop through towns, then columns. 
// allDataArray ~ from LoadList; oneLine splits on commas; ma = MasterArray
inDataMnesA=mneList.replace(/\|/g,'').replace(/,/g,'|').split('|'); 
inDataArrayWidth=inDataMnesA.length
for (mneLoadOrd=1; mneLoadOrd<inDataArrayWidth; mneLoadOrd++){
  ma[inDataMnesA[mneLoadOrd]] = new Array();
  isInput[inDataMnesA[mneLoadOrd]] = true;
  
};

allDataArray=LoadList.split('|');
// Don't read first line, colheads from the table are dummies.
for (oneLinePerTownOrd=1;oneLinePerTownOrd<allDataArray.length;oneLinePerTownOrd++){ 
// Don't read last line, Allow optional trailing | after Wharton.
  if ( ! allDataArray[oneLinePerTownOrd] ) continue;
  dataForOneTownA=allDataArray[oneLinePerTownOrd].split(','); 
  twn=dataForOneTownA[1]; 
  for (mneLoadOrd=1; mneLoadOrd<inDataArrayWidth; mneLoadOrd++){
    ma[inDataMnesA[mneLoadOrd]][twn] = dataForOneTownA[mneLoadOrd];
    dataCellsIn++;
  };
};

switch ( cmdLnArg ) {
  case ('') : flavor='STD'; moreDat='M'; nxDat='I'; moreHis='M'; nxHis='h'; break;
  case ('h'): flavor='STD'; moreDat='M'; nxDat='X';                         break;
  case ('I'): flavor='MOR';                         moreHis='M'; nxHis='X'; break;
  case ('X'): flavor='MOR';              nxDat='h';              nxHis='I'; break;
  case ('D'): flavor='ALL';              nxDat='h';              nxHis='I'; break;
};