/* 

	You may use this js file as you wish. This script is given as is, no warranties
	implied or otherwise are given by the author. Use at your own risk.
	
	PLEASE DO NOT REMOVE THESE COMMENTS (give credit where it is due).
	
	Written by	: Arthur Y. Abon
	Date Written: September 27, 2001
	
	Description	: Contains functions used for validating a generic HTML form, and their supporting functions.
	
*/

function ufTrim(asStr)
// Function to trim all leading and trailing spaces.
{
	return asStr.replace(/^\s+/,'').replace(/\s+$/,'');
}

function ufGetParam(asStr,asFlag)
// Function to get the parameters associated with the flag. Used by ufValidate()
{
	var liStartPos, liEndPos;
	var lsValue;
	
	liStartPos = asStr.indexOf(asFlag);
	liStartPos = asStr.indexOf('(',liStartPos)+1;
	liEndPos   = asStr.indexOf(')',liStartPos);
	return ufTrim(asStr.substring(liStartPos,liEndPos));
}

function ufLuhnCheck(asCardNum)
// Function for verifying Credit Card numbers
{
	var liNumOfDigit = asCardNum.length;
	var lbOddEven = liNumOfDigit & 1;
	var liSum = 0;

	for(var liCtr=0; liCtr<liNumOfDigit; liCtr++){
		var liDigit = parseInt(asCardNum.charAt(liCtr));
		if(!((liCtr&1)^lbOddEven)){
			liDigit *= 2;
			if(liDigit>9) liDigit -= 9;
		}
		liSum += liDigit;
	}
	if(liSum % 10 == 0) return true;
	else return false;
}

