/*
   LIST FUNCTIONS
*/

/* ListDeleteAt(string,position[,delimiter]) : Returns a list with the position deleted. */
function ListDeleteAt(string,position) {
 if (arguments[2]) {
  delimiter = arguments[2];
 } else {
  delimiter = ",";
 }
 list = string.split(delimiter);
 list.splice(position - 1,1);
 return list.toString();
}

/* ListGetAt(string,position[,delimiter]) : Returns the value of the specified position. */
function ListGetAt(string,position) {
 if (arguments[2]) {
  delimiter = arguments[2];
 } else {
  delimiter = ",";
 }
 list = string.split(delimiter);
 return list[position - 1];
}

/* ListLen(string[,delimiter]) : Returns the length of a list. Does not count empty values. */
function ListLen(string) {
 if (arguments[1]) {
  delimiter = arguments[1];
 } else {
  delimiter = ",";
 }
 list = string.split(delimiter);
 for (x = 0; x < list.length; x++) {
  if (list[x] == "") {
   list.splice(x,1);
  }
 }
 return list.length;
}

/* ListLast(string[,delimiter]) : Returns the last value of a list. */
function ListLast(string) {
 if (arguments[1]) {
  delimiter = arguments[1];
 } else {
  delimiter = ",";
 }
 list = string.split(delimiter);
 return list[list.length - 1];
}

/* ListFirst(string[,delimiter]) : Returns the first value of a list. */
function ListFirst(string) {
 if (arguments[1]) {
  delimiter = arguments[1];
 } else {
  delimiter = ",";
 }
 list = string.split(delimiter);
 return list[0];
}

/* ListFind(string,searchvalue[,delimiter]) : Returns the position of the matching value. */
function ListFind(string,searchvalue) {
 if (arguments[2]) {
  delimiter = arguments[2];
 } else {
  delimiter = ",";
 }
 list = string.split(delimiter);
 for (x = 0; x < list.length; x++) {
  if (list[x] == searchvalue) {
   return x + 1;
  }
 }
 return 0;
}

/*
   STRING FUNCTIONS
*/

/* LTrim(string) : Returns a copy of a string without leading spaces. */
function LTrim(str)
{
   var whitespace = new String(" \t\n\r");
   var s = new String(str);
   if (whitespace.indexOf(s.charAt(0)) != -1) {
      var j=0, i = s.length;
      while (j < i && whitespace.indexOf(s.charAt(j)) != -1)
         j++;
      s = s.substring(j, i);
   }
   return s;
}

/* RTrim(string) : Returns a copy of a string without trailing spaces. */
function RTrim(str)
{
   var whitespace = new String(" \t\n\r");
   var s = new String(str);
   if (whitespace.indexOf(s.charAt(s.length-1)) != -1) {
      var i = s.length - 1;
      while (i >= 0 && whitespace.indexOf(s.charAt(i)) != -1)
         i--;
      s = s.substring(0, i+1);
   }
   return s;
}

/* Trim(string) : Returns a copy of a string without leading or trailing spaces */
function Trim(str)
{
   return RTrim(LTrim(str));
}

/* 
   VALIDATION FUNCTIONS
*/

/* isSelected(field name) : Selected index is not 0 */
function isSelected(name) {
 returnValue = true;
 box = document.getElementById(name);
 if (box.selectedIndex == 0) {
  returnValue = false;
 }
 return returnValue;
}

/* isEmpty(field name) : Field in not blank */
function isEmpty(name) {
 returnValue = false;
 box = document.getElementById(name);
 if (Trim(box.value) == '') {
  returnValue = true;
 }
 return returnValue;
}

/* isEmptyFULL(document.formname.fieldname) : Field in not blank */
function isEmptyFULL(box) {
 returnValue = false;
 if (Trim(box.value) == '') {
  returnValue = true;
 }
 return returnValue;
}

/* isNumber(field name) : Field is not blank and is a number */
function isNumber(name) {
 returnValue = true;
 box = document.getElementById(name);
 if (!isEmpty(name)) {
  if (isNaN(box.value)) {
   returnValue = false;
  }
 } else {
  returnValue = false;
 }
 return returnValue;
} 

