var l_atributo = String("wulpges_ev") ;
var l_zona = String("aplica") ;
var l_zona_carga = String("cargando") ;
var l_zonas = new Array(l_zona) ;

var objEv = new Array() ;
var attr_form = 1 ;

var cargando = null ;
var array_zonas = new Array() ;

var aplicaciones = false ;

var asincrono = true ;

var http_s = new Array() ;
var ErrorAJAX = new Error ("No es posible crear una instancia XMLHTTP");

var var_wulpges = new Array() ;

var lista_eventos = new Array() ;

var old_onload ;

function Zona_Blink(n_zona)
{
  if (array_zonas[n_zona].blink)
    array_zonas[n_zona].Mostrar() ;
  else
    array_zonas[n_zona].Ocultar() ;
	
  array_zonas[n_zona].blink = !array_zonas[n_zona].blink ;
}
	

function visibilidad_Cascada(lid,parametro)
{
  lid.style.visibility = parametro ;
  for(var i=0;i<lid.childNodes.length;i++)
    if ((lid.childNodes[i].tagName == 'DIV')||(lid.childNodes[i].tagName == 'SPAN'))
	  visibilidad_Cascada(lid.childNodes[i],parametro) ;
}


function Zona(la_zona)
{
  this.k = array_zonas.length ;
  array_zonas[this.k] = this ;
  
  this.nombre = la_zona ;
  this.div = document.getElementById(la_zona) ;
  
  if (this.div)
    this.style = this.div.style ;
  
  this.Texto = function(nuevo_texto)
               {
			     if (!this.div) return ;
				 if (nuevo_texto==null) return ; 
                 this.div.innerHTML = nuevo_texto ;
			   } ;
  this.Mostrar = function(nuevo_texto)
                 {
				   if (!this.div) return ; 
				   this.Texto(nuevo_texto) ;
				   visibilidad_Cascada(this.div,'visible') ;
				 } ;				 
  this.Ocultar = function() 
                 {
				   if (!this.div) return ;
				   visibilidad_Cascada(this.div,'hidden') ;
				 } ;
				 
  this.Visible = function()
            {
			  if (!this.div) return false ; 
			  return (this.div.style.visibility != 'hidden')
			} ;
				 
  this.Alternar = function()
            {
			  if (this.Visible())
			    this.Ocultar() ;
			  else
			    this.Mostrar() ;
			    
			} ;
			
 
			  
  this.id_blink = null ;
  this.blink = true ;

  this.Blink = function(intervalo)
               {
				 if (!this.div) return ;
			     if (this.id_blink) return ;
				 this.Mostrar() ;
				 this.blink = false ;
                 this.id_blink = setInterval("Zona_Blink("+this.k+")",intervalo) ;
			   } ;

  this.unBlink = function(ocultar)
                 {
				   if (!this.div) return ;
				   if (!this.id_blink) return ;
				   clearInterval(this.id_blink) ;
				   this.id_blink = null ;
				   this.blink = true ;
				   if (ocultar)
				     this.Ocultar() ;
				 } ;
}


function AJAX_ZONE(la_zona)
{
  this.peticion = null ;
  this.k = -1 ;
  
  if (la_zona)
    this.zona = new Zona(la_zona) ;
  else
    this.zona = null ;

  if (window.XMLHttpRequest)
  {
    this.peticion = new XMLHttpRequest() ;
	/*
	if (this.peticion.overrideMimeType)
	{
	  this.peticion.overrideMimeType('text/html') ;
    }
	*/
  }
  else if (window.ActiveXObject)  // IE
  {
    try
	{
	  this.peticion = new ActiveXObject("Msxml2.XMLHTTP");
    }
	catch (e)
	{
      try
	  {
		this.peticion = new ActiveXObject("Microsoft.XMLHTTP");
      } 
	  catch (e) 
	  {
	  }
    }	
  }
  if (!this.peticion)
  {
    alert('No es posible crear una instancia XMLHTTP');
	throw ErrorAJAX ;
  }
  
  for(this.k=0;this.k<http_s.length;this.k++)
    if (!http_s[this.k])
	  break ;
	  
  http_s[this.k] = this ;
  
  this.Fin = function() { if (!this.peticion) return ; http_s[this.k] = false ; } ;
}


