// Author: 			Paul Chivers
// Created:			June 30, 2000
// Last modified:	July 10, 2000

//***************************Revised*****************************************
//	Description		  - Modified to meet the requirements of TDAM COM
//
//	Revised By		  - Aarti Mehta 
//
//	Revised On		  - March 13th 2001
//
//	List of Functions - isEmpty (s)
//					  - isDigit (c)
//					  - isLetter (c)
//					  - isInteger (s, eok)
//					  - isNumeric (s, eok)
//					  - isNumberInRange (s, a, b, EQok, eok)
//					  - isDate (s, eok)
//					  - trim (s)
//
//***************************************************************************
var defaultEmptyOK = false;
var whitespace = " \t\n\r\f\v ";
var digits = "0123456789";
var decimalPointDelimiter = "."
var provinceCodeDelimiter = "|";
var provinceCodes = "AB|BC|MB|NB|NF|NT|NS|ON|PE|QC|SK|YT";
var lowercaseLetters = "abcdefghijklmnopqrstuvwxyz";
var uppercaseLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
var monthCodeDelimiter = "|";
var monthCodes = "jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec";

var cOK					= 1;
var cInvalidDelimiter 	= 2;
var cInvalidMonth 		= 3;
var cInvalidDay			= 4;
var cInvalidYear		= 5;
var cNull				= 6;

function isEmpty(s){
	var i;
	var c;
	
	s += "";

    if ((s == null) || (s.length == 0)) {
		return true;
	} else {
	    for (i = 0; i < s.length; i++) {   
    	    c = s.charAt(i);
        	if (whitespace.indexOf(c) == -1) {
				return false;
			}
    	}
	}

    return true;
}

function isDigit (c){
	return ((c >= "0") && (c <= "9"))
}

function isLetter (c) {
	c += "";
	return ( ((c >= "a") && (c <= "z")) || ((c >= "A") && (c <= "Z")) )
}

function isInteger (s, eok) {
	var c;
	
	s += "";
	if (isEmpty(s)) {
		if (isInteger.arguments.length == 1) {
	   		return defaultEmptyOK;
		}
		else {
			return (eok == true);
		}
	}
	else {
        var startPos = 0;

        if ( (s.charAt(0) == "-") || (s.charAt(0) == "+") ) {
			s = s.substring(1, s.length);
		}
		
		for (i = 0; i < s.length; i++) {
    	    c = s.charAt(i);
        	if (!isDigit(c)) {
				return false;
			}
		}

		return true;
    }
}

function isNumeric (s, eok) {
	var c;

	s += "";
	
	if (isEmpty(s)) {
		if (isNumeric.arguments.length == 1) {
			return defaultEmptyOK;
		} else {
			return (eok == true);
		}
	} else {
        var startPos = 0;
		var seenDecimalPoint = false;

        if ( (s.charAt(0) == "-") || (s.charAt(0) == "+") ) {
			s = s.substring(1, s.length);
		}
		
		if (s == decimalPointDelimiter) {
			return false;
		}

	    for (i = 0; i < s.length; i++) {   
			c = s.charAt(i);
	
	        if ((c == decimalPointDelimiter) && !seenDecimalPoint) {
				seenDecimalPoint = true;
			}
	        else if (!isDigit(c)) {
				return false;
			}
	    }
	
	    return true;
	
	}
}

function isNumberInRange (s, a, b, EQok, eok) {
	var num;

	if (isEmpty(s)) {
		if (isNumberInRange.arguments.length < 5) {
			return defaultEmptyOK;
		}
		else {
			return (eok == true);
		}
	}
	else {
		num = parseFloat (s);
	    if (!isNumeric(num, false) || !isNumeric(a, false) || !isNumeric(b, false)) {
			return false;
		}
		else {    
			if (EQok == false) {
				return ((s > a) && (s < b));
			}
			else {
	    		return ((s >= a) && (s <= b));
			}
		}
	}
}

function isEmail (s, eok) {
	if (isEmpty(s)) {
		if (isEmail.arguments.length == 1) {
	   		return defaultEmptyOK;
		}
		else {
			return (eok == true);
		}
   	}
	else {
	
		s = trim(s);
    
	    var i = 1;
    	var sLength = s.length;

	    while ((i < sLength) && (s.charAt(i) != "@")) {
			i++
	    }

    	if ((i >= sLength) || (s.charAt(i) != "@")) {
			return false;
		}
	    else {
			i += 2;
		}

	    while ((i < sLength) && (s.charAt(i) != ".")) {
			i++
	    }

    	if ((i >= sLength - 1) || (s.charAt(i) != ".")) {
			return false;
		}
	    else {
			return true;
		}
	}
}


function isDate (s, eok) {
	var dateDelimiter;

	if (isEmpty(s)) {
		if (isDate.arguments.length == 1) {
			return cNull;
		}
		else {
			if (eok == true) {
				return cOK;
			}
			else {
				return cNull;
			}
		}
	}
	else {
		s = trim(s);
		
		if (isLetter(s.charAt(0)) && isLetter(s.charAt(1)) && isLetter(s.charAt(2))) {
	
			dateFormat = "alpha";
			if (s.charAt(3) == "/" && s.charAt(6) == "/") {
				dateDelimiter = "/";
			}
			else if (s.charAt(3) == "-" && s.charAt(6) == "-") {
				dateDelimiter = "-";
			}
			else if (isLetter(s.charAt(3))) {
				return cInvalidMonth;
			}
			else {
				return cInvalidDelimiter;
			}
	
		}
		else if	(isDigit(s.charAt(0)) && isDigit(s.charAt(1))) {
	
			dateFormat = "numeric";
			if (s.charAt(2) == "/" && s.charAt(5) == "/") {
				dateDelimiter = "/";
			}
			else if (s.charAt(2) == "-" && s.charAt(5) == "-") {
				dateDelimiter = "-";
			}
			else {
				return cInvalidDelimiter;
			}
		}
		else {
			return cInvalidMonth;
		}
			
	  	month = s.substring(0, s.indexOf(dateDelimiter)); 
		day = s.substring(s.indexOf(dateDelimiter) + 1, s.lastIndexOf(dateDelimiter));
		year =  s.substring(s.lastIndexOf(dateDelimiter) + 1, s.length); 
	
		iDate = new Date(s);
		
		if (year < 1900) {
			return cInvalidYear;
		}
	
		if (dateFormat == "numeric") {
		  	if (month > 12 || month < 1) {
				return cInvalidMonth;
			}
		}
		else if (dateFormat == "alpha") {
			if (monthCodes.indexOf(month.toLowerCase()) == -1 && month.indexOf(monthCodeDelimiter) == -1) {
				return cInvalidMonth;
			}
		}
	
		if (day == 29) {
			if (year % 4 != 0 && month == 2) {
				return cInvalidDay;
			}
		} else if (day == 31) {
			if (month == 4 || month == 6 || month == 9 || month == 11) {
				return cInvalidDay;
			}
		} else if (day > 31) {
			return cInvalidDay;
		}
	
		return cOK;
	}
}

function trim (s) {
	var i = 0;
	var emptyString = " ";
	
	while ((i < s.length) && (whitespace.indexOf(s.charAt(i)) != -1)) {
   		i++;
	}
	s = s.substring (i, s.length);
	
	i = s.length - 1;

	while ((i >= 0) && (whitespace.indexOf(s.charAt(i)) != -1)) {
		i--;
	}
	s = s.substring (0, i + 1);   
	
    return s;
}