/* Esploru kiom da ebenoj ni estas sub "esperantoland" k redonu la padon. */ 
function eltrovuPadonAl() {
  var padoAl = "";
  var adreso = location.pathname;  
  var lasta = adreso.lastIndexOf("/");
  var antaulasta = adreso.lastIndexOf("/", lasta - 1);
  var pado = adreso.substring(antaulasta,lasta + 1);
   while(pado.indexOf("/"+lingvo2+"/") == - 1) {
    lasta = antaulasta;
    antaulasta = adreso.lastIndexOf("/", lasta - 1);
    pado = adreso.substring(antaulasta,lasta + 1);
    padoAl = padoAl + "../";
    if(antaulasta < 0) {
     padoAl = lingvo2+"/";
     break;
    }
  }
  return(padoAl);
}  
   var legilo;
/* Skribado de la menuo sur la paghon.  */  
function menuo() {

  switch(navigator.appName) {
    case "Netscape":
     window.captureEvents(Event.KEYUP);
     window.onKeyUp=testFino;
     legilo = "nepkaco";
     enAlto=10;
     break;
    case "Opera":
     legilo = "opero";
     window.captureEvents(Event.KEYUP);
     window.onKeyUp=testFino;
     enAlto=10;
     break;    
    case "Microsoft Internet Explorer":
     legilo = "ms";
     enAlto=20;
     break;
    default:
     legilo = "";
     break;
  }

   qs=window.location.search;
   pos=qs.indexOf("vorto=");
   vorto="";
   if (pos>0) 
   {
     vorto=qs.substr(pos+6);
   }
   var padoAl = eltrovuPadonAl();
   document.writeln("<!-- Menuo -->");
   document.writeln("<a href=\"http://www.EsperantoLand.org\"><img src=\"" 
+ padoAl + "schritt.gif\" alt=\"Ein Schritt aufeinander zu: Esperanto - die internationale Sprache.\" width=\"161\" height=\"68\" border=\"0\"></a>");
   document.writeln("");
   document.writeln("<div align=\"center\">");
   document.writeln("<table>"); 
   document.writeln("<tr><td>&nbsp;</td></tr>");
   document.writeln("<tr>");
   document.writeln("<td align=\"center\"><a href=\"" + padoAl + "../eo/\"><img src=\"http://www.esperantoland.org/chiuj/flago_eo.gif\" width=\"26\" height=\"17\" alt=\"Esperanto\"  border=\"0\"></a></td>");
   document.writeln("<td>&nbsp;</td>");

   document.writeln("<td align=\"center\"><a href=\"" + padoAl + "../de/\"><img src=\"http://www.esperantoland.org/chiuj/flago_de.gif\" width=\"26\" height=\"17\" alt=\"deutsch\" border=\"0\"></a></td>");
   document.writeln("<td>&nbsp;</td>"); 
   document.writeln("</tr>");
   document.writeln("<tr><td>&nbsp;</td></tr>");  
   document.writeln("</table>");
   document.writeln("</div>");
   document.writeln("<div>");
   document.writeln("<p>");
   document.writeln("<a href=\""+ padoAl +"../somere/index_de.shtml\">"+t_menuo[29]+"</a>");
   document.writeln("</p>");
   document.writeln("<p>");
   document.writeln("<a href=\""+ padoAl +"../nr/index_de.shtml\">"+t_menuo[30]+"</a>");
   document.writeln("</p>");
   document.writeln("<p>");
   document.writeln("<a href=\""+ padoAl +"../nis/index_de.shtml\">"+t_menuo[31]+"</a>");
   document.writeln("</p><br>");  
  document.writeln("<form name=\"formularoUzo\" onSubmit='return false'>");
   document.writeln("<p>");
   document.writeln(" <a href=\"" + padoAl + "novajhoj.php?lingvo="+lingvo+"&ekde=0\">"+t_menuo[0]+"</a><br>");
   document.writeln("<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" valign=\"bottom\"><tr><td>");
  document.writeln("<input size=\""+enAlto+"\" name=\"vorto\" value=\""+vorto+"\" onKeyUp='return testFino(null)'></td><td>");
  document.writeln("&nbsp;<a href='javascript:uzo(\"sercho.php?lingvo=\"+lingvo+\"&ekde=0&vorto=\"+document.formularoUzo.vorto.value);' ><img src=\"http://www.esperantoland.org/chiuj/demando.gif\" alt=\"Suchen\"  border=\"0\"></a>");
   document.writeln("</td></tr></table>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "kioestas/index.html\">"+t_menuo[1]+"</a>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "presse.html\">"+t_menuo[50]+"</a>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "kurs/index.html\">"+t_menuo[2]+"</a>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"http://www.EsperantoLand.org/kursoj/index_de.php\">"+t_menuo[40]+"</a>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "libroj/\">"+t_menuo[22]+"</a>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "../gruppen/mapo.php?mapo=13&lingvo=de\">"+t_menuo[3]+"</a>");
  document.writeln("</p>");
  document.writeln(" "+t_menuo[12]+"...<br>");
  document.writeln(" <select name=\"elektoUzo\" size=\"1\" onchange=\"uzo(document.formularoUzo.elektoUzo[document.formularoUzo.elektoUzo.options.selectedIndex].value)\">");
  document.writeln("  <option value=\"\">"+t_menuo[13]+":</option>");
  document.writeln("  <option value=\"\">---</option>");
  document.writeln("  <option value=\"uzo.php?lingvo="+lingvo+"&kategorio=komputilo\">"+t_menuo[14]+"</option>");
  document.writeln("  <option value=\"uzo.php?lingvo="+lingvo+"&kategorio=renkontighoj\">"+t_menuo[15]+"</option>");
  document.writeln("  <option value=\"uzo.php?lingvo="+lingvo+"&kategorio=vojaghadoj\">"+t_menuo[16]+"</option>");
  document.writeln("  <option value=\"uzo.php?lingvo="+lingvo+"&kategorio=muziko\">"+t_menuo[17]+"</option>");
  document.writeln("  <option value=\"uzo.php?lingvo="+lingvo+"&kategorio=literaturo\">"+t_menuo[18]+"</option>");
  document.writeln("  <option value=\"uzo.php?lingvo="+lingvo+"&kategorio=gazetoj\">"+t_menuo[19]+"</option>");
  document.writeln("  <option value=\"uzo.php?lingvo="+lingvo+"&kategorio=radio\">"+t_menuo[20]+"</option>");
  document.writeln(" </select>");
  document.writeln("</form>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "ni/index.html\">"+t_menuo[4]+"</a>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "ni/unterst.html\">"+t_menuo[5]+"</a>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "verweise.html\">"+t_menuo[6]+"</a>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"../forum/index.php?lang=german\">"+t_menuo[7]+"</a>");
  document.writeln("</p>");
  document.writeln("<p>");  
  document.writeln(" <a href=\"" + padoAl + "kontakto.html\">"+t_menuo[10]+"</a>");
  document.writeln("</p><br>");
  if(legilo == "ms") {
    document.writeln("<p>");
    document.writeln(t_menuo[11]);
    document.writeln("</p>");
  }  
}
   document.writeln("</div>");
/* Saltado al pagho pri uzmanieroj de Esperanto.  */  

function uzo(loko) {
  var padoAl = eltrovuPadonAl();
   if(loko != "") {
    window.location.href = padoAl + loko;
   }
   else {
    document.formularoUzo.reset();
   }
 }  
function testFino(evo)
{
   if (legilo != "ms")
   {
	if (evo.which==13)
	{
		seite="sercho.php?lingvo="+lingvo+"&ekde=0&vorto="+document.formularoUzo.vorto.value		
		uzo(seite);		
		window.onKeyUp=testFino;	
		return false;		
	}
   }
   else
   {
	if (window.event.keyCode==13)
	{
		seite="sercho.php?lingvo="+lingvo+"&ekde=0&vorto="+document.formularoUzo.vorto.value		
		uzo(seite);	
		return false;		
	}
   }
   return true;
}
/* Belformatigo la daton lau internacia normo.  */  
function dato(gd) {

  jaro = gd.getYear();
  if (jaro==70) {
    gd=new Date();
    jaro = gd.getYear();
  }
  if(jaro < 100) jaro += 100;
  if(jaro < 1900) jaro += 1900;
  monato = gd.getMonth() + 1;
  if(String(monato).length == 1)
    monato = "0".concat(String(monato));
  tago = gd.getDate()
  if(String(tago).length == 1)
    tago = "0".concat(String(tago));
  document.writeln(t_menuo[21]+": " + tago + "." + monato + "." + jaro); 
}  

/* 
**********************************************************************  
* En tiu chi skripto trovighas la jenaj funkcioj:  
*
* 1. eltrovuPadonAl()  
* 2. menuo()  
* 3. uzo(loko)  
* 4. dato(gd)  
*  
* Krome che la fino trovighas eksterfunkcia ordono por malebligi  
* montradon de la pagho en kadro.  
*  
* 1. eltrovuPadonAl()  
*  
* Tiu funkcio eltrovas, en la kioma subebeno trovighas la aktuala  
* pagho k redonas la necesan kvanton da /..-oj por veni al la plej  
* supra ebeno. Tiel oni povas uzi relativajn adresojn en la menuo,  
* kiu estas skribata per menuo().  
*  
* 2. menuo()  
*  
* Tiu funkcio skribas simple la menuon sur la paghon, uzante la  
* valoron de eltrovuPadonAl().  
*  
* 3. uzo(loko)  
*  
* Tiu funkcio estas vokata de la formulareto en menuo() k sendas al  
* la diversaj subpaghoj de Esperanto anwenden. Ankau ghi uzas la  
* valoron de eltrovuPadonAl().  
*  
* 4. dato(gd)  
*  
* Tiu funkcio nur konvertas la formon de la dato al JJJJ-MM-TT k  
* skribas ghin sur la paghon.  
*  
* mailto:seb@esperantoland.de  
*/