// Autor: Cesar Castro
// Fecha: 14/07/2008

function nuevoAjax()
{
	var xmlhttp=false;
	try 
	{
 		xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
 	} catch (e) 
	{
 		try 
		{
 			xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");			
 		} catch (E) 
		{
 			xmlhttp = false;
 		}
  	}
	if (!xmlhttp && typeof XMLHttpRequest!='undefined') 
	{
 		xmlhttp = new XMLHttpRequest();
	}
	return xmlhttp;
}

function Cargar_inicio(pagina)
{
	var divResultado = document.getElementById('contenedor'); 	
	ajax=nuevoAjax();
	ajax.open("POST", pagina + "?IdNodo=-1",true);
        ajax.setRequestHeader("Content-Type", "text/plain; charset=iso-8859-1");
	ajax.onreadystatechange=function() 
    {
		if (ajax.readyState==4) 
        {
			divResultado.innerHTML = ajax.responseText;
			buscarscripts(divResultado.innerHTML);
						
			var arbol=d.imprimir();
			divResultado.innerHTML=arbol;
		}
	}
	ajax.send(null)
}

function pathOnly (InString) 
{
    	LastSlash=InString.lastIndexOf ('/', InString.length-1)
    	OutString=InString.substring (0, LastSlash+1)
    	return (OutString);
}
function Trim(InString)
{
  InString = InString.replace(/\s+/gi, ' '); //sacar espacios repetidos dejando solo uno
  InString = InString.replace(/^\s+|\s+$/gi,''); //sacar espacios blanco principio y final
  return InString;
}
function setImage(idImage,FileImage)
{
	document.images[idImage].src=FileImage;
}
function Cargar_rama(pagina,cn)
{
	var divResultado = document.getElementById('contenedor'); 		
	var divCargando = document.getElementById('i' + d.obj + cn.id);
	var url = pathOnly(window.location.href);
	var idImage='i' + d.obj + cn.id;
	url= url+ "LoadNodos?IdNodo=" + cn.id;	
//	alert(url);
	ajax=nuevoAjax();
       // ajax.setRequestHeader("Content-Type","application/x-javascript; charset:ISO-8859-1"); 
	ajax.open("POST", url,true);
	ajax.onreadystatechange=function() 
    {
		if (ajax.readyState==1)
    {	
    	setTimeout("setImage('id"+cn._ai+"','./../../imagenes/tree/loading.gif')",0);			  
		}
		if (ajax.readyState==4) 
    {			
//			alert(ajax.responseText);
			divResultado.innerHTML = ajax.responseText;		
			buscarscripts(divResultado.innerHTML);			
			
			var arbol=d.imprimir();
			divResultado.innerHTML=arbol;
//			alert(arbol);
			setTimeout("setImage('id"+cn._ai+"','"+cn.iconOpen+"')",500);						
		}
	}
	ajax.send(null);
}

/*********************************************************************************/
function buscarscripts(elemento_res) 
{
	var script = elemento_res;
	script = script.extractScripts();
	for(i=0;i<script.length;i++)
		instalar(script[i]);
}

function instalar(script) 
{
	script = script.replace("<!--","");
	script = script.replace("//-->","");
	
	var dj_global=script;
	
	if (window.execScript)
		window.execScript(script);
	else
		window.setTimeout(script, 0);
		
	return dj_global.eval ? dj_global.eval(script) : eval(script);
}
//*******************************************************************************


function Node(id, pid, name, orden, url, carpeta, title, target, icon, iconOpen, open) 
{
	this.id = id;
	this.pid = pid;
	this.name = name;
	this.url = url;
	this.title = title;
	this.target = target;
	this.icon = icon;
	this.iconOpen = iconOpen;
	this.carpeta = carpeta;
	this._io = false;
	this._is = false;
	this._ls = false;
	this._hc = false;
	this._ai = 0;
	this._p;
	this.hijos=0;
	this.orden = orden;
};


