/*
 * =================================================================================================
 *                                     general js functions
 * =================================================================================================
 * AUTHOR              : Don Bremer
 * FILENAME            : general.js
 * DESCRIPTION         : Javascript functions needed across the website.
 *
 * 
 * HISTORY             : 12/22/2002 - created file 
 *						 01/02/2003 - modified comment structure 
 * =================================================================================================
*/

function mmLoadMenus() {
  
  window.mm_menu_chemdrop = new Menu("root",176,18,"Arial, Helvetica, sans-serif",12,"#336699","#000000","#F2F0F0","#ffffff","left","middle",3,0,600,2,7,true,true,true,0,true,true);
  mm_menu_chemdrop.addMenuItem("Chemical Entry","location='advanced_query.cfm?pageCalled=chemical#CAS'");
  mm_menu_chemdrop.addMenuItem("Predefined Chemical Groups","location='advanced_query.cfm?pageCalled=chemical#CHEMLIST'");
  mm_menu_chemdrop.addMenuItem("Browse Chemical Index","location='advanced_query.cfm?pageCalled=browsechemical'");
  mm_menu_chemdrop.fontWeight="bold";
  mm_menu_chemdrop.hideOnMouseOut=true;
  mm_menu_chemdrop.bgColor='#F2F0F0';
    
  window.mm_menu_testres = new Menu("root",176,18,"Arial, Helvetica, sans-serif",12,"#336699","#000000","#F2F0F0","#ffffff","left","middle",3,0,600,2,7,true,true,true,0,true,true);
  mm_menu_testres.addMenuItem("Endpoints","location='advanced_query.cfm?pageCalled=testresults#ENDPOINTS'");
  mm_menu_testres.addMenuItem("Effects and Measurements","location='advanced_query.cfm?pageCalled=testresults#EFFNMEAS'");
  mm_menu_testres.addMenuItem("Browse Effects Index","location='advanced_query.cfm?pageCalled=browseeffects'");
  mm_menu_testres.fontWeight="bold";
  mm_menu_testres.hideOnMouseOut=true;
  mm_menu_testres.bgColor='#F2F0F0';
  
  window.mm_menu_testcond = new Menu("root",176,18,"Arial, Helvetica, sans-serif",12,"#336699","#000000","#F2F0F0","#ffffff","left","middle",3,0,600,2,7,true,true,true,0,true,true);
  mm_menu_testcond.addMenuItem("Test Location","location='advanced_query.cfm?pageCalled=testconditions#TESTLOC'");
  mm_menu_testcond.addMenuItem("Exposure Media","location='advanced_query.cfm?pageCalled=testconditions#EXPMEDIA'");
  mm_menu_testcond.addMenuItem("Exposure Type","location='advanced_query.cfm?pageCalled=testconditions#EXPTYPE'");
  mm_menu_testcond.addMenuItem("Chemical Analysis","location='advanced_query.cfm?pageCalled=testconditions#METHODANAL'");
  mm_menu_testcond.fontWeight="bold";
  mm_menu_testcond.hideOnMouseOut=true;
  mm_menu_testcond.bgColor='#F2F0F0';
  
  window.mm_menu_pubs = new Menu("root",176,18,"Arial, Helvetica, sans-serif",12,"#336699","#000000","#F2F0F0","#ffffff","left","middle",3,0,600,2,7,true,true,true,0,true,true);
  mm_menu_pubs.addMenuItem("Publication Year","location='advanced_query.cfm?pageCalled=publications#PUBYEAR'");
  mm_menu_pubs.addMenuItem("Independently Compiled Data","location='advanced_query.cfm?pageCalled=publications#INDCOMPDATA'");
  mm_menu_pubs.addMenuItem("Recent Modifications/Additions","location='advanced_query.cfm?pageCalled=publications#RECMODSADDS'");
  mm_menu_pubs.addMenuItem("ECOTOX Reference Numbers","location='advanced_query.cfm?pageCalled=publications#REFNUM'");
  mm_menu_pubs.fontWeight="bold";
  mm_menu_pubs.hideOnMouseOut=true;
  mm_menu_pubs.bgColor='#F2F0F0';
   
  window.mm_menu_rf = new Menu("root",176,18,"Arial, Helvetica, sans-serif",12,"#336699","#000000","#F2F0F0","#ffffff","left","middle",3,0,600,2,7,true,true,true,0,true,true);
  mm_menu_rf.addMenuItem("Output Style","location='advanced_query.cfm?pageCalled=reportformat#FORMAT'");
  mm_menu_rf.addMenuItem("Aquatic Output Selections","location='advanced_query.cfm?pageCalled=reportformataquatic#AQUATIC'");
  mm_menu_rf.addMenuItem("Terrestrial Output Selections","location='advanced_query.cfm?pageCalled=reportformatterrestrial#TERRESTRIAL'");
  mm_menu_rf.fontWeight="bold";
  mm_menu_rf.hideOnMouseOut=true;
  mm_menu_rf.bgColor='#F2F0F0';
    
  window.mm_menu_specdrop = new Menu("root",176,18,"Arial, Helvetica, sans-serif",12,"#336699","#000000","#F2F0F0","#ffffff","left","middle",3,0,600,2,7,true,true,true,0,true,true);
  mm_menu_specdrop.addMenuItem("Taxonomic Entry","location='advanced_query.cfm?pageCalled=species#SPECIESENTRY'");
  mm_menu_specdrop.addMenuItem("Predefined Taxonomic Groups","location='advanced_query.cfm?pageCalled=species#SPECIESGROUPS'");
  mm_menu_specdrop.addMenuItem("Browse Species Index","location='advanced_query.cfm?pageCalled=browsespecies'");
  mm_menu_specdrop.fontWeight="bold";
  mm_menu_specdrop.hideOnMouseOut=true;
  mm_menu_specdrop.bgColor='#F2F0F0';
  
  mm_menu_chemdrop.writeMenus();
  mm_menu_testres.writeMenus();
  mm_menu_testcond.writeMenus();
  mm_menu_pubs.writeMenus();
  mm_menu_rf.writeMenus();
  mm_menu_specdrop.writeMenus();
} // mmLoadMenus()

