String.prototype.fromXML = function() {
	var result = this.replace(/&/g,'&');
	result = result.replace(/&gt;/g,'<');
	return  result;
}

function SimpleQueue() {
// Simple implementacion de una cola
// Los elementos nunca se eliminan del array, simplemente van subiendo los indices

	this.queue = new Array();
	this.queueCant = 0;
	this.queueIndex = 0;

	this.push = function (action) {
		this.queue[this.queueCant] = action;
		this.queueCant++;
	}

	this.pop = function () {
		while ((this.queueCant>this.queueIndex) && (this.queue[this.queueIndex]==false))
			this.queueIndex++;
		if (this.queueCant>this.queueIndex) {
			var result = this.queue[this.queueIndex];
			this.queue[this.queueIndex] = false;
			this.queueIndex++;
			return result;
		} else {
			return false;
		}
	}
	
	this.sameElements = function (element) {
		var result = new Array();
		for (var i=this.queueIndex; i<this.queueCant; i++)
			if (this.queue[i]==element || (element.isEqual && element.isEqual(this.queue[i])))
				result.push(this.queue[i])
		return result;
	}
	
	this.remove = function (element) {
		var i=this.queueIndex;
		while (i<this.queueCant && this.queue[i]!=element)
			i++;
		if (i<this.queueCant)
			this.queue[i] = false;
	}
}

function createHTTPObject(wrapper) {
  var xmlhttp;
  /*@cc_on
  @if (@_jscript_version >= 5)
    try {
      xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
    } catch (e) {
      try {
        xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
      } catch (E) {
        xmlhttp = false;
      }
    }
  @else
  xmlhttp = false;
  @end @*/
  if (!xmlhttp && typeof XMLHttpRequest != 'undefined') {
    try {
      xmlhttp = new XMLHttpRequest();
	  xmlhttp.overrideMimeType("text/xml");
    } catch (e) {
      xmlhttp = false;
    }
  }
  wrapper.xmlhttp = xmlhttp;
}

function getHTTPObject() {
  return  {'isWorking': false, 'current_request': false, 'xmlhttp': false};
}

function getXMLTagValue(xmlObj, tagName){
	var elems = xmlObj.getElementsByTagName(tagName);
	if (elems.length && (elems[0].childNodes.length))
		return elems[0].firstChild.nodeValue;
	else
		return '';
}

function XMLrequest_ready() {
	if (http.xmlhttp.readyState == 4) {	//El request esta listo
		//alert(http.responseText);
		if (http.xmlhttp.responseText!='') {	//El texto de respuesta no fue vacio
			var result = http.xmlhttp.responseXML.documentElement;
			if (window.ajaxDebugger)
				window.ajaxDebugger.requestReady(http.current_request, http.xmlhttp.responseText);		//AD
			if (result) {
//				try {
					http.current_request.processXMLResult(result);
					if (http.current_request.putInCache) {
						//Libera todo los requests de la cola que estan esperando el mismo resultado
						var same_requests = request_queue.sameElements(http.current_request);
						for (var i=0; i<same_requests.length; i++) {
							same_requests[i].processXMLResult(result);
							request_queue.remove(same_requests[i]);
						}
					}
//				} catch (e) {
					//alert("##Ha ocurrido un error##: "+e.message);
//				} finally {
					clearHTTPStatus();
//				}
			} else {
				alert('##Error en el XML##\n'+http.xmlhttp.responseText);
				clearHTTPStatus();
			}
		}
		var request = request_queue.pop();
		if (request)
			doXMLRequest(request);
	}
}

function clearHTTPStatus() {
	if (window.ajaxSemaphore)
		ajaxSemaphore.setGreen();
	http.isWorking = false;
	window.status = '##Listo##';
	http.current_request = null;
}

