//function to Check email
    // opt value 0 if mandatory and 1 if not
    function CheckEmail(fld,msg,opt)
    {
    	if(opt=="0" || fld.value!="")
    	{
            var emailStr=fld.value;
        	var checkTLD=1;
        	var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/;
        
        	var emailPat=/^(.+)@(.+)$/;
        
        	var specialChars="\\(\\)><@,;:\\\\\\\"\\.\\[\\]";
        
        	var validChars="\[^\\s" + specialChars + "\]";
        
        	var quotedUser="(\"[^\"]*\")";
        
        	var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
        
        	var atom=validChars + '+';
        
        	var word="(" + atom + "|" + quotedUser + ")";
        
        	var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
        
        	var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
     
        	var matchArray=emailStr.match(emailPat);
    
        	if (matchArray==null)
        	{
        		
                fld.focus();
        		fld.select();
        		alert(msg);
        		return false;
        	}
            
        	var user=matchArray[1];
        	var domain=matchArray[2];
    
        	for (i=0; i<user.length; i++) 
            {
            	if (user.charCodeAt(i)>127) 
                {
                	fld.focus();
                	fld.select();
                	alert(msg);
                	return false;
        	    }
        	}
    	
            for (i=0; i<domain.length; i++) 
            {
            	if (domain.charCodeAt(i)>127) 
                {
                	fld.focus();
                	fld.select();
                	alert(msg);
                	return false;
            	}
        	}
    
        	// See if "user" is valid 
        
        	if (user.match(userPat)==null) 
            {
        
        	// user is not valid
        	fld.focus();
        	fld.select();
        	alert(msg);
        	return false;
        	}
        
        	var IPArray=domain.match(ipDomainPat);
        	if (IPArray!=null) 
        	{
            	for (var i=1;i<=4;i++) 
                {
                	if (IPArray[i]>255) 
                    {
                    	fld.focus();
                    	fld.select();
                    	alert(msg);
                    	return false;
                	}
            	}
        	    return true;
        	}
    
    
        	var atomPat=new RegExp("^" + atom + "$");
        	var domArr=domain.split(".");
        	var len=domArr.length;
        	for (i=0;i<len;i++)
            {
            	if (domArr[i].search(atomPat)==-1) 
                {
                	fld.focus();
                	fld.select();
                	alert(msg);
                	return false;
            	}
        	}
    
        	if (checkTLD && domArr[domArr.length-1].length!=2 && domArr[domArr.length-1].search(knownDomsPat)==-1) 
            {
            	fld.focus();
            	fld.select();
            	alert(msg);
            	return false;
        	}
    
        	if (len<2) 
            {
            	fld.focus();
            	fld.select();
            	alert(msg);
            	return false;
        	}
    	    return true;
        }
        return true;
    }/**
 * Rollover buttons
 */
 function CheckMail(emailStr)
{
	var checkTLD=0;
	var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum])$/;
	var emailPat=/^(.+)@(.+)$/;
	var specialChars="\\(\\)><@,;:\\\\\\\\.\\[\\]//";
	var validChars="\[^\\s" + specialChars + "\]";
	var quotedUser="(\"[^\"]*\")";
	var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
	var atom=validChars + '+';
	var word="(" + atom + "|" + quotedUser + ")";
	var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
	var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
	var matchArray=emailStr.match(emailPat);

	if (matchArray==null)
	{
		return false;
	}
	var user=matchArray[1];
	var domain=matchArray[2];

	for (i=0; i<user.length; i++)
	{
		if (user.charCodeAt(i)>127)
		{
			return false;
		}
	}

	for (i=0; i<domain.length; i++)
	{
		if (domain.charCodeAt(i)>127)
		{
			return false;
		}
	}

	if (user.match(userPat)==null)
	{
		return false;
	}

	var atomPat=new RegExp("^" + atom + "$");
	var domArr=domain.split(".");
	var len=domArr.length;
	
	for (i=0;i<len;i++)
	{
		if (domArr[i].search(atomPat)==-1)
		{
			return false;
		}
	}

	if (checkTLD && domArr[domArr.length-1].length!=2 && domArr[domArr.length-1].search(knownDomsPat)==-1)
	{
		var dis=domArr[domArr.length-1].length;
		return false;
	}

	if (len<2)
	{
		return false;
	}
	return true;
}
    //function to Check Empty
    function IsEmpty(fld,mesg)
    {
		reg = / /g;
        str = fld.value;
        
		res = str.replace(reg,""); 
       
		if(res == "")
        {
            
			alert(mesg);
            fld.value="";

            return false;
        }		
        return true;
    }

