// validation v2.5.0
// Last modified: October 29, 2002
/*
	Syntax: verify([form], [true|false], [true|false]);
	
	Example: verify([form], [true = english|false = french], [true = all fields optional|false = all fields required]);
	
	Attributes for different types
	------------------------------
	
	text, textarea, file, password
		numeric=[true|false];
		min=x;
		max=y;
		emailFormat=[true|false];
		dateFormat=[true|false];
		minLen=x;
		maxLen=y;
		minLen=x; minimum string length (password length > 6 for example)
		maxLen=y; maximum string length (not necessary with the use of forms)
		compare=oElement; compare the value of the current element with that of another element
		allowChar=string; a string on chars, that are allowed (ie "1234567890()-." for a phone number)
		canPostFormat=[true|false];
		usPostFormat=[true|false];
	
	select-one, select(non-multiple)
		inList=[true|false];
		indexList="1,2,3,4,5,..n";
		min=x;
		max=y;
	
	radio, checkbox
		Example: f.element[0].alt = "Title";
	
	generic
		optional=[true|false];
		compare=formFieldObject;
		
	Warnings
		 a radio button/checkbox cannot be the first form element in a form.
		 
	Features that need to be added (or do we bother?)
		mask='mm/dd/yyyy';
		requiredBy=formFieldObject; not implemented - if value != '', e.optional=false;
		mask - Adding a a condition that if you encounter some special characters...  adding special character to the numeric option .... like () - or .  (telephone number)
*/

// globals
var clickcheck = 0; //increments in verify(), prevents multiple submit
var errors = "";
var errorsf = "";
var english = true;
var allOptional = false; //Allows user to decide whether all fields are required or not.

function isblank(s)
{
    for(var i = 0; i < s.length; i++) {
        var c = s.charAt(i);
        if ((c != ' ') && (c != '\n') && (c != '\t')) return false;
    }
    return true;
}

function oCROption(checked, value)
{
	this.checked = checked;
	this.value = value;
}

function oCR(e) 
{
	this.name = e.name;
	this.type = e.type;
	if(e.alt != null) this.alt = e.alt;
	if(e.optional != null) this.optional = e.optional;
	this.myOptions = new Array();
}

function getDisplay(e) {
	if ((e.alt != null) && (e.alt != "")) {
		display = e.alt;
	} else {
		display = e.name;
	}

	return display;
}

function allowedChar(strValidCharacterSet, strToBeChecked) {
   var i;

   if (strToBeChecked.length == 0) { 
   		return false;
   }

   for (i=0; i<strToBeChecked.length; i++) {
	if (strValidCharacterSet.indexOf(strToBeChecked.charAt(i)) == -1) {
      return false;
    }
   }

   return true;
}

