function HaceStringArray(n) {
 this.length = n;
 for (var i = 1; i<=n; i++) {
  this[i] = new String();
 }
 return this;
}

function o_bot(num) {
if (document.images) {
 if (num) document.images['b'+num].src=iarr[num].src;
 }
}

function a_bot(num) {
if (document.images) {
 if (num) document.images['b'+num].src=iaba[num].src;
 }
}

function msover(num) {
 a_bot(num);
 Stpon(blurb[num]);
}

function msout(num) {
 o_bot(num);
 Stnor();
}

function Stnor() {
 Stpon(stdefault);
}

function Stpon(Stmsg) {
 window.status=Stmsg;
}

function ventana(scrfile,nombre,ancho,alto) {
 var aaa="width="+ancho+",height="+alto+",toolbar=no,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no,top=0,left=0";
 window.open(scrfile,nombre,aaa);
}

function ventanafix(scrfile,nombre,ancho,alto) {
 var aaa="width="+ancho+",height="+alto+",toolbar=no,directories=no,status=no,scrollbars=no,resizable=no,menubar=no,top=0,left=0";
 window.open(scrfile,nombre,aaa);
}

function mkdirlima(u1,u2,u3,d1,d2,d3,cl,rlnk,msgst) {
 var x=new Array('"','@',"'");
 var d= u2 + u3 + u1 + x[1] + d3 + d1 + d2;
 var z="<a href=";
 z+=x[0] + "mailto:" + d + rlnk + x[0] + " class=" + x[0] + cl + x[0];
 z+=" onMouseOut=" + x[0] + "Stnor();return true" + x[0];
 z+=" onMouseOver=" + x[0] + "Stpon(" + x[2] + msgst + x[2] + "); return true" + x[0];
 z+=">" + d + "</a>";
 document.write(z);
}

function mkdirliman(u1,u2,u3,d1,d2,d3,cl,txt,rlnk,msgst) {
 var x=new Array('"','@',"'");
 var d= u2 + u3 + u1 + x[1] + d3 + d1 + d2;
 var z="<a href=";
 z+=x[0] + "mailto:" + txt + rlnk + x[0] + " class=" + x[0] + cl + x[0];
 z+=" onMouseOut=" + x[0] + "Stnor();return true" + x[0];
 z+=" onMouseOver=" + x[0] + "Stpon(" + x[2] + msgst + x[2] + "); return true" + x[0];
 z+=">" + d + "</a>";
 document.write(z);
}

function trimDoublepacex(v) {
	var t = v;
	var obj = '  ';
	var obj2 = ' ';
	var i=1;
	while (i != -1) {
		i=t.search(obj);
		if (i != -1) {
			t= t.replace(obj, obj2);
		}
	}
	return t;
}

function trimDoublepace(e) {
	var xx = '  ';
	var re = new RegExp(xx, "g");
	var rx = /  /;
	var obj2 = ' ';
	var t=e.value;
	while (rx.test(t)) {
		t=t.replace(re, obj2);
	}
	e.value=t;
	return true;
}

function trimWhitespace(str) {
	var newSt  = '';
	var subst  = '';
	beginningFound = false;
	for (var i = 0; i < str.length; i++) {
		if (str.charAt(i) != ' ' && str.charCodeAt(i) != 9) {
			if (subst != '') {
				newSt += subst;
				subst = '';
			}
			newSt += str.charAt(i);
			if (beginningFound == false) {
				beginningFound = true;
			}
		} else {
			if (beginningFound == true) subst += str.charAt(i);
		}
	}
	return newSt;
}

function amayusculas(str) {
	return str.toUpperCase(str);
}

function aminusculas(str) {
	return str.toLowerCase(str);
}

function emailCheck(emailStr) {
  var checkTLD=1;
  var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum|es|tv|us|ws)$/;
  var emailPat=/^(.+)@(.+)$/;
  var specialChars="\\(\\)><@,;:\\\\\\\"\\.\\[\\]";
  var validChars="\[^\\s" + specialChars + "\]";
  var quotedUser="(\"[^\"]*\")";
  var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
  var atom=validChars + '+';
  var word="(" + atom + "|" + quotedUser + ")";
  var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
  var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
  var matchArray=emailStr.match(emailPat);
  if (matchArray==null) {
    return false;
  }
  var user=matchArray[1];
  var domain=matchArray[2];
  for (i=0; i<user.length; i++) {
    if (user.charCodeAt(i)>127) {
      return false;
    }
  }
  for (i=0; i<domain.length; i++) {
    if (domain.charCodeAt(i)>127) {
      return false;
    }
  }
  if (user.match(userPat)==null) {
    return false;
  }
  var IPArray=domain.match(ipDomainPat);
  if (IPArray!=null) {
    for (var i=1;i<=4;i++) {
      if (IPArray[i]>255) {
        return false;
      }
    }
    return true;
  }
  var atomPat=new RegExp("^" + atom + "$");
  var domArr=domain.split(".");
  var len=domArr.length;
  for (i=0;i<len;i++) {
    if (domArr[i].search(atomPat)==-1) {
      return false;
    }
  }

  if (checkTLD && domArr[domArr.length-1].length!=2 && domArr[domArr.length-1].search(knownDomsPat)==-1) {
    return false;
  }

  if (len<2) {
    return false;
  }
  return true;
}