function help(page) {

	bolFound = false;
	args = "width=500,height=560,location=0,menubar=1,resizable=1,scrollbars=1,status=0,toolbar=1,hotkeys=0,screenx=20,screeny=20,left=20,top=20"; 
	if (page == "FAQ")
	{ 
		help_window = window.open("help.cfm?sub=faq","HelpWindow", args);
		bolFound = true;
	}
	
	if (page == "Overview")
	{
		help_window = window.open("help.cfm","HelpWindow", args);
		bolFound = true;
	}
	
	if (page == "Limitations")
	{
		help_window = window.open("help.cfm?sub=limitations","HelpWindow", args);
		bolFound = true;
	}
	
	if (page == "TechDoc")
	{
		help_window = window.open("help.cfm?sub=codelist","HelpWindow", args);
		bolFound = true;
	}	
	
	if (page == "Datafields")
	{
		help_window = window.open("help.cfm?sub=datafields","HelpWindow", args);
		bolFound = true;
	}
	
	if (page == "Howto")
	{
		help_window = window.open("help.cfm?sub=userguide","HelpWindow", args);
		bolFound = true;
	}
	
	if (page == "SearchPlanner")
	{
		help_window = window.open("help.cfm?sub=searchplanner","HelpWindow", args);
		bolFound = true;
	}
	
	if (page == "Glossary")
	{
		help_window = window.open("help.cfm?sub=glossary","HelpWindow", args);
		bolFound = true;
	}
		
	if (bolFound)
	{
		
	} else {
		alert ("This page has not come on line yet.  Please check back later");
	}		

}


