function doJAVASCP(alertMsg)
{
	if (alertMsg != "") alert(alertMsg);
}

function checkInput(form1)
{
        isJobID = /^[\dA-Za-z\-\_]+$/;
        isEmail1 = /^\w+([\.\-]\w+)*\@\w+([\.\-]\w+)*\.\w+$/;
        isEmail2 = /^.*@[^_]*$/;
        
	if ( !isJobID.test(form1.Jobid.value) ) {
		alert("Invalid job ID!");
		return false;
	}
	
	/*
	if ( !isEmail1.test(form1.Email.value) || !isEmail2.test(form1.Email.value) ) {
		alert("Invalid Email Address!");
		return false;
	}
  */
      
	if ( form1.seqsource.value != "redo" ) {
		if ( form1.SeqFasta.value == "" && form1.FastaFile.value == "" ) {
			alert("No input sequence!");
			return false;
		}
	}
	return true;
}

function clustalW_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;
  
  if ( (form1.Quicktree[0].checked && form1.Quicktree[0].value=="Y") || (form1.Quicktree[1].checked && form1.Quicktree[1].value=="Y") ) {
	  if ( form1.KTuple.value < 1 || form1.KTuple.value > 4 || !isInteger.test(form1.KTuple.value) ) {
	  	alert("KTuple must be integer between 1 and 4");
	  	return false;
	  }
	  if ( form1.TopDiags.value < 1 || form1.TopDiags.value > 50 || !isInteger.test(form1.TopDiags.value) ) {
	  	alert("TopDiags must be integer between 1 and 50");
	  	return false;
	  }
	  if ( form1.Window.value < 1 || form1.Window.value > 50 || !isInteger.test(form1.Window.value) ) {
	  	alert("Window must be integer between 1 and 50");
	  	return false;
	  }
	  if ( form1.PairGap.value < 1 || form1.PairGap.value > 500 || !isInteger.test(form1.PairGap.value) ) {
	  	alert("PairGap must be integer between 1 and 500");
	  	return false;
	  }
  } else {
	  if ( form1.PWGapOpen.value < 0 || form1.PWGapOpen.value > 100 || !isFloat.test(form1.PWGapOpen.value) ) {
	  	alert("PWGapOpen must be real between 0.0 and 100.0");
	  	return false;
	  }
	  if ( form1.PWGapExt.value < 0 || form1.PWGapExt.value > 10 || !isFloat.test(form1.PWGapExt.value) ) {
	  	alert("PWGapExt must be real between 0.0 and 10.0");
	  	return false;
	  }
  }
  if ( form1.GapOpen.value < 0 || form1.GapOpen.value > 100 || !isFloat.test(form1.GapOpen.value) ) {
	alert("GapOpen must be real between 0.0 and 100.0");
	return false;
  }
  if ( form1.GapExt.value < 0 || form1.GapExt.value > 10 || !isFloat.test(form1.GapExt.value) ) {
	alert("GapExt must be real between 0.0 and 10.0");
	return false;
  }
  if ( form1.TransWeight.value < 0 || form1.TransWeight.value > 1 || !isFloat.test(form1.TransWeight.value) ) {
  	alert("TransWeight must be real between 0.0 and 1.0");
  	return false;
  }
  if ( form1.MaxDiv.value < 0 || form1.MaxDiv.value > 100 || !isFloat.test(form1.MaxDiv.value) ) {
  	alert("MaxDiv must be integer between 0 and 100");
  	return false;
  }
  return true;
}