// Tree object

function dTree(objName) 
{

	this.config = 
	{
		target					: null,
		folderLinks				: true,
		useSelection			: true,
		useCookies				: false,
		useLines				: true,
		useIcons				: true,
		useStatusText			: false,
		closeSameLevel			: false,
		inOrder					: false
	}

	this.icon = 
	{
		root				: './../../imagenes/tree/empty.gif',
		folder				: './../../imagenes/tree/folderclose.gif',
		folderOpen			: './../../imagenes/tree/folderopen.gif',
		node				: './../../imagenes/tree/page.gif',
		empty				: './../../imagenes/tree/empty.gif',
		line				: './../../imagenes/tree/line.gif',
		join				: './../../imagenes/tree/join.gif',
		joinBottom			: './../../imagenes/tree/joinbottom.gif',
		plus				: './../../imagenes/tree/plus.gif',
		plusBottom			: './../../imagenes/tree/plusbottom.gif',
		minus				: './../../imagenes/tree/minus.gif',
		minusBottom			: './../../imagenes/tree/minusbottom.gif',
		nlPlus				: './../../imagenes/tree/nolines_plus.gif',
		nlMinus				: './../../imagenes/tree/nolines_minus.gif'
	};

	this.obj = objName;
	this.aNodes = [];
	this.aIndent = [];
	this.root = new Node(-1);
	this.selectedNode = null;
	this.selectedFound = false;
	this.completed = false;
	//this.arbol= '';
};



// Adds a new node to the node array

dTree.prototype.add = function(id, pid, name, orden, url, carpeta, title, target, icon, iconOpen, open) 
{	
	var nodo = new Node(id, pid, name, orden, url, carpeta, title, target, icon, iconOpen, open);
	this.ordenar(nodo);
};



// Open/close all nodes

dTree.prototype.openAll = function() 
{
	this.oAll(true);
};

dTree.prototype.closeAll = function() 
{
	this.oAll(false);
};



// Outputs the tree to the page
dTree.prototype.imprimir = function() 
{
	var str = '<div class="dtree">\n';
	if (document.getElementById) 
	{
		if (this.config.useCookies) this.selectedNode = this.getSelected();
		str += this.addNode(this.root);
	} 
	else 
	  str += 'Browser not supported.';
	str += '</div>';
	if (!this.selectedFound) this.selectedNode = null;
	this.completed = true;
	return str;
};

dTree.prototype.buscar=function(nodo) 
{	
	var n=0;
	var ban=0;
	
	for (n; n<this.aNodes.length; n++) 
	{
		if (nodo.id == this.aNodes[n].id)
		{
			ban=1;
			return ban;
		}
	}
	return ban;	
}

dTree.prototype.ordenar=function(nodo) 
{	

	var aux = new Node(0, 0, 'aux', 'aux', 0, 'aux', 'aux', 'aux', 'aux', open);
	var n = 0;		
	
	if (this.buscar(nodo) == 0)
	{
		for (n; n<this.aNodes.length; n++) 
		{
			if (nodo.orden <= this.aNodes[n].orden) 
			{
				aux=this.aNodes[n];
				this.aNodes[n]=nodo;
				nodo=aux;		
			}			
		}	
		this.aNodes[this.aNodes.length] = nodo;
	}	

}

dTree.prototype.contar = function(node)
{
	var n=0;		
	for (n; n<this.aNodes.length; n++) 
	{
		if(this.aNodes[n].pid == node.id)
		{			
			return 1;
		}
	}
	return 0;
}

