// TRI Explorer - Set up parameter string for geography reports
// Hsiwei Yu, Fri, 11Aug2000. Change SORT= when different tabs for US100 reports.
// W.Smith 21-jan-2000
//
//

function setParms(form) {
// This function sets the parameters to make the proper call to SAS.
// If USA is selected, it calls the top 100 USA facility report,
// else it calls the facilities in your state report
var triDATASET = "";
// 04/09/02 commenetd out the code, not dataset parameter will be passed
// as per the requirement of release 4.0

var triDATASET = "";
var pdr = true;
  for (var i=0 ; i < form.length; i++){
    if (form.elements[i].name == "dataset") {
         pdr = false;
    }
  }
if (pdr == true)
    triDATASET = "TRIQ0";
else {
     if (form.dataset.checked == true)
          triDATASET = "TRIQ0";
     else
          triDATASET = "TRIQ1";
     }


if (form.stflag.value == "NO") {
  var statecode =
    form.stateloc.options[form.stateloc.selectedIndex].value;
}
else {
  var statecode =
    form.state.options[form.state.selectedIndex].value;
}

  var chemicalcode =
    form.chemical.options[form.chemical.selectedIndex].value;

cwords = form.chemselected.value.split(",");
chem_selected  = "";
for (var i=0; i < cwords.length -1; i++) {
	chem_selected += "&chemical="+cwords[i];
}
if (chemicalcode == "PICKCHEM" && chem_selected == "") {
  alert("You have not selected a chemical \n Please click on the 'Go To New Report' button \n Located to the right of the screen ");
  return false;
}

if (chemicalcode == "" || chemicalcode == null) {
  alert("You have not selected a chemical \n Please click on the 'Go To New Report' button \n Located to the right of the screen ");
  return false;
}
if (chemicalcode != "_ALL_" && chem_selected == "") {
  chem_selected = "&chemical="+chemicalcode;
}
if (chemicalcode == "_ALL_") {
  chem_selected = "&chemical=_ALL_";
} 

  var industrycode =
    form.industry.options[form.industry.selectedIndex].value  
if (industrycode == "" || industrycode == null) {
  alert("You have not selected an industry \n Please click on the 'Go To New Report' button \n Located to the right of the screen ");
   return false;
}

iwords = form.indselected.value.split(",");
ind_selected  = "";
for (var i=0; i < iwords.length -1; i++) {
	ind_selected += "&industry="+iwords[i];
}

if (industrycode == "SIC" && ind_selected == "") {
  alert("You have not selected an industry \n Please click on the 'Go To New Report' button \n Located to the right of the screen ");
  return false;
}
if (industrycode == "OLD" && ind_selected == "") {
  ind_selected = "&industry=OLD";
}
if (industrycode == "ALL" && ind_selected == "") {
  ind_selected = "&industry=ALL";
}
if (industrycode == "NEW" && ind_selected == "") {
  ind_selected = "&industry=NEW";
}

  var yearcode =
    form.year.options[form.year.selectedIndex].value

if(chemicalcode == "PBT_IND" && yearcode < "2000") {
   selectchemical(form);
   return false;
}

  var strPageName = form.report.value;

  var strReportNum;

  if (strPageName == "maps")
	strReportNum = "&tab_rpt=1";

  else if (strPageName == "mapstransfer")
 	strReportNum = "&tab_rpt=2";

  else if (strPageName.substr(0,12) == "mapsquantity")
 	strReportNum = "&tab_rpt=3";
 

   for (var i=0; i < form.fld.length; i++ ) {
       if (form.fld[i].checked)  {
           //alert(form.fld[i].value);
         fldvar = "&fld=" + form.fld[i].value;
       }
   }


  if (statecode == "USA") { //US by state
     location = sBroker
              + "?view=USST"
              + "&trilib="+triDATASET
              + "&sort=_VIEW_"
              + "&sort_fmt=1"
              + "&state=All+states"
              + "&county=All+counties"
              + chem_selected
              + ind_selected
              + "&year=" + yearcode
	      + strReportNum
              + fldvar
              + "&mapit=1"
              + getService();
     }   
  else if (statecode == "USA100") { //US top 100 counties
          // Change SORT= when different tabs for US100 reports.
          if (strPageName == "maps")
	     sortvar = "&sort=RE_TOLBY";
          else if (strPageName == "mapstransfer") 
             sortvar = "&sort=TRANS_OF";
          else if (strPageName == "mapsquantity")
            sortvar = "&sort=WST_PROD";

     location = sBroker
              + "?view=USCO"
              + "&trilib="+triDATASET
              + sortvar // Change SORT= when different tabs for US100 reports.
              + "&sort_fmt=2"
              + "&state=All+states"
              + "&county=All+counties"
              + chem_selected
              + ind_selected
              + "&year=" + yearcode
	      + strReportNum
              + fldvar
              + "&mapit=1" 
              + getService();
     }
  else { //counties in your state
     location = sBroker
              + "?view=STCO"
              + "&trilib="+triDATASET
              + "&sort=_VIEW_"
              + "&sort_fmt=1"
              + "&state=" + statefips(statecode)
              + "&county=All+counties"
              + chem_selected
              + ind_selected
              + "&year=" + yearcode
	      + strReportNum
              + fldvar
              + "&mapit=1"
              + getService();

     }
//  }
}