// TRI Explorer - Insert counties
// W.Smith 21-jan-2000
//
// AS Added functions HandleError, IsCounty and SetCountyExist 8/18/00
//

window.onerror = HandleError;

var helpBase = "/triexplorer/";
var baseURL = "/triexplorer/";
var  cgiBase = "/cgi-bin/";
var  sBroker = "/cgi-bin/broker";
var getCountyCGI = "tri.getcounties";
var blnCountyExist;
var testchemical;
var msgWindow;            //used in chemicals 

var NS4 = (document.layers) ? 1 : 0;


function getService()
{
  return "&_service=oiaa&_program=xp_tri.sasmacr.tristart.macro";
//remember to change it in sub zipcode in tri.getcounties ;
}

function noCountyData(form) {

   var countyname = form.county.options[form.county.selectedIndex].text;
   var nodata = (countyname.substring(countyname.length-1) == '*');

   if (nodata) {
      alert(
       "You have selected " + countyname + " county.\n\n" +
        "County names ending with  ' * '  have no reported TRI data.\n" +
        "Please select another county and try again."        );
   }
   return nodata;
}


function industryData(form) {
var industryvalue = (NS4) ? document.forms['form1'].industry.options[document.forms['form1'].industry.selectedIndex].value : document.forms['form1'].industry.value;
var chemicalflag =  form.chemflag.value;
var industryflag =  form.indflag.value;
//alert("in industryData");
//if (form.industry.value != "") {
//    var selectedElements = new Array();
//    selectedElements = form.industry.value.split(",");
//    industrypicked = "";
//alert(selectedElements.length);
//   for(var i = 0; i < selectedElements.length - 1; i++) {
//alert(form.industry.value);
       //  industrypicked += form.industrypicked[i].value+",";
//    }
//}
//alert("industrypicked = "+industrypicked);

if (industryvalue == "SIC" || industryvalue == "CHANGESIC" || industryvalue == "NSIC" || industryvalue == "NEW" || industryvalue == "OLD"){

   var c_industry= "&c_industry=";
   var c_indlist= "&c_indlist=";
   var c_chemical= "&c_chemical=";
   var c_chemlist= "&c_chemlist=";
   var c_coreyear= "&c_coreyear=";
   var c_usrState= "&c_usrState=";
   var c_chk0 = "&c_chk0=";
   var c_chk1 = "&c_chk1=";
   var c_chk2 = "&c_chk2=";
   var c_chk3 = "&c_chk3=";
   var c_chk4 = "&c_chk4=";
   var c_chk5 = "&c_chk5=";
   var c_chk6 = "&c_chk6=";
   var c_chk7 = "&c_chk7=";
   var c_chk8 = "&c_chk8=";
   var c_chk9 = "&c_chk9=";
   var c_chk10 = "&c_chk10=";
    

   //c_usrState keeps track of user selected state from the state pick list.
   //strState keeps track of Geographic location selected from top level page
   //i.e. zip code or state or all of US 
   var c_zip= "&c_zip=";
   var c_tabrpt =  "&c_tabrpt="+ form.tab_rpt.value;

   var c_fips= "&c_fips=";
   var c_year= "&c_year=";
   //c_industry += "SIC";
    c_industry += industryvalue;
   if (form.stateloc.value == null) {
     var strState = (NS4) ? document.forms['form1'].stateloc.options[document.forms['form1'].stateloc.selectedIndex].value : document.forms['form1'].stateloc.value;
   }
   else {
     var strState = form.stateloc.value;
   }
if (strState.substr(0,3) != "USA") var strState = form.stateloc.value;

   if (strState == "STATE") {
     c_usrState += (NS4) ? document.forms['form1'].state.options[document.forms['form1'].state.selectedIndex].value : document.forms['form1'].state.value;
   }

   if (strState == "") var strState = "STATE" ;

  c_fipsflag = ""
  for (var i=0 ; i < form.length; i++){
    if (form.elements[i].name == "countyflag") {
     c_fips += (NS4) ? document.forms['form1'].county.options[document.forms['form1'].county.selectedIndex].value : document.forms['form1'].county.value;
     c_fipsflag = "yes";
    }
  }
  if (c_fipsflag == "")   c_fips += form.countyfips.value;

   if ( form.chemical == null ) {
     //alert( "Chemical is NOT an option!" );
   }
   else {
       // alert( "Selected Chemical=" 
       //      + form.chemical.options[form.chemical.selectedIndex].value );
       if (chemicalflag == "_ALL_" || chemicalflag == "CORE" || chemicalflag == "GROUP" || chemicalflag == "PICKCHEM" || chemicalflag == "CHANGECHEM" || chemicalflag.substr(0,6) == "TRCHEM") { 
          c_chemical += form.chemflag.value ;
         }
  } 
   var reportvalue = form.report.value;
   if(reportvalue.substr(0,5) == "trend") {
      c_chemical += form.chemical.options[form.chemical.selectedIndex].value;
   }
   if (chemicalflag == "PICKCHEM" || chemicalflag == "CHANGECHEM" || chemicalflag.substr(0,6) == "TRCHEM")
     c_chemlist += form.chemselected.value;

     c_coreyear += form.core_year.value;

   if (chemicalflag == "CORE" || chemicalflag == "GROUP")  {
var strChemical = (NS4) ? document.forms['form1'].chemical.options[document.forms['form1'].chemical.selectedIndex].value : document.forms['form1'].chemical.value;
     c_chemlist += strChemical;
   }

   if ( form.year == null ) {
     //alert( "Year is NOT an option!" );
   }
   else {
      //alert( "Selected Year=" 
      //     + form.year.options[form.year.selectedIndex].value );
      c_year += form.year.options[form.year.selectedIndex].value;
   }
    SubmitOk = true;

    // has the field been created ?
    c_zipflag = "";
    for (var i=0 ; i < form.length; i++){
       if (form.elements[i].name == "loca") {
           c_zipflag = "YES" ;
           c_zip += form.loca.value;
       }
    }
    if (c_zipflag == "")
      c_zip += "";

   aray = [c_chk0,c_chk1,c_chk2,c_chk3,c_chk4,c_chk5,c_chk6,c_chk7,c_chk8,
c_chk9,c_chk10] ;
   for (var i=0; i < form.fld.length; i++ ) {
      aray[i]="&c_chk"+i+"="+form.fld[i].checked;
   }
   if (form.fld.length < 11 ) {
      for (var i=(form.fld.length ); i < 11; i++ ) {
         aray[i]="&c_chk"+i+"=";
      }
   }
   chosen = "";
   for (var i=0; i < 11; i++ ) {
      chosen += aray[i];
   }

    //if (strState != "ZIP")
    if(industryvalue != "NEW" && industryvalue != "OLD")
     {
       newWindow('indlist.htm','picklist');
     }
     if((industryvalue == "NEW" || industryvalue == "OLD") && reportvalue.substr(0,5) == "trend") {
       // trend report the screen is not reprinted when NEW or OLD industry selected
     }
     else {
    location = cgiBase + getCountyCGI + "?report=" 
            + form.report.value + "&scriptname=" + form.scriptname.value + "&state=" + strState + c_year + c_industry + c_chemical + c_chemlist + c_coreyear + c_indlist + c_usrState + c_fips + c_zip + c_tabrpt + chosen ;
     }
  }
}

