if(top!=self){top.location.href=self.location.href}

function w(q){document.write(q)}

var ultimonombre="";
var galmeses=new Array("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre");

function galenlace(url,tit)
{
if(location.href.indexOf(url)!=-1) return '<b style="cursor:default">'+tit+'</b>';
else return '<a href="'+url+'">'+tit+'</a>'
}

function galeria()
{
q='<table cellspacing=0 align=center><tr>'+
//	'<td><span class=e30></span></td><td></td><td align=center style="vertical-align:bottom"><img src="img/galtitulo.gif"></td><td></td><td><span class=e30></span></td></tr>'+
'<td><span class=e30></span></td><td style="vertical-align:middle"><img src="img/galizq.gif"></td><td>'+
'<table  cellspacing=1 bgcolor=#827E36 align=center><tr><td background="img/texturapalida.jpg" style="font-weigth:bolder;text-align:center;padding:2px;padding-left:10px;padding-right:10px">'+
galenlace('gal_cactus_opuntia.html','Opuntias')+' · '+
galenlace('gal_cactus_cactoideae.html','Cactoideas')+' · '+
galenlace('gal_crasas_crassulaceae.html','Crásulas')+' · '+
galenlace('gal_crasas_aizoaceae.html','Aizoáceas')+' · '+
galenlace('gal_crasas_liliaceae.html','Liliáceas')+' · '+
galenlace('gal_crasas.html','Otras familias')+' · '+
galenlace('gal_misterio.html','Sin identificar')+
//galenlace('','')+' · '+
'</td></tr></table>'+
'</td><td style="vertical-align:middle"><img src="img/galder.gif"></td><td><span class=e30></span></td></tr>'+
'</td></tr></table>';
w(q);
}


function arboltaxon(q)
{
var ret="";
ramas=new Array();//alert(q.substring(0,6));
//if(q.substring(0,7)!="género:") q+=(q==""?"":"/")+"género:"+ultimonombre.substr(0,ultimonombre.indexOf(" "));
if(q.indexOf("género:")==-1) q+=(q==""?"":"/")+"género:"+ultimonombre.substr(0,ultimonombre.indexOf(" "));

ramas=q.split("/");

for(i=0;i<ramas.length;i++)
	{
	unotro=new Array();
	unotro=ramas[i].split(":");
	if(unotro.length==2)
		ret+=(i==0?'':'<img src="img/galrama.gif" style="margin-left:'+(i*10-8)+'">')+'<font class=galtaxnom>'+unotro[1]+'</font><font class=galtax>'+unotro[0]+'</font><br>';
	}
return ret;
}


function abreplanta(nombre,otros)
{
ultimonombre=nombre;
otros=arboltaxon(otros);
q='<table cellspacing=1 bgcolor=#827E36 style="width:100%"><tr><td colspan=2 class=galespecie style="height:1px;background:url(img/texturaverde.jpg)">'+nombre+'</td></tr><tr><td background="img/texturapalida.jpg" class=galotros style="width:200px">'+otros+'</td><td background="img/texturablanca.jpg" rowspan=2 style="height:1%"><table width=100% cellspacing=3>';
return q;
}


function ponfoto(ano,mes,foto,texto)
{fecha=(mes==0?"":galmeses[mes-1]+" de ")+ano;
q='<tr><td width=100%><table cellspacing=0 width=100% align=center><tr><td style="height:128px" rowspan=2>'+cantafoto("images/"+foto,ultimonombre+" ["+fecha+"]")+'</td><td rowspan=2><span class=e5></span></td><td class=galfecha>'+fecha+'</td></tr><tr><td class=galtexto style="height:100%;width:100%">'+texto+'<td></tr></table></td></tr>';
return q;
}

function ponfin(ano,mes,foto,texto)
{fecha=(mes==0?"":galmeses[mes-1]+" de ")+ano;
q='<tr><td width=100%><table cellspacing=0 width=100% align=center><tr><td><img src="img/'+foto+'"></td><td><span class=e5></span></td><td class=lacom style="width:100%;color:#857A50"><b>'+fecha+'</b><br>'+texto+'<td></tr></table></td></tr>';
return q;
}