/* isEmailAddress(field name) : Field contains a "@" and a "." */
function isEmailAddress(name) {
 returnValue = true;
 box = document.getElementById(name);
 if (box.value.indexOf('@') < 0 || box.value.indexOf('.') < 0) {
  returnValue = false;
 }
 return returnValue;
}

/* isDate(string) : Field is a valid date */
function isDate(name) {
 returnValue = true;
 box = document.getElementById(name);
 var Separators = new Array("-","/",".");
 if (Trim(box.value) == '') {
  return false;
 }
 for (var x = 0; x < Separators.length; x++) {
  if (box.value.indexOf(Separators[x]) != -1) {
   DateParts = box.value.split(Separators[x]);
   if (DateParts.length != 3) { 
    return false;
   } else {
    Month = DateParts[0];
    Day = DateParts[1];
    Year = DateParts[2];
   }
  }
 }
 if (isNaN(Month) || isNaN(Day) || isNaN(Year)) { return false; }
 if (Month < 1 || Month > 12 || Day < 1 || Day > 31 || Year < 0 || Year > 9999) { return false; }
 if (Month == 4 || Month == 6 || Month == 9 || Month == 11) {
  if (Day > 30) { return false; }
 }
 if (Month == 2) {
  if (Day > 29) { return false; }
  if (!(isLeapYear(Year)) && Day == 29) { return false; }
 }
 return true;
}

/* isLeapYear(year) : Returns true if year is a leap year */
function LeapYear(Year) {
 if (Year % 100 == 0) {
  if (Year % 400 == 0) { return true; }
 } else {
  if ((Year % 4) == 0) { return true; }
 }
 return false;
}

/* isZip(field name) : field is a valid zip code */
function isZip(name) {
 box = document.getElementById(name);
 if (box.value.indexOf('-') != -1) {
  zipParts = box.value.split('-');
  if (zipParts.length != 2) {
   return false;
  } else {
   if (isNaN(zipParts[0]) || zipParts[0].length > 5 || isNaN(zipParts[1]) || zipParts[1].length > 4) {
    return false;
   }
  }
 } else {
  if (isNaN(box.value) || box.value.length > 5) {
   return false;
  }
 }
 return true;
}

/* 
   isPhoneNumber(string) : Checks field a valid phone number format.
   Formats 'should' include the following
   (xxx)-xxx-xxxx, xxx-xxx-xxxx, (xxx)xxx-xxxx, xxxxxxxxxx 
*/
function isPhoneNumber(name) {
 var numbers = "0123456789";
 var box = document.getElementById(name);  
 var IzNumber = false;  
 var leftBracketPos = -1;
 var rightBracketPos = -1;
 var leftHyphenPos = -1;
 var rightHyphenPos = -1;
 var extraCharacters = 0;
 returnValue = true;
 for (i=0; i < box.value.length; i++) {
  var letter = box.value.charAt(i).toLowerCase();
  if (letter == "(") {
   if (leftBracketPos == -1) {
    leftBracketPos = i;
    extraCharacters++;
   } else {
    returnValue = false;
   }
  }
  if (letter == ")") {
   if (rightBracketPos == -1) {
    rightBracketPos = i;
    extraCharacters++;
   } else {
    returnValue = false;
   } 
  }
  if (letter == "-") {
   if (leftHyphenPos == -1) {
    leftHyphenPos = i;
    extraCharacters++;
   } else {
    if (rightHyphenPos == -1) {
     rightHyphenPos = i; 
     extraCharacters++;
    } else {
     returnValue = false;
    }
   }
  }
 }
 if (leftBracketPos != -1 && rightBracketPos == -1) {
  returnValue = false;
 }
 if (leftBracketPos == -1 && rightBracketPos != -1) {
  returnValue = false;
 }
//  if (leftHyphenPos != -1 && rightHyphenPos == -1) {
//   returnValue = false;
// }
//  if (leftHyphenPos == -1 && rightHyphenPos != -1) {
//   returnValue = false;
//  }
 if (extraCharacters > 4) {
  returnValue = false;
 } else {
  maxLength = 10 + extraCharacters;
 }
 if (maxLength != box.value.length) {
  returnValue = false;
 }
 if (leftBracketPos != -1) {
  if (box.value.charAt(0) != "(") {
   returnValue = false;
  }
 }
 if (rightBracketPos != -1) {
  if (box.value.charAt(4) != ")") {
   returnValue = false;
  }
 }
 if (rightHyphenPos != -1) {
  if (box.value.charAt(maxLength-5) != "-") {
   returnValue = false;
  }
 }
 if (returnValue == true) {
  for (i=0; i < maxLength; i++) {
   if (i != leftBracketPos && i != rightBracketPos && i != leftHyphenPos && i != rightHyphenPos) {
    var letter = box.value.charAt(i).toLowerCase();
    if (numbers.indexOf(letter) == -1) {
     returnValue = false;
    }
   } 
  }
 }
 return returnValue;
}