function newWindow(file,window){
msgWindow = open(helpBase+file,'window','scrollbars=yes,toolbar=no,resizable=yes,height=300,width=760');
   if (msgWindow.opener == null) msgWindow.opener = self;
return msgWindow;
}

function noChemicalData(form) {

   var chemicalname = form.chemical.options[form.chemical.selectedIndex].text
   var nodata = (chemicalname.substring(chemicalname.length-1) == '*');
   var chemicalvalue = form.chemical.options[form.chemical.selectedIndex].value
   var chemicalflag =  form.chemflag.value;
   var casflag =  form.casflag.value;
   var industryflag =  form.indflag.value;


   if (chemicalvalue == "") return;

   chemicalspicked = ""

   if (nodata) {
      alert(
       "You have selected " + chemicalname + " chemical.\n\n" +
        "Chemical names ending with  ' * '  have no reported TRI data.\n" +
        "Please select another chemical and try again."        );
	return ;
   }

   var c_tabrpt =  "&c_tabrpt="+ form.tab_rpt.value;
   var c_industry= "&c_industry=";
   var  c_indlist= "&c_indlist=";
   var c_chemical= "&c_chemical=";
   var c_chemlist= "&c_chemlist=";
   var c_coreyear= "&c_coreyear=";
   var c_usrState= "&c_usrState=";
   var     c_year= "&c_year=";
     c_chemical += chemicalvalue ;
   var     c_fips= "&c_fips=";
   var  c_zip = "&c_zip=";
   var c_chk0 = "&c_chk0=";
   var c_chk1 = "&c_chk1=";
   var c_chk2 = "&c_chk2=";
   var c_chk3 = "&c_chk3=";
   var c_chk4 = "&c_chk4=";
   var c_chk5 = "&c_chk5=";
   var c_chk6 = "&c_chk6=";
   var c_chk7 = "&c_chk7=";
   var c_chk8 = "&c_chk8=";
   var c_chk9 = "&c_chk9=";
   var c_chk10 = "&c_chk10=";

   
  c_fipsflag = ""
  for (var i=0 ; i < form.length; i++){
    if (form.elements[i].name == "countyflag") {
     c_fips += (NS4) ? document.forms['form1'].county.options[document.forms['form1'].county.selectedIndex].value : document.forms['form1'].county.value;
     c_fipsflag = "yes";
    }
  }

  if (c_fipsflag == "")  {
     c_fips += form.countyfips.value;
   }
   else if(c_fipsflag == "yes") {
      var countySelect = (NS4) ?  document.forms['form1'].county.options[document.forms['form1'].county.selectedIndex].value :
 document.forms['form1'].county.value;
        
         if(countySelect == null || countySelect == "") {
            alert("Please select the county");
             return null;
         }
   }

   if ( casflag == "NO" ) 
     {
      if (form.stateloc.value == null) {
       var strState = (NS4) ? document.forms['form1'].stateloc.options[document.forms['form1'].stateloc.selectedIndex].value : document.forms['form1'].stateloc.value;
       }
       else {
        var strState = form.stateloc.value;
       }
var reportname = form.report.value;
   if (strState != "USA" && reportname.substr(0,3) == "geog") { 
       var strState = form.stateloc.value;
     }

    if (strState == "STATE") {
    c_usrState += (NS4) ? document.forms['form1'].state.options[document.forms['form1'].state.selectedIndex].value : document.forms['form1'].state.value;
     }
 
    if (strState == "") {
         var strState = "STATE" ;
     }
     
  
   if ( form.industry == null ) {
         //alert( "Industry is NOT an option!" );
    }
    else {
         //alert( "Selected Industry=" 
         //     + form.industry.options[form.industry.selectedIndex].value );
         if (industryflag == "SIC")  c_industry += "SIC" ;
         else c_industry += form.industry.options[form.industry.selectedIndex].value;
    }
    if (industryflag == "SIC") {
        c_indlist += form.indselected.value;
        //c_chemlist+= form.chemselected.value; sde 03/21
    }
    if ( form.year == null ) {
      //alert( "Year is NOT an option!" );
    }
    else {
         //alert( "Selected Year=" 
         //     + form.year.options[form.year.selectedIndex].value );
         c_year += form.year.options[form.year.selectedIndex].value;
    }
   
     // has the field been created ?
    c_zipflag = "";
    for (var i=0 ; i < form.length; i++){
       if (form.elements[i].name == "loca") {
           c_zipflag = "YES" ;
           c_zip += form.loca.value;
       }
    }
    if (c_zipflag == "")
      c_zip += "";    
    
    aray = [c_chk0,c_chk1,c_chk2,c_chk3,c_chk4,c_chk5,c_chk6,c_chk7,c_chk8,
           c_chk9,c_chk10] ;
    
    for (var i=0; i < form.fld.length; i++ ) {
       aray[i]="&c_chk"+i+"="+form.fld[i].checked;
    }
    if (form.fld.length < 11 ) {
       for (var i=(form.fld.length ); i < 11; i++ ) {
       aray[i]="&c_chk"+i+"=";
       }
   }
   chosen = "";
    for (var i=0; i < 11; i++ ) {
       chosen += aray[i];
    }

    if (chemicalvalue == "PICKCHEM" || chemicalvalue == "CHANGECHEM" || chemicalvalue.substr(0,6) == "TRCHEM" 
        || chemicalvalue == "CORE" || chemicalvalue == "GROUP" ) {
    	
        	SubmitOk = true;
        	location = cgiBase + getCountyCGI + "?report=" 
           	  + form.report.value + "&scriptname=" + form.scriptname.value + "&state=" + strState + c_year + c_industry + c_chemical 
          	   + c_indlist + c_chemlist + c_coreyear + c_usrState + c_fips + c_zip + c_tabrpt +chosen;
        }
    
        
    if (chemicalvalue == "PICKCHEM" || chemicalvalue == "CHANGECHEM" || chemicalvalue.substr(0,6) == "TRCHEM") {
         newWindow('chemlist.htm','picklist');
    }    
    
           
    }
    else {
alert('before SetYear');
         SetYear(form, chemicalvalue);
    }
   return nodata;
}