function openChemicalBrowseWindow()
{
	args = "width=700,height=600,location=0,menubar=0,resizable=1,scrollbars=0,status=0,toolbar=1,hotkeys=0,screenx=20,screeny=20,left=20,top=20";
	retrieve_data_window = window.open("browse_index.cfm?sub=chemical","ChemicalBrowseWindow", args);

}

function openSpeciesBrowseWindow()
{
	args = "width=700,height=600,location=0,menubar=0,resizable=1,scrollbars=0,status=0,toolbar=1,hotkeys=0,screenx=20,screeny=20,left=20,top=20";
	retrieve_data_window = window.open("browse_index.cfm?sub=species","SpeciesBrowseWindow", args);

}

function openEffectsBrowseWindow()
{
	args = "width=700,height=600,location=0,menubar=0,resizable=1,scrollbars=0,status=0,toolbar=1,hotkeys=0,screenx=20,screeny=20,left=20,top=20";
	retrieve_data_window = window.open("browse_index.cfm?sub=effects","EffectsBrowseWindow", args);

}

function openNewWindow(location)
{
	args = "width=900,height=580,location=0,menubar=1,resizable=1,scrollbars=1,status=0,toolbar=1,hotkeys=1,screenx=20,screeny=20,left=20,top=20";  
	help_window = window.open(location,"HelpWindow", args);
	help_window.focus();

}

function openReportsWindow(type,style)
{
	args = "width=750,height=580,location=0,menubar=1,resizable=1,scrollbars=1,status=1,toolbar=1,hotkeys=0,screenx=20,screeny=20,left=20,top=20";
	if (style == 'advanced')
	{
		if (type == 'aquire') {
			retrieve_data_window = window.open("report.cfm?style=advanced&sub=aquire","ReportsWindow", args);
		}
		else if (type == 'aquireLong')
		{
			retrieve_data_window = window.open("report.cfm?style=advanced&sub=aquire&type=long","ReportsWindow", args);
		}
		else if (type == 'aquireDelim')
		{
			retrieve_data_window = window.open("report.cfm?style=advanced&sub=aquire&type=delimited","ReportsWindow", args);
		}
		else if (type == 'aquireExcel')
		{
			retrieve_data_window = window.open("report.cfm?style=advanced&sub=aquire&type=excel","ReportsWindow", args);
		}
		else if (type == 'terrestrialExcel')
		{
			retrieve_data_window = window.open("report.cfm?style=advanced&sub=terrestrial&type=excel","ReportsWindow", args);
		}
		else if (type == 'terrestrialDelim')
		{
			retrieve_data_window = window.open("report.cfm?style=advanced&sub=terrestrial&type=delimited","ReportsWindow", args);
		}
		else if (type == 'terrestrialLong')
		{
			retrieve_data_window = window.open("report.cfm?style=advanced&sub=terrestrial&type=long","ReportsWindow", args);
		}
		else
		{
			retrieve_data_window = window.open("report.cfm?style=advanced&sub=terrestrial","ReportsWindow", args);
		}
	}
	else if (style == 'quick') 
	{
		if (type == 'aquire') {
			retrieve_data_window = window.open("reportQuick.cfm?style=quick&sub=aquire","ReportsWindow", args);
		}
		else if (type == 'aquireLong')
		{
			retrieve_data_window = window.open("reportQuick.cfm?style=quick&sub=aquire&type=long","ReportsWindow", args);
		}
		else if (type == 'aquireDelim')
		{
			retrieve_data_window = window.open("reportQuick.cfm?style=quick&sub=aquire&type=delimited","ReportsWindow", args);
		}
		else if (type == 'aquireExcel')
		{
			retrieve_data_window = window.open("reportQuick.cfm?style=quick&sub=aquire&type=excel","ReportsWindow", args);
		}
		else if (type == 'terrestrialExcel')
		{
			retrieve_data_window = window.open("reportQuick.cfm?style=quick&sub=terrestrial&type=excel","ReportsWindow", args);
		}
		else if (type == 'terrestrialDelim')
		{
			retrieve_data_window = window.open("reportQuick.cfm?style=quick&sub=terrestrial&type=delimited","ReportsWindow", args);
		}
		else if (type == 'terrestrialLong')
		{
			retrieve_data_window = window.open("reportQuick.cfm?style=quick&sub=terrestrial&type=long","ReportsWindow", args);
		}
		else if (type == 'terrestrial')
		{
			retrieve_data_window = window.open("reportQuick.cfm?style=quick&sub=terrestrial","ReportsWindow", args);
		}
		else
		{
			retrieve_data_window = window.open("reportQuick.cfm?style=quick&sub=terrestrial","ReportsWindow", args);
		}
	}
	retrieve_data_window.focus();
}