/* isAlphaNumeric(field name) : Checks field for both a letter and a number */
function ChkAlphaNumeric(name) {
  var alpha = "abcdefghijklmnopqrstuvwxyz";
  var numbers = "0123456789";
  var box = document.getElementById(name);  
  var IzLetter = false;
  var IzNumber = false;  
  returnValue = false;
  for (i=0; i < box.value.length; i++) {
   var letter = box.value.charAt(i).toLowerCase();
   if (alpha.indexOf(letter) == -1) {
    if (numbers.indexOf(letter) == -1) 
    {
     returnValue = false;
    } else {
     IzNumber = true;
    }
   } else {
    IzLetter = true;
   }    
  }
  if (IzLetter == true && IzNumber == true) {
   returnValue = true;
  }
  return returnValue;
 }

/* isInteger(field name) : Checks if a field's value is an integer */
function isInteger(name) {
 if (!isEmpty(name)) {
  var digits="1234567890";
  box = document.getElementById(name);
  for (var i=0; i < box.value.length; i++) {
   if (digits.indexOf(box.value.charAt(i))==-1) { return false; }
  }
  return true;
 } else {
  return false;
 }
}

/* isFloat(field name) : Checks if a field's value is a floating point number */
function isFloat(name) {
 if (!isEmpty(name)) {
  box = document.getElementById(name);
  if (isNaN(box.value)) {
   return false;
  }
  if (box.value.indexOf('.') < 0) {
   return false;
  }
  return true;
 } else {
  return false;
 }
}

/* isFloatFULL(document.formname.fieldname) : Checks if a field's value is a floating point number */
function isFloatFULL(box) {
 if (!isEmptyFULL(box)) {
  if (isNaN(box.value)) {
   return false;
  }
  if (box.value.indexOf('.') < 0) {
   return false;
  }
  return true;
 } else {
  return false;
 }
}

 
/* isLength(field name, length) : Checks if a field's value is greater than a specified length */
function isLength(name, length) {
 returnValue = true;
 box = document.getElementById(name);
 if (box.value.length > length) {
  returnValue = false;
 } 
 return returnValue;
}

/* 
   DEFAULTING FUNCTIONS
   Automatically defaults a field to a specific value if the value is not within a certian format.
   These functions are used in the <input>'s onblur attribute.
*/

/* zero(field name) : default a field to 0 if the value is less than 0 or not a number */
function zero(box) {
 BoxValue = Trim(box.value);
 if (BoxValue.length == 0 || isNaN(BoxValue) || BoxValue < 0) {
  box.value = 0;
 }
}

/* one(field name) : defaults a field to 1 if the value is less than or equal to 0 or not a number */
function one(box) {
 BoxValue = Trim(box.value);
 if (BoxValue.length == 0 || isNaN(BoxValue) || BoxValue <= 0) {
  box.value = 1;
 }
}