function clustalWP_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;
  
  if ( (form1.Quicktree[0].checked && form1.Quicktree[0].value=="Y") || (form1.Quicktree[1].checked && form1.Quicktree[1].value=="Y") ) {
	  if ( form1.KTuple.value < 1 || form1.KTuple.value > 2 || !isInteger.test(form1.KTuple.value) ) {
	  	alert("KTuple must be integer between 1 and 2");
	  	return false;
	  }
	  if ( form1.TopDiags.value < 1 || form1.TopDiags.value > 50 || !isInteger.test(form1.TopDiags.value) ) {
	  	alert("TopDiags must be integer between 1 and 50");
	  	return false;
	  }
	  if ( form1.Window.value < 1 || form1.Window.value > 50 || !isInteger.test(form1.Window.value) ) {
	  	alert("Window must be integer between 1 and 50");
	  	return false;
	  }
	  if ( form1.PairGap.value < 1 || form1.PairGap.value > 500 || !isInteger.test(form1.PairGap.value) ) {
	  	alert("PairGap must be integer between 1 and 500");
	  	return false;
	  }
  } else {
	  if ( form1.PWGapOpen.value < 0 || form1.PWGapOpen.value > 100 || !isFloat.test(form1.PWGapOpen.value) ) {
	  	alert("PWGapOpen must be real between 0.0 and 100.0");
	  	return false;
	  }
	  if ( form1.PWGapExt.value < 0 || form1.PWGapExt.value > 10 || !isFloat.test(form1.PWGapExt.value) ) {
	  	alert("PWGapExt must be real between 0.0 and 10.0");
	  	return false;
	  }
  }
  if ( form1.GapOpen.value < 0 || form1.GapOpen.value > 100 || !isFloat.test(form1.GapOpen.value) ) {
	alert("GapOpen must be real between 0.0 and 100.0");
	return false;
  }
  if ( form1.GapExt.value < 0 || form1.GapExt.value > 10 || !isFloat.test(form1.GapExt.value) ) {
	alert("GapExt must be real between 0.0 and 10.0");
	return false;
  }
  if ( form1.GapDist.value < 0 || form1.GapDist.value > 100 || !isInteger.test(form1.GapDist.value) ) {
  	alert("GapDist must be real between 0 and 100");
  	return false;
  }
  if ( form1.MaxDiv.value < 0 || form1.MaxDiv.value > 100 || !isFloat.test(form1.MaxDiv.value) ) {
  	alert("MaxDiv must be integer between 0 and 100");
  	return false;
  }
  if ( (form1.NoHGap[0].checked && form1.NoHGap[0].value=="N") || (form1.NoHGap[1].checked && form1.NoHGap[1].value=="N") ) {
	  if ( form1.HGapResidues.value == "") {
	  	alert("HGapResidues is empty");
	  	return false;
	  }
  }
  
  return true;
}

function seqboot_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;
  
  if ( (form1.DoUndo[0].checked && form1.DoUndo[0].value=="Y") || (form1.DoUndo[1].checked && form1.DoUndo[1].value=="Y") ) {
	  if ( form1.RandomSeed.value % 2 == 0 || !isInteger.test(form1.RandomSeed.value) ) {
	  	alert("RandomSeed must be odd");
	  	return false;
	  }
  }
  return true;
}

function dnadist_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;
  
  if (form1.Model.options[form1.Model.selectedIndex].value == "kimura"){
    if ( form1.Ratio.value < 0 || !isFloat.test(form1.Ratio.value) ) {
	alert("Ratio must be a positive real number");
	return false;
    }
  } else if (form1.Model.options[form1.Model.selectedIndex].value == "jinnei"){
    if ( form1.Ratio.value < 0 || !isFloat.test(form1.Ratio.value) ) {
	alert("Ratio must be a positive real number");
	return false;
    }
    if ( form1.Coefficient.value < 0 || !isFloat.test(form1.Coefficient.value) ) {
	alert("Coefficient must be a positive real number");
	return false;
    }
  } else if (form1.Model.options[form1.Model.selectedIndex].value == "ml"){
    if ( form1.Ratio.value < 0 || !isFloat.test(form1.Ratio.value) ) {
	alert("Ratio must be a positive real number");
	return false;
    }
    if ( (form1.Empirical[0].checked && form1.Empirical[0].value=="N") || (form1.Empirical[1].checked && form1.Empirical[1].value=="N") ) {
    	base = form1.BaseFreq.value.split(' ');
    	bsum = 0.0;
    	for ( i = 0; i < 4; i++ ) {
	  if ( base[i] < 0.0 || !isFloat.test(base[i]) ) {
	    alert("BaseFreq must be a positive real number");
	    return false;
	  }
    	  bsum += parseFloat(base[i]);
	}
	if ( bsum != 1.0 ) {
	  alert("BaseFreq must add to 1");
	  return false;
	}
    }
  }
  return true;
}