function SetYear(form, strSearchType)
{
   var prev_indu;

   var wasteFlag= typeof wasteHTMLFile;

   if ( wasteFlag == "undefined" ) {
      // alert( "This must not be a 'waste quantity' file." );
   }
   else {
      wasteFlag= wasteHTMLFile;
   }

  // prev_indu= form.year.selectedIndex;
   if (strSearchType == "NEW95" || strSearchType == "CORE95")
      {  
      form.year.length=0;
	
      form.year.options[0] = new Option("1999","1999")
      form.year.options[1] = new Option("1998","1998")
      form.year.options[2] = new Option("1997","1997")
      form.year.options[3] = new Option("1996","1996")
      form.year.options[4] = new Option("1995","1995")
      } 

   else if (strSearchType == "CORE91") 
      {  
      form.year.length=0;
	
      form.year.options[0] = new Option("1999","1999")
      form.year.options[1] = new Option("1998","1998")
      form.year.options[2] = new Option("1997","1997")
      form.year.options[3] = new Option("1996","1996")
      form.year.options[4] = new Option("1995","1995")
      form.year.options[5] = new Option("1994","1994")
      form.year.options[6] = new Option("1993","1993")
      form.year.options[7] = new Option("1992","1992")
      form.year.options[8] = new Option("1991","1991")
      }

   else 
      {
      if (form.year.length != 12)
         {
         form.year.length=0;

      	 form.year.options[0] = new Option("1999","1999")
         form.year.options[1] = new Option("1998","1998")
         form.year.options[2] = new Option("1997","1997")
         form.year.options[3] = new Option("1996","1996")
         form.year.options[4] = new Option("1995","1995")
         form.year.options[5] = new Option("1994","1994")
         form.year.options[6] = new Option("1993","1993")
         form.year.options[7] = new Option("1992","1992")
         form.year.options[8] = new Option("1991","1991")

         // 'Waste quantity' is available since 1991, no earlier. 
         if ( wasteFlag == false ) 
            {
            // Non 'waste quantity' HTML file, so all years available.
            form.year.options[9] = new Option("1990","1990")
            form.year.options[10] = new Option("1989","1989")
            form.year.options[11] = new Option("1988","1988")
            }
         }
      }
   
   // If previously chosen a year prior to 1995
   // and now it is CORE95 or NEW95,
   // then set the default selection. 
   //if (( prev_indu + 1 ) > form.year.options.length ) prev_indu = form.year.options.length - 1;

   if (document.forms['form1'].year.selectedIndex != 0) {
         document.forms['form1'].year.selectedIndex = 0;
      }

}

function fields(form) {
   var s="";
   for (var i=0; i < form.fld.length; i++ ) {
       if (form.fld[i].checked) s += ("&fld=" + form.fld[i].value);
   }
   return s;
}


function chemlist(form) {
   var j=0;
   var s="";
   for (var i=0; i < form.chemical.length; i++ ) {
       if (form.chemical[i].selected) {
          chemicalname = form.chemical[i].text ;
          if (chemicalname.substring(chemicalname.length-1) != '*') {
             j++ ;
             if (j < 96)
                s += ("&chemical=" + form.chemical[i].value); 
          }
       }
   }
   if (j > 95)
      alert("There are "+j+" chemicals selected. The maximum number of selections is 95");
   return s;
}

function indlist(form) {
   var s="";
   for (var i=0; i < form.industry.length; i++ ) {
       if (form.industry[i].selected) 
          if (form.industry[i].value != "")
          s += ("&industry=" + form.industry[i].value);
       
   }
   return s;
}

function HandleError(message, url, line)
{
// This function handles internal errors.  DO NOT MODIFY UNLESS REQUIRED
    switch (message)
       {
       case "'blnCountyExist.value' is null or not an object":
       case "form.blnCountyExist has no properties":
       case "'blnCountyExist.value' is not an object":
          for (var index = 0; index < 15000; index ++)
              {
              // doevent, give processor some time to slow down
              }

          if (document.forms['form1'].stateloc.value != "USA")
	      {
	      DisplayControl('visible');
	      }

	  blnCountyExist = 0;
	  break;
       
       case "undefined":
       case "null":
       case "'window.opener.document.form1.chemselected.form1.chemselected' is null or not an object":
       case "window.opener.document.form1 has no properties":
       case "window.opener.document.form has no properties":
       case "window.opener.document.form3 has no properties":
       case "'document.forms.form1.btnCounty' is null or not an object":
       case "'document.form1.stateloc.options' is null or not an object":
       case "'document.form1.stateloc.options' is not an object":
       case "'stateloc.options' is null or not an object":
       case "'stateloc.options' is not an object":
       case "'year.options' is null or not an object":
       case "'year.options' is not an object":
       case "form.year has no properties":
       case "form.chk1 has no properties":
       case "form.chk2 has no properties":
       case "form.chk3 has no properties":
       case "form.chk4 has no properties":
       case "form.stateloc.options[form.stateloc.selectedIndex] has no properties":
       case "document.forms.form1.stateloc.options[document.forms.form1.stateloc.selectedIndex] has no properties":
          // do nothing, eat the error;
          break;

       default:
          // unhandled error(s)
          alert(message);
       }

    return true;
}

function DisplayControl(strDisplay)
{

    var blnExists = IsCounty(document.forms['form1']);
    var strState = document.form1.stateloc.options[document.forms['form1'].stateloc.selectedIndex].value;
    if (blnExists == 0)
       {
       if (strDisplay == "hidden")
           document.forms['form1'].btnCounty.src = "pixel.gif"
       else
          {
          document.forms['form1'].btnCounty.src = "county-up.gif"
	  	  }
       }
}

function IsCounty(form)
{

   var retValue = 0;

   for (var i=0; i < form.elements.length; i++ )
       {
       if (form.elements[i].name == "blnCountyExist")
          {
          	retValue = form.elements[i].value;
	  		i = form.elements.length;
          }
       }
   
    return retValue;
}