function renameWindow(windowName)
{
	random_handle = parseInt(Math.random() * 100000000);
	eval("top." + windowName + ".name = random_handle;");
}

function Search_Click(type)
{

	NS4 = (document.layers);
	IE4 = (document.all);
	ver4 = (NS4 || IE4);
	isMac = (navigator.appVersion.indexOf("Mac") != -1);
	isMenu = (NS4 || (IE4 && !isMac));
	
	if (navigator.userAgent.toLowerCase().indexOf("msie 5.0")!=-1)
	{
	   NVFull = 5.0;
	   NVMain = 5;
	   isMenu = true;
	}
	else
	{
	   NVFull = parseFloat(navigator.appVersion);
	   NVMain = parseInt(navigator.appVersion);
	}

	//Start New
	if (navigator.userAgent.toLowerCase().indexOf("netscape6")!=-1)
	{
		isMenu = true;
	}
	//End New
	
	isMenu = true;
	//End New


	if (!isMenu)
	{
		parent.location.href = "http://www.epa.gov/ecotox/v4browserwarning.htm";
	} else {

		if (type == "Advanced")
		{
			//Turn off Advanced (Dogma)
			top.window.location.href = "advanced_query.htm";
			//top.window.location.href = "advanced_search_request.cfm";
		} else {
			// This will work if it is a 4.x browser or above.
			top.window.location.href = "quick_query.htm";
		}
	}

}

function checkBrowserVersion() {

	NavName = navigator.appName.toLowerCase();

	NS = "netscape";
	IE = "microsoft internet explorer";

	NS4 = (document.layers);
	IE4 = (document.all);
	ver4 = (NS4 || IE4);
	isMac = (navigator.appVersion.indexOf("Mac") != -1);
	isMenu = (NS4 || IE4);

	if (navigator.userAgent.toLowerCase().indexOf("msie 5.0")!=-1)
	{
	   NVFull = 5.0;
	   NVMain = 5;
	   isMenu = true;
	}
	else
	{
	   NVFull = parseFloat(navigator.appVersion);
	   NVMain = parseInt(navigator.appVersion);
	}
	//Start New
	if (navigator.userAgent.toLowerCase().indexOf("netscape6")!=-1)
	{
		isMenu = true;
	}
	//End New
	
	if (!isMenu)
	{
		alert ("You are currently using a browser that is not supported by this site.  Please update your browser to an Internet Explorer 4.0 (www.microsoft.com) or higher or Netscape Navigator 4.02 (www.netscape.com) or higher");
		//document.ecotox_assembler.Next_Page.value = "oldBrowser";
	} else {
		loadImage();
	}

	if (NS4)
	{
		if (navigator.userAgent.toLowerCase().indexOf("4.02")!=-1 || navigator.userAgent.toLowerCase().indexOf("4.01")!=-1)
		{
			message = "You are using a version of Netscape with known problems for the site.  \n";
			message = message + "You may continue to use this browser, although you will get abnormal behavior when doing a search. \n";
			message = message + "To get the correct behavior, please upgrade your browser to Netscape 4.03 and above";
			alert (message);
		}
	}
}




function imageChange(imageID,imageName) {

   	if (parseInt(navigator.appVersion) < 4) {
		return;
	}
	
	top.window.status = "Please press button to go to selected search";

  	document.images[imageID].src = eval(imageName + ".src");

}