function protdist_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;
  
  if (form1.Model.options[form1.Model.selectedIndex].value == "Categories"){
    if ( form1.Ease.value < 0 || form1.Ease.value > 1 || !isFloat.test(form1.Ease.value) ) {
	alert("Ease Can't be negative");
	return false;
    }
    if ( form1.Ratio.value < 0.5 || !isFloat.test(form1.Ratio.value) ) {
	alert("Ratio must be equal or larger than 0.5");
	return false;
    }
  }
  if ( (form1.Equal[0].checked && form1.Equal[0].value=="N") || (form1.Equal[1].checked && form1.Equal[1].value=="N") ) {
    base = form1.BaseFreq.value.split(' ');
    bsum = 0.0;
    for ( i = 0; i < 4; i++ ) {
	if ( base[i] < 0.0 || !isFloat.test(base[i]) ) {
	  alert("BaseFreq must be a positive real number");
	  return false;
	}
    	bsum += parseFloat(base[i]);
    }
    if ( bsum != 1.0 ) {
	alert("BaseFreq must add to 1");
	return false;
    }
  }
  return true;
}

function neighbor_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;
  
  if (form1.TreeMethod.options[form1.TreeMethod.selectedIndex].value == "Neighbor-joining"){
    if ( form1.Outgroup.value < 0 || !isInteger.test(form1.Outgroup.value) ) {
	alert("Outgroup must be a positive integer or zero");
	return false;
    }
  }
  if ( (form1.DoUndo[0].checked && form1.DoUndo[0].value=="Y") || (form1.DoUndo[1].checked && form1.DoUndo[1].value=="Y") ) {
    if ( form1.RandomSeed.value < 0 || form1.RandomSeed.value % 2  == 0 || !isInteger.test(form1.RandomSeed.value) ) {
	alert("RandomSeed must be odd");
	return false;
    }
  }
  return true;
}

function fitch_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;
  
  if ( form1.Power.value < 0 || !isFloat.test(form1.Power.value) ) {
    alert("Power must be real number");
    return false;
  }
  if ( form1.Outgroup.value < 0 || !isInteger.test(form1.Outgroup.value) ) {
    alert("Outgroup must be a positive integer or zero");
    return false;
  }
  if ( (form1.Random[0].checked && form1.Random[0].value=="Y") || (form1.Random[1].checked && form1.Random[1].value=="Y") ) {
    if ( form1.RandomSeed.value < 0 || form1.RandomSeed.value % 2  == 0 || !isInteger.test(form1.RandomSeed.value) ) {
	alert("RandomSeed must be odd");
	return false;
    }
  }
  return true;
}

function kitsch_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;
  
  if ( form1.Power.value < 0 || !isFloat.test(form1.Power.value) ) {
    alert("Power must be real number");
    return false;
  }
  if ( (form1.Random[0].checked && form1.Random[0].value=="Y") || (form1.Random[1].checked && form1.Random[1].value=="Y") ) {
    if ( form1.RandomSeed.value < 0 || form1.RandomSeed.value % 2  == 0 || !isInteger.test(form1.RandomSeed.value) ) {
	alert("RandomSeed must be odd");
	return false;
    }
  }
  return true;
}

function dnapars_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;
  
  if ( (form1.Random[0].checked && form1.Random[0].value=="Y") || (form1.Random[1].checked && form1.Random[1].value=="Y") ) {
    if ( form1.RandomSeed.value < 0 || form1.RandomSeed.value % 2  == 0 || !isInteger.test(form1.RandomSeed.value) ) {
	alert("RandomSeed must be odd");
	return false;
    }
  }
  if ( form1.Outgroup.value < 0 || !isInteger.test(form1.Outgroup.value) ) {
    alert("Outgroup must be a positive integer or zero");
    return false;
  }
  if ( (form1.UseThreshold[0].checked && form1.UseThreshold[0].value=="Y") || (form1.UseThreshold[1].checked && form1.UseThreshold[1].value=="Y") ) {
    if ( form1.Threshold.value < 0 || !isFloat.test(form1.Threshold.value) ) {
	alert("Threshold must be a positive real number");
	return false;
    }
  }
  return true;
}