function FieldExists(strName)
{

   var retValue = 0;

   for (var i=0; i < document.forms['form1'].elements.length; i++ )
       {
       alert(document.forms['form1'].elements[i].name);

       if (document.forms['form1'].elements[i].name == strName)
          {
          retValue = 1;
	  i = document.forms['form1'].elements.length;
          }
       }
   
    return retValue;

}

function rollPress(imName,down) 
{
    var strState = (NS4) ? document.forms['form1'].stateloc.options[document.forms['form1'].stateloc.selectedIndex].value : document.forms['form1'].stateloc.value;
    var bExist = 0;
   
    if ((strState == "USA") || (strState == "TL"))
       {
       document.forms['form1'].elements['stateloc'].focus();
       return 0;
       }
    
    bExist = IsCounty(document.forms['form1']);

    if (down) 
       { 
       if (bExist == 0)
          document.forms['form1'].btnCounty.src = imName + "-down.gif" 
       }
    
    else 
       { 
       if (bExist == 0)
          document.forms['form1'].btnCounty.src = imName + "-up.gif" 
       }
	
	return;
}

function rollClick(imName) 
{
    var strState = (NS4) ? document.forms['form1'].stateloc.options[document.forms['form1'].stateloc.selectedIndex].value : document.forms['form1'].stateloc.value;
    var bExist = 0;

    if ((strState == "USA") || (strState == "TL"))
       {
       document.forms['form1'].elements['stateloc'].focus();
       return 0;
       }
 
    bExist = IsCounty(document.forms['form1']);
  
    if (bExist == 0)
       {
       document.forms['form1'].btnCounty.src = imName + "-down.gif";
    
       dummy = setTimeout("document.forms['form1'].btnCounty.src=\"" + imName + "-up.gif\"",100);

       return 1;
       }

}

function SetCountyExist(blnValue)
{
    blnCountyExist = blnValue;
}

function getCounties(form,stflag) {
// This function is called when the "Show List of Counties" button is clicked.
// If USA is selected, ask the user to select a state and try again.

var strState =  stflag;
if (strState == null || strState == "" || strState == "STATE" || strState == "ZIP" || strState == "CITY") {

    var statename =
         form.stateloc.options[form.stateloc.selectedIndex].text
    var statecode =
       form.stateloc.options[form.stateloc.selectedIndex].value
}
else {
   var statename =
    form.state.options[form.state.selectedIndex].text
   var statecode =
    form.state.options[form.state.selectedIndex].value
}

  var c_industry= "&c_industry=";
  var c_chemical= "&c_chemical=";
  var c_usrState= "&c_usrState=";
  var c_indlist= "&c_indlist=";
  var c_chemlist= "&c_chemlist=";
  var c_usrState= "&c_usrState=";
  var c_year= "&c_year=";
  var c_coreyear= "&c_coreyear=";
  c_coreyear += form.core_year.value;
   var c_fips= "&c_fips=";
   var c_zip= "&c_zip=";

   var c_tabrpt= "&c_tabrpt=";
   var c_chk0 = "&c_chk0=";
   var c_chk1 = "&c_chk1=";
   var c_chk2 = "&c_chk2=";
   var c_chk3 = "&c_chk3=";
   var c_chk4 = "&c_chk4=";
   var c_chk5 = "&c_chk5=";
   var c_chk6 = "&c_chk6=";
   var c_chk7 = "&c_chk7=";
   var c_chk8 = "&c_chk8=";
   var c_chk9 = "&c_chk9=";
   var c_chk10 = "&c_chk10=";

  c_fips += form.countyfips.value;
 
  c_tabrpt += form.tab_rpt.value;

  c_indlist += form.indselected.value;
  c_chemlist += form.chemselected.value;

  if ( form.industry == null ) {
      //alert( "Industry is NOT an option!" );
  }
  else {
      //alert( "Selected Industry=" 
      //     + form.industry.options[form.industry.selectedIndex].value );
     var v_indflag = form.indflag.value;
     if (v_indflag == "SIC") {
        c_industry += "SIC" ;
     }
     else {
        c_industry += form.industry.options[form.industry.selectedIndex].value;
     }
  }

  if ( form.year == null ) {
      //alert( "Year is NOT an option!" );
  }
  else {
      //alert( "Selected Year=" 
      //     + form.year.options[form.year.selectedIndex].value );
     c_year += form.year.options[form.year.selectedIndex].value;
  }

  if ( form.chemical == null ) {
      //alert( "Chemical is NOT an option!" );
  }
  else {
     // alert( "Selected Chemical=" 
     //      + form.chemical.options[form.chemical.selectedIndex].value );
     var chemicalflag = form.chemflag.value;
     if (chemicalflag == "_ALL_" || chemicalflag == "CORE" || chemicalflag == "GROUP" || chemicalflag == "PICKCHEM") {
          c_chemical += form.chemflag.value ;
          if (chemicalflag == "CORE" || chemicalflag == "GROUP")  {
            var strChemical = (NS4) ? document.forms['form1'].chemical.options[document.forms['form1'].chemical.selectedIndex].value : document.forms['form1'].chemical.value;
            c_chemlist += strChemical;
          }
     }
     else { 
        c_chemical += form.chemical.options[form.chemical.selectedIndex].value;
     } 
  }


aray = [c_chk0,c_chk1,c_chk2,c_chk3,c_chk4,c_chk5,c_chk6,c_chk7,c_chk8,
c_chk9,c_chk10] ;

for (var i=0; i < form.fld.length; i++ ) {
   aray[i]="&c_chk"+i+"="+form.fld[i].checked;
}
if (form.fld.length < 11 ) {
   for (var i=(form.fld.length ); i < 11; i++ ) {
      aray[i]="&c_chk"+i+"=";
   }
}
chosen = "";
for (var i=0; i < 11; i++ ) {
   chosen += aray[i];
}

  if (statecode == "USA")          // USA selected
  {
    SubmitOk = false;
    alert(
      "\nYou have selected the USA. Please select a state and try again.\n\n"
       );
  }
  else
  {
    SubmitOk = true;

    // Revision begins AS 8/18/00
    SetCountyExist(1);
    // Revision ends 

    location = cgiBase + getCountyCGI + "?report=" 
             + form.report.value + "&scriptname=" + form.scriptname.value + "&state=" + statecode + c_year + c_industry + c_chemical + c_chemlist + c_coreyear + c_indlist + c_usrState + c_fips +c_tabrpt+ c_zip + chosen;

  }
}