function VeriLogin(f) {
	if (CheckLogin(f)) {
		f.submit();
	}
	return false;
}

function CheckLogin(f) {
	Lspacios(f.tuemail);
	Lspacios(f.tuclave);
	if (f.tuemail.value=='') {
		alert('Ingrese la dirección E-mail con la cual se registro');
		f.tuemail.focus();
		return false;
	} else {
		if (!emailCheck(f.tuemail.value)) {
			alert('Ingresó una dirección E-mail no Válida');
			f.tuemail.focus();
			return false;
		}
	}
	if (f.tuclave.value=='') {
		alert('Ingresa la clave con la cual se registro');
		f.tuemail.focus();
		return false;
	}
	f.submit();
	return true;
}

function valfechabis(a1,a2,a3) {
	var dayarray=new Array(0,31,28,31,30,31,30,31,31,30,31,30,31);
	var anio=parseInt(a1,10);
	var dia=parseInt(a3,10);
	var mes=parseInt(a2,10);
	if ((mes < 1) || (mes > 12)) {
		alert('Los meses de Año son 12 (DOCE)');
		return false;
	}
	if (anio % 100 == 0) {
		if (anio % 400 == 0) {
			dayarray[2]=29;
		}
	} else {
		if (anio % 4 == 0) {
			dayarray[2]=29;
		}
	}
	if ((dia < 1) || (dia > dayarray[mes] )) {
		alert('No existe el Día para el Mes y Año Especificado. [01..'+dayarray[mes]+']');
		return false;
	}
	return true;
}

function numerochk(v) {
 var numero =  /^[0-9]+$/;
 return numero.test(v);
}

function Uspacios(e) {
 e.value=trimWhitespace(e.value);
 trimDoublepace(e);
 e.value=amayusculas(e.value);
}

function Lspacios(e) {
 e.value=trimWhitespace(e.value);
 trimDoublepace(e);
 e.value=aminusculas(e.value);
}

function Xspacios(e) {
 e.value=trimWhitespace(e.value);
 trimDoublepace(e);
}

function xcontenido(e) {
 Uspacios(e);
 return true;
}

function rcontenido(e) {
 Uspacios(e);
 if (e.value=='') {
  alert('Debes ingresar algo');
  return false;
 }
 return true;
}

function xnumero(e) {
 Lspacios(e);
 if (!numerochk(e.value)) {
  e.value='';
  alert('Sólo valores numéricos');
  return false;
 }
 return true;
}

function xmail(e) {
 Lspacios(e);
 if (!emailCheck(e.value)) {
  alert('Verifique la Dir. de Correo Ingresada');
  return false;
 }
 return true;
}

function xcheck(e,m) {
 var r=true;
 if (m) {
  Uspacios(e);
 } else {
  Lspacios(e);
 }
 if (e.value=='') {
  r= false;
 }
 return r;
}

function ctrl_textarea(e,l,msg) {
 var newSt  = '';
 var ll = parseInt(l,10)-5;
 var rr=true;
 if (e.value.length > 0) {
  if (e.value.length > l) {
   newSt += e.value.substring(0,ll);
   alert(msg+', fué recortado\n ya que sobrepasaba los '+l+' caracteres,\nverifique por favor.');
   e.value=newSt;
   rr=false;
  }
 }
 return rr;
}

function verifecha(a,m,d) {
 r=true;
 if (!numerochk(a.value)) {
  r=false;
 } else {
  if (!numerochk(m.value)) {
   r=false;
  } else {
   if (!numerochk(d.value)) {
    r=false;
   }
  }
 }
 return r;
}

function verificaclave(a) {
 var mipass = /^[a-zA-Z0-9]{5,10}/;
 return mipass.test(a);
}

function checkpass(e) {
 Lspacios(e);
 if (!verificaclave(e.value)) {
  alert('Sólo se permiten letras[a-z] y números[0-9] para la Palabra Clave, y entre 5 y 10 caracteres\nNo se diferencia Mayúsculas de Minúsculas');
  return false;
 }
 return true;
}

function verianio(a) {
 var anio=parseInt(a,10);
 if ((anio>=1920) && (anio<=2004)) return true;
 return false;
}

function agranda(aa,bb) {
 var aaa='width=500,height=360,toolbar=no,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no,top=0,left=0';
 srcfile='xfoto.php';
 foto=bb;
 window.open(srcfile,aa,aaa);
}