/* Begin - Validando correo */
function numero_veces(cadena,caracter)
{
	var numVeces=0;

	while (cadena.indexOf(caracter,0)!=-1)
	{
		numVeces++;
		cadena=cadena.substr(cadena.indexOf(caracter,0)+1);
	}
	return numVeces;
}

function reversa(cadena)
{
	var resultado="";

	while (cadena!="")
	{
		resultado=resultado.concat(cadena.substr(cadena.length-1));
		cadena=cadena.substr(0,cadena.length-2);
	}
	return resultado;
}

function es_email(email)
{
	var cadena = email.value;
	var flag=true;

	//si hay espacios en blanco...
	if (cadena.indexOf(" ")!=-1)
		flag=false;
	//debe haber un único "@" en el medio de la cadena, así como no son
	//permitidos: "@.", ".@" o ".."
	//no puede empezar o terminar en "." o "@"
	//por lo menos debe haber un "."
	if ((numero_veces(cadena,"@")!=1) || (cadena.indexOf("@")==0) ||
		(numero_veces(cadena,".")==0) || (cadena.indexOf(".")==0) ||
		(cadena.indexOf("..")!=-1) ||
		(cadena.indexOf("@.")!=-1) || (cadena.indexOf(".@")!=-1) ||
		(reversa(cadena).indexOf(".")==0) ||
		(reversa(cadena).indexOf("@")==0))
		flag=false;
	//por lo menos debe haber un "." después de "@"
	cadena = cadena.substr(cadena.indexOf("@")+1);

	if (cadena.indexOf(".")==-1)
		flag=false;
	return flag;
}

function valida_mail(email)
{
	if (email.value.length!=0)
	{
		if (es_email(email))
			return true;
		else
			return false;
	}
	else
		return false;
}
/* End - Validando correo */


/* Begin - Validando extensiones del file */
function LimitAttach(tField, iType)
{
	file=tField.value;
	
	if (iType==1)
	{
		extArray = new Array(".gif",".jpg",".png");
	}
	
	if (iType==2)
	{
		extArray = new Array(".swf");
	}
	
	if (iType==3)
	{
		extArray = new Array(".exe",".sit",".zip",".tar",".swf",".mov",".hqx",".ra",".wmf",".mp3",".qt",".med",".et");
	}
	
	if (iType==4)
	{
		extArray = new Array(".mp3", ".flv");
	}
	
	if (iType==5)
	{
		extArray = new Array(".html",".htm",".shtml");
	}
	
	if (iType==6)
	{
		extArray = new Array(".doc",".xls",".ppt");
	}
	
	if (iType==7)
	{
		extArray = new Array(".txt",".htm",".html",".pdf",".swf");
	}

	allowSubmit = false;
	if (!file) return;

	while (file.indexOf("\\") != -1) file = file.slice(file.indexOf("\\") + 1);
	ext = file.slice(file.indexOf(".")).toLowerCase();
	for (var i = 0; i < extArray.length; i++)
	{
		if (extArray[i] == ext)
		{
			allowSubmit = true;
			break;
		}
	}

	if (!allowSubmit) 
	{
		alert("Usted sólo puede subir archivos con extensión " + (extArray.join(" ")) + "\nPor favor seleccione un nuevo archivo");
	}
	else
	{
		return true;
	}
}
/* End - Validando extensiones del file */

/* Begin - Validando radios */
function verifica_radio()
{
	var correcto = false;
	for (var i=0; i<document.myForm.elements.length; i++)
	{
		var elemento = document.myForm.elements[i];
		if ((elemento.type=="radio") && elemento.checked)
		{
			correcto = true;
		}
	}
	if (correcto==false)
	{
		return false;
	}
	else
	{
		return true;
	}
}
/* End - Validando radios */

/*------------------------------------------------------------*/
		/* Begin - Script para conteo de caracteres */

/* This script and many more are available free online at
The JavaScript Source!! http://javascript.internet.com
Created by: Steve | http://jsmadeeasy.com/ */
/*------------------------------------------------------------*/

function getObject(obj) {
  var theObj;
  if(document.all) {
    if(typeof obj=="string") {
      return document.all(obj);
    } else {
      return obj.style;
    }
  }
  if(document.getElementById) {
    if(typeof obj=="string") {
      return document.getElementById(obj);
    } else {
      return obj.style;
    }
  }
  return null;
}

function toCount(entrance,exit,text,characters) {
  var entranceObj=getObject(entrance);
  var exitObj=getObject(exit);
  var length=characters - entranceObj.value.length;
  if(length <= 0) {
    length=0;
    text='<span class="disable"> '+text+' </span>';
    entranceObj.value=entranceObj.value.substr(0,characters);
  }
  exitObj.innerHTML = text.replace("{CHAR}",length);
}

/*------------------------------------------------------------*/
		/* End - Script para conteo de caracteres */
/*------------------------------------------------------------*/