var states_hash=
            "AL,01,AK,02,AS,60,AZ,04,AR,05,CA,06,CO,08,CT,09,DE,10,"
          + "DC,11,FL,12,GA,13,GU,66,HI,15,ID,16,IL,17,IN,18,IA,19,"
          + "KS,20,KY,21,LA,22,ME,23,MD,24,MA,25,MI,26,MN,27,MS,28,"
          + "MO,29,MT,30,NE,31,NV,32,NH,33,NJ,34,NM,35,NY,36,NC,37,"
          + "ND,38,OH,39,OK,40,OR,41,PA,42,PR,72,RI,44,SC,45,SD,46,"
          + "TN,47,TX,48,UT,49,VT,50,VI,78,VA,51,WA,53,WV,54,WI,55,"
          + "WY,56,MP,69";

var states= states_hash.split(',');

function statefips(st) {
   for (var i=0; i < states.length; i+=2 ) {
       if (st == states[i]) break;
   }
   return states[i+1];
}

function isIE4()
{
    return( navigator.appName.indexOf("Microsoft") != -1 && (navigator.appVersion.charAt(0)=='4') );
}

function getBaseURL()
{
    return "";
}

function help_window(freshurl)
{
        
    SmallWin = window.open(helpBase + freshurl, 
        'HelpWindow','scrollbars=yes,toolbar=no,resizable=yes,height=480,width=471');

    if( ! isIE4() ) {
       if (window.focus) {
                SmallWin.focus();
       }
    }

    if (SmallWin.opener == null) SmallWin.opener = window;
    SmallWin.opener.name = "PUMain";
}


function switch_tabs(form, key) {
  /* For switching between the different 'sides' of TRI data */
  if ( key == 0 ) {
  /* for Releases */
     form.FLD0.value= 11 + 3;
     form.FLD1.value= "E41";
     form.FLD2.value= "E51A";
     form.FLD3.value= "E51B";
     form.FLD4.value= "E1";
     form.FLD5.value= "E2";
     form.FLD6.value= "E42";
     form.FLD7.value= "E52";
     form.FLD8.value= "E53";
     form.FLD9.value= "E54";
     form.FLD10.value= "RELLBY";
     form.FLD11.value= "TSFDSP";
     form.FLD12.value= triid_numfr_numfa[ 0 ];
     form.FLD13.value= triid_numfr_numfa[ 1 ];
     form.FLD14.value= triid_numfr_numfa[ 2 ];
     form.FLD.value= "TSFDSP";
     if ( form.VIEW.value == "USFA" || form.VIEW.value == "USCO" ) 
          form.SORT.value= "RE_TOLBY";
     else { form.SORT.value= "_VIEW_";
            form.SORT_FMT.value= "1";
     }
  }
  else if ( key == 1 ) {
  /* for Transfer to off-site for further waste management */
    form.FLD0.value= 8 + 3;
     form.FLD1.value= "TSFREC";
     form.FLD2.value= "TSFENG";
     form.FLD3.value= "TSFTRT";
     form.FLD4.value= "REL_61";
     form.FLD5.value= "POTWMETL";
     form.FLD6.value= "TSFOTH";
     form.FLD7.value= "TSFOFNON";
     form.FLD8.value= "TRANS_OF";
     form.FLD9.value= triid_numfr_numfa[ 0 ];
     form.FLD10.value= triid_numfr_numfa[ 1 ];
     form.FLD11.value= triid_numfr_numfa[ 2 ];
     form.FLD.value= "TSFOTH";
     if ( form.VIEW.value == "USFA" || form.VIEW.value == "USCO" ) 
          form.SORT.value= "TRANS_OF";
     else { form.SORT.value= "_VIEW_";
            form.SORT_FMT.value= "1";
     }
  }
  else if ( key == 2 ) {
  /* for Waste Quantity */
     form.FLD0.value= 9 + 3;
     form.FLD1.value= "PPRECON";
     form.FLD2.value= "PPRECOF";
     form.FLD3.value= "PPENGON";
     form.FLD4.value= "PPENGOF";
     form.FLD5.value= "PPTRTON";
     form.FLD6.value= "PPTRTOF";
     form.FLD7.value= "PPREL";
     form.FLD8.value= "WST_PROD";
     form.FLD9.value= "PPREM";
     form.FLD10.value= triid_numfr_numfa[ 0 ];
     form.FLD11.value= triid_numfr_numfa[ 1 ];
     form.FLD12.value= triid_numfr_numfa[ 2 ];
     form.FLD.value= "PPREM";
     if ( form.VIEW.value == "USFA" || form.VIEW.value == "USCO" ) 
          form.SORT.value= "WST_PROD";
     else { form.SORT.value= "_VIEW_";
            form.SORT_FMT.value= "1";
     }
  }
  form.submit();
}
     
if (document.layers)
   document.captureEvents(Event.KEYPRESS)

function check_top_n(form) {


    var strValue = form._TOP.value;
    var strFormName = form.VIEW.value;
    var blnReply;
    var numToView;

//   alert("View = " + strFormName);

    if (strValue.length == 0)
       {
       alert ("Please enter a value");
       form._TOP.focus();
       return false;
       }

    else if (((strValue.indexOf('a') > -1) ||
	     (strValue.indexOf('l') > -1)) &&
            (strValue.length > 3))
        {
        form._TOP.focus();
        return false;
        }

    else if ((strValue.toUpperCase() == "A") ||
             (strValue.toUpperCase() == "AA") ||
             (strValue.toUpperCase() == "AL") ||
             (strValue.toUpperCase() == "L") ||
             (strValue.toUpperCase() == "LL") ||
             (strValue.toUpperCase() == "LA"))
        {
        form._TOP.focus();
        return false;
        }

    else
       {
	if (_top_most > 1000)
           {
	   if ((strValue > 1000) ||
	      (strValue.toUpperCase() == "ALL"))
	      {
	      if (strValue.toUpperCase() == "ALL")
		  numToView = _top_most;
	      else
		  numToView = strValue;

	      if (strFormName == "USFA")
		   blnReply = confirm("You have requested " + numToView + " facilities.  This request may take up to 5 minutes to process.  Do you wish to continue?");
              else
		   blnReply = confirm("You have requested " + numToView + " counties.  This request may take up to 5 minutes to process.  Do you wish to continue?");

	      if (blnReply)
		 return true;
              else 
		 return false;
	      }
	   }

  //     form._TOP.value = strValue;
       return true;
       }
}