function dnapenny_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;
  
  if ( form1.Outgroup.value < 0 || !isInteger.test(form1.Outgroup.value) ) {
    alert("Outgroup must be a positive integer or zero");
    return false;
  }
  if ( (form1.UseThreshold[0].checked && form1.UseThreshold[0].value=="Y") || (form1.UseThreshold[1].checked && form1.UseThreshold[1].value=="Y") ) {
    if ( form1.Threshold.value < 0 || !isFloat.test(form1.Threshold.value) ) {
	alert("Threshold must be a positive real number");
	return false;
    }
  }
  return true;
}

function dnacomp_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;

  if ( (form1.Random[0].checked && form1.Random[0].value=="Y") || (form1.Random[1].checked && form1.Random[1].value=="Y") ) {
    if ( form1.RandomSeed.value < 0 || form1.RandomSeed.value % 2  == 0 || !isInteger.test(form1.RandomSeed.value) ) {
	alert("RandomSeed must be odd");
	return false;
    }
  }  
  if ( form1.Outgroup.value < 0 || !isInteger.test(form1.Outgroup.value) ) {
    alert("Outgroup must be a positive integer or zero");
    return false;
  }
  return true;
}

function protpars_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;
  
  if ( (form1.Random[0].checked && form1.Random[0].value=="Y") || (form1.Random[1].checked && form1.Random[1].value=="Y") ) {
    if ( form1.RandomSeed.value < 0 || form1.RandomSeed.value % 2  == 0 || !isInteger.test(form1.RandomSeed.value) ) {
	alert("RandomSeed must be odd");
	return false;
    }
  }
  if ( form1.Outgroup.value < 0 || !isInteger.test(form1.Outgroup.value) ) {
    alert("Outgroup must be a positive integer or zero");
    return false;
  }
  if ( (form1.UseThreshold[0].checked && form1.UseThreshold[0].value=="Y") || (form1.UseThreshold[1].checked && form1.UseThreshold[1].value=="Y") ) {
    if ( form1.Threshold.value < 0 || !isFloat.test(form1.Threshold.value) ) {
	alert("Threshold must be a positive real number");
	return false;
    }
  }
  return true;
}

function dnaml_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;

  /*
  if ( form1.Ratio.value < 0 || !isFloat.test(form1.Ratio.value) ) {
    alert("Ratio must be a positive real number");
    return false;
  }
  */
  if ( (form1.Empirical[0].checked && form1.Empirical[0].value=="N") || (form1.Empirical[1].checked && form1.Empirical[1].value=="N") ) {
    base = form1.BaseFreq.value.split(' ');
    bsum = 0.0;
    for ( i = 0; i < 4; i++ ) {
	if ( base[i] < 0.0 || !isFloat.test(base[i]) ) {
	  alert("BaseFreq must be a positive real number");
	  return false;
	}
    	bsum += parseFloat(base[i]);
    }
    if ( bsum != 1.0 ) {
	alert("BaseFreq must add to 1");
	return false;
    }
  }
  /*
  if ( (form1.OneCategory[0].checked && form1.OneCategory[0].value=="N") || (form1.OneCategory[1].checked && form1.OneCategory[1].value=="N") ) {
    noc = form1.NoOfCategory.value;
    if ( noc < 1 || noc > 9 || !isInteger.test(noc) ) {
	alert("NoOfCategory must be a positive real number not more than 9");
	return false;
    }
    rate = form1.Rate.value.split(' ');
    for ( i = 0; i < noc; i++ ) {
	if ( rate[i] < 0.0 || !isFloat.test(rate[i]) ) {
	  alert("Rate must be postive real numbers");
	  return false;
	}
    }
    prob = form1.Probability.value.split(' ');
    psum = 0.0;
    for ( i = 0; i < noc; i++ ) {
	if ( prob[i] < 0.0 || !isFloat.test(prob[i]) ) {
	  alert("Probability must be nonnegative real numbers summed to 1");
	  return false;
	}
    	psum += parseFloat(prob[i]);
    }
    if ( psum != 1.0 ) {
	alert("Probability must be nonnegative real numbers summed to 1");
	return false;
    }
  }
  */
  if ( (form1.Random[0].checked && form1.Random[0].value=="Y") || (form1.Random[1].checked && form1.Random[1].value=="Y") ) {
    if ( form1.RandomSeed.value < 0 || form1.RandomSeed.value % 2  == 0 || !isInteger.test(form1.RandomSeed.value) ) {
	alert("RandomSeed must be odd");
	return false;
    }
  }  
  if ( form1.Outgroup.value < 0 || !isInteger.test(form1.Outgroup.value) ) {
    alert("Outgroup must be a positive integer or zero");
    return false;
  }
  return true;
}