function cierraplanta(comentario)
{if(comentario=="") comentario='S/C';
q='</table></td></tr><tr><td class=lacom style="width:200px;background:url(img/texturapalida.jpg)">'+comentario+'</td></tr></table><div class=e15></div>';
return q;
}


function cantafoto(url,tit)
{
urlt=url.replace(".jpg","_s.jpg");
q='<img src="'+urlt+'" style="cursor:pointer;cursor:hand;vertical-align:top;border:0px" onclick="VCFabrefoto(&quot;'+url+'&quot;,&quot;'+tit+'&quot;)">';
return q;
}


function decidemenu(iconito,x,y,fichero)
{
esta=true;
if(location.href.indexOf(fichero)!=-1) //si está incluido, no ponemos eventos
	return ' <td rowspan=3><img  style="cursor:default" src="imenu/m'+iconito+'.gif" width='+x+' height='+y+'></td>';
	else
	return ' <td rowspan=3><img  class=mano src="imenu/m'+iconito+'.gif" width='+x+' height='+y+' onmouseover="this.src=&quot;imenu/m'+iconito+'_f2.gif&quot;"  onmouseout="this.src=&quot;imenu/m'+iconito+'.gif&quot;" onclick="location.href=&quot;'+fichero+'&quot;"></td>';
}


function abrepeich()
{
q=	'<table width=100% cellspacing=0><tr><td><span class=e60></span></td>'+
	'<td><img src="imenu/mizq.gif"></td>'+
	'<td><a href="index.html"><img src="imenu/msuculentas.gif" border=0 onmouseover="this.src=&quot;imenu/msuculentas_f2.gif&quot;" onmouseout="this.src=&quot;imenu/msuculentas.gif&quot;"></a></td>'+
	'<td>'+menuprincipal.muestraLlavesColumnas()+'<img src="imenu/mder.gif"></td>'+
	'<td><img src="imenu/mmenu.gif"  id=VCMgraficomenu border=0 alt="mapa del sitio" class=mano onclick="document.getElementById(&quot;VCMmenu&quot;).style.display=&quot;&quot;;document.getElementById(&quot;VCMmenu2&quot;).style.display=&quot;&quot;" ></td>'+
	'<td><img src="imenu/mcorreo.gif" class=mano alt="escríbeme" onmouseover="this.src=&quot;imenu/mcorreo_f2.gif&quot;" onmouseout="this.src=&quot;imenu/mcorreo.gif&quot;" onclick="escribe()"></td>'+
	'<td width=100% background="imenu/mfondo.gif"></td>'+
	'<td><span class=e60></span></td></tr></table>'+
	'<table width=100% cellspacing=0><tr><td><span class=e60></span></td><td background="img/texturablanca.gif" width=100%>'

document.write(q);
if(location.href.indexOf("taxonomia.html")!=-1 || location.href.indexOf("info.html")!=-1)
	{
qx=Math.random()*530+40;
qy=Math.random()*1200+60;
q='<div style="position:absolute;top:'+qy+'px;left:'+qx+'px;z-index:9000;filter: alpha(opacity=10);-moz-opacity:0.1;width:1;height:1; opacity:0.1;}"><img src="img/cafe.gif"></div>';
document.write(q);
	}

}



function cierrapeich()
{
q='<center style="margin-rigth:10px;margin-left:10px">'+menuprincipal.muestraLinear()+'<br><br></center></td><td><span class=e60></span></td></tr></table><table cellspacing=0 width=100%><tr><td class=texti style="color:#D67D3F;width:100%;text-align:right;padding-top:3px">suculentas.cranf.net [c] alberto viñuela :: voet cranf 2005/2007 :: <a href="http://cranf.net/privacidad.htm" target=_blank style="font-weight:normal;color:#D67D3F">privacidad</a></td><td><span class=e60></span></td></tr></table>';

document.write(q);
}


function titulartabla(tit)
{
q='<table cellspacing=0 align=center background="img/texturapalida.jpg"><tr><td style="vertical-align:middle;padding-left:38px"><img src="img/galder.gif"></td><td class=titulartabla2 nowrap>'+tit+'</td><td style="vertical-align:middle;width:100%"><img src="img/galizq.gif"></tr></table>';
w(q);
}

function escribe()
{location.href="mailto:voet@cranf.net";}