function verify(f, english, allOptional) 
{

	var msg = "";
	var empty_fields = "";
	lastElement = "_NoElement";
	var myArray = new Array();
	
	//must create a new array of objects to loop through
	for(i=0;i<f.length;i++) {
		e = f.elements[i];
		if((e.type != "checkbox") && (e.type != "radio")) {
			myArray[myArray.length] = e;
		} else {
			chkObjExist = 0;
			for(j=0;j<myArray.length;j++){
				if(myArray[j].name == e.name){
					chkObjExist=j;
				}
			}

			if(!chkObjExist) {
				idx = myArray.length;
				myArray[idx] = new oCR(e);
				myArray[idx].myOptions[myArray[idx].myOptions.length] = new oCROption(e.checked, e.value);
			} else {
				myArray[chkObjExist].myOptions[myArray[chkObjExist].myOptions.length] = new oCROption(e.checked, e.value);
			}
		}
	}
	
	// now loop through the new array
	for(var i = 0; i < myArray.length; i++) {
		var e = myArray[i]; // collections refered to by name
		
		if(e.validated != null && e.validated != undefined)e.validated=false;

		if(!e.validated && e.name != lastElement) {
			lastElement = e.name;
			e.validated=true;
			
			// uncomment for no required fields ..
			if (allOptional == true) {
				if(e.optional == null) e.optional = true;
			}
			
			// NOT OPTIONAL - Does blank check
			if (((e.type == "text") || (e.type == "textarea") || (e.type == "file") || (e.type == "password")) && !e.optional) {
				// first check if the field is empty
				if ((e.value == null) || (e.value == "") || isblank(e.value)) {
					empty_fields += "\n " + getDisplay(e);
					continue;
				}
			}
	
			//Required Checkbox/radio button
			if(((e.type == "radio") || (e.type == "checkbox")) && !e.optional) {
				crcheck=false;
	
				//single objects have no length
				if(e.myOptions.length) {
					for(k=0;k<e.myOptions.length;k++) {
						if(e.myOptions[k].checked) {
							crcheck=true;
						}
					}
				} else { 
					if(e.checked) {
						crcheck=true; // why? By clicking here you verify that...
					}
				}
	
				if(!crcheck) {
					empty_fields += "\n " + getDisplay(e);
				}
			}

			// String validation
			// minLen=x; minimum string length (password length > 6 for example)
			// maxLen=y; maximum string length (not necessary with the use of forms)
			// compare=oElement; compare the value of the current element with that of another element
			if (((e.type == "text") || (e.type == "textarea") || (e.type == "file") || (e.type == "password")) && !isblank(e.value)) {
				if(e.value.length < e.minLen){
					errors += "The field '" + getDisplay(e);
					errors += " must be at least " + e.minLen + " characters in length.\n";
					errorsf += "Le champ '" +  getDisplay(e);
					errorsf += " doit être au moins " + e.minLen + " caractères en longueur.\n";
				}
				if(e.value.length > e.maxLen){
					errors += "The field '" + getDisplay(e);
					errors += " must be less than " + e.maxLen + " characters in length.\n";
					errorsf += "Le champ '" +  getDisplay(e);
					errorsf += " doit être moins que " + e.maxLen + " caractères en longueur.\n";
				}
				if(e.compare != null && (e.compare.value != e.value)){
					errors += "The field '" + getDisplay(e);
					errors += " must match " + getDisplay(e.compare) + ".\n";
					errorsf += "Le champ '" +  getDisplay(e);
					errorsf += " doit correspondre " + getDisplay(e.compare) + ".\n";
				}
				if((e.allowChar != null) && (allowedChar(e.allowChar, e.value) == false)) {
					errors += "The field '" + getDisplay(e);
					errors += "' contains invalid characters.\n";
					errorsf += "Le champ '" + getDisplay(e);
					errorsf += "' contient des charactères invalides.\n";
				}
				
			}			

			// CHECK NUMERIC FORMAT
			// provide one of the following:
			//	min=q; if the value is an ID, and you want it > q to be valid..
			//	max=r; if the value is an ID, and you want it < r to be valid..
			if ((e.type == "text" || e.type == "textarea") && (e.numeric || (e.min != null) || (e.max != null)) && !isblank(e.value)) { 
				var v = parseFloat(e.value);
				var v2 = e.value.replace(/,/, "");

				if ((isNaN(v)) || (isNaN(v2)) || ((e.min != null) && (v < e.min)) || ((e.max != null) && (v > e.max))) {
					errors += "The field '" + getDisplay(e) + "' must be a number";
					errorsf += "Le champ '" + getDisplay(e) + "' doit être un nombre";

					if (e.min != null) {
						errors += " that is greater than " + e.min;
						errorsf += " c'est plus grand que " + e.min;
					}
					
					if (e.max != null && e.min != null) {
						errors += " and less than " + e.max;
						errorsf += " et moins que " + e.max;
					} else if (e.max != null) {
						errors += " that is less than " + e.max;
						errorsf += " c'est moins que " + e.max;
					}

					errors += ".\n";
					errorsf += ".\n";
				}

			}
	
			// CHECK CANADA POSTAL CODE FORMAT
			if (e.canPostFormat && ((e.type == "text") || (e.type == "textarea"))) {
				if (isblank(e.value) == false) {
					e.value = e.value.toUpperCase();
					var canPostError = 0;
					
					if (e.value.length == 6) {					
						for (x=0;x<e.value.length;x++) {
							if ((x == 0 || x == 2 || x == 4) && !(allowedChar("ABCDEFGHIJKLMNOPQRSTUVWXYZ", e.value.charAt(x)))) {
								canPostError = 1;
								break;
							} else if ((x == 1 || x == 3 || x == 5) && !(allowedChar("0123456789", e.value.charAt(x)))) {
								canPostError = 1;
								break;
							}
						}
					} else if (e.value.length == 7) {
						for (x=0;x<e.value.length;x++) {
							if ((x == 0 || x == 2 || x == 5) && !(allowedChar("ABCDEFGHIJKLMNOPQRSTUVWXYZ", e.value.charAt(x)))) {
								canPostError = 1;
								break;
							} else if ((x == 1 || x == 4 || x == 6) && !(allowedChar("0123456789", e.value.charAt(x)))) {
								canPostError = 1;
								break;
							} else if ((x == 3) && !(allowedChar(" -", e.value.charAt(x)))) {
								canPostError = 1;
								break;
							}
						}
					} else {
						canPostError = 1;
					}
				
					if (canPostError) {		
						errors += "The postal code '" + e.value + "' appears to be in an invalid format.  Please confirm the postal code.\n";
						errorsf += "Le code postal '" + e.value + "' semble être d'un format invalide. S.V.P. confirmez le code postal.\n";
					}
				}
			}

			// CHECK US POSTAL CODE FORMAT
			if (e.usPostFormat && ((e.type == "text") || (e.type == "textarea"))) {
				if (isblank(e.value) == false) {
					var usPostError = 0;
					if (e.value.length == 5) {
						for (x=0;x<e.value.length;x++) {
							if ( allowedChar( "0123456789", e.value.charAt(x) ) == false)  {
								usPostError = 1;
								break;
							}
						}
					} else if (e.value.length == 10) {
						for (x=0;x<e.value.length;x++) {
							if (x != 5) {							
								if ( allowedChar( "0123456789", e.value.charAt(x) ) == false)  {
									usPostError = 1;
									break;
								}
							} else if (allowedChar("-", e.value.charAt(x)) == false) {
									usPostError = 1;
									break;
							}
						}
						
					}
					if (usPostError) {		
						errors += "The zip code '" + e.value + "' appears to be in an invalid format.  Please confirm the zip code.\n";
						errorsf += "Le code postal '" + e.value + "' semble être d'un format invalide. S.V.P. confirmez le code postal.\n";
					}
				}
			}

			// CHECK EMAIL FORMAT
			if (e.emailFormat && ((e.type == "text") || (e.type == "textarea"))) {
				if (isblank(e.value) == false) {
					var emailError = 0
					
					indAt = e.value.indexOf('@');
					indDot = e.value.lastIndexOf('.');
				
					if ( (indAt == -1) || (indDot == -1) || (indDot < indAt) || (indDot < (e.value.length - 5)) || ((indDot - indAt) <= 1) || (indAt == 0) ) {
						errors += "The email address '" + e.value + "' appears to be in an invalid format.  Please confirm the email address.\n";
						errorsf += "Le couriel '" + e.value + "' semble être dans un format invalide. Veuillez confirmer l'adresse électronique.\n";
					}
				}
			}
	
			// CHECK DATE FORMAT
			// required format: m[m]|d[d]|yyyy where | is any ascii character
			if (e.dateFormat && ((e.type == "text") || (e.type == "textarea"))) {
				if (isblank(e.value) == false) {
					var maxDays = 31;
					var allNumeric = true;
					var monthOneChar = false;
					var dayOneChar = false;
					
					theMonth = e.value.substring(0,2);
					if (isNaN(theMonth)) {
						theMonth = e.value.substring(0,1);
						monthOneChar = true;
					}
					
					if (monthOneChar) {
						theDay = e.value.substring(2,4);
						if (isNaN(theDay)) {
							theDay = e.value.substring(2,3);
							dayOneChar = true;
						}
					} else {
						theDay = e.value.substring(3,5);
						if (isNaN(theDay)) {
							theDay = e.value.substring(3,4);
							dayOneChar = true;
						}
					}
					
					if (monthOneChar && dayOneChar) {
						theYear = e.value.substring(4,8);
					} else if (monthOneChar || dayOneChar) {
						theYear = e.value.substring(5,9);
					} else {
						theYear = e.value.substring(6,10);
					}
					
					if (isNaN(theMonth) || isNaN(theDay) || isNaN(theYear)) {
						allNumeric = false;
					} else {
						if (theMonth == 2)	{
							if ((theYear % 4) == 0) {
								maxDays = 29
							} else {
								maxDays = 28;
							}
						} else if ((theMonth == 4) || (theMonth == 6) || (theMonth == 9) || (theMonth == 11)) {
							maxDays = 30;
						}
					}
					
					if (
						(allNumeric == false) ||
						(e.value.length > 10) ||
						(e.value.length < 8) || 
						((theMonth < 1) || (theMonth > 12)) || 
						((theDay < 1) || (theDay > maxDays)) || 
						((theYear < 1900) || (theYear > 9999))
						) {
						errors += "The date '" + e.value + "' appears to be in an invalid format.  Please re-enter the date as mm/dd/yyyy.\n";
						errorsf += "La date '" + e.value + "' semble être dans un format invalide. Entrez s'il vous plaît dans la date comme mm/jj/aaaa.\n";
					}
				}
			}
	
			//Dropdowns - make sure the item selected is a valid item
			//not appropriate for multiple selects
			//Dropdowns sometimes include headers
			//provide one of the following:
			//	inList=[true|false]; selectedIndex Must/Must Not be in indexList
			//	indexList="1,2,3,4,5,..n";
			//	min=q; if the value is an ID, and you want it > q to be valid..
			//	max=r; if the value is an ID, and you want it < r to be valid..
			if(((e.type == "select") || (e.type == "select-one")) && !e.multiple) {
				dropcheck=true;
				if(e.selectedIndex == null)e.selectedIndex=0;
				if(e.inList == null)e.inList=false;
				
				if(e.indexList){
					indexArray = e.indexList.split(",");
					for(idx=0;idx<indexArray.length;idx++){
						check=indexArray[idx];
						if((!e.inList && check==e.selectedIndex)||(e.inList && check!=e.selectedIndex)){
							dropcheck=false;
						}
					}
				}
				
				if ((e.min != null) && (e[e.selectedIndex].value < e.min)) dropcheck=false;
				if ((e.max != null) && (e[e.selectedIndex].value > e.max)) dropcheck=false;
				
				if(!dropcheck && ((e[e.selectedIndex].value == "") && !e.optional)) {
					empty_fields += "\n " + getDisplay(e);
				} else if (!dropcheck && e[e.selectedIndex].value != "") {
					errors += "An inappropriate selection has been made in " + getDisplay(e) + "\n";
					errorsf += "Un choix inopportun a été fait dans " + getDisplay(e) + "\n";
				}
			} else if (((e.type == "select") || (e.type == "select-multiple")) && e.multiple) {
				cntSelected = 0;
				cntOkay = 0;
				
				for (curIdx=0;curIdx<e.options.length;curIdx++) {
					optionCheck = false;
					if (e.options[curIdx].selected) {
						cntSelected++;
						optionCheck = true;
						
						if (e.inList == null) e.inList=false;
						if (e.indexList) {
							indexArray = e.indexList.split(",");
							for(idx=0;idx<indexArray.length;idx++){
								check=indexArray[idx];
								if((!e.inList && check==curIdx)||(e.inList && check!=curIdx)){
									optionCheck=false;
								}
							}
						}
						
						if ((e.min != null) && (e.options[curIdx].value < e.min)) optionCheck=false;
						if ((e.max != null) && (e.options[curIdx].value > e.max)) optionCheck=false;
					}
					if (optionCheck) {
						cntOkay++;
					}
				}
				
				if (cntSelected == 0 && !e.optional) {
					empty_fields += "\n " + getDisplay(e);
				} else if (cntSelected != cntOkay) {
					errors += "An inappropriate selection has been made in " + getDisplay(e) + "\n";
					errorsf += "Un choix inopportun a été fait dans " + getDisplay(e) + "\n";
				}
			}
		
		} // end check validated

	} // end for

    if (!empty_fields && !errors) {
		//wait = "Please wait while your entries are updated.\n(This may take up to a minute.)";
		//waitf = "Attendez s'il vous plaît tandis que vos entrées sont mises à jour. (Cela peut prendre jusqu'à une minute.)";

		//if(english)alert(wait);

		//if(!english)alert(waitf);
		
		clickcheck++;
		return true;
	}

    msg  = "______________________________________________________\n\n"
    msg += "The form was not submitted because of the following error(s).\n";
    msg += "Please correct these error(s) and re-submit.\n";
    msg += "______________________________________________________\n\n"

    msgf  = "______________________________________________________\n\n"
    msgf += "Le formulaire n'a pas été soumis à cause d'une ou des erreurs suivantes.\n";
    msgf += "Corrigez s'il vous plaît cette ou ces erreurs et resoumettre.\n";
    msgf += "______________________________________________________\n\n"

    if (empty_fields) {
        msg += "The following required field(s) are empty:\n" + empty_fields + "\n";
        msgf += "Le ou les champs exigés suivant sont vide:\n" + empty_fields + "\n";
    }

    msg += "\n" + errors;
    msgf += "\n" + errorsf;

	
    if(!english)alert(msgf);

    if(english)alert(msg);

	errors = "";
	errorsf = "";

    return false;
}