//##########################################
function checkForm(frm)
{
	var msg = "";
	var done = false;
	
// Contact section
	if(frm.firstname.value == "")
		msg += "\n   Your Firstname";
	if(frm.surname.value == "")
		msg += "\n   Your Surname";
	if(frm.postcode.value == "")
		msg += "\n   Your Postcode";
	if (frm.r_part_day.options[frm.r_part_day.selectedIndex].value == "day" ||
		frm.r_part_month.options[frm.r_part_month.selectedIndex].value == "month" ||
		frm.r_part_year.options[frm.r_part_year.selectedIndex].value == "year")
		msg += "\n   Your date of birth";
	if(frm.email.value == "" || (!isEmail(frm.email.value)))
		msg += "\n   A valid email address";
	if(frm.telephone.value == "" || (!is_number(frm.telephone.value)))
		msg += "\n   A valid telephone number     ";
	//if(frm.EMIS.value == "")
	//	msg += "\n   Your EMIS number";

	// Check collection details
	for(x=0; x<=(frm.location.length-1); x++){
		if(frm.location[x].checked == true)
			done = true;
	}
	if(!done)
		msg += "\n\n   Collection instructions";
		
	done = false;
	
	// Check prescription items
	for(x=1; x<=6; x++){
		if(eval("frm.item"+x).value != "")
			done = true;
	}
	if(!done)
		msg += "\n   Prescription items";
	
	if(msg != ""){
		alert("Please supply the following:     \n" + msg);
		return false;
	}else{
		return true;
	}
}

//####################  TELEPHONE FUNCTION  #########
function is_number(num)
{
	var supported = 0;
  if (window.RegExp) {
 		var r1 = new RegExp("[^0-9 ]");
		return (!r1.test(num))
  }
	
}

//####################  EMAIL FUNCTION  ###############
function isEmail(str) {
  // are regular expressions supported?
  var supported = 0;
  if (window.RegExp) {
    var tempStr = "a";
    var tempReg = new RegExp(tempStr);
    if (tempReg.test(tempStr)) supported = 1;
  }
  if (!supported) 
    return (str.indexOf(".") > 2) && (str.indexOf("@") > 0);
  var r1 = new RegExp("(@.*@)|(\\.\\.)|(@\\.)|(^\\.)");
  var r2 = new RegExp("^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,4}|[0-9]{1,4})(\\]?)$");
  return (!r1.test(str) && r2.test(str));
}