function Refrescar(zona,enlace,pars)
{
  if ((top.length > 1)&&((zona == l_zona)||(zona=="menu")))
  { // FRAMES
    for(var i=0;i<top.length;i++)
	  if (top.frames[i].name == zona)
	  {
		if (parametros)
  	      top.frames[i].open(enlace+"?"+pars, zona) ;
		else
		  top.frames[i].open(enlace, zona) ;
		break ;
	  }
  }
  else
  {	 // NO FRAMES
    aj = new AJAX_ZONE(zona) ;
	
	var asincro = asincrono ;
	
	if ((aj.zona) && (asincrono))
	{
	  aj.peticion.onreadystatechange = Ver ;
	}
	else
	{
      asincro = false ;
	}    
    
    if (pars)
	  aj.peticion.open('POST', enlace, asincro) ;
	else
	  aj.peticion.open('GET', enlace, asincro) ;
	
	aj.peticion.setRequestHeader("AJAX","1") ;
	if (aplicaciones)
	  aj.peticion.setRequestHeader("APLICACIONES","1") ;
	  
    aj.peticion.setRequestHeader("Accept_charset","utf-8") ;
	
	if (pars)
	{
	  aj.peticion.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
	  aj.peticion.send(pars);
	}
    else
	  aj.peticion.send(null);

	if (!asincro)
	{
	  var resultado = aj.peticion.responseText ;
	  if (aj.zona)
	  {		
	    aj.zona.Mostrar(resultado) ;
		resultado = false ;
	  }
	  aj.Fin() ;
	  return resultado ;
	}
	return false ;
  }
}


function Serializa(formulario)
{
  var el = String("") ;

  for(var i=0;i<formulario.elements.length;i++)
    if (formulario.elements[i].name.length > 0)
	{
	  if (formulario.elements[i].type == "radio")
	  {
		if (formulario.elements[i].checked)
		  el += (el.length > 0 ? "&":"")+formulario.elements[i].name + "=" + encodeURIComponent(formulario.elements[i].value) ;
	  }
	  else if (formulario.elements[i].type == "checkbox")
	  {
		el += (el.length > 0 ? "&":"")+formulario.elements[i].name + "=" ;
	    if (formulario.elements[i].checked)
		  el += (formulario.elements[i].value ? encodeURIComponent(formulario.elements[i].value):"S") ;
	  }
	  else if (formulario.elements[i].type == "select-multiple")
	  {
		for(var k=0;k<formulario.elements[i].length;k++)
		  if (formulario.elements[i].options[k].selected)
	        el += (el.length > 0 ? "&":"")+encodeURIComponent(formulario.elements[i].name) + "=" + formulario.elements[i].options[k].value ;
	  }
	  else
	  {
	    el += (el.length > 0 ? "&":"")+formulario.elements[i].name + "=" + encodeURIComponent(formulario.elements[i].value) ;
	  }
	}
  return (el.length >0 ? el:false) ;
}


function Refresh(formulario_target, formulario_direccion, formulario_parametros)
{
  var direccion = String("") ;
  var target = String("") ;
  var parametros = String("") ;
  
  var url = String("") ;
  var resto_url = String("") ;
  
  try
  {
    switch (Refresh.arguments.length)
    {
	  case 1 : if (formulario_target.action)
	           { 
	             target = formulario_target.target ;
	             direccion = formulario_target.action ;
	             parametros = Serializa(formulario_target) ;
			   }
			   else if (formulario_target.href)
	           { 
	             target = formulario_target.target ;
	             direccion = formulario_target.href ;
			   }
			   break ;
	  case 2 : target = formulario_target ;
	           direccion = formulario_direccion ;
			   break ;
	  case 3 : target = formulario_target ;
	           direccion = formulario_direccion ;
			   if (formulario_parametros.hasChildNodes)
                 parametros = Serializa(formulario_parametros) ;
			   else
			     parametros = formulario_parametros ;
			   break ;
	  default:
	    return false ;
	}	  
  }
  catch (e)
  {
    return false ;
  }
  
  var pos = direccion.indexOf('?') ;
  if (pos != -1)
  {
    url = direccion.substr(0,pos) ;
	resto_url = direccion.substr(pos+1, direccion.length-1) ;
	pos = resto_url.indexOf('?') ;
    if (pos != -1)
	{
	  resto_url = resto_url.substr(0,pos) + '&' + resto_url.substr(pos+1, resto_url.length-1) ;
	}
  }
  else
  {
    url = direccion ;
  }
  
  var todos_parametros = resto_url ;
  if (parametros)
    todos_parametros += (resto_url.length > 0 ? "&":"") + parametros ;

  return Refrescar((target.length>0 ? target:l_zona),url,(todos_parametros.length > 0 ? todos_parametros:false)) ;
}


