/*Esploru kiom da ebenoj ni estas sub "esperantoland"k redonu la padon.*/
function eltrovuPadonAl() 
{  
   var padoAl = ""  
   var adreso = location.href;  
   var lasta = adreso.lastIndexOf("/");
   var antaulasta = adreso.lastIndexOf("/", lasta - 1);
   var pado = adreso.substring(antaulasta,lasta + 1);     while(pado.indexOf("/de/") == - 1) {
    lasta = antaulasta;
    antaulasta = adreso.lastIndexOf("/", lasta - 1);
    pado = adreso.substring(antaulasta,lasta+ 1); 
    padoAl = padoAl + "../";
    if(antaulasta < 0) {
      padoAl = "de/";
      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();  
  document.writeln("<!-- Menuo -->");
  document.writeln("<a href=\"" + padoAl + "index.php\"><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("<td align=\"center\"><a href=\"" + padoAl + ".\"><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("<p>");
  document.writeln(" <a href=\"" + padoAl + "veranstaltungen.html#r020521de\">Neujahrstreffen</a>");
  document.writeln("</p><br>");

   document.writeln("<p>");
   document.writeln(" <a href=\"" + padoAl + "novajhoj.php?lingvo=de&ekde=0\">Esperanto-Nachrichten</a>");
   document.writeln("</p><br>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl+ "wasist/index.html\">Was ist Esperanto?</a>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "kurs/index.html\">Esperanto lernen</a>");
  document.writeln("</p>");
 document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "libroj/\">B&uuml;cher/Tontr&auml;ger</a>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "vorort.html\">Esperanto vor Ort</a>");
  document.writeln("</p>");
    document.writeln("<form name=\"formularoUzo\">");
  document.writeln(" Esperanto anwenden...<br>");
  document.writeln(" <select name=\"elektoUzo\" size=\"1\" onchange=\"uzo(document.formularoUzo.elektoUzo[document.formularoUzo.elektoUzo.options.selectedIndex].value)\">");
  document.writeln("  <option value=\"\">Auswahl:</option>");
  document.writeln("  <option value=\"\">---</option>");
  document.writeln("  <option value=\"uzo.php?lingvo=de&kategorio=komputilo\">Internet</option>");
  document.writeln("  <option value=\"uzo.php?lingvo=de&kategorio=renkontighoj\">Treffen</option>");
  document.writeln("  <option value=\"uzo.php?lingvo=de&kategorio=vojaghadoj\">Reisen</option>");
  document.writeln("  <option value=\"uzo.php?lingvo=de&kategorio=muziko\">Musik</option>");
  document.writeln("  <option value=\"uzo.php?lingvo=de&kategorio=literaturo\">Literatur</option>");
  document.writeln("  <option value=\"uzo.php?lingvo=de&kategorio=gazetoj\">Zeitschriften</option>");
  document.writeln("  <option value=\"uzo.php?lingvo=de&kategorio=radio\">Radio</option>");
  document.writeln(" </select>");
  document.writeln("</form>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "wir/index.html\">Wir &uuml;ber uns</a>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "wir/unterst.html\">EsperantoLand unterst&uuml;tzen</a>");      document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "verweise.html\">Verweise</a>");
  document.writeln("</p>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "forum/viewforum.php?f=1\">Forum</a>");
  document.writeln("</p>");
  document.writeln("<p>");  
  document.writeln(" <a href=\"" + padoAl + "retposhte.html\">IhrName @esperantoland.org</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=\"Suchen\">");
  document.writeln("<input type=\"hidden\" name=\"sp-a\" value=\"sp100163e0\">");
  document.writeln("</form>");
  document.writeln("<p>");
  document.writeln(" <a href=\"" + padoAl + "kontakto.html\">Kontakt</a>");
  document.writeln("</p>");
  if(legilo == "ms") {
    document.writeln("<p>");
    document.writeln(" Diese Seite zu Favoriten hinzuf&uuml;gen: STRG+D");
    document.writeln("</p>");
  }  
  document.writeln("<p>");
  document.writeln(" v0.2.9");
  document.writeln("</p>");}

/*Saltado al pagho pri uzmanieroj de Esperanto. */
function uzo(loko) {
  var padoAl = eltrovuPadonAl();
  if(loko != "") {
    window.location.href = padoAl + "anwenden/" + 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("zuletzt ge&auml;ndert: " + tago + "." + monato + "." + jaro); 
}  
/*Malebligu montradon en kadroj. */
if(top.frames.length > 0)  top.location.href=self.location;
/*
***********************************************************************
* 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 
*/