function es_email(email) 
{
  /* Validar mail: comprobación de @, un punto después de la @ y dos letras mínimo después del último punto */
	if (email != '')
	{
		var posArroba = email.indexOf('@',0);
		if ((posArroba == -1) || (email.lastIndexOf('@') != posArroba) ||
			(email.charAt(0)== '@') || (email.charAt(email.length-1) == '@'))
		{
			return false;
		}
		var dominio = email.substr(posArroba + 1);
		var posPunto = dominio.indexOf('.',0);
		if ((posPunto == -1) || 	(dominio.charAt(0) == '.') || (dominio.charAt(dominio.length-1) == '.'))
		{
			return false;
		}
		var subdominio = dominio.substr(posPunto + 1);
		if (subdominio.length < 2)
		{
			return false;
		}
		var valido ="'ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyz.-";
		var ok = true;
		var letras = 0
		for (i = 0; i < subdominio.length; i++)
		{
			ch = subdominio.charAt(i);
			for (j = 0; j < valido.length; j++)
			{
				if (ch == valido.charAt(j))
				{
					if ((ch != '.') || (ch != '-'))
					{
						letras = letras + 1
					}
					break;
				}
			}
			if (j == valido.length)
			{
				ok = false;
				break;
			}
		}
		if ((!ok) || (letras < 2))
		{
			return false;
		}
		return true;
	}
}
    

function esta_vacio(s)
{
	if ((s == null) || (s.length == 0)){
	   return true;
	}else{
	   return false;
	}
}

function es_real(campo) {
valor=parseFloat(campo.value);
ok=(isNaN(valor));
return !ok;
}

function es_entero(campo)
{
valor=campo.value;
var reInteger = /^\d+$/
ok=!reInteger.test(valor);
return !ok;
}

function nombre_archivo_valido(str)
{
	// Saco el nombre del archivo sin ruta
	if (str.indexOf("\\")!=0) { 
		posi=str.lastIndexOf("\\"); 
		str=str.substr(posi+1,255);
	} 
	// Saco la posición del último punto para analizar el nombre sin extensión
	n=-1;
	for (i=0;i<str.length;i++){
		if (str.charCodeAt(i)==46){		
			n=i;
		}	
	}
	limpio=true;
	for (i=0;i<n;i++){
		cod=str.charCodeAt(i);	
		if (!(((cod >= 48)&&(cod <= 57))||((cod >= 65)&&(cod <= 90))||((cod >= 97)&&(cod <= 122)))){		
			limpio=false;
		}	
	}
	if((limpio)&&(n > 0)){
		return true;
	}
	else{
		return false;
	}
}