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;
}

function checkform(objet)
{
	var answer = '';
	var objet2;
	var str;
	var range1,range2;
	var erreur=0;
	var testl=1;
    for (var i = 0; i<objet.elements.length; i++) 	
	{
		testl=1;
		str='_required';
        if ((objet.elements[i].name.indexOf(str) > -1)) 
		{
			objet2=valchamps(objet,objet.elements[i].name,str);

			if (objet2.length>=0)
			{
				testl=0;
			    for (var j = 0; j<objet2.length; j++) 	
				{
					if (objet2[j].checked==true)
					{
						testl=testl+1;
											
					}
				}
			}
			if (objet2.value==''|testl==0)
			{
				
				answer+=objet.elements[i].value+"\r\n";
				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)) 
		{
			deb=objet.elements[i].name.indexOf(str)+6;
			fin=objet.elements[i].name.length;
			ranget=objet.elements[i].name.substring(deb,fin);
			deb=ranget.indexOf("_");
			fin=ranget.length;
			range1=Math.round(ranget.substring(0,deb));
			range2=Math.round(ranget.substring(deb+1,fin));
			objet2=valchamps(objet,objet.elements[i].name,str+range1+"_"+range2);
			if (isNaN(objet2.value))
			{
				answer+=objet.elements[i].value+"\r\n";
				erreur++;			
			}
			else
			{
				
				if (objet2.value<range1||objet2.value>range2)
				{
					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;
}