function doXMLRequest(request){
	var result = ajaxCache.getCachedResult(request);
	if (result)
		request.processXMLResult(result);
	else {
		if (http.isWorking)
			request_queue.push(request);
		else {
			if (window.ajaxDebugger)
				window.ajaxDebugger.addRequest(request);
			createHTTPObject(http);
			http.current_request = request;
			if (window.ajaxSemaphore)
				ajaxSemaphore.setRed();
			window.status = '##Solicitando informacion##...';
			http.isWorking = true;
			if (request.method=="POST"){
				http.xmlhttp.open("POST", request.action);
				http.xmlhttp.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded; charset=ISO-8859-1')
				http.xmlhttp.onreadystatechange = XMLrequest_ready;
				http.xmlhttp.send(request.params);
			} else {
				http.xmlhttp.open("GET", request.action+'?'+request.params);
				http.xmlhttp.onreadystatechange = XMLrequest_ready;
				http.xmlhttp.send(null);
			}
		}
	}
//	return true;
}

function dispatch_result(result) {
//Ejecuta la funcion que correponda segun la accion que llamo a result
	var action = result.getAttribute('action');
	eval('hr_'+action+'(result);');
}

function Request(action, method, params, requester, reference){
	this.action = action;
	this.method = method;
	this.params = params;
	this.requester = requester;
	this.reference = reference;
	this.error = false;
	this.request_ok = function(result) {
		this.requester.dispatch_result(result, this);
	}
	
	this.request_error = function(result) {
		this.error = true;
		this.error_msg = result.firstChild.firstChild.nodeValue;
		this.requester.dispatch_result(result, this);
	}
	
	this.toString = function() {
		return this.action+'?'+this.params;
	}
	
	this.run = function (putInCache) {
		this.putInCache = putInCache;
		doXMLRequest(this);
	}
	
	this.isEqual = function (req) {
		return (this.action==req.action && this.params==req.params);
	}
	
	this.processXMLResult = function (result) {
		if (result.getAttribute('type')=='ok') {
			//No dio error
			this.putInCache && ajaxCache.store(this, result);
			this.request_ok(result);
		} else if (result.getAttribute('type')=='error') {
			//Dio error
			this.request_error(result);
		} else
			alert('##Error desconocido##\n'+http.xmlhttp.responseText);
	}
	
}

function Requester() {
	this.dispatch_result = function(result, request) {
		var action = result.getAttribute('action');
		eval('hr_'+action+'(result, request);');
	}
}

function AJAXCache() {
	this.data = new Array();
	
	this.getCachedResult = function (request) {
		var result = this.data[request.toString()];
		if (!result)
			result = false;
		return result;
	}
	
	this.store = function (request, result) {
		this.data[request.toString()] = result;
		if (this.data.length>this.maxSize)
			this.data = removeFirst(this.data);
	}
}



if (top.http) {	//Usa la conexion http creada en el frame Top
	var http = top.http;
	var request_queue = top.request_queue;
	var ajaxCache = top.ajaxCache;
} else {
	var http = getHTTPObject(); 			// Crea su propia conexion http
	var request_queue = new SimpleQueue();
	var ajaxCache = new AJAXCache();
}

//Funciones viejas
function AJAXSemaphore(container) {
	this.container;
	this.img_red;
	this.img_green;

	this.setRed = function(){
		if (this.container) {
			this.img_green.style.display = 'none';
			this.img_red.style.display = 'inline';
		}
	}
	this.setGreen = function(){
		if (this.container) {
			this.img_red.style.display = 'none';
			this.img_green.style.display = 'inline';
		}
	}

	this.init = function(container) {
		if (container) {
			this.container = container;
			this.container.className = 'ajaxSemaphore';
			var img = document.createElement('IMG');
			img.src = '/images/rojo.gif';
			img.style.display = 'inline';
			this.img_red = img;
			this.container.appendChild(img);
			img = document.createElement('IMG');
			img.src = '/images/verde.gif';
			img.style.display = 'none';
			this.img_green = img;
			this.container.appendChild(img);
		}
	}

	this.init(container);
}


//alert('AJAX Enabled');