/* percent(field name) : defaults a field to 0 if the value is not a decimal percentage (between 0 and 1) or not a number */
function percent(box) {
 BoxValue = Trim(box.value);
 if (BoxValue.length == 0 || isNaN(BoxValue) || BoxValue < 0 || BoxValue > 1) {
  box.value = 0;
 }
}

/* money(field name) : defaults a field to 0.00 if the value is less than 0 or not a number */
function money(box) {
 BoxValue = Trim(box.value);
 if (BoxValue.length == 0 || isNaN(BoxValue) || BoxValue < 0) {
  box.value = 0.00;
 } else {
  box.value = FormatNumber(BoxValue);
 }
}

/*
   FORMATING FUNCTIONS
*/

function FormatNumber(Number,Decimals,Separator)
{
 // **********************************************************
 // Placed in the public domain by Affordable Production Tools
 // March 21, 1998
 // Web site: http://www.aptools.com/
 //
 // November 24, 1998 -- Error which allowed a null value
 // to remain null fixed. Now forces value to 0.
 //
 // October 28, 2001 -- Modified to provide leading 0 for fractional number
 // less than 1.
 //
 // This function accepts a number to format and number
 // specifying the number of decimal places to format to. May
 // optionally use a separator other than '.' if specified.
 //
 // If no decimals are specified, the function defaults to
 // two decimal places. If no number is passed, the function
 // defaults to 0. Decimal separator defaults to '.' .
 //
 // If the number passed is too large to format as a decimal
 // number (e.g.: 1.23e+25), or if the conversion process
 // results in such a number, the original number is returned
 // unchanged.
 // **********************************************************
 Number += ""          // Force argument to string.
 Decimals += ""        // Force argument to string.
 Separator += ""       // Force argument to string.
 if((Separator == "") || (Separator.length > 1))
  Separator = "."
 if(Number.length == 0)
  Number = "0"
 var OriginalNumber = Number  // Save for number too large.
 var Sign = 1
 var Pad = ""
 var Count = 0
 // If no number passed, force number to 0.
 if(parseFloat(Number)){
  Number = parseFloat(Number)} else {
  Number = 0}
 // If no decimals passed, default decimals to 2.
 if((parseInt(Decimals,10)) || (parseInt(Decimals,10) == 0)){
  Decimals = parseInt(Decimals,10)} else {
  Decimals = 2}
 if(Number < 0)
 {
  Sign = -1         // Remember sign of Number.
  Number *= Sign    // Force absolute value of Number.
 }
 if(Decimals < 0)
  Decimals *= -1    // Force absolute value of Decimals.
 // Next, convert number to rounded integer and force to string value.
 // (Number contains 1 extra digit used to force rounding)
 Number = "" + Math.floor(Number * Math.pow(10,Decimals + 1) + 5)
 if((Number.substring(1,2) == '.')||((Number + '')=='NaN'))
  return(OriginalNumber) // Number too large to format as specified.
 // If length of Number is less than number of decimals requested +1,
 // pad with zeros to requested length.
 if(Number.length < Decimals +1) // Construct pad string.
 {
  for(Count = Number.length; Count <= Decimals; Count++)
   Pad += "0"
 }
 Number = Pad + Number // Pad number as needed.
 if(Decimals == 0){
  // Drop extra digit -- Decimal portion is formatted.
  Number = Number.substring(0, Number.length -1)} else {
  // Or, format number with decimal point and drop extra decimal digit.
 Number = Number.substring(0,Number.length - Decimals -1) +
          Separator +
          Number.substring(Number.length - Decimals -1,
          Number.length -1)}
 if((Number == "") || (parseFloat(Number) < 1))
  Number="0"+Number // Force leading 0 for |Number| less than 1.
 if(Sign == -1)
  Number = "-" + Number  // Set sign of number.
 return(Number)
}

