//javascript:
// -----------------------------------------------------------------------
// 1999-2004 Código creado por Manuel de la Herrán Gascón 
// manu AT okte DOT com
// http://www.okte.com/ http://www.manuherran.com/ http://www.redcientifica.com/
// -----------------------------------------------------------------------
// abrirVentanaEmuladorWap
// abrirVentanaEnviarArticulo
// abrirVentanaSubirImagen
// abrirVentana
// openWindow
// wTextBox
// wTextBoxGrisViejo
// wBeginHtmlSelect
// wComboBoxItemDefaultOption
// fLongTodayDate
// fEngLongTodayDate
// fTrim
// fRightTrim
// fLeftTrim
// fReplaceChar
// isEmail
// isAlphanumeric
// isEmpty
// containsChar
// isNumber
// isGT
// isLT
// checkboxAll
// oReplaceCharInObject
// oRemoveSpacesInObject
// oFixEmailInObject
// fCheckBrowser
// fReplaceString
// fPopUpInit0001
// showPopup
// closePopup
// fMakeObj
// fWritePopUp
// fPopMouseMove
// wFilaTablaTest
// -----------------------------------------------------------------------
function abrirVentanaEmuladorWap(url) {
  window.open('http://www.cocotero.com/cgi-bin/emu/emulador.cgi?adonde='+url,'ventanaEmuladorWap','width=173,height=424,toolbar=no,location=no,directories=no,menubar=no,scrollbars=no,resizable=no')
}
// -----------------------------------------------------------------------
function abrirVentanaEmuladorWapNavegalia(url) {
  window.open('http://www.cocotero.com/cgi-bin/emu/emulador.cgi?navegalia='+url,'ventanaEmuladorWap','width=220,height=525,toolbar=no,location=yes,directories=no,menubar=no,scrollbars=no,resizable=no')
}
// -----------------------------------------------------------------------
function abrirVentanaEnviarArticulo(url) {
  window.open (url,'ventanaEnviarArticulo','toolbar=no,location=no,directories=no,menubar=no,scrollbars=yes,status=no,resizable=no,width=430,height=330');
}
// -----------------------------------------------------------------------
function abrirVentanaSubirImagen(url) {
  window.open ('/cgi-bin/upload/upload.php?action=form&doc='+url,'ventanaSubirImagen','toolbar=no,location=no,directories=no,menubar=no,scrollbars=yes,status=no,resizable=no,width=500,height=330');
}
// -----------------------------------------------------------------------
function abrirVentana(nombreVentana, url, width, height) {
  // Ejemplos de uso:
  // En href javascript:abrirVentana('rc', 'http://www.mhg71.com/', '430', '330');
  // En href javascript:abrirVentana('enk3', 'http://www.dng81.com/', '560', '430');
  window.open (url,'ventana_'+nombreVentana,'toolbar=no,location=no,directories=no,menubar=no,scrollbars=yes,status=no,resizable=no,width='+width+',height='+height);
}
// -----------------------------------------------------------------------
function openWindow(url, windowName, features) {
  // Ejemplo de uso: INICIO TAG a href="#" onClick="openWindow('/okte/contacto_pop.shtml','contacto','width=740,height=399')" hidefocus FIN TAG
  window.open(url, windowName, features);
}
// -----------------------------------------------------------------------
function wTextBox(name, size, maxlength, value) {
  if (navigator.appName == "Netscape") {
    if (size == '21') { size = '12'; }
    if (size == '31') { size = '19'; }
    if (size == '41') { size = '31'; }
    if (size == '51') { size = '41'; }
  }
  document.writeln('<input type="text" name="'+name+'" size="'+size+'" maxlength="'+maxlength+'" value="'+value+'">');
}       
// -----------------------------------------------------------------------
function wTextBoxGrisViejo(name, size, maxlength, value) {
  if (navigator.appName == "Netscape") {
    if (size == '21') { size = '11'; }
    if (size == '31') { size = '19'; }
    if (size == '41') { size = '31'; }
    if (size == '51') { size = '41'; }
  }
  document.writeln('<input type="text" name="'+name+'" size="'+size+'" maxlength="'+maxlength+'" value="'+value+'">');
  ////document.writeln('<input type="text" name="'+name+'" size="'+size+'" maxlength="'+maxlength+'" value="'+value+'" style="background-color:#dddddd;">');
}
// -----------------------------------------------------------------------
function wBeginHtmlSelect(name) {
  if (navigator.appName == "Netscape") {
    document.writeln('<SELECT NAME="'+name+'">');
  } else {
    //document.writeln('<SELECT NAME="'+name+'" style="background-color:#dddddd;">');
    document.writeln('<SELECT NAME="'+name+'">');
  }
}       
// -----------------------------------------------------------------------
function wComboBoxItemDefaultOption(item, defaultItem) {
  if (item == defaultItem) {
    document.writeln('<option value="'+item+'" SELECTED>'+item);
  } else {
    document.writeln('<option value="'+item+'">'+item);
  }
}       
// -----------------------------------------------------------------------
function fLongTodayDate() {
  currentTime = new Date();
  var listaDays = new Array ("Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado");
  var listaMonths = new Array ("Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre");
  var day = currentTime.getDay();
  var mon = currentTime.getMonth();
  var year = currentTime.getYear()
  if (year > 100 && year < 2000) {
    year = year + 1900;
  }
  return (listaDays[day] + ", " + currentTime.getDate() + " de " + listaMonths[mon] + " de " + year);
}
// -----------------------------------------------------------------------
function fEngLongTodayDate() {
  currentTime = new Date();
  var listaDays = new Array ("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday");
  var listaMonths = new Array ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");
  var day = currentTime.getDay();
  var mon = currentTime.getMonth();
  var year = currentTime.getYear()
  if (year > 100 && year < 2000) {
    year = year + 1900;
  }
  return (listaDays[day] + ", " + currentTime.getDate() + " " + listaMonths[mon] + " " + year);
}
// -----------------------------------------------------------------------
function fTrim(cadena) {
  cadena = fLeftTrim(cadena);
  cadena = fRightTrim(cadena);
  return cadena;
}
// -----------------------------------------------------------------------
function fRightTrim(cadena) {
  var ptr = cadena.length-1;
  while((cadena.charAt(ptr) == " ") && (ptr > 0))
    ptr--;
  return cadena.substring(0, ptr+1);
}
// -----------------------------------------------------------------------
function fLeftTrim(cadena) {
  var ptr = 0;
  var longitudCadena = cadena.length;
  while((cadena.charAt(ptr) == " ") && (ptr < longitudCadena))
    ptr++;
  return cadena.substring(ptr, longitudCadena);
}
// -----------------------------------------------------------------------
function fReplaceChar(cadena, carBuscar, carReemplazar) {
  var ptr = 0;
  var ret = "";
  var car = "";
  var longitudCadena = cadena.length;
  car = cadena.charAt(ptr);
  while(ptr < longitudCadena) {
    if (car == carBuscar) {
      car = carReemplazar;
    }
    ret = ret + car;
    ptr++;
    car = cadena.charAt(ptr);
  }
  return ret;
}
// -----------------------------------------------------------------------
function isEmail(campo) {
  if (/^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$/.test(campo))
    return true;
  else
    return false;
}
// -----------------------------------------------------------------------
function isAlphanumeric(campo) {
  re = new RegExp("[^A-Za-z0-9_]")
  if (re.test(campo))
    return false;
  else
    return true;
}
// -----------------------------------------------------------------------
function isEmpty(campo) {
  return (campo == '');
}
// -----------------------------------------------------------------------
function containsChar(campo, caracter) {
  var length = campo.length;
  var i = 0;
  while (i < length) {
    if (campo.charAt(i) == caracter) return true;
    i++;
  }
  return false;
}
// -----------------------------------------------------------------------
function isNumber(campo) {
  var length = campo.length;
  var i = 0;
  while (i < length) {
    if (
      (campo.charAt(i) != "0") && 
      (campo.charAt(i) != "1") && 
      (campo.charAt(i) != "2") && 
      (campo.charAt(i) != "3") && 
      (campo.charAt(i) != "4") && 
      (campo.charAt(i) != "5") && 
      (campo.charAt(i) != "6") && 
      (campo.charAt(i) != "7") && 
      (campo.charAt(i) != "8") && 
      (campo.charAt(i) != "9")
      )
      return false; 
    i++;
  }
  return true;
}
// -----------------------------------------------------------------------
function isGT(campo, valor) {
  if (campo > valor)
    return true; 
  else
    return false;
}
// -----------------------------------------------------------------------
function isLT(campo, valor) {
  if (campo < valor)
    return true; 
  else
    return false;
}
// -----------------------------------------------------------------------
function checkboxAll() {
  for (var i=0;i<document.forms[0].elements.length;i++) {
    var myItem = document.forms[0].elements[i];
    if (myItem.name != 'selectall')
      myItem.checked = document.forms[0].selectall.checked;
  }
}
// -----------------------------------------------------------------------
function oReplaceCharInObject(object, carBuscar, carReemplazar) {
  object.value = fReplaceChar(object.value, carBuscar, carReemplazar);
  object.focus();
}
// -----------------------------------------------------------------------
function oRemoveSpacesInObject(object) {
  object.value = fTrim(object.value);
  object.focus();
}
// -----------------------------------------------------------------------
function oFixEmailInObject(object) {
  oReplaceCharInObject(object, "(", "")
  oReplaceCharInObject(object, ")", "")
  oReplaceCharInObject(object, "<", "")
  oReplaceCharInObject(object, ">", "")
  oReplaceCharInObject(object, "$", "")
  oReplaceCharInObject(object, "%", "")
  oReplaceCharInObject(object, ",", ".")
  oReplaceCharInObject(object, ";", ".")
  oReplaceCharInObject(object, ":", ".")
  oRemoveSpacesInObject(object);
  object.focus();
}
// -----------------------------------------------------------------------
function fCheckBrowser(){
 	this.ver = navigator.appVersion;
 	this.dom = document.getElementById?1:0;
 	this.ie5 = (this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0;
 	this.ie4 = (document.all && !this.dom)?1:0;
 	this.ns5 = (this.dom && parseInt(this.ver) >= 5) ?1:0;
 	this.ns4 = (document.layers && !this.dom)?1:0;
 	this.brw = (this.ie5 || this.ie4 || this.ns4 || this.ns5);
 	this.ieoth = (!this.ie4 && !this.ie5 && navigator.appName.indexOf("Microsoft")>-1 && navigator.appName.indexOf("Internet")>-1 && navigator.appName.indexOf("Explorer")>-1)?1:0;
 	return this;
}
// -----------------------------------------------------------------------
function fReplaceString(strAll, strBuscar, strReemplazar) {
  var ret = strAll;
  var ptr = 0;
  while (ret.indexOf(strBuscar) > -1) {
    ptr = ret.indexOf(strBuscar);
    ret = ret.substring(0, ptr) + strReemplazar + ret.substring(ptr + strBuscar.length, ret.length);
  } 
  return ret;
}
// -----------------------------------------------------------------------
function fPopUpInit0001(){
  objPopUp = new fMakeObj('divPopUp0001');
  if (brw.ns4) {
    document.captureEvents(Event.MOUSEMOVE);
  }
  document.onmousemove = fPopMouseMove;
  isLoaded = true;
}	
// -----------------------------------------------------------------------
function showPopup(type, msg){
  var shiftX, shiftY;

  if (isLoaded) {
    if (type == 'img_big') {
      shiftX = 50;
      shiftY = -20;
      freeX = 400;
      freeY = 300;
      //objPopUp.css.width = 1; 
    } else if (type == 'txt_small') {
      shiftX = 5;
      shiftY = -2;
      freeX = 40;
      freeY = 30;
      //objPopUp.css.width = 300;
    } else {
      shiftX = 50;
      shiftY = -20;
      freeX = 40;
      freeY = 30;
      //objPopUp.css.width = 300;
    }
    msg = fReplaceString(msg, '###:::Quote:::###', '"');

    //msg = navigator.appName+'-'+navigator.appVersion+'-'+brw.brw+'-'+brw.ie5+msg;
    //msg = '('+coordX+','+coordY+'_'+document.body.scrollTop+')'+' '+'('+screen.width+','+screen.height+')'+msg;
    //msg = type+' '+freeX+' '+msg;

    if (type == 'img_big') {
     	objPopUp.writeIt('<span class="estiloPopUp0001imgbig">'+msg+'</span>');
    } else if (type == 'txt_small') {
     	objPopUp.writeIt('<span class="estiloPopUp0001txtsmall">'+msg+'</span>');
    } else {
     	objPopUp.writeIt('<span class="estiloPopUp0001imgbig">'+msg+'</span>');
    }
   	coordX = coordX + shiftX;
    coordY = coordY + shiftY;
   	if (brw.ie5 || brw.ieoth) {
      coordY = coordY + document.body.scrollTop;
    }
    if (coordX + freeX > screen.width) {
      coordX = freeX;
    }
    //if (coordY + freeY > screen.height) {
    //  coordY = coordY - freeY;
    //}
   	objPopUp.css.left = coordX;
    objPopUp.css.top = coordY;
   	objPopUp.css.visibility = 'visible';
  }
}
// -----------------------------------------------------------------------
function closePopup(){
 	if (isLoaded) {
    objPopUp.css.visibility = 'hidden';
  }
}
// -----------------------------------------------------------------------
function fMakeObj(obj){								
 	this.css = brw.dom? document.getElementById(obj).style:brw.ie4?document.all[obj].style:brw.ns4?document.layers[obj]:0;	
 	this.wref = brw.dom? document.getElementById(obj):brw.ie4?document.all[obj]:brw.ns4?document.layers[obj].document:0;		
 	this.writeIt = fWritePopUp;																
 	return this;
}
// -----------------------------------------------------------------------
function fWritePopUp(text) {
  if (brw.ns4) {
    this.wref.write(text);
    this.wref.close();
  } else {
    this.wref.innerHTML = text;
  }
}
// -----------------------------------------------------------------------
function fPopMouseMove(e) {
  coordX = brw.ns4?e.pageX:event.x; 
  coordY = brw.ns4?e.pageY:event.y;
}
// -----------------------------------------------------------------------
function wFilaTablaTest(num, pregunta) {
  document.writeln('<tr><td bgcolor="#E6E6E6" align="right"><font color="#000000" size="1" face="Verdana">' + pregunta + '</font></td>');
  document.writeln('<td bgcolor="#E6E6E6" align="center"><font color="#000000" size="1" face="Verdana">P<sub>' + num + '</sub>&nbsp;');
  document.writeln('<SELECT NAME="respuesta_v_' + num + '">');
  document.writeln('<option value="0">0');
  document.writeln('<option value="1">1');
  document.writeln('<option value="2">2');
  document.writeln('<option value="3">3');
  document.writeln('<option value="4">4');
  document.writeln('<option value="5" SELECTED>5');
  document.writeln('<option value="6">6');
  document.writeln('<option value="7">7');
  document.writeln('<option value="8">8');
  document.writeln('<option value="9">9');
  document.writeln('<option value="10">10');
  document.writeln('</SELECT>');
  document.writeln('</font></td>');
  document.writeln('<td bgcolor="#E6E6E6" align="center"><font color="#000000" size="1" face="Verdana">I<sub>' + num + '</sub>&nbsp;<INPUT TYPE="TEXT" NAME="respuesta_p_' + num + '" SIZE="3" VALUE="5"></font></td></tr>');
}       
// -----------------------------------------------------------------------