function goTo(page) {
	
	if (page != 'retrieveAqrData' && page != 'retrieveTerrData'  && page != 'retrieveAqrDataQuick'  && page != 'retrieveTerrDataQuick' && page != 'mainR' && page != 'mainRQ') {
		top.pages.location='advanced_query.cfm?pageCalled='+page;
	}
	else
	{
		if (page == 'retrieveAqrData') {
			//need to make sure they selected something to search on
			if(searchSelected(page))
			{
				if (top.data_holder.document.forms[0].rbAquaticRepOptions.value == 'ShortFormMulti')
				{
					openReportsWindow('aquire','advanced');
				}
				else if (top.data_holder.document.forms[0].rbAquaticRepOptions.value == 'LongFormMulti')
				{
					openReportsWindow('aquireLong','advanced');
				}
				else if (top.data_holder.document.forms[0].rbAquaticRepOptions.value == 'ShortFormDelim')
				{
					openReportsWindow('aquireDelim','advanced');
				}
				else if (top.data_holder.document.forms[0].rbAquaticRepOptions.value == 'ShortFormExcel')
				{
					openReportsWindow('aquireExcel','advanced');
				}
			}
			else
			{
				alert('You must search on at least one parameter. Please refine your search.');
			}
		}
		else if (page == 'retrieveAqrDataQuick') 
		{
			if(searchSelected(page))
			{
				if (document.ecotox_assembler.rbAquaticRepOptions[0].checked)
				{
					openReportsWindow('aquire','quick');
				}
				else if (document.ecotox_assembler.rbAquaticRepOptions[3].checked)
				{
					openReportsWindow('aquireLong','quick');
				}
				else if (document.ecotox_assembler.rbAquaticRepOptions[2].checked)
				{
					openReportsWindow('aquireDelim','quick');
				}
				else if (document.ecotox_assembler.rbAquaticRepOptions[1].checked)
				{
					openReportsWindow('aquireExcel','quick');
				}
			}
			else
			{
				alert('You must search on at least one parameter. Please refine your search.');
			}
		}
		else if (page == 'retrieveTerrDataQuick') 
		{
			//need to make sure they queried on something
			if(searchSelected(page))
			{
				if (document.ecotox_assembler.rbTerrRepOptions[0].checked)
				{
					openReportsWindow('terrestrial','quick');
				}
				else if (document.ecotox_assembler.rbTerrRepOptions[3].checked)
				{
					openReportsWindow('terrestrialLong','quick');
				}
				else if (document.ecotox_assembler.rbTerrRepOptions[2].checked)
				{
					openReportsWindow('terrestrialDelim','quick');
				}
				else if (document.ecotox_assembler.rbTerrRepOptions[1].checked)
				{
					openReportsWindow('terrestrialExcel','quick');
				}
				else
				{
					openReportsWindow('terrestrial','quick');
				}
			}
			else
			{
				alert('You must search on at least one parameter. Please refine your search.');
			}
		}
		else if (page == 'mainR') 
		{
			yesno = confirm("Are you sure you want to Restore Defaults?");
	
			if (yesno) {
				top.data_holder.location.reload();
				top.pages.location='advanced_query.cfm?pageCalled=main&reset=true';
			}
		}
		else if (page == 'mainRQ') 
		{
			top.pages.location.reload();
		}
		else
		{
			//need to make sure they queried on something
			if(searchSelected(page))
			{
				if (top.data_holder.document.forms[0].rbTerrRepOptions.value == 'ShortFormMulti')
				{
					openReportsWindow('terrestrial','advanced');
				}
				else if (top.data_holder.document.forms[0].rbTerrRepOptions.value == 'ShortFormExcel')
				{
					openReportsWindow('terrestrialExcel','advanced');
				}
				else if (top.data_holder.document.forms[0].rbTerrRepOptions.value == 'ShortFormDelim')
				{
					openReportsWindow('terrestrialDelim','advanced');
				}
				else if (top.data_holder.document.forms[0].rbTerrRepOptions.value == 'LongFormMulti')
				{
					openReportsWindow('terrestrialLong','advanced');
				}
			}
			else
			{
				alert('You must search on at least one parameter. Please refine your search.');
			}
		}	
		return;
	}
	
}