//validate function for the doctor
	function validate_new_user()
	{
	    if(document.newUserForm.username.value!='')
		{
		if(!CheckMail(document.newUserForm.username.value)==false)
	  {
		
		confirm('Please do not enter an email address as username as this will be viewable in the Big Salty forum.');
		
		return false;
	   }
	   }
	} 
	
	
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

/**
 * Function for creating the image pop up window for the admin section
 */
function create_window(image,width,height,dir){
	width = width + 25;
	height = height + 60;
	
	if(window.popup_window && !window.popup_window.closed){
		window.popup_window.resizeTo(width, height);
	}
	
	var window_specs = "location=no, scrollbars=no, menubars=no, toolbars=no, resizable=yes,left=0, top=0, width=" + width + ", height=" + height;
	
	var url = "image_window.php?image=" + image + "&dir=" + dir;
	
	popup_window = window.open(url, "PictureWindow", window_specs);
	popup_window.focus();
}

/**
 * Encrypts email address to prevent stealing.
 */
function RgAnrXavqvoAgyQ(){
	/* Munged addy code - YOU CAN EDIT COMMENT THIS TAG BETWEEN THE TWO STARS */ 
	var heCubpqqOHmVFBo=["x63","x6f","x6e","116","97","x63","x74","64","x62","x69","103","x73","x61","x6c","x74","x79","46","x63","x6f","46","x75","x6b"];
	var OUOEWHfaGddGkTV=[" "];
	var RhjNFlwOBhAWNfy=["99","x6f","x6e","116","97","x63","x74","x40","98","105","103","x73","97","108","x74","x79","46","99","x6f","x2e","x75","107"];
	document.write("<a href=\"&#x6d;&#x61;&#105;&#000108;&#x74;&#x6f;&#x3a;");
	for (i=0; i<heCubpqqOHmVFBo.length; i++) document.write("&#"+heCubpqqOHmVFBo[i]+";");
	for (i=0; i<OUOEWHfaGddGkTV.length; i++) document.write(OUOEWHfaGddGkTV[i]);
	document.write("\" >");
	for (i=0; i<RhjNFlwOBhAWNfy.length; i++) document.write("&#"+RhjNFlwOBhAWNfy[i]+";");
	document.write('</a>');
	/* Munged addy code - YOU CAN EDIT COMMENT THIS TAG BETWEEN THE TWO STARS */
}

/**
 * Checks the user has input a valid email.
 */
function checkEmail(vInput)
{
	var Correct = true;
	CharCount=1;
	strLength=vInput.length;
	// look for @
	while ((CharCount < strLength) && (vInput.charAt(CharCount) != "@"))
	{
		CharCount++
	}

	if ((CharCount>= strLength) || (vInput.charAt(CharCount) != "@")) 
	{ 
		alert ("Not a valid email address - must contain '@' with characters on either side")
		Correct = false;
	}   
	else
	{
		CharCount += 2;
	}

	// look for .
	while ((CharCount < strLength) && (vInput.charAt(CharCount) != "."))
	{
		CharCount++
	}

	// there must be at least one character after the .
	if ((CharCount>= strLength - 1) || (vInput.charAt(CharCount) != ".")) 
	{ 
		alert ("Not a valid email address: must have a '.' with at least 1 character after it")
		Correct = false;
	}
	return Correct
}



function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}

  function clearText( obj ){
  	
	obj.value = '';
  
  }