function InputValidation (evt)
{

   var key;
   var keychar;


   if (window.event)
      key = window.event.keyCode;
   else if (evt)
      key = evt.which;
   else
      return true;

   keychar = String.fromCharCode(key);
   keychar = keychar.toUpperCase();

// valid control keys
   if ((key==null) ||
       (key==0) ||
       (key==8) ||
       (key==9) ||
       (key==13) ||
       (key==27))
       return true;

    else if ((("AaLl0123456789").indexOf(keychar) > -1))
       return true;

    else
       return false;

}

function newreport(page)
{
location="http://"+document.domain+helpBase+page;
}


// The IF condition below was commented out because in Netscape it was 
// preventing the user from typing in all letters (except 'A', 'a', 'L', 'l') 
// in an HTML input tag of type 'text'.

//if (document.layers)
//   document.onkeypress=InputValidation

function refreshdata() {
    
   var urlstring = window.opener.document.URL;
   var parm1 = "report";
   var parm2 = "scriptname";
   var parm3 = "state"; 
   var parm4 = "c_year";
   var parm5 = "c_industry";
   var parm6 = "c_chemical";
   var parm7 = "c_indlist";
   var parm8 = "c_chemlist";
   var parm9 = "c_coreyear";
   var parm10 = "c_usrState";
   var parm11 = "c_fips";
   var parm12 = "c_zip";

   var reportname = getParameter(urlstring, parm1);
   var scriptname = getParameter(urlstring, parm2); 
   var state = getParameter(urlstring, parm3);

   var chemicalflag =  window.opener.document.form1.chemflag.value;
   var casflag =  window.opener.document.form1.casflag.value;
   var industryflag =  window.opener.document.form1.indflag.value;

   var c_industry= "&c_industry=";
   var  c_indlist= "&c_indlist=";
   var c_chemical= "&c_chemical=";
   var c_coreyear= "&c_coreyear=";
   var c_usrState= "&c_usrState=";
   var     c_year= "&c_year=";
   var     c_fips= "&c_fips=";
   var     c_zip = "&c_zip=";    
   var c_chk0 = "&c_chk0=";
   var c_chk1 = "&c_chk1=";
   var c_chk2 = "&c_chk2=";
   var c_chk3 = "&c_chk3=";
   var c_chk4 = "&c_chk4=";
   var c_chk5 = "&c_chk5=";
   var c_chk6 = "&c_chk6=";
   var c_chk7 = "&c_chk7=";
   var c_chk8 = "&c_chk8=";
   var c_chk9 = "&c_chk9=";
   var c_chk10 = "&c_chk10=";
   if(industryflag == "NSIC" || industryflag == "CHANGESIC") {
       c_industry = "&c_industry=" + "SIC";
       industryflag = "SIC";
   }
   else {
      c_industry += getParameter(urlstring, parm5);
   }
   // added this code cause the sas program wants the data as SIC
   
   c_chemical += getParameter(urlstring, parm6);
   //c_indlist  += getParameter(urlstring, parm7);
   c_coreyear += getParameter(urlstring, parm9);
   c_usrState += getParameter(urlstring, parm10);
   c_year     += getParameter(urlstring, parm4);
   c_fips     += getParameter(urlstring, parm11);
   c_zip      += getParameter(urlstring, parm12);
   aray = [c_chk0,c_chk1,c_chk2,c_chk3,c_chk4,c_chk5,c_chk6,c_chk7,c_chk8,
c_chk9,c_chk10] ;
   for (var i=0; i < window.opener.document.form1.fld.length; i++ ) {
      aray[i]="&c_chk"+i+"="+window.opener.document.form1.fld[i].checked;
   }
   if (window.opener.document.form1.fld.length < 11 ) {
      for (var i=(window.opener.document.form1.fld.length ); i < 11; i++ ) {
         aray[i]="&c_chk"+i+"=";
      }
    }
   chosen = "";
   for (var i=0; i < 11; i++ ) {
      chosen += aray[i];
   }


   var c_chemlist= "&c_chemlist=" + window.opener.document.form1.chemselected.value;
    
    var c_indlist = "&c_indlist=" + window.opener.document.form1.indselected.value;

    if (chemicalflag == "PICKCHEM" || chemicalflag == "CHANGECHEM" || chemicalflag.substr(0,6) == "TRCHEM" 
|| chemicalflag == "CORE" || chemicalflag == "GROUP" || industryflag == "SIC" ||  industryflag == "CHANGESIC") {
        	SubmitOk = true;
        	window.opener.location = cgiBase + getCountyCGI + "?report=" 
           	  + reportname + "&scriptname=" + scriptname + "&state=" + state + c_year + c_industry + c_chemical 
          	   + c_indlist + c_chemlist + c_coreyear + c_usrState + c_fips + c_zip + chosen;
        }
            
           
  }

// function to retrieve value from the url for a specific parameter

function getParameter(urlstring, parameter) {

 var parm = parameter + "=";
 if(urlstring.length > 0) {
    begin = urlstring.indexOf(parm);
    if(begin != -1) {
       begin += parm.length;
       end = urlstring.indexOf("&", begin);
       if (end == -1) {
          end = urlstring.length;
       }
       return unescape(urlstring.substring(begin, end));
    }
  return null;
 }
}

function isInteger(s) {
    var i;
    for(i=0; i < s.length; i++)
        {
            var c = s.charAt(i);
             if(!isDigit(c)) {
                return false;
             }
                
         }
     return true;
}

function isDigit(c) {
     return (( c >= "0" && c <= "9"))
 } 

function checkZipCode(loc) {
    if (loc == null || loc.length == 0){
        alert("Please Enter Zip Code");
         return null;
     }

     if( loc.length < 5) {
        alert("Invalid Zip Code " + loc);
        return null;
     }
     
     if(!isInteger(loc)) {
        alert("Please Enter a valid Zip Code");
     }
}