function dnamlk_checkInput(form1)
{
  isInteger = /^\d+$/;
  isFloat = /^(\d+\.\d+|\d+)$/;

  /*
  if ( form1.Ratio.value < 0 || !isFloat.test(form1.Ratio.value) ) {
    alert("Ratio must be a positive real number");
    return false;
  }
  */
  if ( (form1.Empirical[0].checked && form1.Empirical[0].value=="N") || (form1.Empirical[1].checked && form1.Empirical[1].value=="N") ) {
    base = form1.BaseFreq.value.split(' ');
    bsum = 0.0;
    for ( i = 0; i < 4; i++ ) {
	if ( base[i] < 0.0 || !isFloat.test(base[i]) ) {
	  alert("BaseFreq must be a positive real number");
	  return false;
	}
    	bsum += parseFloat(base[i]);
    }
    if ( bsum != 1.0 ) {
	alert("BaseFreq must add to 1");
	return false;
    }
  }
  /*
  if ( (form1.OneCategory[0].checked && form1.OneCategory[0].value=="N") || (form1.OneCategory[1].checked && form1.OneCategory[1].value=="N") ) {
    noc = form1.NoOfCategory.value;
    if ( noc < 1 || noc > 9 || !isInteger.test(noc) ) {
	alert("NoOfCategory must be a positive real number not more than 9");
	return false;
    }
    rate = form1.Rate.value.split(' ');
    for ( i = 0; i < noc; i++ ) {
	if ( rate[i] < 0.0 || !isFloat.test(rate[i]) ) {
	  alert("Rate must be postive real numbers");
	  return false;
	}
    }
    prob = form1.Probability.value.split(' ');
    psum = 0.0;
    for ( i = 0; i < noc; i++ ) {
	if ( prob[i] < 0.0 || !isFloat.test(prob[i]) ) {
	  alert("Probability must be nonnegative real numbers summed to 1");
	  return false;
	}
    	psum += parseFloat(prob[i]);
    }
    if ( psum != 1.0 ) {
	alert("Probability must be nonnegative real numbers summed to 1");
	return false;
    }
  }
  */
  if ( (form1.Random[0].checked && form1.Random[0].value=="Y") || (form1.Random[1].checked && form1.Random[1].value=="Y") ) {
    if ( form1.RandomSeed.value < 0 || form1.RandomSeed.value % 2  == 0 || !isInteger.test(form1.RandomSeed.value) ) {
	alert("RandomSeed must be odd");
	return false;
    }
  }
  return true;
}

function contact_checkInput(form1)
{
        isEmail1 = /^\w+([\.\-]\w+)*\@\w+([\.\-]\w+)*\.\w+$/;
        isEmail2 = /^.*@[^_]*$/;

	sucs = true;
	if ( form1.Name.value == "" ) sucs = false;
	if ( !isEmail1.test(form1.Email.value) || !isEmail2.test(form1.Email.value) ) {
		alert("Invalid Email Address!");
		sucs = false;
	}
	if ( form1.Subject.value == "" ) sucs = false;
	if ( form1.Comment.value == "" ) sucs = false;

	if ( !sucs ) alert("Please fill all the fields. Thank you.");
	return sucs;
}

