/* libellula.js */

/* Escrito por Osvaldo Graña, Abril 2002 */

/* Controla la web de la red neuronal */





function checkMail(email)
/* comprueba que es un mail válido */
{
	var pos_arroba=-1,pos_punto=-1,pos_punto_inicial;
	correo=new String(email.value);
	
	/* busco la posición del "@" */
	pos_arroba=correo.indexOf("@");
	
	/* busco si hay un punto al ppio o antes del arroba */
	pos_punto_inicial=correo.indexOf(".");
	
	/* busco la posición del "." después del arroba*/
	if (pos_arroba!=-1) 
	{
		pos_punto=correo.indexOf(".",pos_arroba); 
	}

	/* compruebo si contiene arroba y un punto (al menos) después del arroba, además arroba no puede estar al ppio y el punto 
	no puede estar justo antes o después del arroba */
	if ((pos_arroba==-1) || (pos_arroba==0) || (pos_punto==-1) || (pos_punto_inicial==0) ||(pos_punto_inicial==pos_arroba-1) || (pos_punto==pos_arroba+1)) { 
		alert ("Please, rewrite your E-mail");
		email.value="";
	 };
	
} /* function checkMail(email) */

function enviarDatos(form){

	// compruebo si ha rellenado el campo de secuencia query
	// y también el campo de email
	if ((form.sequence.value!="") && (form.email.value!=""))
	{
		// ha rellenado los campos, entonces puede enviar
		form.submit(form);
	}
		// si no lo ha hecho le aviso de ello y no le dejo enviar la query
		else alert ("You must put a sequence and an E-mail address before sending");
		
}