var mail = /^[0-9A-Za-z_\.\-]+@[0-9A-Za-z_\.\-]+\.[A-Za-z]{2,3}$/;
var badnick = /[^0-9A-Za-z_\.\-]/;

function check_form(form) {
	var msg = "Ingrese todos los campos obligatorios, por favor";
	for (var i=0; i < form.elements.length; i++) {
		if (form.elements[i].name.substr(0,2) == "r_") {
		   switch(form.elements[i].type) {
			case "text":
			case "password":
				if (form.elements[i].value.length == 0) {
					alert(msg);
					form.elements[i].focus();
					return false;
				}
				break;

			case "radio":
			var error = form.error.value;
				var checked = 0;
				var radio = eval('document.' + form.name + '.' + form.elements[i].name);
				
				for (var j=0; j < radio.length; j++) {
					if (radio[j].checked == true) {
						checked = 1;
						break;
					}
				}
				if (checked == 0) {
					alert(error);
					radio[0].focus();
					return false;
				}
				break;
				
							
			case "select-one":
				if (form.elements[i].selectedIndex == 0) {
					alert(msg);
					form.elements[i].focus();
					return false;
				}
				break;
		   }
		}
		else continue;
	}

	// nro. doc. es numero ?
	if (form.r_doc_nro &&
		form.r_doc_nro.value != parseInt(form.r_doc_nro.value)) {
		alert("El número de documento ingresado no es válido");
		form.r_doc_nro.focus();
		form.r_doc_nro.select();
		return false;
	}
	// email
	if (mail.test(form.r_mail.value) == false) {
		alert("La dirección de email ingresada no es válida");
		form.r_mail.focus();
		form.r_mail.select();
		return false;
	}
	// espacios en el nickname ?
	if (form.r_newuser.value.indexOf(' ') > 0) {
		alert('El nombre de usuario no puede contener espacios en blanco');
		form.r_newuser.focus();
		form.r_newuser.select();
		return false;
	}
	// caracteres validos en el nickname ?
	if (badnick.test(form.r_newuser.value) == true) {
		alert('El nombre de usuario solo puede contener:\nletras, números, puntos y guiones');
		form.r_newuser.focus();
		form.r_newuser.select();
		return false;
	}
	// espacios en la clave ?
	if (form.r_pass.value.indexOf(' ') > 0) {
		alert('La contraseña no puede contener espacios en blanco');
		form.r_pass.focus();
		form.r_pass.select();
		return false;
	}
	// longitud de clave
	if (form.r_pass.value.length < 6) {
		alert("La contraseña debe tener seis caracteres como mínimo");
		form.r_pass.focus();
		form.r_pass.select();
		return false;
	}
	// claves iguales?
	if (form.r_pass.value != form.r_pass2.value) {
		alert("Las contraseñas ingresadas deben ser iguales");
		form.r_pass2.focus();
		form.r_pass2.select();
		return false;
	}
	// año es numero ?
	if (form.r_fecha_nac_anio &&
		((form.r_fecha_nac_anio.value != parseInt(form.r_fecha_nac_anio.value)) ||
		(form.r_fecha_nac_anio.value > 1995))) {
		alert("El año ingresado no es válido");
		form.r_fecha_nac_anio.focus();
		form.r_fecha_nac_anio.select();
		return false;
	}
	

	return true;
}

function disable(){
 borrar.disabled==true;
	
	}