/////////////////////////////////////////////////
///               VALIDACION FECHA            ///
////////////////////////////////////////////////

// Declaring valid date character, minimum year and maximum year
var dtCh= "/";
var minYear=1900;
var maxYear=2100;
var hrCh= ":";

function isInteger(s){
	var i;
    for (i = 0; i < s.length; i++){   
        // Check that current character is number.
        var c = s.charAt(i);
        if (((c < "0") || (c > "9"))) return false;
    }
    // All characters are numbers.
    return true;
}

function stripCharsInBag(s, bag){
	var i;
    var returnString = "";
    // Search through string's characters one by one.
    // If character is not in bag, append to returnString.
    for (i = 0; i < s.length; i++){   
        var c = s.charAt(i);
        if (bag.indexOf(c) == -1) returnString += c;
    }
    return returnString;
}

function daysInFebruary (year){
	// February has 29 days in any year evenly divisible by four,
    // EXCEPT for centurial years which are not also divisible by 400.
    return (((year % 4 == 0) && ( (!(year % 100 == 0)) || (year % 400 == 0))) ? 29 : 28 );
}
function DaysArray(n) {
	for (var i = 1; i <= n; i++) {
		this[i] = 31
		if (i==4 || i==6 || i==9 || i==11) {this[i] = 30}
		if (i==2) {this[i] = 29}
   } 
   return this
}

function isDate(dtStr){
  if( dtStr.length == 0 )
    return true;

	var daysInMonth = DaysArray(12)
	var pos1=dtStr.indexOf(dtCh)
	var pos2=dtStr.indexOf(dtCh,pos1+1)
	var strDay=dtStr.substring(0,pos1)
	var strMonth=dtStr.substring(pos1+1,pos2)
	var strYear=dtStr.substring(pos2+1)
	strYr=strYear
	if (strDay.charAt(0)=="0" && strDay.length>1) strDay=strDay.substring(1)
	if (strMonth.charAt(0)=="0" && strMonth.length>1) strMonth=strMonth.substring(1)
	for (var i = 1; i <= 3; i++) {
		if (strYr.charAt(0)=="0" && strYr.length>1) strYr=strYr.substring(1)
	}
	month=parseInt(strMonth)
	day=parseInt(strDay)
	year=parseInt(strYr)
	if (pos1==-1 || pos2==-1){
		alert("El formato de la fecha debería ser : dd/mm/yyyy")
		return false
	}
	if (strMonth.length<1 || month<1 || month>12){
		alert("Por favor, introduzca un mes válido")
		return false
	}
	if (strDay.length<1 || day<1 || day>31 || (month==2 && day>daysInFebruary(year)) || day > daysInMonth[month]){
		alert("Por favor, introduzca un día válido")
		return false
	}
	if (strYear.length != 4 || year==0 || year<minYear || year>maxYear){
		alert("Por favor, introduzca un año válido entre "+minYear+" y "+maxYear)
		return false
	}
	if (dtStr.indexOf(dtCh,pos2+1)!=-1 || isInteger(stripCharsInBag(dtStr, dtCh))==false){
		alert("Por favor, introduzca una fecha válida")
		return false
	}
return true
}

function ValidateDate( campoFecha ){
	if (isDate(campoFecha.value)==false){
		campoFecha.focus()
		return false
	}
    return true
 }


/////////////////////////////////////////////////
///               VALIDACION HORA             ///
////////////////////////////////////////////////

function isHour(dtStr){
  if( dtStr.length == 0 )
    return true;
    
	var pos1=dtStr.indexOf(hrCh)
	var strHour=dtStr.substring(0,pos1)
	var strMinute=dtStr.substring(pos1+1)

	if (strHour.charAt(0)=="0" && strHour.length>1) strHour=strHour.substring(1)
	if (strMinute.charAt(0)=="0" && strMinute.length>1) strMinute=strMinute.substring(1)
	hour=parseInt(strHour)
	minute=parseInt(strMinute)
	
  if (pos1==-1 ){
		alert("El formato de la hora debería ser : hh:mm")
		return false
	}
	if (strHour.length<1 || hour<0 || hour>23){
		alert("Por favor, introduzca una hora válida")
		return false
	}
	if (strMinute.length<1 || minute<0 || minute>59 ){
		alert("por favor, introduzca un minuto válido")
		return false
	}
return true
}