function setreportfields(form) {
   var s="";
   var dtlofsr = "";

   for (var i=0; i < form.fld.length; i++ ) {

       if (form.fld[i].checked)  {

            if(form.report.value == "chemical" || form.report.value == "chemical01" ||
form.report.value == "facility" || form.report.value == "facility01" || 
form.report.value == "fedfacility" || form.report.value == "fedfacility01" || 
form.report.value == "geography" || form.report.value == "geography01" || 
form.report.value == "industry" || form.report.value == "industry01") { 

               if(form.fld[i].value == "ONDISPD") {
                  s += "&ONDISPD=Y"; 
                 // &fld=E41&fld=E51A&fld=E51B";
               }
               else if(form.fld[i].value == "OTHDISPD") {
                  s += "&OTHDISPD=Y";
                 // &fld=E1&fld=E2&fld=E3&fld=E42&fld=E52&fld=E53&fld=E54";
               }
               else if(form.fld[i].value == "OFFDISPD") {
                  s += "&OFFDISPD=Y"
                  // &fld=m71&fld=m65&fld=m64";
               }
               else if(form.fld[i].value == "OTHOFFD") {
                  s += "&OTHOFFD=Y";
                  // &fld=m10&fld=m41&fld=m62&fld=potwmetl&fld=m63&fld=m73";
                  // s += "&fld=m79&fld=m90&fld=m94&fld=m99";
               }
               else if(form.fld[i].value == "TRIID") {
                   s += "&fld=TRIID";
               }
               else if(form.fld[i].value == "NUMFR") {
                    s += "&fld=NUMFR";
               }
               else if(form.fld[i].value == "NUMFA") {
                    s += "&fld=NUMFA";
               }
               else if(form.fld[i].value == "LNGLAT")  {
                    s += "&fld=LNGLAT";
               }
                else if(form.fld[i].value == "DTLAIR")  {
                    s += "&fld=E1&fld=E2";
               }
               else if(form.fld[i].value == "DTLUGI") {
                    if (form.year.value >= "1996") {
                          s += "&fld=E41&fld=E42";
                     }
               }
               else if(form.fld[i].value == "DTLLAND")  {
                      if (form.year.value <= "1995") 
                              s += "&fld=E52&fld=E53&fld=E54&fld=E51";
                          else if  (form.year.value <= "2002") 
                              s += "&fld=E52&fld=E53&fld=E54&fld=E51A&fld=E51B";
                          else 
                              s += "&fld=E52&fld=E53A&fld=E53B&fld=E54&fld=E51A&fld=E51B";
               }
               else if(form.fld[i].value == "DTLOSR")  {
                    s += "&fld=TSFDSP&fld=m10&fld=m41&fld=m62&fld=potwmetl&fld=m71&fld=m72&fld=m73&fld=m79&fld=m90&fld=m94&fld=m99";
               }
              else {
                  s += ("&fld=" + form.fld[i].value);
                }
            } 
            else if (form.report.value == "trends") {
                if(form.fld[i].value == "DTLAIR")  {
                     s += "&fld=E1&fld=E2";
                }
                else if(form.fld[i].value == "DTLUGI") {
                     s += "&fld=E41&fld=E42";
                }
                else if(form.fld[i].value == "DTLLAND")  {
                     s += "&fld=E52&fld=E53&fld=E53A&fld=E53B&fld=E54&fld=E51&fld=E51A&fld=E51B";                     
                }
                else if(form.fld[i].value == "DTLOSR")  {
                     s += "&fld=TSFDSP&fld=m10&fld=m41&fld=m62&fld=potwmetl&fld=m71&fld=m81&fld=m82&fld=m72&fld=m63&fld=m64&fld=m65&fld=m66&fld=m67&fld=m73&fld=m79&fld=m90&fld=m94&fld=m99";
                }
                else {
                  s += ("&fld=" + form.fld[i].value);
                }
            }
            else  {
                 s += ("&fld=" + form.fld[i].value);
             }
        }
   }

   return s;
}

function selectchemical(form) {
 
   var chemicalvalue = form.chemical.options[form.chemical.selectedIndex].value;
   var yearselected = form.year.options[form.year.selectedIndex].value;

   if(chemicalvalue == "PBT_IND" && yearselected < 2000) {
      alert("PBT chemicals report can be generated only for year 2000 or later");
    }
}


function refreshdate(form) {
    
   var urlstring = document.URL;

   var parm1 = "report";
   var parm2 = "scriptname";
   var parm3 = "state"; 
   var parm4 = "c_year";
   var parm5 = "c_industry";
   var parm6 = "c_chemical";
   var parm7 = "c_indlist";
   var parm8 = "c_chemlist";
   var parm9 = "c_coreyear";
   var parm10 = "c_usrState";
   var parm11 = "c_fips";
   var parm12 = "c_zip";

   var reportname = form.report.value;
   var scriptname = form.scriptname.value;

  var c_industry= "&c_industry=";
  var c_chemical= "&c_chemical=";
  var c_usrState= "&c_usrState=";
  var c_indlist= "&c_indlist=";
  var c_chemlist= "&c_chemlist=";
  var c_usrState= "&c_usrState=";
  var c_year= "&c_year=";
  var c_coreyear= "&c_coreyear=";
  c_coreyear += form.core_year.value;
   var c_fips= "&c_fips=";
   var c_zip= "&c_zip=";

   var c_chk0 = "&c_chk0=";
   var c_chk1 = "&c_chk1=";
   var c_chk2 = "&c_chk2=";
   var c_chk3 = "&c_chk3=";
   var c_chk4 = "&c_chk4=";
   var c_chk5 = "&c_chk5=";
   var c_chk6 = "&c_chk6=";
   var c_chk7 = "&c_chk7=";
   var c_chk8 = "&c_chk8=";
   var c_chk9 = "&c_chk9=";
   var c_chk10 = "&c_chk10=";


   var chemicalflag =  form.chemflag.value
   var casflag =  form.casflag.value;
   var industryflag =  form.indflag.value;

   if (form.stateloc.value == null) {
     var strState = (NS4) ? document.forms['form1'].stateloc.options[document.forms['form1'].stateloc.selectedIndex].value : document.forms['form1'].stateloc.value;
   }
   else {
     var strState = form.stateloc.value;
   }
if (strState.substr(0,3) != "USA") var strState = form.stateloc.value;

   if (strState == "STATE") {
     c_usrState += (NS4) ? document.forms['form1'].state.options[document.forms['form1'].state.selectedIndex].value : document.forms['form1'].state.value;
   }

   if (strState == "") var strState = "STATE" ;

  c_fipsflag = ""
  for (var i=0 ; i < form.length; i++){
    if (form.elements[i].name == "countyflag") {
     c_fips += (NS4) ? document.forms['form1'].county.options[document.forms['form1'].county.selectedIndex].value : document.forms['form1'].county.value;
     c_fipsflag = "yes";
    }
  }
  if (c_fipsflag == "")   c_fips += form.countyfips.value;

   if(industryflag == "NO") {
      industryflag = form.industry.options[form.industry.selectedIndex].value;
   }

   if(getParameter(urlstring, parm5) != null && getParameter(urlstring, parm5) != "ALL") {
       c_industry += getParameter(urlstring, parm5);
   }
   else {
         c_industry += form.industry.options[form.industry.selectedIndex].value;

   }

   c_chemical += form.chemical.options[form.chemical.selectedIndex].value;


   if(getParameter(urlstring, parm7) != null) {
     c_indlist  += getParameter(urlstring, parm7);
   }

   if(getParameter(urlstring, parm9) != null) {
     c_coreyear += getParameter(urlstring, parm9);
   }


   c_year += form.year.options[form.year.selectedIndex].value;

   if(getParameter(urlstring, parm8) != null) {
      c_chemlist += getParameter(urlstring, parm8);
   }
   else { c_chemlist += document.form1.chemselected.value; }

    c_zipflag = "";
    for (var i=0 ; i < form.length; i++){
       if (form.elements[i].name == "loca") {
           c_zipflag = "YES" ;
           c_zip += form.loca.value;
       }
    }

if(form.report.value == "chemical" || form.report.value == "facility" || form.report.value == "trends" || form.report.value == "geography" || form.report.value == "industry") {
    c_chk1 = "&c_chk1=" + form.chk1.checked;
    c_chk2 = "&c_chk2=" + form.chk2.checked;
    c_chk3 = "&c_chk3=" + form.chk3.checked;
    c_chk4 = "&c_chk4=" + form.chk4.checked;
    if(form.report.value == "facility") {
      c_chk5 = "&c_chk5=" + form.chk5.checked;
      c_chk6 = "&c_chk6=" + form.chk6.checked;
      c_chk7 = "&c_chk7=" + form.chk7.checked;
      c_chk8 = "&c_chk8=" + form.chk8.checked;
    }

}
    if (chemicalflag == "PICKCHEM" || chemicalflag == "CHANGECHEM" || chemicalflag.substr(0,6) == "TRCHEM" 
|| chemicalflag == "CORE" || chemicalflag == "GROUP" || industryflag == "SIC" ||  industryflag == "CHANGESIC" || industryflag == "OLD" || industryflag == "NEW" || industryflag == "ALL") {
        	SubmitOk = true;
        	location = cgiBase + getCountyCGI + "?report=" 
           	  + reportname + "&scriptname=" + scriptname + "&state=" + strState + c_year + c_industry + c_chemical 
          	   + c_indlist + c_chemlist + c_coreyear + c_usrState + c_fips + c_zip + c_chk1 + c_chk2 + c_chk3 + c_chk4  + c_chk5 + c_chk6 + c_chk7 + c_chk8;
        }
            
           
  }

