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))
        {
            url_test = /^https?:\/\/[A-Za-z0-9\.-]{3,}\.[A-Za-z]{2,4}(\/|(\/[A-Za-z0-9\.\-_\/]+))?.*$/; 
            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;
            }
            if (url_test.test(objet2.value) == false)
            {
                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='_frdate';
        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 (!checkfrdate(objet2.value.substring(0,10)))
                {
                    answer+=objet.elements[i].value+"\r\n";
                    erreur++;            
                }
            }
        }
        str='_frtimedate';
        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 (!checkfrdate(objet2.value.substring(0,10))|!checktime(objet2.value.substring(11,19)))
                {
                    answer+=objet.elements[i].value+"\r\n";
                    erreur++;            
                }
            }
         }
         str='_ukdate';
        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 (!checkukdate(objet2.value.substring(0,10)))
                {
                    answer+=objet.elements[i].value+"\r\n";
                    erreur++;            
                }
            }
         }
        str='_uktimedate';
        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 (!checkukdate(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 checkukdate(object_value)
{
    //Returns true if value is a frdate format or is NULL
    //otherwise returns false    
 
    if (object_value.length == 0)
        return true;

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

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

    sYear = 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((sYear.length + 1), isplit);
    
    sDay = 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 checkfrdate(object_value)
{
    //Returns true if value is a frdate 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;
}