function menubar(calling_htm, menu_index) {
/* Timo Hukkanen 2.1.2008
  Menubar creates menubar with 3 languages (2 flag images))
  
  It is assumed that folder-construction is as follows:
      index.html
      pics
         pic1.jpg
         pic2.jpg
      pages
         page1.html
         page2.html  
      css
         style.css
         menubar.js 
     
  Parameters 
     
  Input:
    calling_htm   e.g. 'info.html'
    menu_index    e.g. 1=Etusivu, 2 = Info ...
     
   Output:
      array
          [1] = lang     f/s/e  finnish/swedish/english
          [2] = menubar
        
    Other:
      Css needs:
          class='palkki' 
          class='palkin_vari'
          class='tab_off'
          class='tab_on'  
          class='link_flag'  
          
       propScreenWidth   
    */
    
  /* Parameters at the end of url are assumed to be separated with ? */  
  
  // Number of items in the menubar. By changing this number you can cut down the number of items in the menubar
  var menulkm = 9;  
//  alert ("menulkm = " +menulkm);
  var tyhjapalikka = 780 - ((menulkm + 1) * 65);
//  alert ("tyhjapalikka=" +tyhjapalikka);

  var urlquery=location.href.split("?");
  var paramLang = "";
  if (urlquery[1]!=null)
     paramLang = urlquery[1].substring(0,1);
//  else   
//   alert ('url[1]= null');
//  alert ('paramLang='+ paramLang);

  // Default language is swedish
  if (paramLang==null || paramLang=="")
     paramLang="s";

  // mm ohjelmat -näyttö on kiinnostunut navi-paikasta
  var navi_ind = ""; 
  if (urlquery[1]!=null) {
      if (urlquery[2]!=null) {
          navi_ind = urlquery[2].substring(0,1);
          // kaksinumeroisesta indeksistä pitää muistaa hakea toinen numero
          var toinen_numero = "";
          if (urlquery[2].substring(1,2)!=null)
              toinen_numero = urlquery[2].substring(1,2);
        //        alert ('toinen_numero='+ toinen_numero);
          if (isFinite(toinen_numero))  
              navi_ind = urlquery[2].substring(0,2); 
          }       
   }
//  alert ('navi-ind='+ navi_ind);

  // Generate code for flags
  // relative pics path depends on caller 
  var pics_path = "../kuvat/";
  if (calling_htm=='index.html') {  //index.html
      pics_path = "kuvat/";
      } 
      
  if (paramLang=="f") {
    var flag1 = "<td class='palkki' align='right'><a href='" + calling_htm + "?s?" + navi_ind + "' class='link_flag'><img title='På svenska' src='"+pics_path+"slippu14.png' border='0'></a>&nbsp;&nbsp;</td>";
    var flag2 = "<td class='palkki' align='right'><a href='" + calling_htm + "?e?" + navi_ind + "' class='link_flag'><img title='In English' src='"+pics_path+"elippu14.png' border='0'></a>&nbsp;</td>";
  }
  if (paramLang=="s") {
    var flag1 = "<td class='palkki' align='right'><a href='" + calling_htm + "?f?" + navi_ind + "' class='link_flag'><img title='Suomeksi' src='"+pics_path+"flippu14.png' border='0'></a>&nbsp;&nbsp;</td>";
    var flag2 = "<td class='palkki' align='right'><a href='" + calling_htm + "?e?" + navi_ind + "' class='link_flag'><img title='In English' src='"+pics_path+"elippu14.png' border='0'></a>&nbsp;</td>";
  }
  if (paramLang=="e") {
    var flag1 = "<td class='palkki' align='right'><a href='" + calling_htm + "?f?" + navi_ind + "' class='link_flag'><img title='Suomeksi' src='"+pics_path+"flippu14.png' border='0'></a>&nbsp;&nbsp;</td>";
    var flag2 = "<td class='palkki' align='right'><a href='" + calling_htm + "?s?" + navi_ind + "'  class='link_flag'><img title='På svenska' src='"+pics_path+"slippu14.png' border='0'></a>&nbsp;</td>";
  }
//   alert ('flag1='+ flag1);

  // Generate menubar

   
  // Page titles in the menubar 
  menutx = new Array();
  if (paramLang=="f") {
     menutx[1] = "Etusivu";
     menutx[2] = "Info";
     menutx[3] = "Ohjelmat";
     menutx[4] = "Materiaali";
     menutx[5] = "Kurssit";
     menutx[6] = "Retket";
     menutx[7] = "Yleisölle";
     menutx[8] = "Linkit";
     menutx[9] = "Galleria";
  }
  if (paramLang=="s") {
     menutx[1] = "Hem";
     menutx[2] = "Info";
     menutx[3] = "Program";
     menutx[4] = "Material";  
     menutx[5] = "Kurser";
     menutx[6] = "Utflykter";
     menutx[7] = "För publik";
     menutx[8] = "Länkar";
     menutx[9] = "Galleri";
     }
  if (paramLang=="e") {
     menutx[1] = "Home";
     menutx[2] = "Info";
     menutx[3] = "Programs";
     menutx[4] = "Material";
     menutx[5] = "Courses";
     menutx[6] = "Trips";
     menutx[7] = "For public";
     menutx[8] = "Links";
     menutx[9] = "Gallery";
       }

  // Pages names (html)
  menuhtm = new Array();
  if (calling_htm=='index.html') {  //index.html
    menuhtm[1] = "index.html?" + paramLang; 
    menuhtm[2] = "sivut/info_huom.html?" + paramLang + "?1";  
    menuhtm[3] = "sivut/aikataulut.html?" + paramLang  + "?1";  
    menuhtm[4] = "sivut/materiaalitanssi.html?" + paramLang  + "?1";  
    menuhtm[5] = "sivut/kurssittanssi.html?" + paramLang + "?1";  
    menuhtm[6] = "sivut/retket.html?" + paramLang + "?1";  
    menuhtm[7] = "sivut/yleisolletapahtumaesite.html?" + paramLang + "?1";  
    menuhtm[8] = "sivut/linkit.html?" + paramLang;  
    menuhtm[9] = "sivut/galleria_messila2008.html?" + paramLang + "?1";  
  }
  else {
    menuhtm[1] = "../index.html?" + paramLang; 
    menuhtm[2] = "info_huom.html?" + paramLang + "?1";  
    menuhtm[3] = "aikataulut.html?" + paramLang + "?1";  
    menuhtm[4] = "materiaalitanssi.html?" + paramLang  + "?1";  
    menuhtm[5] = "kurssittanssi.html?" + paramLang + "?1";  
    menuhtm[6] = "retket.html?" + paramLang + "?1";  
    menuhtm[7] = "yleisolletapahtumaesite.html?" + paramLang + "?1";  
    menuhtm[8] = "linkit.html?" + paramLang;  
    menuhtm[9] = "galleria_messila2008.html?" + paramLang + "?1";  
  }
  
  /* menubar  */
  var menubar = "<table valign='top' border='0' cellpadding='0' cellspacing='0' width='"+propScreenWidth+"'>";
  menubar = menubar + "<tr><td style='font-size: 2px; border-top: solid 1px #EEEEFF;' class='palkin_vari' colspan='"+(menulkm+5)+"'>&nbsp;</td></tr>"; 
//  menubar = menubar + "<tr><td style='font-size: 2px; border-top: solid 0px #EEEEFF;' class='palkin_vari' colspan='"+(menulkm+5)+"'>&nbsp;</td></tr>"; 
  menubar = menubar + "<tr><td class='palkki'>&nbsp;&nbsp;</td>";
  var i=1;
  for (i=1;i<=menulkm;i++)
  {
     if (i == menu_index)
         menubar = menubar+ "<td class='tab_on' align='center' nowrap='nowrap' valign='top'>&nbsp;" + menutx[i] + "&nbsp;&nbsp;</td>";
     else
         menubar = menubar + "<td class='tab_off' align='center' nowrap='nowrap' valign='bottom'><a href='" + menuhtm[i] + "' class='tab_off'>&nbsp;&nbsp;" + menutx[i] + "&nbsp;&nbsp;</a></td>";
  }
//  menubar = menubar + "<td class='palkki'width='100%'>&nbsp;";
  menubar = menubar + "<td class='palkki'width='" +tyhjapalikka+"'>&nbsp;";

  menubar = menubar + flag1 + flag2 + "</td><td class='palkki'>&nbsp;</td></tr></tbody></table>"; 

  tableout = new Array();
  tableout[1] = paramLang;
  tableout[2] = menubar;
  tableout[3] = navi_ind;

  return tableout;
}