/*
   DATE FUNCTIONS
   ------------------------------------------------------------------
   These functions use the same 'format' strings as the 
   java.text.SimpleDateFormat class, with minor exceptions.
   The format string consists of the following abbreviations:
   
   Field        | Full Form          | Short Form
   -------------+--------------------+-----------------------
   Year         | yyyy (4 digits)    | yy (2 digits), y (2 or 4 digits)
   Month        | MMM (name or abbr.)| MM (2 digits), M (1 or 2 digits)
                | NNN (abbr.)        |
   Day of Month | dd (2 digits)      | d (1 or 2 digits)
   Day of Week  | EE (name)          | E (abbr)
   Hour (1-12)  | hh (2 digits)      | h (1 or 2 digits)
   Hour (0-23)  | HH (2 digits)      | H (1 or 2 digits)
   Hour (0-11)  | KK (2 digits)      | K (1 or 2 digits)
   Hour (1-24)  | kk (2 digits)      | k (1 or 2 digits)
   Minute       | mm (2 digits)      | m (1 or 2 digits)
   Second       | ss (2 digits)      | s (1 or 2 digits)
   AM/PM        | a                  |
  
   NOTE THE DIFFERENCE BETWEEN MM and mm! Month=MM, not mm!
   Examples:
    "MMM d, y" matches: January 01, 2000
                        Dec 1, 1900
                        Nov 20, 00
    "M/d/yy"   matches: 01/20/00
                        9/2/00
    "MMM dd, yyyy hh:mm:ssa" matches: "January 01, 2000 12:30:45AM"
   ------------------------------------------------------------------
*/

