function fechahoy() {
 var mydate=new Date();
 var year=mydate.getYear();
 if (year < 1000) year+=1900;
 var day=mydate.getDay();
 var month=mydate.getMonth();
 var daym=mydate.getDate();
 if (daym<10) daym="0"+daym;
 var dayarray=new Array("Domingo","Lunes","Martes","Miércoles","Jueves","Viernes","Sábado");
 var montharray=new Array("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre");
 document.write(dayarray[day]+", "+daym+" de "+montharray[month]+" de "+year+".-");
 return true;
}

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 Sttpon(num) {
 Stpon(blurb[num]);
}

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";
 xxw=window.open(scrfile,nombre,aaa);
 xxw.focus();
}

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);
 return true;
}

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:" + d + rlnk + x[0]
 if (cl.length>0) z+= " 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+=">" + txt + "</a>";
 document.write(z);
 return true;
}

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) {
  Xspacios(e);
  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);
}

function popup(scre,aa,ancho,alto) {
	var aaa='width='+ancho+',height='+alto+',toolbar=no,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no,top=0,left=0'
	srcfile=scre;
	window.open(srcfile,aa,aaa);
}


function getStyleObject(objectId) {
	if(document.getElementById && document.getElementById(objectId)) {
		return document.getElementById(objectId).style;
	} else if (document.all && document.all(objectId)) {
		return document.all(objectId).style;
	} else if (document.layers && document.layers[objectId]) {
		return document.layers[objectId];
	} else {
		return false;
	}
}


function changeObjectVisibility(objectId, newVisibility) {
	var styleObject = getStyleObject(objectId);
	if(styleObject) {
		styleObject.visibility = newVisibility;
		return true;
	} else {
		return false;
	}
}

function getObj(name) {
	if (document.getElementById) {
		return document.getElementById(name).style;
	} else {
		if (document.all) {
			return document.all[name].style;
		} else {
			if (document.layers) {
				return document.layers[name];
			}
		}
	}
	return false;
}

function changeMydiv(a,b) {
	var j1=getObj(a);
	var j2=getObj(b);
	if (j1 && j2) {
		j2.visibility = 'visible';
		j1.visibility = 'hidden';
	}
}