function checkInputSource(form1)
{
	if ( form1.SeqFasta.value == "" ) form1.FastaFile.disabled = false;
	else {
		form1.SeqFasta.disabled = false;
		form1.FastaFile.value = "";
		form1.FastaFile.disabled = true;
	}

	if ( form1.FastaFile.value == "" ) form1.SeqFasta.disabled = false;
	else {
		form1.FastaFile.disabled = false;
		form1.SeqFasta.value = "";
		form1.SeqFasta.disabled = true;
	}
}

function cleanField(form1)
{
	form1.SeqFasta.value = "";
	if ( form1.FastaFile.value == "" ) form1.SeqFasta.disabled = false;
	form1.FastaFile.disabled = false;
}

function divshow(divn, show)
{
  if ( show ) {
    document.getElementById(divn).style.display = ''
  } else {
    document.getElementById(divn).style.display = 'none';
  }
}

function dnadist_change_method(form1)
{
  if (form1.Model.options[form1.Model.selectedIndex].value == "kimura"){
    document.getElementById("F_param").style.display = 'none';
    document.getElementById("T_param").style.display = '';
    document.getElementById("D_param").style.display = 'none';
  } else if (form1.Model.options[form1.Model.selectedIndex].value == "jinnei"){
    document.getElementById("F_param").style.display = 'none';
    document.getElementById("T_param").style.display = '';
    document.getElementById("D_param").style.display = '';
  } else if (form1.Model.options[form1.Model.selectedIndex].value == "ml"){
    document.getElementById("F_param").style.display = '';
    document.getElementById("T_param").style.display = '';
    document.getElementById("D_param").style.display = 'none';
  } else if (form1.Model.options[form1.Model.selectedIndex].value == "jukes"){
    document.getElementById("F_param").style.display = 'none';
    document.getElementById("T_param").style.display = 'none';
    document.getElementById("D_param").style.display = 'none';
  }
}

function neighbor_change_method(form1)
{
  if (form1.TreeMethod.options[form1.TreeMethod.selectedIndex].value == "Neighbor-joining"){
    document.getElementById("O_param").style.display = '';
  } else if (form1.TreeMethod.options[form1.TreeMethod.selectedIndex].value == "UPGMA"){
    document.getElementById("O_param").style.display = 'none';
  }
}

function protdist_change_method(form1)
{
  if (form1.Model.options[form1.Model.selectedIndex].value == "PAM"){
    document.getElementById("C_param").style.display = 'none';
    document.getElementById("A_param").style.display = 'none';
    document.getElementById("E_param").style.display = 'none';
    document.getElementById("T_param").style.display = 'none';
    document.getElementById("F_param").style.display = 'none';
  } else if (form1.Model.options[form1.Model.selectedIndex].value == "Kimura"){
    document.getElementById("C_param").style.display = 'none';
    document.getElementById("A_param").style.display = 'none';
    document.getElementById("E_param").style.display = 'none';
    document.getElementById("T_param").style.display = 'none';
    document.getElementById("F_param").style.display = 'none';
  } else if (form1.Model.options[form1.Model.selectedIndex].value == "Categories"){
    document.getElementById("C_param").style.display = '';
    document.getElementById("A_param").style.display = '';
    document.getElementById("E_param").style.display = '';
    document.getElementById("T_param").style.display = '';
    document.getElementById("F_param").style.display = '';
  }
}

function setInputForm(form1)
{
  clustalw = false;
  if ( (form1.clustalw[0].checked && form1.clustalw[0].value=="Y") || (form1.clustalw[1].checked && form1.clustalw[1].value=="Y") ) {
	clustalw = true;
  }
  seqtype = "P";
  if ( (form1.seqtype[0].checked && form1.seqtype[0].value=="D") || (form1.seqtype[1].checked && form1.seqtype[1].value=="D") ) {
	seqtype = "D";
  }
  if ( clustalw ) {
  	if ( seqtype == "P" ) {
  		form1.action="inputP_w_form.php";
	} else {
		form1.action="input_w_form.php";
	}
  } else {
  	if ( seqtype == "P" ) {
  		form1.action="inputP_form.php";
	} else {
		form1.action="input_form.php";
	}
  }
}