
var proposed_links;function replaceHtml(el,html){var oldEl=typeof el==="string"?document.getElementById(el):el;var newEl=oldEl.cloneNode(false);newEl.innerHTML=html;oldEl.parentNode.replaceChild(newEl,oldEl);return newEl;};function createCookie(name,value,days){if(days){var date=new Date();date.setTime(date.getTime()+(days*24*60*60*1000));var expires="; expires="+date.toGMTString();}
else var expires="";document.cookie=name+"="+value+expires+"; path=/";}
function readCookie(name){var nameEQ=name+"=";var ca=document.cookie.split(';');for(var i=0;i<ca.length;i++){var c=ca[i];while(c.charAt(0)==' ')c=c.substring(1,c.length);if(c.indexOf(nameEQ)==0){return c.substring(nameEQ.length,c.length);}}
return null;}
function eraseCookie(name){createCookie(name,"",-1);}
function testCookie(name){if(readCookie(name)==null){return false;}
else{return true;}}
function load_prefs(){if(testCookie('preferences')==false){initialdata="[{links:[0,2,3,7]},]";createCookie("preferences",initialdata,"3650");}
cad=readCookie('preferences');var prefs=eval('('+cad+')');return prefs;}
function generate_menu(){prefs=load_prefs()
l=prefs[0].links;ul=document.createElement("ul");for(i=0;i<pl.length;i++){for(j in l){if(l[j]==pl[i][0]){li=document.createElement('li');a=document.createElement('a');text=pl[i][1];t=document.createTextNode(capitalize(text));a.href=pl[i][2];a.appendChild(t);li.appendChild(a);ul.appendChild(li);}}}
m=document.getElementById('menu_links');m.appendChild(ul);}
function generate_links_form(enlaces){var prefs=load_prefs();fs=document.getElementById('opciones_links');for(i=0;i<enlaces.length;i++){ck='';d=document;input=d.createElement('input');id=d.createAttribute('id');id.nodeValue='opcion_'+enlaces[i].id;tipo=d.createAttribute('type');tipo.nodeValue='checkbox';valor=d.createAttribute('value');valor.nodeValue=enlaces[i].id;nombre=d.createAttribute('name');nombre.nodeValue='link_'+enlaces[i].id;clase=d.createAttribute('class');clase.nodeValue='link_check';input.setAttributeNode(id);input.setAttributeNode(tipo);input.setAttributeNode(valor);input.setAttributeNode(nombre);input.setAttributeNode(clase);fs.appendChild(input);label=document.createElement('label');labeltxt=document.createTextNode(enlaces[i].name);label.appendChild(labeltxt);fs.appendChild(label);br=document.createElement('br');fs.appendChild(br);}
links=prefs[0].links;for(i=0;i<links.length;i++){ck=document.getElementById('opcion_'+links[i]);if(ck!=null){ck.checked=true;}}}
function load_proposed_links(){proposed_links=new Array();for(i=0;i<pl.length;i++){var l=new Object;l.id=pl[i][0];l.name=pl[i][1];l.link=pl[i][2];proposed_links.push(l);}}
function save_links_prefs(){cad='';prop=proposed_links;checks=new Array();inputs=document.getElementsByTagName('input');ix=0;for(i in inputs){if(inputs[i].className=='link_check'){checks.push(inputs[i]);}
if(ix==inputs.length-1){break;}
ix++;}
for(c in checks){if(checks[c].checked){v=checks[c].value+","}
else{v=''}
cad=cad+v;}
createCookie('preferences','[{links:['+cad+']}]','3650');window.location.href='../';}
var timerlen=5;var slideAniLen=250;var timerID=new Array();var startTime=new Array();var obj=new Array();var endHeight=new Array();var moving=new Array();var dir=new Array();function slidedown(objname){if(moving[objname])
return;if(document.getElementById(objname).style.display!="none")
return;moving[objname]=true;dir[objname]="down";startslide(objname);}
function slideup(objname){if(moving[objname])
return;if(document.getElementById(objname).style.display=="none")
return;moving[objname]=true;dir[objname]="up";startslide(objname);}
function startslide(objname){obj[objname]=document.getElementById(objname);endHeight[objname]=parseInt(obj[objname].style.height);startTime[objname]=(new Date()).getTime();if(dir[objname]=="down"){obj[objname].style.height="1px";}
obj[objname].style.display="block";timerID[objname]=setInterval('slidetick(\''+objname+'\');',timerlen);}
function slidetick(objname){var elapsed=(new Date()).getTime()-startTime[objname];if(elapsed>slideAniLen)
endSlide(objname)
else{var d=Math.round(elapsed/slideAniLen*endHeight[objname]);if(dir[objname]=="up")
d=endHeight[objname]-d;obj[objname].style.height=d+"px";}
return;}
function endSlide(objname){clearInterval(timerID[objname]);if(dir[objname]=="up")
obj[objname].style.display="none";obj[objname].style.height=endHeight[objname]+"px";delete(moving[objname]);delete(timerID[objname]);delete(startTime[objname]);delete(endHeight[objname]);delete(obj[objname]);delete(dir[objname]);return;}
function toggleSlide(objname){if(document.getElementById(objname).style.display=="none"){slidedown(objname);}else{slideup(objname);}}
function addEngine(engineURL){if(window.external&&("AddSearchProvider"in window.external)){window.external.AddSearchProvider(engineURL);return false;}else{alert(error_opensearch_unsupported);return true;}}
function capitalize(cad){return cad.charAt(0).toUpperCase()+cad.substring(1).toLowerCase();}