// JavaScript Document

function isEmailAddress(theElement, nombre_del_elemento ){
	var s = theElement.value;
	var filter=/^[A-Za-z][A-Za-z0-9_]*@[A-Za-z0-9_]+\.[A-Za-z0-9_.]+[A-za-z]$/;
	if (s.length == 0 ){
		alert("No fue ingresada su dirección de email.");
		return false;
	} else {
		if (filter.test(s))
			return true;
		else
			alert("La dirección de email ingresada no es válida.");
		theElement.focus();
		return false;
	}
	return false;
}


/* dice si cadena es texto no vacio o no                                     */
function vacio(cadena)
  {                                    // DECLARACION DE CONSTANTES
    var blanco = " \n\t" + String.fromCharCode(13); // blancos
                                       // DECLARACION DE VARIABLES
    var i;                             // indice en cadena
    var es_vacio;                      // cadena es vacio o no
    for(i = 0, es_vacio = true; (i < cadena.length) && es_vacio; i++) // INICIO
      es_vacio = blanco.indexOf(cadena.charAt(i)) != - 1;
    return(es_vacio);
  }



function email(cadena, otros)  
  {                                    // DECLARACION-INICIALIZACION VARIABLES  
    var i, j;                          // indice en cadena  
    var es_email = 0 < cadena.length;  // cadena es email o no  
    i = salta_alfanumerico(cadena, 0, otros); // INICIO  
    if(es_email = 0 < i)               // lee "alfanum*"  
      if(es_email = (i < cadena.length))  
        if(es_email = cadena.charAt(i) == '@') // lee "alfanum@*"  
          {  
            i++;  
            j = salta_alfanumerico(cadena, i, otros);  
            if(es_email = i < j)       // lee "alfanum@alfanum*"  
              if(es_email = j < cadena.length)  
                if(es_email = cadena.charAt(j) == '\.')  
                  {                    // lee "alfanum@alfanum.*"  
                    j++;  
                    i = salta_alfanumerico(cadena, j, otros);  
                    if(es_email = j < i) // lee "alfanum@alfanum.alfanum*"  
                      while(es_email && (i < cadena.length))  
                        if(es_email = cadena.charAt(i) == '\.')  
                          {  
                            i++;  
                            j = salta_alfanumerico(cadena, i, otros);  
                            if(es_email = i < j) // lee "alfanum@alfanum.alfanum[.alfanum]*"  
                              i = j;  
                          }  
                  }  
          }  
    return(es_email);  
  }  


/* dice si cadena es url (http://... ) o no                                     */
function url(cadena)
  {                                    // DECLARACION DE CONSTANTES
    var http = "http://";              // protocolo HTTP
                                       // DECLARACION DE VARIABLES
    var es_url;                        // cadena es url o no
    if(cadena.length <= 7)             // INICIO
      es_url = false;                  // no cabe "http://*"
    else
      es_url = http.indexOf(cadena.substring(0, 7)) != - 1; // lee "http://*"
    return(es_url);
  }


/* salta caracteres alfanumericos y otros a partir de  cadena[i]  y  da  si- */
/* guiente posicion                                                          */
function salta_alfanumerico(cadena, i, otros)
  {                                    // DECLARACION DE VARIABLES
    var j;                             // indice en cadena
    var car;                           // caracter de cadena
    var alfanum;                       // cadena[j] es alfanumerico u otros
    for(j = i, alfanum = true; (j < cadena.length) && alfanum; j++) // INICIO
      {
        car = cadena.charAt(j);
        alfanum = alfanumerico(car) || (otros.indexOf(car) != -1);
      }
    if(!alfanum)                       // lee "alfanumX"
      j--;
    return(j);
  }
  
/* dice si car es alfanumerico                                               */
function alfanumerico(car)
  {
    return(alfabetico(car) || numerico(car));
  }


/* dice si car es alfabetico                                                 */
function alfabetico(car)               // DECLARACION DE CONSTANTES
  {                                    // caracteres alfabeticos
    var alfa = "ABCDEFGHIJKLMNOPQRSTUWXYZabcdefghijklmnopqrstuvxyz";
    return(alfa.indexOf(car) != - 1);  // INICIO
  }


/* dice si car es numerico                                                   */
function numerico(car)
  {                                    // DECLARACION DE CONSTANTES
    var num = "0123456789";            // caracteres numericos
    return(num.indexOf(car) != - 1);   // INICIO
  }