// Paco Fdez.

var aGraf='img/';var AimgE=new Array('arch_zzz.gif','arch_txt.gif','arch_jpg.gif','arch_pdf.gif','arch_doc.gif','arch_xls.gif','arch_mdb.gif','arch_ppt.gif','arch_swf.gif','arch_zip.gif','arch_rar.gif','arch_avi.gif','arch_hlp.gif','arch_chm.gif','arch_msi.gif','url_http.gif','url_https.gif','url_ftp.gif','url_explorador.gif');function ExtNum(url){var n=0;if(url!=null){var l=url.length;switch(url.substring(l-4,l).toLowerCase()){case'.txt':n=1;break;case'.jpg':n=2;break;case'.pdf':n=3;break;case'.doc':n=4;break;case'.xls':n=5;break;case'.mdb':n=6;break;case'.ppt':n=7;break;case'.swf':n=8;break;case'.zip':n=9;break;case'.rar':n=10;break;case'.avi':n=11;break;case'.hlp':n=12;break;case'.chm':n=13;break;case'.msi':n=14;break;}
if((n==0)&&(url.substring(0,5).toLowerCase()=='http:'))
n=15;if((n==0)&&(url.substring(0,6).toLowerCase()=='https:'))
n=16;if((n==0)&&(url.substring(0,4).toLowerCase()=='ftp:'))
n=17;if((n==0)&&(url.substring(0,5).toLowerCase()=='file:')&&(url.substring(l-1,l))=='/')
n=18;}
return n;}
function disp(txt){document.write(txt);}
function sIcoLnk(url,txt,img,alt){var s;if(img==null||img=='')
img=AimgE[ExtNum(url)];s='<a href="'+url+'"><img src="'+aGraf+img+'" width="16" height="16" border="0" align="absbottom"';if(alt!=null&&alt!='')
s=s+' alt="'+alt+'"'+' title="'+alt+'"';s=s+' />';if(txt==null)
txt='';s=s+txt+'</a>';return s;}
function ee(url,txt,img,alt){disp('<nobr>'+sIcoLnk(url,txt,img,alt)+'&nbsp;</nobr>');}
function et(url,txt,img,alt){disp('<tr><td><nobr>'+sIcoLnk(url,txt,img,alt)+'</nobr></td></tr>');}
function dispMarcado(sTexto){disp('<span class=Marcado>');if(sTexto=='')
disp('&nbsp;'+sTODO+'&nbsp;');else
disp('&nbsp;'+sTexto+'&nbsp;');disp('</span>');}
function getCookie(nombre,def){var c='; '+document.cookie;var s=(def)?def:'';var ini=c.indexOf('; '+nombre+'=');if(ini>=0){ini+=nombre.length+3;var fin=c.indexOf(';',ini);if(fin<0)
fin=c.length;s=c.slice(ini,fin);}
return s;}
function MM_preloadImages(){var d=document;if(d.images){if(!d.MM_p)d.MM_p=new Array();var i,j=d.MM_p.length,a=MM_preloadImages.arguments;for(i=0;i<a.length;i++)
if(a[i].indexOf("#")!=0){d.MM_p[j]=new Image;d.MM_p[j++].src=a[i];}}}
function MM_swapImgRestore(){var i,x,a=document.MM_sr;for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++)x.src=x.oSrc;}
function MM_findObj(n,d){var p,i,x;if(!d)d=document;if((p=n.indexOf("?"))>0&&parent.frames.length){d=parent.frames[n.substring(p+1)].document;n=n.substring(0,p);}
if(!(x=d[n])&&d.all)x=d.all[n];for(i=0;!x&&i<d.forms.length;i++)x=d.forms[i][n];for(i=0;!x&&d.layers&&i<d.layers.length;i++)x=MM_findObj(n,d.layers[i].document);if(!x&&document.getElementById)x=document.getElementById(n);return x;}
function MM_swapImage(){var i,j=0,x,a=MM_swapImage.arguments;document.MM_sr=new Array;for(i=0;i<(a.length-2);i+=3)
if((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x;if(!x.oSrc)x.oSrc=x.src;x.src=a[i+2];}}
function MM_showHideLayers(){var i,p,v,obj,args=MM_showHideLayers.arguments;for(i=0;i<(args.length-2);i+=3)if((obj=MM_findObj(args[i]))!=null){v=args[i+2];if(obj.style){obj=obj.style;v=(v=='show')?'visible':(v='hide')?'hidden':v;}
obj.visibility=v;}}
function MM_si(capa){MM_showHideLayers(capa,'','show');}
function MM_no(capa){MM_showHideLayers(capa,'','hide');}
function dispSpanDesplegador(sID){disp('<span id="'+sID+'L" class="desplegador" onmouseover="MM_si(\''+sID+'\')" onmouseout="MM_no(\''+sID+'\')">');}
function dispDivDesplegable(sID,nAncho,sPos){var o=MM_findObj(sID+'L');if(!sPos)sPos='ib';var nIzq=o.offsetLeft;if(sPos.indexOf('d')>=0)nIzq+=o.offsetWidth;var nArr=o.offsetTop;if(sPos.indexOf('b')>=0)nArr+=o.offsetHeight;disp('<div id="'+sID+'" class="desplegable" style="top:'+nArr+'px; left:'+nIzq+'px; width:'+nAncho+'px;" onmouseover="MM_si(\''+sID+'\')" onmouseout="MM_no(\''+sID+'\')">');}
function Enlaces(nombre){this.nombre=nombre;this.nAlto=24;this.nl=0;this.sTags='';this.aTags=[];this.sEtiqueta1='';this.sOY='Y';this.sEtiqueta2='';this.A=mAddLink;this.Filtro1=mFilterTag1;this.FiltroOY=mFilterOY;this.Filtro2=mFilterTag2;this.VerTags1=mDispTags1;this.VerOY=mDispOY;this.VerTags2=mDispTags2;this.VerIco=mDispIco;this.VerTodos=mDispAll;this.VerFiltrado=mVerFiltrado;this.Muestra=mDispPag;}
function mAddLink(txt,url,img,tag){var o=new Object,bNuevoTag=false,ar;if(img==null||img=='')
img=AimgE[ExtNum(url)];else if(img.indexOf('.')==-1)
img=img+'.gif';o.img=img;o.txt=txt;o.url=url;if(tag==null||tag=='')
o.tag='';else{o.tag=' '+tag+' ';ar=tag.split(' ');for(var i=0;i<ar.length;i++){if(this.sTags.indexOf(' '+ar[i]+' ')==-1){this.aTags.push(ar[i]);bNuevoTag=true;}}
if(bNuevoTag){this.aTags.sort();this.sTags=' '+this.aTags.join(' ')+' ';}}
this[this.nl++]=o;}
function mDispIco(){var o;disp('Todos los enlaces:<br />');for(var i=0;i<this.nl;i++){o=this[i];ee(o.url,'',o.img,o.txt+'\nEtiquetas: '+o.tag);if((i+1)%this.nAlto==0)
disp('<br />');}}
var sCabecera='<div class="Cabecera">';var sCabeceraFin='</div>';var sInicioTabla='<table border="0" cellspacing="0" cellpadding="0"><tr><td valign="top"><table>';var sOtraColumna='</table><td width="10">&nbsp;<td valign="top"><table>';var sFinTabla='</table></td></tr></table>';var sTODO='&lt;&nbsp;CUALQUIERA&nbsp;&gt;';function mDispTags1(){var e=this.nombre;disp('<nobr><a href="'+'javascript:history.go(0)'+'" onClick="'+e+'.Filtro1(\'\')'+'" onMouseOver="window.status=\'Mostrar todos los enlaces\';return true;" onMouseOut="window.status=\'\';return true;">'+sTODO+'</a></nobr><br />');disp(sInicioTabla);for(var i=0;i<this.aTags.length;i++){disp('<nobr><a href="'+'javascript:history.go(0)'+'" onClick="'+e+'.Filtro1(\''+this.aTags[i]+'\')" onMouseOver="window.status=\'Mostrar enlaces con etiqueta: '+this.aTags[i]+'\';return true;" onMouseOut="window.status=\'\';return true;">'+this.aTags[i]+'</a></nobr><br />');if((i+1)%this.nAlto==0)
disp(sOtraColumna);}
disp(sFinTabla);}
function mDispOY(){var e=this.nombre,aOp=['Y','O'];for(var i=0;i<aOp.length;i++)
disp('<nobr><a href="'+'javascript:history.go(0)'+'" onClick="'+e+'.FiltroOY(\''+aOp[i]+'\')" onMouseOver="window.status=\'Operador: '+aOp[i]+'\';return true;" onMouseOut="window.status=\'\';return true;">'+'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'+aOp[i]+'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'+'</a></nobr><br />');}
function mDispTags2(){var e=this.nombre;disp('<nobr><a href="'+'javascript:history.go(0)'+'" onClick="'+e+'.Filtro2(\'\')'+'" onMouseOver="window.status=\'Mostrar todos los enlaces\';return true;" onMouseOut="window.status=\'\';return true;">'+sTODO+'</a></nobr><br />');disp(sInicioTabla);for(var i=0;i<this.aTags.length;i++){disp('<nobr><a href="'+'javascript:history.go(0)'+'" onClick="'+e+'.Filtro2(\''+this.aTags[i]+'\')" onMouseOver="window.status=\'Mostrar enlaces con etiqueta: '+this.aTags[i]+'\';return true;" onMouseOut="window.status=\'\';return true;">'+this.aTags[i]+'</a></nobr><br />');if((i+1)%this.nAlto==0)
disp(sOtraColumna);}
disp(sFinTabla);}
function mFilterTag1(sEt){this.sEtiqueta1=sEt;document.cookie=this.nombre+'.Etiqueta1='+sEt;if(sEt==''){this.FiltroOY('Y');this.Filtro2('');}}
function mFilterOY(sOp){this.sOY=sOp;document.cookie=this.nombre+'.OY='+sOp;}
function mFilterTag2(sEt){this.sEtiqueta2=sEt;document.cookie=this.nombre+'.Etiqueta2='+sEt;}
function mDispAll(){var o;disp(sInicioTabla);for(var i=0;i<this.nl;i++){o=this[i];et(o.url,' '+o.txt,o.img,'Etiquetas: '+o.tag);if((i+1)%this.nAlto==0)
disp(sOtraColumna);}
disp(sFinTabla);}
function mVerFiltrado(){var o,n=0;var s1,s2,e1,e2;if(this.sEtiqueta1=='')
this.VerTodos();else{disp(sInicioTabla);s1=' '+this.sEtiqueta1+' ';s2=' '+this.sEtiqueta2+' ';for(var i=0;i<this.nl;i++){o=this[i];e1=o.tag.indexOf(s1)!=-1;e2=o.tag.indexOf(s2)!=-1||this.sEtiqueta2=='';if((this.sOY=='Y'&&(e1&&e2))||(this.sOY=='O'&&(e1||e2))){et(o.url,' '+o.txt,o.img,'Etiquetas: '+o.tag);if((++n)%this.nAlto==0)
disp(sOtraColumna);}}
if(n==0)
disp('No hay ningún enlace que cumpla el filtro de etiquetas.');disp(sFinTabla);}}
function mDispPag(){var e=this.nombre;this.sEtiqueta1=getCookie(e+'.Etiqueta1','');this.sOY=getCookie(e+'.OY','Y');this.sEtiqueta2=getCookie(e+'.Etiqueta2','');disp(sCabecera);dispSpanDesplegador('layerIco');ee('enlaces.htm','','_acceso.gif');disp('</span>');dispDivDesplegable('layerIco',510,'a');this.VerIco();disp('</div>');disp('Enlaces con etiquetas: ');dispSpanDesplegador('layerTag1');dispMarcado(this.sEtiqueta1);disp('</span>');dispDivDesplegable('layerTag1',200);this.VerTags1();disp('</div>');if(this.sEtiqueta1!=''){disp('&nbsp;');dispSpanDesplegador('layerOY');dispMarcado(this.sOY);disp('</span>');dispDivDesplegable('layerOY',80);this.VerOY();disp('</div>');disp('&nbsp;');dispSpanDesplegador('layerTag2');dispMarcado(this.sEtiqueta2);disp('</span>');dispDivDesplegable('layerTag2',200);this.VerTags2();disp('</div>');}
disp(sCabeceraFin);this.VerFiltrado();}