function Saltar(target, direccion, parametros_salto)
{
  return Refresh(target, direccion, parametros_salto) ;
}


function Someter(formulario)
{
  return Refresh(formulario) ;
  //.target, formulario.action, Serializa(formulario)) ;
}


function Referencia(formulario)
{
//  var dummy = Someter(formulario) ;
  var dummy = Refresh(formulario) ;
}


function Opcion(zona,enlace)
{
  var dummy = Refresh(zona,enlace) ;
//  Refrescar(zona,enlace,false) ;
}


function Ir(target, direccion, formulario)
{
  var dummy = Refresh(target, direccion, formulario) ;
//  formulario.action = direccion ;
//  formulario.target = target ;
//  Referencia(formulario) ;
}


function Menu(ahref)
{
  if (ahref.target.length == 0)
    ahref.target = l_zona ;
	
  if (ahref.href.substring(0,11) == "javascript:")
  {															
    eval(ahref.href) ;
	return false ;
  }
	
  return Refresh(ahref) ;
  //return Refresh(ahref.target,ahref.href) ;
  // Saltar(ahref.target,ahref.href,false) ;
}


function Menu_sin()
{
  return Menu(this) ;
}


function Someter_sin()
{
  return Refresh(this) ;
  //Someter(this) ;
}


function Validar(script,par,alert_mensaje)
{
  var parametros ;
  
  if (par.hasChildNodes)
    parametros = Serializa(par) ;
  else
    parametros = par ;

  var responseText = Refrescar(null,script,parametros) ;
  if (alert_mensaje)
  {
	if (responseText == "1")
      return true ;
    alert(responseText) ;
    return false ;
  }
  return responseText ;
}


function ValidarConAlerta(script,par)
{
  return Validar(script,par,true) ;
}


function MensajeValidar(script,par)
{
  return Validar(script,par,false) ;
}


function Ver()
{
  var i ;
  
  var hay_estado_1 = false ;
  var hay_estado_2 = false ;
  var hay_estado_3 = false ;
  
//  if (!cargando) cargando = new Zona(l_zona_carga) ;
  UbicaCargando() ;
  
  for(i=0;i<http_s.length;i++)
  {
    if (!http_s[i]) continue ;
	if (http_s[i].peticion.readyState == 4)
	{
	  if (http_s[i].peticion.responseText == "RESET")
	  {
	    location.href = location.href ;
		return ;
	  }
	  http_s[i].zona.Mostrar(http_s[i].peticion.responseText) ;
	  BuscaFormulario(http_s[i].zona.div) ;
	  http_s[i].Fin() ;
	}
	else if (http_s[i].peticion.readyState == 3)
	{
	  hay_estado_3 = true ;
	}
	else if (http_s[i].peticion.readyState == 2)
	  hay_estado_2 = true ;
	else if (http_s[i].peticion.readyState == 1)
	  hay_estado_1 = true ;
  }
  
  if (hay_estado_1)
  {
	if (cargando)
	{
	  cargando.Mostrar('Cargando...') ;
	  cargando.Blink(500) ;
	}
	return ;
  }
  if (hay_estado_2)
  {
	if (cargando)
	{
      cargando.unBlink() ;
	  cargando.Mostrar('Cargado...') ;
	}
	return ;
  }
  
  if (hay_estado_3) return ;
  
  if (cargando)
  {
    cargando.unBlink() ;
    cargando.Ocultar() ;
  }
}


function CargaLibreria(tipo,nombre)
{
  var h = document.getElementsByTagName("HTML")[0].getElementsByTagName("HEAD")[0] ;

  for(var i=0;i<h.childNodes.length;i++)
    if (h.childNodes[i].type == tipo)
	  if (h.childNodes[i].src == nombre)
 	    return ;

  var _n = document.createElement('script') ;
  _n.src = nombre ;
  _n.type = tipo ;
  h.appendChild(_n);   
}