function ValidateHour( campoHora ) {
	if (isHour(campoHora.value)==false){
		campoHora.focus()
		return false
	}
    return true
 }


/////////////////////////////////////////////////
///         VALIDACION CADENA VACIA           ///
////////////////////////////////////////////////

function isEmpty( str ) {
  return( str.length==0 );
}


function ValidateEmpty( campoTxt ) {
    if( isEmpty(campoTxt.value) == true){
      alert("debe introducir un valor en el campo " + campoTxt.name );
      return false;
    }
    else{
      return true;
    }
}

/////////////////////////////////////////////////
///     VALIDACION MAIL/LISTA EMAILS          ///
////////////////////////////////////////////////

/** Obtenida de http://www.breakingpar.com/bkp/home.nsf/Doc?OpenNavigator&U=87256B14007C5C6A87256AFB0013C722 **/
function trim(inputString) {
   // Removes leading and trailing spaces from the passed string. Also removes
   // consecutive spaces and replaces it with one space. If something besides
   // a string is passed in (null, custom object, etc.) then return the input.
   if (typeof inputString != "string") { return inputString; }
   var retValue = inputString;
   var ch = retValue.substring(0, 1);
   while (ch == " ") { // Check for spaces at the beginning of the string
      retValue = retValue.substring(1, retValue.length);
      ch = retValue.substring(0, 1);
   }
   ch = retValue.substring(retValue.length-1, retValue.length);
   while (ch == " ") { // Check for spaces at the end of the string
      retValue = retValue.substring(0, retValue.length-1);
      ch = retValue.substring(retValue.length-1, retValue.length);
   }
   while (retValue.indexOf("  ") != -1) { // Note that there are two spaces in the string - look for multiple spaces within the string
      retValue = retValue.substring(0, retValue.indexOf("  ")) + retValue.substring(retValue.indexOf("  ")+1, retValue.length); // Again, there are two spaces in each of the strings
   }
   return retValue; // Return the trimmed string back to the user
} // Ends the "trim" function

<!-- Changes:  Sandeep V. Tamhankar (stamhankar@hotmail.com) -->

/* 1.1.2: Fixed a bug where trailing . in e-mail address was passing
            (the bug is actually in the weak regexp engine of the browser; I
            simplified the regexps to make it work).
   1.1.1: Removed restriction that countries must be preceded by a domain,
            so abc@host.uk is now legal.  However, there's still the 
            restriction that an address must end in a two or three letter
            word.
     1.1: Rewrote most of the function to conform more closely to RFC 822.
     1.0: Original  */

<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->

<!-- Begin
function emailCheck (emailStr) {
/* The following pattern is used to check if the entered e-mail address
   fits the user@domain format.  It also is used to separate the username
   from the domain. */
var emailPat=/^(.+)@(.+)$/
/* The following string represents the pattern for matching all special
   characters.  We don't want to allow special characters in the address. 
   These characters include ( ) < > @ , ; : \ " . [ ]    */
var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]"

/* The following string represents the range of characters allowed in a 
   username or domainname.  It really states which chars aren't allowed. */
var validChars="\[^\\s" + specialChars + "\]"

/* The following pattern applies if the "user" is a quoted string (in
   which case, there are no rules about which characters are allowed
   and which aren't; anything goes).  E.g. "jiminy cricket"@disney.com
   is a legal e-mail address. */
   
var quotedUser="(\"[^\"]*\")"
/* The following pattern applies for domains that are IP addresses,
   rather than symbolic names.  E.g. joe@[123.124.233.4] is a legal
   e-mail address. NOTE: The square brackets are required. */
var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/
/* The following string represents an atom (basically a series of
   non-special characters.) */
var atom=validChars + '+'
/* The following string represents one word in the typical username.
   For example, in john.doe@somewhere.com, john and doe are words.
   Basically, a word is either an atom or quoted string. */
var word="(" + atom + "|" + quotedUser + ")"
// The following pattern describes the structure of the user
var userPat=new RegExp("^" + word + "(\\." + word + ")*$")
/* The following pattern describes the structure of a normal symbolic
   domain, as opposed to ipDomainPat, shown above. */
var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$")


/* Finally, let's start trying to figure out if the supplied address is
   valid. */

/* Begin with the coarse pattern to simply break up user@domain into
   different pieces that are easy to analyze. */