// Creates the tree structure
dTree.prototype.addNode = function(pNode) 
{
	var str = '';
	var n=0;
	
	if (this.config.inOrder) n = pNode._ai;

	for (n; n<this.aNodes.length; n++) 
	{
		if (this.aNodes[n].pid == pNode.id) 
		{
			var cn = this.aNodes[n];
			cn._p = pNode;
			cn._ai = n;
			this.setCS(cn);
			if (!cn.target && this.config.target) cn.target = this.config.target;
			if (cn._hc && !cn._io && this.config.useCookies) cn._io = this.isOpen(cn.id);
			if (!this.config.folderLinks && cn._hc) cn.url = null;
			if (this.config.useSelection && cn.id == this.selectedNode && !this.selectedFound) 
			{
					cn._is = true;
					this.selectedNode = n;
					this.selectedFound = true;
			}
						
			str += this.node(cn, n);
						
			if (cn._ls) break;
		}
	}
	return str;
};



// Creates the node icon, url and text

dTree.prototype.node = function(node, nodeId) 
{
	var str = '<div class="dTreeNode">' + this.indent(node, nodeId);
	if (this.config.useIcons) 
	{
		if (!node.icon) node.icon = (this.root.id == node.pid) ? this.icon.root : ((node._hc) ? this.icon.folder : this.icon.node);
		if (!node.iconOpen) node.iconOpen = (node._hc) ? this.icon.folderOpen : this.icon.node;
		if (this.root.id == node.pid) 
		{
			node.icon = this.icon.root;
			node.iconOpen = this.icon.root;
		}
		//"onmouseover="alert(this.id)"
		var imagen='<img  id="i' + this.obj + nodeId + '" name="i' + this.obj + nodeId + '" src="' + ((node._io) ? node.iconOpen : node.icon) + '" alt="" />';
		str += imagen;
	}
	if (node.url) 
	{
		//alert(node.name + " " + node.carpeta);
		str += '<a id="s' + this.obj + nodeId + '" class="' + ((this.config.useSelection) ? ((node._is ? 'nodeSel' : 'node')) : 'node') + '" href="' + node.url + '"';
		//if (node.title) 
		str += ' title="' + node.title + '"';
		if (node.target) str += ' target="' + node.target + '"';
		if (this.config.useStatusText) str += ' onmouseover="window.status=\'' + node.name + '\';return true;" onmouseout="window.status=\'\';return true;" ';
		if (this.config.useSelection && ((node._hc && this.config.folderLinks) || !node._hc))
			str += ' onclick="javascript: ' + this.obj + '.s(' + nodeId + ');"';
		str += '>';
	}
	else
	{ 
		//alert(node.name + " " + node.carpeta);
		if ((!this.config.folderLinks || !node.url) && node._hc && (node.pid != this.root.id) )
		{			
			str += '<a href="javascript: ' + this.obj + '.o(' + nodeId + ');" class="node" >';
		}
	}
	str += node.name;
	if (node.url || ((!this.config.folderLinks || !node.url) && node._hc)) str += '</a>';
	str += '</div>';
	
	var hijos=0;
	if (node.carpeta == 1 && node._io == true)
		hijos=this.contar(node);
						
	if (node.carpeta == 1 && hijos == 0 && node._io == true)
		var a = 1;
	else {
		if (node._hc) 
		{
			str += '<div id="d' + this.obj + nodeId + '" class="clip" style="display:' + ((this.root.id == node.pid || node._io) ? 'block' : 'none') + ';">';
			str += this.addNode(node);
			str += '</div>';
		}		
	}
	this.aIndent.pop();
	return str;
};



// Adds the empty and line icons

dTree.prototype.indent = function(node, nodeId) 
{
	var str = '';
	if (this.root.id != node.pid) 
	{
		for (var n=0; n<this.aIndent.length; n++)
			str += '<img src="' + ( (this.aIndent[n] == 1 && this.config.useLines) ? this.icon.line : this.icon.empty ) + '" alt="" />';
		(node._ls) ? this.aIndent.push(0) : this.aIndent.push(1);
		if (node._hc) 
		{
			str += '<a href="javascript: ' + this.obj + '.o(' + nodeId + ');"><img id="j' + this.obj + nodeId + '" src="';
			if (!this.config.useLines) 
			  str += (node._io) ? this.icon.nlMinus : this.icon.nlPlus;
			else 
			  str += ( (node._io) ? ((node._ls && this.config.useLines) ? this.icon.minusBottom : this.icon.minus) : ((node._ls && this.config.useLines) ? this.icon.plusBottom : this.icon.plus ) );
			str += '" alt="" /></a>';

		} 
		else 
		str += '<img src="' + ( (this.config.useLines) ? ((node._ls) ? this.icon.joinBottom : this.icon.join ) : this.icon.empty) + '" alt="" />';
	}
	return str;
};