//7-25-06 Gina: Added this to make sure they select something to query on
function searchSelected(page) {
	var somethingSelected;
	//somethingSelected=false;
	somethingSelected=true;
	
	/*if (page == 'retrieveAqrData') {
		//Advanced Aquatic
		if(document.ecotox_assembler.chemicalTextAreaWords.value != "" && document.ecotox_assembler.chemicalTextAreaWords.value != null)
			somethingSelected=true;
			
		if(document.ecotox_assembler.chemicalTextAreaNumbers.value != "" && document.ecotox_assembler.chemicalTextAreaNumbers.value != null)
			somethingSelected=true;
			
		if(document.ecotox_assembler.speciesTextAreaNumbers.value != "" && document.ecotox_assembler.speciesTextAreaNumbers.value != null)
			somethingSelected=true;
			
		if(document.ecotox_assembler.speciesTextAreaWords.value != "" && document.ecotox_assembler.speciesTextAreaWords.value != null)
			somethingSelected=true;
			
		
			
		//if(document.ecotox_assembler.cbEffectGroup1c.checked || document.ecotox_assembler.cbEffectGroup1d.checked || document.ecotox_assembler.cbEffectGroup1b.checked || document.ecotox_assembler.cbEffectGroup1f.checked || document.ecotox_assembler.cbEffectGroup1g.checked || document.ecotox_assembler.cbEffectGroup1e.checked || document.ecotox_assembler.cbEffectGroup1f.checked || document.ecotox_assembler.cbEffectGroup1i.checked || document.ecotox_assembler.cbEffectGroup1j.checked || document.ecotox_assembler.cbEffectGroup1h.checked || document.ecotox_assembler.cbEffectGroup1a.checked || document.ecotox_assembler.cbAllAnimals.checked || document.ecotox_assembler.cbEffectGroup2a.checked || document.ecotox_assembler.cbEffectGroup2b.checked || document.ecotox_assembler.cbAllPlants.checked || document.ecotox_assembler.cbStandardTest.checked || document.ecotox_assembler.cbEndangered.checked || document.ecotox_assembler.cbExotic.checked)
			//somethingSelected=true;
	}
	else if (page == 'retrieveAqrDataQuick') 
	{
		//Quick Aquatic
		if(document.ecotox_assembler.txAdvancedChemicalEntries.value != "" && document.ecotox_assembler.txAdvancedChemicalEntries.value != null)
			somethingSelected=true;
			
		if(document.ecotox_assembler.txAdvancedSpecEntries.value != "" && document.ecotox_assembler.txAdvancedSpecEntries.value != null)
			somethingSelected=true;
		
		if(document.ecotox_assembler.rbEffectGroup.value == 'CALCULATEDENDPOINTS')
			somethingSelected=true;
		
		if(document.ecotox_assembler.rbEffectGroup.value == 'STATANALYZEDRECORDS')
			somethingSelected=true;
		
		if(document.ecotox_assembler.cbACCUMULATION.checked)
			somethingSelected=true;
			
		if(document.ecotox_assembler.cbCELLULAR.checked)
			somethingSelected=true;
			
		if(document.ecotox_assembler.cbMORTALITY.checked)
			somethingSelected=true;
			
		if(document.ecotox_assembler.cbECOSYSTEM.checked)
			somethingSelected=true;
			
		if(document.ecotox_assembler.cbPHYSIOLOGY.checked)
			somethingSelected=true;
	
		if(document.ecotox_assembler.cbBIOCHEMICAL.checked)
			somethingSelected=true;
			
		if(document.ecotox_assembler.cbGROWTH.checked)
			somethingSelected=true;
		
		if(document.ecotox_assembler.cbPOPULATION.checked)
			somethingSelected=true;
		
		if(document.ecotox_assembler.cbREPRODUCTION.checked)
			somethingSelected=true;
			
		if(document.ecotox_assembler.Starting_Publication_Year.value != "1915")
			somethingSelected=true;
			
		if(document.ecotox_assembler.Ending_Publication_Year.value != "2003")
			somethingSelected=true;
	}
	else if (page == 'retrieveTerrDataQuick') 
	{
		//Quick Terrestrial
	}
	else
	{
		//Advanced Terrestrial
	}*/
	return somethingSelected;
}