var matchArray=emailStr.match(emailPat)
if (matchArray==null) {
  /* Too many/few @'s or something; basically, this address doesn't
     even fit the general mould of a valid e-mail address. */
	alert("La dirección de Email '" + emailStr + "' es incorrecta (chequee los caracteres @ y .'s)")
	return false
}
var user=matchArray[1]
var domain=matchArray[2]

// See if "user" is valid 
if (user.match(userPat)==null) {
    // user is not valid
    alert("El usuario '" + user + "' no es válido.")
    return false
}

/* if the e-mail address is at an IP address (as opposed to a symbolic
   host name) make sure the IP address is valid. */
var IPArray=domain.match(ipDomainPat)
if (IPArray!=null) {
    // this is an IP address
	  for (var i=1;i<=4;i++) {
	    if (IPArray[i]>255) {
	        alert("La dirección IP de destino '" + domain + "' es inválida.")
		return false
	    }
    }
    return true
}

// Domain is symbolic name
var domainArray=domain.match(domainPat)
if (domainArray==null) {
	alert("El nombre de dominio '" + domain + "' no es válido.")
    return false
}

/* domain name seems valid, but now make sure that it ends in a
   three-letter word (like com, edu, gov) or a two-letter word,
   representing country (uk, nl), and that there's a hostname preceding 
   the domain or country. */

/* Now we need to break up the domain to get a count of how many atoms
   it consists of. */
var atomPat=new RegExp(atom,"g")
var domArr=domain.match(atomPat)
var len=domArr.length
if (domArr[domArr.length-1].length<2 || 
    domArr[domArr.length-1].length>3) {
   // the address must end in a two letter or three letter word.
   alert("La dirección con dominio '" + domain + "' debe terminar en un dominio de 3 letras o en un código de país de 2.")
   return false
}

// Make sure there's a host name preceding the domain.
if (len<2) {
   var errStr="La dirección '" + emailStr + "' no tiene dominio."
   alert(errStr)
   return false
}

// If we've gotten this far, everything's valid!
return true;
}
//  End -->


 /** Valida un listado de emails separados por el caracter carac **/
  function emailsCheck( lista, carac )
  {
    var elementos = lista.split(carac);
    var part_num=0;
    while (part_num < elementos.length)
    {
      var email = elementos[part_num];
      if( emailCheck( trim(email) ) == false )  { return false; }
      part_num+=1;
    }
    return true;
  }

/////////////////////////////////////////////////
///             VALIDACION LONGITUD           ///
////////////////////////////////////////////////

function LimiteMaximo( campo, longitudMax )
{
  if( trim(campo.value).length > longitudMax )
  {
    alert("El campo supera la longitud máxima de " + longitudMax + " caracteres.");
    campo.focus()
    return false;
  }
  else return true;
}

/**
 * Selecciona un valor en una lista. No selecciona ninguno si no se encuentra dicho valor
 * @param value cadena con el valor a seleccionar
 * @param list lista select en la que se buscara
 * @param type tipo de valor. Si es de tipo "value" se buscara en las coincidencias value de las opciones, si 
 * es de tipo "text" en la coincidencias text
 */
function selectListValue( value, list, type)
{
  var find = false;
  var out = -1;
  for( i=0; i < list.options.length && !find; i++)
  {
    if( type == "value" )
	{
	  if( value.toUpperCase() == list.options[i].value.toUpperCase() )
	  {
	    find = true;
		  out = i;
	  }
	}
	else
	{
	  if( value.toUpperCase() == list.options[i].text.toUpperCase() )
	  {
	    find = true;
		  out = i;
	  }
	}
  }
  list.options.selectedIndex = out;
  
  return out;
 }

/**
 * Selecciona un valor en un radio. No selecciona ninguno si no se encuentra dicho valor
 * @param value cadena con el valor a seleccionar
 * @param list lista select en la que se buscara
 * @param type tipo de valor. Si es de tipo "value" se buscara en las coincidencias value de las opciones, si 
 * es de tipo "text" en la coincidencias text
 */
function selectRadioValue( value, list, type )
{
  if( value.length > 0 )
  {
    if( list != null )
    {
      for( i=0; i < list.length; i++)
      {
        if( type == "value" )
        {
          if( list[i].value.indexOf( value ) != -1 )
          {
            list[i].checked = true;
          }
        }
        else
        {
          if( value.toUpperCase() == list[i].text.toUpperCase() )
          {
            list[i].checked = true;
          }
        }
       }
     }
   }
}