function enviar(f){
mal="";
if(f.nombre.value.length<3 || f.nombre.value=="nombre completo"){
mal+="\n-Por favor, ponga su nombre completo";
}

//numero=f.dni.value.substring(0,f.dni.value.length-1);
//letra=f.dni.value.charAt(f.dni.value.length-1);
//letras="TRWAGMYFPDXBNJZSQVHLCKET"

// posicion = parseInt(numero) % 23
// if (letra.toUpperCase()!=letras.charAt(posicion) || parseInt(numero)==0){
//mal+="\n-Por favor, corrija el DNI (Ejemplo: 12345678A)";
// }
filter=/^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$/
if (!filter.test(f.correo.value)){
mal+="\n-Por favor, corrija el correo introducido";
}

if(parseInt(f.telefono.value)=="isNaN" || f.telefono.value.length<9 || (f.telefono.value.charAt(0)!="9" && f.telefono.value.charAt(0)!="6")){

mal+="\n-Corrija el telefono introducido";
}

if(f.especialidad.value=="*"){
mal+="\n- No ha introducido la especialidad";
}
if(mal!=""){
alert("Se han encontrado errores en su formulario que imposibilitan su envio. Por favor, corrijalos.\n"+mal);
return false;
}
else{
f.direccion.value=location.href;
var urlCompleta = window.location.href;
var arrParametros = urlCompleta.split("?");
	if (arrParametros.length > 1){
			var arrValores = arrParametros[1].split("=");
			if(arrValores[0] == "tsource"){
				f.action = "mandar.php?tsource="+arrValores[1];
			}
		}
f.submit();
}
}