function clearSearch()
{

	yesno = confirm("Are you sure you want to clear your search?");
	
	if (yesno) {
	
		document.ecotox_assembler.ID.value='';
		goTo('clearsearch');
	
	}

}

function stripSpaces(someTextValue) 
{
    x = someTextValue;
    while (x.substring(0,1) == ' ') x = x.substring(1);
    while (x.substring(x.length-1,x.length) == ' ') x = x.substring(0,x.length-1);
    return x;
}

	
//-->


function checkBrowser(type){
	
	NS4 = (document.layers);
	IE4 = (document.all);

	if (type == "chemical")
	{
		if (IE4)
		{
			top.window.location.href = "browse_index.cfm";
		} else {
			top.window.location.href = "browse_index.cfm";
		}
	}

	if (type == "species")
	{
		if (IE4)
		{
			top.window.location.href = "browse_index.cfm?sub=species";
		} else {
			top.window.location.href = "browse_index.cfm?sub=species";
		}
	}

	if (type == "effect")
	{
		top.window.location.href = "browse_index.cfm?sub=effects";
	}

}

//5/18/06 - Gina - need to figure out where to put validateChemTextBox and validateCAS and isNumeric
function validateChemTextBox(element)
{
	var val = eval('document.ecotox_assembler.' + element).value;
	var arr;
	var text = '';
	var correct = '';
	arr=val.split(/\r?\n/);
	for (x=0; x<arr.length; x++) 
	{
		//alert(arr[x]);
		if(isNumeric(arr[x])){
			if(validateCAS(arr[x])){
				correct = correct + arr[x] + '\n';
			}
			else{
				text = text + arr[x] + '\n';
			}
		}
		else{
			correct = correct + arr[x] + '\n';
		}
	} 
	if(text != ''){
		alert('The following are invalid CAS numbers:\n\n' + text);
	}
	eval('document.ecotox_assembler.' + element).value = correct;
}

/* validateCAS checks for valid CAS number */
function validateCAS(value) {

	/* Allow for the user input of hyphens but remove hyphens from form data. */
	no_hyphens_value = "";
	for (var i = 0; i < value.length; i++) {
		if (value.charAt(i) != "-") {
			no_hyphens_value = no_hyphens_value + value.charAt(i);
		}
	}
	value = no_hyphens_value;

	if (value < 10000) {
	 if (value != "") {
	  if (value != " ") {
	 	return false;
	  }
	 }
	} else {

		digits = value.length;
		check = value.charAt(digits-1);
		increment = digits-2;
		sum = 0;
		pos = 1;
		

		while (increment >= 0) {
			sum = sum + (value.charAt(increment) * pos);
			pos = pos +1; 
			increment = increment - 1;
		}

		check2 = sum % 10;

		// Make both values the same (in this case strings) to
		// check for the validity of the CAS.
		
		check = check + "";
		check2 = check2 + "";

		if (check == check2) {
		
		
		
		} else {
			
	 		return false;
		}
	
	}
	return true;
}

function isNumeric(strString) {
   var strValidChars = "0123456789-";
   var strChar;
   var blnResult = true;

   if (strString.length == 0) return false;

   //  test strString consists of valid characters listed above
   for (i=0; i<strString.length; i++)
      {
      strChar = strString.charAt(i);
      if (strValidChars.indexOf(strChar) == -1)
         {
         blnResult = false;
		 break;
         }
      }
   return blnResult;
}

//End of Gina's changes