function valchamps(objet,champs,str)
{
	var nreg=new RegExp(str,"g");
	var champs2=champs.replace(nreg,"");
	return objet.elements[champs2];
}


function ckecktolist(name)
{
	var temp="";
	for (i=0;i<document.getElementsByName(name+"[]").length;i++)
	{
		if (document.getElementsByName(name+"[]")[i].checked==true)
			if (temp=="")
				temp=document.getElementsByName(name+"[]")[i].value;
			else
				temp=temp+","+document.getElementsByName(name+"[]")[i].value;
	}
	document.getElementsByName(name)[0].value=temp;
}

// vérification de formulaire
// on peut contraindre un champs en créant un hidden du nom de name_contrainte avec en value le message d'alerte
function checkform(objet)
{
	var answer = '';
	var objet2;
	var objet3;
	var str;
	var range1,range2;
	var erreur=0;
	var exception=0;
    for (var i = 0; i<objet.elements.length; i++) 	
	{
		str='_required';
    if ((objet.elements[i].name.indexOf(str) > -1)) 
		{
			objet2=valchamps(objet,objet.elements[i].name,str);
			if (objet2.value=='')
			{	
				//alert('on vérifie qu il n y a pas une exception sous la forme d un link');
				// on vérifie qu'il n'y a pas une exception sous la forme d'un link
				exception = 0;
				for (var j = 0; j<objet.elements.length; j++){
					str2 = objet2.name+'_link';
					if ((objet.elements[j].name.indexOf(str2) > -1)){
						//alert('cas link '+str2);
						deb=objet.elements[j].name.indexOf(str2)+str2.length+1;
						fin=objet.elements[j].name.length;
						ranget=objet.elements[j].name.substring(deb,fin);
						//alert(' ranget '+ranget);
						objet3=objet.elements[ranget];
						if(objet3){
						//alert('if object3 non vide ...');
							if(objet.elements[j].value=='_required' && objet3.value!=''){
								exception++;
								//alert(' required et ');
								//alert('objet3.value non nullee '+objet3.value);
							}
							else if(objet.elements[j].value.indexOf('_notin_') > -1){
								//alert(' sinon cas notin ');
								ranget = objet.elements[j].value.substring(7,objet.elements[j].value.length);
								ranget = ranget.split('_');
								temp = 0;
								for(var ii = 0, il = ranget.length; ii < il; ii++) {
									if(ranget[ii] == objet3.value) {
										//alert('dans if egal '+objet3.value);
										temp ++;
									}
								}
								if(temp == 0){	
									exception++;
									//alert('si temps ==0 '+ exception);
								}
							}
							else if(objet3.value==objet.elements[j].value){
								//alert('la valeur = alors  '+ exception);
								exception++;
							}
						}
					}
				}
				if(exception == 0){
					answer+=objet.elements[i].value+"\r\n";
							//alert('si exception==0'+answer);
					erreur++;
				}
				//alert (objet.elements[i].value);
				//return false;
			}
		 }
		str='_lenpass';
        if ((objet.elements[i].name.indexOf(str) > -1)) 
		{
			objet2=valchamps(objet,objet.elements[i].name,str);
			if (objet2.value=='')
			{
			}
			else if (objet2.value.length<5)
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
			}
		 }
		str='_http';
        if ((objet.elements[i].name.indexOf(str) > -1)) 
		{
			objet2=valchamps(objet,objet.elements[i].name,str);
			if (objet2.value=='')
			{
				
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
				//alert (objet.elements[i].value);
				//return false;
			}
			else if(objet2.value=='http://www.')
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
			}
			else if(objet2.value.indexOf('http://')==-1)
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
			}
		 }
		str='_mailtst';
        if ((objet.elements[i].name.indexOf(str) > -1)) 
		{
			objet2=valchamps(objet,objet.elements[i].name,str);
			if (objet2.value=='')
			{
				answer+=objet.elements[i].value+"\r\n";
				return confirm (objet.elements[i].value);
				//erreur++;
			}
			else if (objet2.value.indexOf('@')==-1)
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
			}
			else if (objet2.value.indexOf('.')==-1)
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;
			}
		 }
		 str='_mailval';
        if ((objet.elements[i].name.indexOf(str) > -1)) 
		{
			objet2=valchamps(objet,objet.elements[i].name,str);
			if (objet2.value=='')
			{
				answer+=objet.elements[i].value+"\r\n";
				//return confirm (objet.elements[i].value);
				erreur++;
			}
			else if (objet2.value.indexOf('@')==-1)
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			}
			else if (objet2.value.indexOf('.')==-1)
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;
			}
		 }
		str='_eurodate';
        if ((objet.elements[i].name.indexOf(str) > -1)) 
		{
			objet2=valchamps(objet,objet.elements[i].name,str);
			if (objet2.value=='')
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
			}
			else if (objet2.value.length!=10)
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
			}
			else
			{
				if (!checkeurodate(objet2.value.substring(0,10)))
				{
					answer+=objet.elements[i].value+"\r\n";
					erreur++;			
				}
			}
		 }
		str='_eurotimedate';
        if ((objet.elements[i].name.indexOf(str) > -1)) 
		{
			objet2=valchamps(objet,objet.elements[i].name,str);
			if (objet2.value=='')
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
			}
			else if (objet2.value.length!=19)
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
			}
			else
			{
				if (!checkeurodate(objet2.value.substring(0,10))|!checktime(objet2.value.substring(11,19)))
				{
					answer+=objet.elements[i].value+"\r\n";
					erreur++;			
				}
			}
		 }
		
		str='_num';
        if ((objet.elements[i].name.indexOf(str) > -1)) 
		{
			objet2=valchamps(objet,objet.elements[i].name,str);
			if (isNaN(objet2.value))
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
			}
		 }
		str='_not0';
        if ((objet.elements[i].name.indexOf(str) > -1)) 
		{
			objet2=valchamps(objet,objet.elements[i].name,str);
			if (isNaN(objet2.value))
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
			}
			else
			{
				if (objet2.value<=0)
				{
					answer+=objet.elements[i].value+"\r\n";
					erreur++;			
				}
			
			}
		}
		str='_range';
        if ((objet.elements[i].name.indexOf(str) > -1)) 
		{
			//alert(objet.elements[i].name);
			deb=objet.elements[i].name.indexOf(str)+6;
			fin=objet.elements[i].name.length;
			ranget=objet.elements[i].name.substring(deb,fin);
			//alert('ranget '+ranget);
			deb=ranget.indexOf("_");
			//alert('deb '+ deb);
			fin=ranget.length;
			//alert('fin '+ fin);
			//range1=Math.round(ranget.substring(0,deb));
			range1=Math.abs(ranget.substring(0,deb));
			//alert('range1 '+ range1);
			range2=Math.round(ranget.substring(deb+1,fin));
			//alert('range2 '+ range2);
			objet2=valchamps(objet,objet.elements[i].name,str+range1+"_"+range2);
			//alert('objet2.value ' + objet2.value);
			if (isNaN(objet2.value))
			{
				//alert('erreur');
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
			}
			else
			{
				//alert(objet.elements[i].name);
				//alert(objet2.value);
				//alert(range1);
				//alert(range2);
				if (objet2.value<range1|objet2.value>range2)
				{
				 
				//alert('1 '+objet2.value);
				//alert('1 '+range1);
				//alert('1 '+range2);
					answer+=objet.elements[i].value+"\r\n";
					erreur++;			
				}
			}
		}
		str='_min';
        if ((objet.elements[i].name.indexOf(str) > -1)) 
		{
			deb=objet.elements[i].name.indexOf(str)+4;
			fin=objet.elements[i].name.length;
			ranget=objet.elements[i].name.substring(deb,fin);
			
			objet2=valchamps(objet,objet.elements[i].name,str+ranget);
			if (isNaN(objet2.value))
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
			}
			else
			{
				
				if (objet2.value-ranget<=0)
				{
					answer+=objet.elements[i].value+"\r\n";
					erreur++;			
				}
			
			}
		}
		str='_length';
        if ((objet.elements[i].name.indexOf(str) > -1)) 
		{
			deb=objet.elements[i].name.indexOf(str)+7;
			fin=objet.elements[i].name.length;
			maxx=objet.elements[i].name.substring(deb,fin)*1;
			objet2=valchamps(objet,objet.elements[i].name,str+maxx);
			if (objet2.value.length>0)
			{
				
				if (objet2.value.length>maxx)
				{
				
					answer+=objet.elements[i].value+(objet2.value.length-maxx)+"\r\n";
					erreur++;			
				}
			
			}
		}
		
    }
	if (erreur>0)
	{
		alert(answer);
		return false;
	}
	else
		return true;
}