function ufValidate(asForm)
// Function to validate a form; focuses on first erroneous field found if field is visible
// SYNTAX: ufValidate(asFormName, asFieldName, asFormatFlags, asDisplayName)
{
	var lsField= '', lsDisplay= '', lsFormat= '', lsType= '', lsValue= '', lsTest= '';
	var ldtTest;
	var liStartPos, liEndPos, liTest;
	var lsError = '', lsTemp = '';
	var liMonth = 0, liDay = 0, liYear = 0;
	var objField;

	for(var liCtr=1; liCtr<arguments.length; liCtr = liCtr + 3)
	{
		lsField   = arguments[liCtr];
		lsFormat  = arguments[liCtr + 1];
		lsDisplay = arguments[liCtr + 2];
		eval('lsValue = '+ asForm +'.'+ lsField +'.value;');
		eval('lsType  = '+ asForm +'.' + lsField +'.type;');
				
		// Added less than length checking 03/13/2003 (Art)
		if(lsFormat.indexOf('X')>=0)
		{
			if(lsType.indexOf('select')>=0)
			{
				if(lsValue<=0) 
					lsError = 'Error in ufValidate: ' + lsDisplay + ' cannot have a length.';
			}
			else
			{
				liTest = parseInt(ufGetParam(lsFormat,'X'));
				if(lsValue.length>=liTest) 
					lsError = lsDisplay + ' is required to have less than ' + liTest + ' characters.';
			}
		}
		if(lsError.length>0) break;
		// End 03/13/2003
		
		// Added greater than length checking 09/29/2003 (Art)
		if(lsFormat.indexOf('Y')>=0)
		{
			if(lsType.indexOf('select')>=0)
			{
				if(lsValue<=0) 
					lsError = 'Error in ufValidate: ' + lsDisplay + ' cannot have a length.';
			}
			else
			{
				liTest = parseInt(ufGetParam(lsFormat,'Y'));
				if(lsValue.length<=liTest) 
					//lsError = lsDisplay + ' is required to have more than ' + liTest + ' characters.';
					lsError = lsDisplay + ' must be at least ' + eval(liTest+1) + ' characters.';
			}
		}
		if(lsError.length>0) break;
		// End 09/29/2003
		
		lsValue   = ufTrim(lsValue);
		
		if(lsType.indexOf('select')>=0) 
			eval('lsValue = '+ asForm +'.'+ lsField +'.selectedIndex;');
		
		// Check if blank
		if(lsFormat.indexOf('R')>=0)
		{
			if(lsType.indexOf('select')>=0)
			{
				if(lsValue<=0) 
					lsError = lsDisplay + ' is required.';
			}
			else
			{
				if(lsValue.length<=0) 
					lsError = lsDisplay + ' is required.';
			}
		}
		if(lsError.length>0) break;
		
		// Check if date format
		if((lsValue.length>0)&&((lsFormat.indexOf('D')>=0)||(lsFormat.indexOf('B')>=0)||(lsFormat.indexOf('A')>=0)))
		{
			if(	
				!((lsValue.length==10)||(lsValue.length==8))||
				(lsValue.split('/').length!=3)||
				(lsValue.indexOf('/',0)!=2)||
				(lsValue.indexOf('/',3)!=5)||
				(lsValue.indexOf('/',6)!=(-1))||
				(isNaN(lsValue.split('/')[0]-1))||
				(isNaN(lsValue.split('/')[1]-1))||
				(isNaN(lsValue.split('/')[2]-1))
			  )
				lsError = lsDisplay + ' should be a valid date in the \"mm/dd/yyyy\" format.\n\nExample: 09/27/1997';

			ldtTest = new Date(lsValue);
			if(parseFloat(lsValue.split('/')[0])!=(ldtTest.getMonth()+1)){
				lsError = lsDisplay + ' should be a valid date in the \"mm/dd/yyyy\" format.\n\nExample: 09/27/1997';
			}
			if(isNaN(ldtTest)) {
				lsError = lsDisplay + ' should be a valid date in the \"mm/dd/yyyy\" format.\n\nExample: 09/27/1997';
			}
		}
		if(lsError.length>0) break;
		
		// Check if numeric
		if((lsValue.length>0)&&((lsFormat.indexOf('N')>=0)||(lsFormat.indexOf('I')>=0)||(lsFormat.indexOf('G')>=0)||(lsFormat.indexOf('C')>=0)||(lsFormat.indexOf('L')>=0)))
		{
			lsTest = lsValue.replace(/[a-zA-Z]/g,'**').replace(/[^\-\d\.]/g,'**');
			if(isNaN(parseFloat(lsValue))||(lsTest.indexOf('**')>=0))
				lsError = lsDisplay + ' should be numeric.';
		}
		if(lsError.length>0) break;
		
		// Added integer checking 09/29/2003 (Art)
		//Check if integer
		if((lsValue.length>0)&&(lsFormat.indexOf('I')>=0))
		{
			lsTest = lsValue.replace(/[a-zA-Z]/g,'**').replace(/[^\-\d]/g,'**');
			if(isNaN(parseFloat(lsValue))||(lsTest.indexOf('**')>=0))
				lsError = lsDisplay + ' should be an integer.';
		}
		// End 09/29/2003

		// Check if valid credit card
		if((lsValue.length>0)&&(lsFormat.indexOf('C')>=0))
		{
			if(!ufLuhnCheck(lsValue))
				lsError = lsDisplay + ' should be a valid credit card number.';
			if((lsValue.length<13)||(lsValue.length>16))
				lsError = lsDisplay + ' should be a valid credit card number.';
		}
		
		// Check if email
		if((lsValue.length>0)&&(lsFormat.indexOf('E')>=0))
		{
			// Replaced with better regular expression 1/29/2004 (Art)
			if(lsValue.match(/^([\w-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([\w-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/)==null) 
			//if(lsValue.match(/.+[@].+[\.].{3,}/)==null) 
				lsError = lsDisplay + ' should be a valid e-mail address.';
			// End 1/29/2004 (Art)
		}
		if(lsError.length>0) break;
		
		// Check if phone number
		if((lsValue.length>0)&&(lsFormat.indexOf('P')>=0))
		{
			// Replaced with better regular expression 1/29/2004 (Art)
			if(lsValue.match(/(^\(\+?\d+\)\s?\d{3}\-?\d{4}$)|(^\+?\d*\-?\d{3}\-?\d{4}$)/)==null)
				lsError = lsDisplay + ' should be a valid phone number.\n\nEx. \n   (+999) 999-9999\n   +9999999999\n   +999-999-9999';
				
			//if(((lsValue.replace(/[a-zA-Z]/g,'**')).replace(/[^\+\d\(\)\*\#-]/g,'**')).indexOf('**')>=0)
			//	lsError = lsDisplay + ' should be a valid phone number.';
			
			// End 1/29/2004 (Art)
		}
		if(lsError.length>0) break;
		
		// Check if greater than
		if((lsValue.length>0)&&(lsFormat.indexOf('G')>=0))
		{
			liTest = parseFloat(ufGetParam(lsFormat,'G'));
			if(isNaN(liTest)) 
				lsError = 'Error in function ufValidate parameter G.';
			else
			{
				if((parseFloat(lsValue)<=liTest)&&((lsValue.length>0)&&(lsFormat.indexOf('L')>=0)))
					lsError = lsDisplay + ' should be between the numbers ' + (liTest) + ' and ' + (parseFloat(ufGetParam(lsFormat,'L'))) +'.';
				else if(parseFloat(lsValue)<=liTest)
					lsError = lsDisplay + ' should be greater than ' + liTest + '.';
			}
		}
		if(lsError.length>0) break;
		
		// Check if less than
		if((lsValue.length>0)&&(lsFormat.indexOf('L')>=0))
		{
			liTest = parseFloat(ufGetParam(lsFormat,'L'));
			if(isNaN(liTest)) 
				lsError = 'Error in function ufValidate parameter L.';
			else
			{
				if((parseFloat(lsValue)>=liTest)&&((lsValue.length>0)&&(lsFormat.indexOf('G')>=0)))
					lsError = lsDisplay + ' should be between the numbers ' + (parseFloat(ufGetParam(lsFormat,'G'))) + ' and ' + (liTest) +'.';
				else if(parseFloat(lsValue)>=liTest)
					lsError = lsDisplay + ' should be less than ' + liTest + '.';
			}
		}
		if(lsError.length>0) break;
		
		// Check if before
		if((lsValue.length>0)&&(lsFormat.indexOf('B')>=0))
		{
			ldtTest = ufGetParam(lsFormat,'B')
			ldtTest = new Date(ldtTest);
			if(isNaN(ldtTest)) 
				lsError = 'Error in function ufValidate parameter B.';
			else
			{
				lsTemp = lsValue;
				lsValue = new Date(lsValue);
				if((lsValue.valueOf() >= ldtTest.valueOf())&&(lsFormat.indexOf('A')>=0))
					lsError = lsDisplay + ' should be a date between ' + ufGetParam(lsFormat,'A') + ' and ' + ufGetParam(lsFormat,'B') + '.';
				else if(lsValue.valueOf() >= ldtTest.valueOf())
					lsError = lsDisplay + ' should be a date before ' + ufGetParam(lsFormat,'B') + '.';
			}
			lsValue = lsTemp
		}
		if(lsError.length>0) break;
		
		// Check if later
		if((lsValue.length>0)&&(lsFormat.indexOf('A')>=0))
		{
			ldtTest = new Date(ufGetParam(lsFormat,'A'));
			if(isNaN(ldtTest)) 
				lsError = 'Error in function ufValidate parameter A.';
			else
			{
				lsValue = new Date(lsValue);
				if((lsValue.valueOf() <= ldtTest.valueOf())&&(lsFormat.indexOf('B')>=0))
					lsError = lsDisplay + ' should be a date between ' + ufGetParam(lsFormat,'A') + ' and ' + ufGetParam(lsFormat,'B') + '.';
				else if(lsValue.valueOf() <= ldtTest.valueOf())
					lsError = lsDisplay + ' should be a date after ' + ufGetParam(lsFormat,'A') + '.';
			}
		}
		if(lsError.length>0) break;
	}// end for

	if(lsError.length>0)
	{
		alert(lsError);
		if(lsType != 'hidden')
			eval(asForm + '.' + lsField + '.focus();');
		return false;
	}
	else
	{
		for(liCtr=0; liCtr<eval(asForm+'.elements.length');liCtr = liCtr + 1)
		{
			objField = eval(asForm+'.elements['+liCtr+']');
			//objField.value = objField.value.replace(/["]/g,"''");
		}
		return true;
	}
}