function statefs(stcode)
 { 
  var triDATASET = "";
  var pdr = true;
  for (var i=0 ; i < document.forms['form1'].length; i++){
      if (document.forms['form1'].elements[i].name == "dataset") {
         pdr = false;
      }
    }
  if (pdr == true)
    triDATASET = "TRIQ0";
  else {
     if (document.forms['form1'].dataset.checked == true)
          triDATASET = "TRIQ0";
     else
          triDATASET = "TRIQ1";
     }


  var ryear = document.forms['form1'].ryear.options[document.forms['form1'].ryear.selectedIndex].value;
  if (stcode == "US") {
      sfips = "All+states" ;
  }
  else sfips = statefips(stcode) ;

     location = sBroker
              + "?view=STCO"
              + "&trilib=" + triDATASET
              + "&state=" + sfips
              + "&SFS=YES" 
              + "&year=" + ryear
              + getService();
}


function checkindustry(form,selectedindust) {
var selected_year = form.year.options[form.year.selectedIndex].value;
var industries = form.industry.options[form.industry.selectedIndex].value ;
// selectedindust.indexOf(",",selectedindust)+;
// alert(form.industry.options[form.industry.selectedIndex].value+" industries="+selectedindust+" "+selected_year);
if ( selected_year < "1998" ) {
   if (industries == "ALL") {
      // alert("Not all industries were reportable in the year selected");
   }
   else {
      var new_industries = [10, 12, 49, 56, 57, 73];
      var desc_industry = ["Metal Mining", "Coal Mining", "Electric Utilities", "Chemical Wholesalers", "Petroleum Bulk Terminals", "RCRA/Solvent Recovery"];
      for (i=0 ;i < new_industries.length; i++) {
         if ( selectedindust.indexOf(new_industries[i],selectedindust) != -1) {
            alert (" Your industry selection includes SIC "+ new_industries[i] + " - " + desc_industry[i] + " which was not reportable in "+ selected_year);
           // form.year.selectedIndex = 0; 
            break;
         }
      }
   }
}

}

function getYearFromURL() {
	if (document.URL.indexOf(".htm") >= 0) {
		var index = document.URL.indexOf("?");
		if (index >= 0) {
			year = document.URL.substring(index+6,index+10);
			for (i=0; i<document.forms["form1"].year.length; i++) {
				if (document.forms["form1"].year[i].value == year) {
					document.forms["form1"].year.selectedIndex = i;
				}
			}
		}
	}
}

function checkYear(year_select) {
	if (year_select.selectedIndex >= 0) {
		var tab_rpt = document.forms['form1'].tab_rpt.value;
		var year = year_select[year_select.selectedIndex].value;
		var year_reset = year;
		var report = document.forms['form1'].report.value;
		var new_report = report;
		var report_end = report.substring(report.length-2, report.length);
            if (tab_rpt == "1") {
		   if (report_end == "01" && year >= 2002) {
			new_report = report.substring(0,report.length-2);
			year_reset = 2001;
		   }
		   else if (report_end != "01" && year < 2002) {
			new_report = report + "01";
			year_reset = 2003;
		   }
		// alert(report_end + "/" + report + "/" + new_report);
		   if (new_report != report) {
			   for (i=0; i<document.forms["form1"].year.length; i++) {
				   if (document.forms["form1"].year[i].value == year_reset) {
					   document.forms["form1"].year.selectedIndex = i;
				   }
			   }
		   	   location.href = baseURL + new_report + ".htm?year=" + year;
		   }
            }
            else if (tab_rpt == "3") {
		   if (report_end == "01" && year >= 2003) {
			new_report = report.substring(0,report.length-2);
			year_reset = 2002;
		   }
		   else if (report_end != "01" && year < 2003) {
			new_report = report + "01";
			year_reset = 2003;
		   }
		// alert(report_end + "/" + report + "/" + new_report);
		   if (new_report != report) {
			   for (i=0; i<document.forms["form1"].year.length; i++) {
				   if (document.forms["form1"].year[i].value == year_reset) {
					   document.forms["form1"].year.selectedIndex = i;
				   }
			   }
		   	   location.href = baseURL + new_report + ".htm?year=" + year;
		   }
            }

	}
}