function checktime(object_value)
{
	hh=object_value.substring(0,2)
	mm=object_value.substring(3,5)
	ss=object_value.substring(6,8)
	if (!isNaN(hh)&!isNaN(mm)&!isNaN(ss))
	{
		if (hh*1<24&mm*1<60&ss*1<60)
			return true
		else
			return false
	}
	else
		return false
}
function checkeurodate(object_value)
{
    //Returns true if value is a eurodate format or is NULL
    //otherwise returns false	
 
    if (object_value.length == 0)
        return true;

    //Returns true if value is a date in the dd/mm/yyyy format
	isplit = object_value.indexOf('/');

	if (isplit == -1 || isplit == object_value.length)
		return false;

    sDay = object_value.substring(0, isplit);
	isplit = object_value.indexOf('/', isplit + 1);

	if (isplit == -1 ||  (isplit + 1 )  == object_value.length)
		return false;

    sMonth = object_value.substring((sDay.length + 1), isplit);

	sYear = object_value.substring(isplit + 1);

	if (!checkinteger(sMonth)) //check month
		return false;
	else
	if (!checkrange(sMonth, 1, 12)) // check month
		return false;
	else
	if (!checkinteger(sYear)) //check year
		return false;
	else
	if (!checkrange(sYear, 0, null)) //check year
		return false;
	else
	if (!checkinteger(sDay)) //check day
		return false;
	else
	if (!checkday(sYear, sMonth, sDay)) //check day
		return false;
	else
		return true;
    }
	
	function checkday(checkYear, checkMonth, checkDay)
    {

	maxDay = 31;

	if (checkMonth == 4 || checkMonth == 6 ||
			checkMonth == 9 || checkMonth == 11)
		maxDay = 30;
	else
	if (checkMonth == 2)
	{
		if (checkYear % 4 > 0)
			maxDay =28;
		else
		if (checkYear % 100 == 0 && checkYear % 400 > 0)
			maxDay = 28;
		else
			maxDay = 29;
	}
	return checkrange(checkDay, 1, maxDay); //check day
}
	
