var IgnorarTest = false;
if ((document.getElementById)&&(navigator.userAgent.toLowerCase().indexOf('msie')!=-1) && !(window.opera)) document.styleSheets[0].addRule('#Arbol span', 'cursor:hand');

function agregarElementos(elmX) {
if (Test('HTML','1.0')==false) return false;
var elmP = document.getElementById('ParrafoEj');
var elmH = document.createElement('h3');
var elmBR = document.createElement('br');
var elmText;
elmText = document.createTextNode('Palabras huecas');
elmH.appendChild(elmText);
elmP.parentNode.insertBefore(elmH,elmP);
elmP.appendChild(elmBR);
elmText = document.createTextNode('(Y más palabras huecas... )');
elmP.appendChild(elmText);
Desactivar(elmX);
}

function clonarEnlaces(elmX) {
if (Test('HTML','1.0')==false) return false;
var elmUL;
var elmLI;
var elmA;
elmUL = document.createElement('ul');
var cnjA = document.getElementsByTagName('a');
for (var i=0; i < cnjA.length; i++) {
	elmLI = document.createElement('li');
	elmA = cnjA[i].cloneNode(true);
	elmLI.appendChild(elmA);
	elmUL.appendChild(elmLI);
	}
document.getElementById('DivEj').appendChild(elmUL);
Desactivar(elmX);
}

function generarArbol(elmSPAN,Ruta) {
if (Test('HTML','1.0')==false) return false;
var GKO = (navigator.userAgent.toLowerCase().indexOf('gecko')!=-1);
var refNodo = 'document';
if (Ruta!='') {
	RutaNod = Ruta.split('/');
	for (var i=0; i<RutaNod.length; i++) {
		refNodo += '.childNodes['+RutaNod[i]+']';
		}
	Ruta+='/';
	}
var elmNodo = eval(refNodo);
var elmUL = document.createElement('ul');
var elmLI;
var elmX;
var elmText;
var valText;
var cnjHijos = elmNodo.childNodes;
for (var i=0; i < cnjHijos.length; i++) {
	elmLI = document.createElement('li');
	elmText = document.createTextNode(cnjHijos[i].nodeName);
	if (cnjHijos[i].hasChildNodes()) {
		elmX = document.createElement('span');
		elmX.appendChild(elmText);
		if (GKO) elmX.setAttribute('onclick','generarArbol(this,\''+Ruta+i+'\');');
		else elmX['onclick']=new Function('generarArbol(this,\''+Ruta+i+'\');');
		elmLI.appendChild(elmX);
		}
	else {
		elmLI.appendChild(elmText);
		elmX = document.createElement('samp');
		valText = String(cnjHijos[i].nodeValue).substring(0, 24);
		valText += (String(cnjHijos[i].nodeValue).length > 24) ? '...' : '';
		elmText = document.createTextNode(valText);
		elmX.appendChild(elmText);
		elmLI.appendChild(elmX);
		}
	elmUL.appendChild(elmLI);
	}
elmSPAN.parentNode.appendChild(elmUL);
if (GKO) elmSPAN.removeAttribute('onclick');
else elmSPAN['onclick']=new Function('return false;');
}

function FuncionCr(elmFORM) {
if (Test('HTML','1.0')==false) return false;
var GKO = (navigator.userAgent.toLowerCase().indexOf('gecko')!=-1);
var elmUL = document.createElement('ul');
var elmLI = document.createElement('li');
var elmX = document.createElement('span');
var elmText = document.createTextNode('document');
if (GKO) elmX.setAttribute('onclick','generarArbol(this,\'\');');
else elmX['onclick']=new Function('generarArbol(this,\'\');');
elmX.appendChild(elmText);
elmLI.appendChild(elmX);
elmUL.appendChild(elmLI);
elmFORM.parentNode.appendChild(elmUL);
Desactivar(elmFORM);
}

function Desactivar(elmX) {
elmX.style.display='none';
}

function Test(Caracter, Version) {
if (IgnorarTest==true) return true;
var Soporte = false;
if(document.implementation) Soporte = document.implementation.hasFeature(Caracter,Version);
if (Soporte==false) alert('Este navegador no soporta DOM ' + Caracter + ' ' + Version);
return Soporte;
}