function CargaLibreriaJS(nombre)
{
  CargaLibreria("text/javascript",nombre) ;
}


function Fuente(zona)
{
  var txt ;
  if (!zona)
    txt = document.documentElement.innerHTML ;
  else
  {
    th = new Zona(zona) ;
	txt = th.div.innerHTML ;
  }
  var alea = Math.round(Math.random()*10000) ;
  pw = window.open("","TRAZA"+alea,"toobar=no, location=no, status=no, menubar=no,resizable=yes, scrollbars=yes") ;
  pw.document.open() ;
  pw.document.write("<xmp>"+txt+"</xmp>") ;
  pw.document.close() ;
}

function Manejador()
{
  var fk = this.getAttribute(l_atributo) ;
  var val ;
  if (this.action)
  {
    this.onsubmit = objEv[fk] ;
	val = this.onsubmit() ;	
	this.onsubmit = Manejador ;
  }
  else if (this.href)
  {
    this.onclick = objEv[fk] ;
	val = this.onclick() ;
	this.onclick = Manejador ;
  }
  if (!val) return false ;
  if (this.action) return Refresh(this) ; //Someter(this) ; 
  if (this.href) return Menu(this) ;
  return false ;
}


function BuscaFormulario(id)
{
  if ((!id)||(id == null)||(!id.childNodes)) return ;

  for(var i=0;i<id.childNodes.length;i++)
  {
	var th = id.childNodes[i] ;
    if ((th.nodeType == 1)&&((th.action)||(th.href)))
	{
	  if (th.getAttribute(l_atributo)) continue ;
	  var fk = attr_form++ ;
	  th.setAttribute(l_atributo,fk) ;
	  if (th.target == "_blank") continue ;
	  if (th.target == "_self") continue ;
	  if (th.target == "_parent") continue ;
	  //if (th.enctype == "multipart/form-data") continue ;
	  if (th.action)
	  {
	    if (!th.onsubmit)
		  th.onsubmit = Someter_sin ;
		else
		{
		  objEv[fk] = th.onsubmit ;
		  th.onsubmit = Manejador ; 
		}
		th.submit = Someter_sin ;		
	  }
	  else if (th.href)
	  {
		if (!th.onmouseover)
		{
		  th.onmouseover = function()
		                   {
							   window.status = "" ; return true ;
						   } ;
		}
		if (!th.onmouseout)
		  th.onmouseout = function()
		                   {
							   window.status = "" ; return true ;
						   } ;
	    if (!th.onclick)
		  th.onclick = Menu_sin ;
		else
		{
		  objEv[fk] = th.onclick ;
		  th.onclick = Manejador ;
		}
		th.click = Menu_sin ;		
	  }
	}
    BuscaFormulario(th) ;
  }
}
 
 
function Upload(formulario)
{
  pw = window.open(formulario,"upload","width=450,height=300,toobar=no, location=no, status=no, menubar=no,resizable=yes, scrollbars=yes") ;
  return true ;
}


function UbicaCargando()
{
  if (!cargando) cargando = new Zona(l_zona_carga) ;
  if (cargando.div)
  {
    Y = document.body.scrollTop ;
//    X = document.body.clientWidth + document.body.scrollLeft - parseInt(cargando.style.width) ;
    cargando.style.top = Y+"px" ;
//    cargando.style.left = X+"px" ;
  }
  else
     cargando = null ;
	 
}

function AnadeEvento(llamada)
{
  for (var i=0;i<lista_eventos.length;i++)
    if (lista_eventos[i] == llamada)
	  return ;
  lista_eventos[lista_eventos.length] = llamada ;
}


function EventosInicio()
{
  for (var i=0;i<lista_eventos.length;i++)
    lista_eventos[i]() ;
}


function INIT_WAJAX()
{
  for(var i=0;i<l_zonas.length;i++)
    BuscaFormulario(document.getElementById(l_zonas[i])) ;
  EventosInicio() ;
}

function LOAD_WAJAX()
{
  old_onload = window.onload;
  if (typeof window.onload != 'function')
  {
    window.onload = INIT_WAJAX ;
  }
  else
  {
    window.onload = function() {
      old_onload() ;
      INIT_WAJAX() ;
	}
  }
}
1