function checkinteger(object_value)
{
    //Returns true if value is a number or is NULL
    //otherwise returns false	

    if (object_value.length == 0)
        return true;

    //Returns true if value is an integer defined as
    //   having an optional leading + or -.
    //   otherwise containing only the characters 0-9.
	var decimal_format = ".";
	var check_char;

    //The first character can be + -  blank or a digit.
	check_char = object_value.indexOf(decimal_format)
    //Was it a decimal?
    if (check_char < 1)
	return checknumber(object_value);
    else
	return false;
}



function numberrange(object_value, min_value, max_value)
 {
	object_value=object_value*1
    // check minimum
    if (min_value != null)
	{
		min_value=min_value*1
        if (object_value < min_value)
		{
			return false;
		}
	}
    // check maximum
    if (max_value != null)
	{
		max_value=max_value*1
		if (object_value > max_value){
			return false;
		}
	}
	//All tests passed, so...
    return true;
 }



function checknumber(object_value)
{
    //Returns true if value is a number or is NULL
    //otherwise returns false	

    if (object_value.length == 0)
        return true;

    //Returns true if value is a number defined as
    //   having an optional leading + or -.
    //   having at most 1 decimal point.
    //   otherwise containing only the characters 0-9.
	var start_format = " .+-0123456789";
	var number_format = " .0123456789";
	var check_char;
	var decimal = false;
	var trailing_blank = false;
	var digits = false;

    //The first character can be + - .  blank or a digit.
	check_char = start_format.indexOf(object_value.charAt(0))
    //Was it a decimal?
	if (check_char == 1)
	    decimal = true;
	else if (check_char < 1)
		return false;
        
	//Remaining characters can be only . or a digit, but only one decimal.
	for (var i = 1; i < object_value.length; i++)
	{
		check_char = number_format.indexOf(object_value.charAt(i))
		if (check_char < 0)
			return false;
		else if (check_char == 1)
		{
			if (decimal)		// Second decimal.
				return false;
			else
				decimal = true;
		}
		else if (check_char == 0)
		{
			if (decimal || digits)	
				trailing_blank = true;
        // ignore leading blanks

		}
	        else if (trailing_blank)
			return false;
		else
			digits = true;
	}	
    //All tests passed, so...
    return true
}



function checkrange(object_value, min_value, max_value)
{
    //if value is in range then return true else return false

    if (object_value.length == 0)
        return true;


    if (!checknumber(object_value))
	{
	return false;
	}
    else
	{
		return (numberrange(object_value, min_value, max_value));
	}
	
    //All tests passed, so...
    return true;
}

// arrondi une valeur avec precision chiffre apres la virgule
function round(valeur, precision){
	tmp = valeur * Math.pow(10,precision);
	tmp = Math.round(tmp);
	return tmp / Math.pow(10,precision);
}

//oblige la saisie de chiffre dans un champ texte MAIS impossible de faire un backsapce :( 
function chiffres(event) {
	// Compatibilité IE / Firefox
	if(!event&&window.event) {
	event=window.event;
	}
	// IE
	if(event.keyCode < 48 || event.keyCode > 57) {
	event.returnValue = false;
	event.cancelBubble = true;
	}
	// DOM
	if(event.which < 48 || event.which > 57) {
	event.preventDefault();
	event.stopPropagation();
	}
}

function codeTouche(evenmt) { // retourne le code de la touche pressée
	for (propty in evenmt) {
	if(propty == 'which') return(evenmt.which); // cas Netscape-FireFox
	}
	return(evenmt.keyCode); // cas IE
} 

function scanTouche(evenmt) { // autorise les touches définies dans les expressions régulières ci-dessous
	var regCarSpec = /[\x00\x08\x0D]/; // expression régulière autorise les caractères Home End Flèches Backspace Enter
	var regCarVal = /[0-9]/; // expression régulière autorise chiffres 
	var codeDecimal = codeTouche(evenmt);
	var car = String.fromCharCode(codeDecimal);
	var authorization = regCarVal.test(car) || regCarSpec.test(car); // Test si touche pressée est valide
	return authorization;
}