function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function paintImgLogoYaTol() {
    var imgServ = "<img src=\"";
    if (document.location.href.indexOf(".jif.es") > -1) {
        if (document.location.href.indexOf("desarrollo.") > -1) {
            imgServ = imgServ+"http://desarrollo.imgserv.ya.jif.es/red.ya.com/img";
        } else {
            imgServ = imgServ+"http://red2.jif.es/img";
        }
    } else {
        imgServ = imgServ+"http://imgserv.ya.com/red.ya.com/img";
    }
    imgServ = imgServ+"/logoyaif.gif\" width=\"120\" height=\"26\" border=\"0\"/>";
    document.write(imgServ);
}

function ValidateEmail(email) {
    var caracteres = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_-.";
    var i;
    var valido = true;
    var pos_arroba = email.indexOf("@");
    var pos_ultimo_punto = email.lastIndexOf(".");
    var email_minus = email.toLowerCase();
    var trozo;

    if (pos_arroba == -1) {
        return false;
    }
    if (email_minus.indexOf("usuario@servidor.es") != -1){
        return false;
    }
    if (pos_ultimo_punto == -1) {
        return false;
    }
    trozo = email.substring(0, pos_arroba);
    for(i=0;i<trozo.length;i++) {
        if (caracteres.indexOf(trozo.charAt(i)) == -1) {
            valido = false;
            break;
        }
    }
    if (!valido) {
        return false;
    }
    valido = true;
    trozo = email.substring(1+pos_arroba, pos_ultimo_punto);
    for(i=0;i<trozo.length;i++) {
        if (caracteres.indexOf(trozo.charAt(i)) == -1) {
            valido = false;
            break;
        }
    }
    if (!valido) {
        return false;
    }
    valido = true;
    trozo = email.substring(1+pos_ultimo_punto, email.length);
    if ((trozo.length >= 2)&&(trozo.length <= 3)) {
        for(i=0;i<trozo.length;i++) {
            if (caracteres.indexOf(trozo.charAt(i)) == -1) {
                valido = false;
                break;
            }
        }
        if (!valido) {
            return false;
        }
    } else {
        return false;
    }
    return true;
}

function validaCP(f) {
	if (!esDigito(f.DIR_CP.value)){
		alert("El Código Postal debe ser numérico");
		f.DIR_CP.focus();
		return false;
	}
    if (f.DIR_CP.value.length!=5){
		alert("El Código Postal debe tener 5 dígitos");
		f.DIR_CP.focus();
		return false;
	}
	var provinciaSeleccionada = f.PRO_ID_PROVINCIA.options[f.PRO_ID_PROVINCIA.selectedIndex].value;
	while (provinciaSeleccionada.length<2) provinciaSeleccionada = "0" + provinciaSeleccionada;
	if (f.DIR_CP.value.substring(0,2)!=provinciaSeleccionada){
		alert("El Código Postal introducido no se corresponde con la provincia seleccionada.");
		f.DIR_CP.focus();
		return false;
	}
	return true;
}

function esDigito(cadenaEntrada) {
	for (i=0; i<cadenaEntrada.length; i++) {
		if (isNaN(parseInt(cadenaEntrada.substring(i,i+1),10)))
		    return (false);	//Netscape
		if ((cadenaEntrada.substring(i,i+1)) != (parseInt(cadenaEntrada.substring(i,i+1),10)))
		    return (false);	//Explorer
	}
	return (true);
}