// Para contabilizar las salidas controladas

// direccion: direccion donde se dirigira despues de salir.
// codigo: codigo asignado
// newventana : si, indica que lo hace en una nueva ventana. entonces se aplica ancho y alto

function out (direccion, codigo, newventana, ancho, alto) {

  // grabamos la salida controlada
  sysout = new Image ();
  sysout.src = "http://ctxlog.doyma.es/cgi-bin/wdbcgi.exe/statistics/doc?co="+codigo;


  if (ancho==null) { ancho = 800; }
  if (alto==null) { alto = 600; }


  // nos redirigimos a la web.
  if (newventana=="si") {
      NW=window.open(direccion,"Ventana","toolbar=yes,location=yes,directories=yes,scrollbars=yes,status=yes,menubar=yes,resizable=yes,width="+ancho+",height="+alto);
  } else {
    window.location = direccion;
  }
}


// Zona de entrada controlada, se intenta ejecutar siempre a partir de la url.
// Precaucion: las secciones que se quiera controlar su entrada se debe añadir
// en el oracle un parametro varchar2 llamado 'inctrl' default null. Aunque luego
// no se hace nada con él en el oracle pero si con javascript.

var url = document.URL;
var pos = url.indexOf("inctrl");
if (pos != -1 ) {
   var codigo = url.substr(pos+7,8);
   if (codigo.length == 8 ) {
      // grabamos la entrada controlada
      sysin = new Image ();
      sysin.src = "http://ctxlog.doyma.es/cgi-bin/wdbcgi.exe/statistics/doc?co="+codigo;
   }
}