/* 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);
}  

/* Skribado de la menuo sur la paghon.  */  
function menuo() {
   var legilo;
  switch(navigator.appName) {
    case "Netscape":
     legilo = "nepkaco";
     break;
    case "Opera":
     legilo = "opero";
     break;    
    case "Microsoft Internet Explorer":
     legilo = "ms";
     break;
    default:
     legilo = "";
     break;
  }

//   var padoAl = eltrovuPadonAl();
   var padoAl = "";
   document.writeln("<!-- Menuo -->");
   document.writeln("<a href=\"http://www.EsperantoLand.org\"><img src=\"" +
"../chiuj/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("<td align=\"center\"><a href=\"" + padoAl + "../en/\"><img src=\"http://www.esperantoland.org/chiuj/flago_en.gif\" width=\"26\" height=\"17\" alt=\"english\" border=\"0\"></a></td>");
   document.writeln("<td>&nbsp;</td>");
*/
   document.writeln("<td align=\"center\"><a href=\"" + padoAl + "../no/\"><img src=\"http://www.esperantoland.org/chiuj/flago_no.gif\" width=\"26\" height=\"17\" alt=\"norsk\" border=\"0\"></a></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 +"nr.html#r020521eo\">"+t_menuo[30]+"</a>");
   document.writeln("</p><br>");
*/
   document.writeln("<p>");
   document.writeln(" <a href=\"" + padoAl + "novajhoj.php?lingvo="+lingvo+"&ekde=0\">"+t_menuo[0]+"</a>");
   document.writeln("</p><br>");
/*
  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 + "kurs/index.html\">"+t_menuo[2]+"</a>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "vorort.html\">"+t_menuo[3]+"</a>");
  document.writeln("</p>");

  document.writeln("<form name=\"formularoUzo\">");
  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=libroj\">"+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=\"" + padoAl + "forum/viewforum.php?f=1\">"+t_menuo[7]+"</a>");
  document.writeln("</p>");
*/
  document.writeln("<p>");  
  document.writeln(" <a href=\"" + padoAl + "retposhte.html\">"+t_menuo[8]+"</a>");
  document.writeln("</p><br>"); 
/*
  document.writeln("<!-- Atomz Search HTML for EsperantoLand -->");
  document.writeln("<form method=\"get\" action=\"http://search.atomz.com/search/\">");
  document.writeln("<input size=\"14\" name=\"sp-q\"><br>");
  document.writeln("<input type=\"submit\" value=\""+t_menuo[9]+"\">");
  document.writeln("<input type=\"hidden\" name=\"sp-a\" value=\"sp100163e0\">");
  document.writeln("</form>"); 
*/
  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("<p>");
  document.writeln(" v0.2.9");
  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();
   }
 }  
/* 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]+": " + jaro + "-" + monato + "-" + tago); 
}  

/* 
**********************************************************************  
* 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  
*/