// Checks if a node has any children and if it is the last sibling

dTree.prototype.setCS = function(node) 
{
	var lastId;
	if (node.carpeta == 1)
		node._hc=true;
	for (var n=0; n<this.aNodes.length; n++) 
	{
		//if (this.aNodes[n].pid == node.id) node._hc = true;
		if (this.aNodes[n].pid == node.pid) lastId = this.aNodes[n].id;
	}
	if (lastId==node.id) node._ls = true;
};



// Returns the selected node

dTree.prototype.getSelected = function() 
{
	var sn = this.getCookie('cs' + this.obj);
	return (sn) ? sn : null;
};



// Highlights the selected node

dTree.prototype.s = function(id) 
{
	if (!this.config.useSelection) return;
	var cn = this.aNodes[id];
	if (cn._hc && !this.config.folderLinks) return;
	if (this.selectedNode != id) 
	{
		if (this.selectedNode || this.selectedNode==0) 
		{
			eOld = document.getElementById("s" + this.obj + this.selectedNode);
			eOld.className = "node";
		}
		eNew = document.getElementById("s" + this.obj + id);
		eNew.className = "nodeSel";
		this.selectedNode = id;
		if (this.config.useCookies) this.setCookie('cs' + this.obj, cn.id);
	}
};



// Toggle Open or close

dTree.prototype.o = function(id) 
{
	var cn = this.aNodes[id];
	if (!cn._io)
	{
		Cargar_rama('Portal.exe/LoadNodos',cn);
	}
	
	var cn = this.aNodes[id];
	this.nodeStatus(!cn._io, id, cn._ls);
	cn._io = !cn._io;
	if (this.config.closeSameLevel) this.closeLevel(cn);
	if (this.config.useCookies) this.updateCookie();
};



// Open or close all nodes

dTree.prototype.oAll = function(status) 
{
	for (var n=0; n<this.aNodes.length; n++) 
	{
		if (this.aNodes[n]._hc && this.aNodes[n].pid != this.root.id) 
		{
			this.nodeStatus(status, n, this.aNodes[n]._ls)
			this.aNodes[n]._io = status;
		}
	}
	if (this.config.useCookies) this.updateCookie();
};



// Opens the tree to a specific node

dTree.prototype.openTo = function(nId, bSelect, bFirst) 
{
	if (!bFirst) 
	{
		for (var n=0; n<this.aNodes.length; n++) 
		{
			if (this.aNodes[n].id == nId) 
			{
				nId=n;
				break;
			}
		}
	}
	var cn=this.aNodes[nId];
	if (cn.pid==this.root.id || !cn._p) return;
	cn._io = true;
	cn._is = bSelect;
	if (this.completed && cn._hc) this.nodeStatus(true, cn._ai, cn._ls);
	if (this.completed && bSelect) 
	  this.s(cn._ai);
	else 
	  if (bSelect) this._sn=cn._ai;
	this.openTo(cn._p._ai, false, true);
};



// Closes all nodes on the same level as certain node

dTree.prototype.closeLevel = function(node) 
{
	for (var n=0; n<this.aNodes.length; n++) 
	{
		if (this.aNodes[n].pid == node.pid && this.aNodes[n].id != node.id && this.aNodes[n]._hc) 
		{
			this.nodeStatus(false, n, this.aNodes[n]._ls);
			this.aNodes[n]._io = false;
			this.closeAllChildren(this.aNodes[n]);
		}
	}
}