var MONTH_NAMES=new Array('January','February','March','April','May','June','July','August','September','October','November','December','Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
var DAY_NAMES=new Array('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Sun','Mon','Tue','Wed','Thu','Fri','Sat');
function LZ(x) {return(x<0||x>9?"":"0")+x}

// ------------------------------------------------------------------
// isDateFormat ( date_string, format_string )
// Returns true if date string matches format of format string and
// is a valid date. Else returns false.
// It is recommended that you trim whitespace around the value before
// passing it to this function, as whitespace is NOT ignored!
// ------------------------------------------------------------------
function isDateFormat(val,format) {
	var date=getDateFromFormat(val,format);
	if (date==0) { return false; }
	return true;
	}

// -------------------------------------------------------------------
// compareDates(date1,date1format,date2,date2format)
//   Compare two date strings to see which is greater.
//   Returns:
//   1 if date1 is greater than date2
//   0 if date2 is greater than date1 of if they are the same
//  -1 if either of the dates is in an invalid format
// -------------------------------------------------------------------
function compareDates(date1,dateformat1,date2,dateformat2) {
	var d1=getDateFromFormat(date1,dateformat1);
	var d2=getDateFromFormat(date2,dateformat2);
	if (d1==0 || d2==0) {
		return -1;
		}
	else if (d1 > d2) {
		return 1;
		}
	return 0;
	}

// ------------------------------------------------------------------
// formatDate (date_object, format)
// Returns a date in the output format specified.
// The format string uses the same abbreviations as in getDateFromFormat()
// ------------------------------------------------------------------
function formatDate(date,format) {
	format=format+"";
	var result="";
	var i_format=0;
	var c="";
	var token="";
	var y=date.getYear()+"";
	var M=date.getMonth()+1;
	var d=date.getDate();
	var E=date.getDay();
	var H=date.getHours();
	var m=date.getMinutes();
	var s=date.getSeconds();
	var yyyy,yy,MMM,MM,dd,hh,h,mm,ss,ampm,HH,H,KK,K,kk,k;
	// Convert real date parts into formatted versions
	var value=new Object();
	if (y.length < 4) {y=""+(y-0+1900);}
	value["y"]=""+y;
	value["yyyy"]=y;
	value["yy"]=y.substring(2,4);
	value["M"]=M;
	value["MM"]=LZ(M);
	value["MMM"]=MONTH_NAMES[M-1];
	value["NNN"]=MONTH_NAMES[M+11];
	value["d"]=d;
	value["dd"]=LZ(d);
	value["E"]=DAY_NAMES[E+7];
	value["EE"]=DAY_NAMES[E];
	value["H"]=H;
	value["HH"]=LZ(H);
	if (H==0){value["h"]=12;}
	else if (H>12){value["h"]=H-12;}
	else {value["h"]=H;}
	value["hh"]=LZ(value["h"]);
	if (H>11){value["K"]=H-12;} else {value["K"]=H;}
	value["k"]=H+1;
	value["KK"]=LZ(value["K"]);
	value["kk"]=LZ(value["k"]);
	if (H > 11) { value["a"]="PM"; }
	else { value["a"]="AM"; }
	value["m"]=m;
	value["mm"]=LZ(m);
	value["s"]=s;
	value["ss"]=LZ(s);
	while (i_format < format.length) {
		c=format.charAt(i_format);
		token="";
		while ((format.charAt(i_format)==c) && (i_format < format.length)) {
			token += format.charAt(i_format++);
			}
		if (value[token] != null) { result=result + value[token]; }
		else { result=result + token; }
		}
	return result;
	}
	
// ------------------------------------------------------------------
// Utility functions for parsing in getDateFromFormat()
// ------------------------------------------------------------------
function _isInteger(val) {
	var digits="1234567890";
	for (var i=0; i < val.length; i++) {
		if (digits.indexOf(val.charAt(i))==-1) { return false; }
		}
	return true;
	}

function _getInt(str,i,minlength,maxlength) {
	for (var x=maxlength; x>=minlength; x--) {
		var token=str.substring(i,i+x);
		if (token.length < minlength) { return null; }
		if (isInteger(token)) { return token; }
		}
	return null;
	}
	
// ------------------------------------------------------------------
// getDateFromFormat( date_string , format_string )
//
// This function takes a date string and a format string. It matches
// If the date string matches the format string, it returns the 
// getTime() of the date. If it does not match, it returns 0.
// ------------------------------------------------------------------
function getDateFromFormat(val,format) {
	val=val+"";
	format=format+"";
	var i_val=0;
	var i_format=0;
	var c="";
	var token="";
	var token2="";
	var x,y;
	var now=new Date();
	var year=now.getYear();
	var month=now.getMonth()+1;
	var date=1;
	var hh=now.getHours();
	var mm=now.getMinutes();
	var ss=now.getSeconds();
	var ampm="";
	
	while (i_format < format.length) {
		// Get next token from format string
		c=format.charAt(i_format);
		token="";
		while ((format.charAt(i_format)==c) && (i_format < format.length)) {
			token += format.charAt(i_format++);
			}
		// Extract contents of value based on format token
		if (token=="yyyy" || token=="yy" || token=="y") {
			if (token=="yyyy") { x=4;y=4; }
			if (token=="yy")   { x=2;y=2; }
			if (token=="y")    { x=2;y=4; }
			year=_getInt(val,i_val,x,y);
			if (year==null) { return 0; }
			i_val += year.length;
			if (year.length==2) {
				if (year > 70) { year=1900+(year-0); }
				else { year=2000+(year-0); }
				}
			}
		else if (token=="MMM"||token=="NNN"){
			month=0;
			for (var i=0; i<MONTH_NAMES.length; i++) {
				var month_name=MONTH_NAMES[i];
				if (val.substring(i_val,i_val+month_name.length).toLowerCase()==month_name.toLowerCase()) {
					if (token=="MMM"||(token=="NNN"&&i>11)) {
						month=i+1;
						if (month>12) { month -= 12; }
						i_val += month_name.length;
						break;
						}
					}
				}
			if ((month < 1)||(month>12)){return 0;}
			}
		else if (token=="EE"||token=="E"){
			for (var i=0; i<DAY_NAMES.length; i++) {
				var day_name=DAY_NAMES[i];
				if (val.substring(i_val,i_val+day_name.length).toLowerCase()==day_name.toLowerCase()) {
					i_val += day_name.length;
					break;
					}
				}
			}
		else if (token=="MM"||token=="M") {
			month=_getInt(val,i_val,token.length,2);
			if(month==null||(month<1)||(month>12)){return 0;}
			i_val+=month.length;}
		else if (token=="dd"||token=="d") {
			date=_getInt(val,i_val,token.length,2);
			if(date==null||(date<1)||(date>31)){return 0;}
			i_val+=date.length;}
		else if (token=="hh"||token=="h") {
			hh=_getInt(val,i_val,token.length,2);
			if(hh==null||(hh<1)||(hh>12)){return 0;}
			i_val+=hh.length;}
		else if (token=="HH"||token=="H") {
			hh=_getInt(val,i_val,token.length,2);
			if(hh==null||(hh<0)||(hh>23)){return 0;}
			i_val+=hh.length;}
		else if (token=="KK"||token=="K") {
			hh=_getInt(val,i_val,token.length,2);
			if(hh==null||(hh<0)||(hh>11)){return 0;}
			i_val+=hh.length;}
		else if (token=="kk"||token=="k") {
			hh=_getInt(val,i_val,token.length,2);
			if(hh==null||(hh<1)||(hh>24)){return 0;}
			i_val+=hh.length;hh--;}
		else if (token=="mm"||token=="m") {
			mm=_getInt(val,i_val,token.length,2);
			if(mm==null||(mm<0)||(mm>59)){return 0;}
			i_val+=mm.length;}
		else if (token=="ss"||token=="s") {
			ss=_getInt(val,i_val,token.length,2);
			if(ss==null||(ss<0)||(ss>59)){return 0;}
			i_val+=ss.length;}
		else if (token=="a") {
			if (val.substring(i_val,i_val+2).toLowerCase()=="am") {ampm="AM";}
			else if (val.substring(i_val,i_val+2).toLowerCase()=="pm") {ampm="PM";}
			else {return 0;}
			i_val+=2;}
		else {
			if (val.substring(i_val,i_val+token.length)!=token) {return 0;}
			else {i_val+=token.length;}
			}
		}
	// If there are any trailing characters left in the value, it doesn't match
	if (i_val != val.length) { return 0; }
	// Is date valid for month?
	if (month==2) {
		// Check for leap year
		if ( ( (year%4==0)&&(year%100 != 0) ) || (year%400==0) ) { // leap year
			if (date > 29){ return 0; }
			}
		else { if (date > 28) { return 0; } }
		}
	if ((month==4)||(month==6)||(month==9)||(month==11)) {
		if (date > 30) { return 0; }
		}
	// Correct hours value
	if (hh<12 && ampm=="PM") { hh=hh-0+12; }
	else if (hh>11 && ampm=="AM") { hh-=12; }
	var newdate=new Date(year,month-1,date,hh,mm,ss);
	return newdate.getTime();
	}

// ------------------------------------------------------------------
// parseDate( date_string [, prefer_euro_format] )
//
// This function takes a date string and tries to match it to a
// number of possible date formats to get the value. It will try to
// match against the following international formats, in this order:
// y-M-d   MMM d, y   MMM d,y   y-MMM-d   d-MMM-y  MMM d
// M/d/y   M-d-y      M.d.y     MMM-d     M/d      M-d
// d/M/y   d-M-y      d.M.y     d-MMM     d/M      d-M
// A second argument may be passed to instruct the method to search
// for formats like d/M/y (european format) before M/d/y (American).
// Returns a Date object or null if no patterns match.
// ------------------------------------------------------------------
function parseDate(val) {
	var preferEuro=(arguments.length==2)?arguments[1]:false;
	generalFormats=new Array('y-M-d','MMM d, y','MMM d,y','y-MMM-d','d-MMM-y','MMM d');
	monthFirst=new Array('M/d/y','M-d-y','M.d.y','MMM-d','M/d','M-d');
	dateFirst =new Array('d/M/y','d-M-y','d.M.y','d-MMM','d/M','d-M');
	var checkList=new Array('generalFormats',preferEuro?'dateFirst':'monthFirst',preferEuro?'monthFirst':'dateFirst');
	var d=null;
	for (var i=0; i<checkList.length; i++) {
		var l=window[checkList[i]];
		for (var j=0; j<l.length; j++) {
			d=getDateFromFormat(val,l[j]);
			if (d!=0) { return new Date(d); }
		}
	return null;
	}
}