function celtaabre()
{
q='<table cellspacing=0 ><tr><td colspan=3 height=20> 	<table width=100% cellspacing=0><tr> 	<td width=60><img src="celta/celtahortopizq.gif"></td> 	<td width=50% background="celta/celtahorizq.gif" style="background-position:center center"><img src="spacer.gif" width=1 height=20></td> 	<td width=100><img src="celta/celtahortop.gif"></td> 	<td width=50%  background="celta/celtahorder.gif" style="background-position:center center"><img src="spacer.gif" width=1 height=20></td> 	<td width=60><img src="celta/celtahortopder.gif"></td> 	</tr></table> </td></tr> <tr><td width=20 style="height:100%"> 	<table width=20 cellspacing=0 style="height:100%"> 	<tr><td height=40><img src="celta/celtavertopizq.gif"></td></tr> 	<tr><td style="height:50%" background="celta/celtaverup.gif" style="background-position:center center"><img src="spacer.gif" width=20 height=1></td></tr> 	<tr><td height=80><img src="celta/celtaverizq.gif"></td></tr> 	<tr><td style="height:50%"  background="celta/celtaverdown.gif" style="background-position:center center"><img src="spacer.gif" width=20 height=1></td></tr> 	<tr><td height=40><img src="celta/celtaverbotizq.gif"></td></tr> 	</table> </td><td width=100% style="text-align:center;vertical-align:middle">';
document.write(q);
}

function celtacierra()
{
q='</td> <td width=20 style="height:100%"> 	<table width=20 cellspacing=0 style="height:100%"> 	<tr><td height=40><img src="celta/celtavertopder.gif"></td></tr> 	<tr><td style="height:50%" background="celta/celtaverup.gif" style="background-position:center center"><img src="spacer.gif" width=20 height=1></td></tr> 	<tr><td height=80><img src="celta/celtaverder.gif"></td></tr> 	<tr><td style="height:50%"  background="celta/celtaverdown.gif" style="background-position:center center"><img src="spacer.gif" width=20 height=1></td></tr> 	<tr><td height=40><img src="celta/celtaverbotder.gif"></td></tr> 	</table> </td></tr> <tr> <td colspan=3 height=20> 	<table width=100% cellspacing=0><tr> 	<td width=60><img src="celta/celtahorbotizq.gif"></td> 	<td width=50% background="celta/celtahorizq.gif" style="background-position:center center"><img src="spacer.gif" width=1 height=20></td> 	<td width=100><img src="celta/celtahorbot.gif"></td> 	<td width=50%  background="celta/celtahorder.gif" style="background-position:center center"><img src="spacer.gif" width=1 height=20></td> 	<td width=60><img src="celta/celtahorbotder.gif"></td> 	</tr></table> </td> </tr> </table>';
document.write(q);
}


//construcción del menú desplegable
menuprincipal=new VCMmenuItem(null,'');

menu1=new VCMmenuItem("Presentación","index.html");
menu2=new VCMmenuItem("Preguntas y respuestas","faq.html");
menu4=new VCMmenuItem("«¡Yo también quiero coleccionar!»","info.html");
menug=new VCMmenuItem("Galerías de fotos","galerias.html");
	menug1=new VCMmenuItem("Opuntias","gal_cactus_opuntia.html");
	menug2=new VCMmenuItem("Cactoideas","gal_cactus_cactoideae.html");
	menug3=new VCMmenuItem("Crásulas","gal_crasas_crassulaceae.html");
	menug4=new VCMmenuItem("Aizoáceas","gal_crasas_aizoaceae.html");
	menug5=new VCMmenuItem("Lilíaceas","gal_crasas_liliaceae.html");
	menug6=new VCMmenuItem("Otras familias","gal_crasas.html");
	menug7=new VCMmenuItem("Sin identificar","gal_misterio.html");
menu5=new VCMmenuItem("Taxonomía","taxonomia.html");
menu6=new VCMmenuItem("Enlaces","enlaces.html");
menu7=new VCMmenuItem("Libro de visitas","http://book.cranf.net");

menuprincipal.ad(menu1,menu2,menug,menu5,menu4,menu6,menu7);
	menug.ad(menug1,menug2,menug3,menug4,menug5,menug6,menug7);