// Closes all children of a node

dTree.prototype.closeAllChildren = function(node) 
{
	for (var n=0; n<this.aNodes.length; n++) 
	{
		if (this.aNodes[n].pid == node.id && this.aNodes[n]._hc) 
		{
			if (this.aNodes[n]._io) this.nodeStatus(false, n, this.aNodes[n]._ls);
			this.aNodes[n]._io = false;
			this.closeAllChildren(this.aNodes[n]);		
		}
	}
}



// Change the status of a node(open or closed)

dTree.prototype.nodeStatus = function(status, id, bottom) 
{
	eDiv	= document.getElementById('d' + this.obj + id);
	eJoin	= document.getElementById('j' + this.obj + id);
	
	if (this.config.useIcons) 
	{
		eIcon	= document.getElementById('i' + this.obj + id);						
		eIcon.src = (status) ? this.aNodes[id].iconOpen : this.aNodes[id].icon;		
	}
	eJoin.src = (this.config.useLines)?
	((status)?((bottom)?this.icon.minusBottom:this.icon.minus):((bottom)?this.icon.plusBottom:this.icon.plus)):
	((status)?this.icon.nlMinus:this.icon.nlPlus);
	if (eDiv != null)	
	  eDiv.style.display = (status) ? 'block': 'none';	
	  
};





// [Cookie] Clears a cookie

dTree.prototype.clearCookie = function() 
{
	var now = new Date();
	var yesterday = new Date(now.getTime() - 1000 * 60 * 60 * 24);
	this.setCookie('co'+this.obj, 'cookieValue', yesterday);
	this.setCookie('cs'+this.obj, 'cookieValue', yesterday);
};



// [Cookie] Sets value in a cookie

dTree.prototype.setCookie = function(cookieName, cookieValue, expires, path, domain, secure) 
{
	document.cookie = escape(cookieName) + '=' + escape(cookieValue)
		+ (expires ? '; expires=' + expires.toGMTString() : '')
		+ (path ? '; path=' + path : '')
		+ (domain ? '; domain=' + domain : '')
		+ (secure ? '; secure' : '');
};



// [Cookie] Gets a value from a cookie

dTree.prototype.getCookie = function(cookieName) 
{
	var cookieValue = '';
	var posName = document.cookie.indexOf(escape(cookieName) + '=');
	if (posName != -1) 
	{
		var posValue = posName + (escape(cookieName) + '=').length;
		var endPos = document.cookie.indexOf(';', posValue);
		if (endPos != -1) 
		  cookieValue = unescape(document.cookie.substring(posValue, endPos));
		else 
		  cookieValue = unescape(document.cookie.substring(posValue));
	}
	return (cookieValue);
};



// [Cookie] Returns ids of open nodes as a string

dTree.prototype.updateCookie = function() 
{
	var str = '';
	for (var n=0; n<this.aNodes.length; n++) 
	{
		if (this.aNodes[n]._io && this.aNodes[n].pid != this.root.id) 
		{
			if (str) str += '.';
			str += this.aNodes[n].id;
		}
	}
	this.setCookie('co' + this.obj, str);
};



// [Cookie] Checks if a node id is in a cookie

dTree.prototype.isOpen = function(id) 
{
	var aOpen = this.getCookie('co' + this.obj).split('.');
	for (var n=0; n<aOpen.length; n++)
		if (aOpen[n] == id) return true;
	return false;
};



// If Push and pop is not implemented by the browser

if (!Array.prototype.push) 
{
	Array.prototype.push = function array_push() 
	{
		for(var i=0;i<arguments.length;i++)
			this[this.length]=arguments[i];
		return this.length;
	}
};

if (!Array.prototype.pop) 
{
	Array.prototype.pop = function array_pop() 
	{
		lastElement = this[this.length-1];
		this.length = Math.max(this.length-1,0);
		return lastElement;
	}
};