function changeLanguage(formular)
{
   // get the current URL and split it into its part 
  var source = document.URL;
  var pathElements = source.split('/');
  var target = 'http:/';
  var anzahl = pathElements.length;

  // Testvariable and test output
  // var anzahl2 = 0;
  //alert("Anzahl: " + anzahl);
  
  // initialize language variables
  var oldLang = '';
  var newLang = '';
  // get the selected language
  var myindex=formular.langOpts.selectedIndex;
  newLang=formular.langOpts.options[myindex].value;
  //alert("newLang: " + newLang);

  // build the first part of new URL with www.
  target = target + '/' + pathElements[2];
  
  // test output
  //alert("Target: " + target);  

  // build that part of the new URL    
  for (var i=3; i < anzahl-1; i++)
 {
    if (pathElements[i] == 'de' || pathElements[i] == 'en' || pathElements[i] == 'fr' || pathElements[i] == 'ru' || pathElements[i] == 'es' || pathElements[i] == 'se')
    {
       oldLang = pathElements[i];
       target = target + '/' + newLang;
       // test output
       //alert("If-Target: " + target);
    }
    else
    {
       // test output       
       //alert("Path: " + pathElements[i]);

       target = target + '/' + get_lib_name(pathElements[i],newLang);
       // test output
       //alert("Else-Target: " + target);
    }
  }
  target = target + '/' + pathElements[anzahl-1];

  // set the action param on the form to the new URL of target page
  // submit the current page to the server to cause the redirection to the new URL
  formular.langOpts.value = oldLang;
  formular.action = target;
  formular.submit();
}

function get_lib_name(libentry,nlang)
{
   var Ergebnis = "";
   // test output
   //alert("Libentry: " + libentry);
   //var Lib = "lib_" + substr(nlang,0,1);

   for (var j=0;j<libname.length;j++)
   {
      
      if (libname[j]["lib_d"] == libentry)
      {
         // change library name
         if (nlang == "en")
         {
            Ergebnis = libname[j]["lib_e"];
            break;
         }
         if (nlang == "ru")
         {
            Ergebnis = libname[j]["lib_r"];
            break;
         }
         if (nlang == "fr")
         {
            Ergebnis = libname[j]["lib_f"];
            break;
         }
         if (nlang == "es")
         {
            Ergebnis = libname[j]["lib_es"];
            break;
         }
         if (nlang == "se")
         {
            Ergebnis = libname[j]["lib_se"];
            break;
         }
      }
      if (libname[j]["lib_e"] == libentry)
      {
         // change library name
         if (nlang == "de")
         {
            Ergebnis = libname[j]["lib_d"];
            break;
         }
         if (nlang == "ru")
         {
            Ergebnis = libname[j]["lib_r"];
            break;
         }
         if (nlang == "fr")
         {
            Ergebnis = libname[j]["lib_f"];
            break;
         }
         if (nlang == "es")
         {
            Ergebnis = libname[j]["lib_es"];
            break;
         }
         if (nlang == "se")
         {
            Ergebnis = libname[j]["lib_se"];
            break;
         }
      }
      if (libname[j]["lib_r"] == libentry)
      {
         if (nlang == "en")
         {
            Ergebnis = libname[j]["lib_e"];
            break;
         }
         if (nlang == "de")
         {
            Ergebnis = libname[j]["lib_d"];
            break;
         }
         if (nlang == "fr")
         {
            Ergebnis = libname[j]["lib_f"];
            break;
         }
         if (nlang == "es")
         {
            Ergebnis = libname[j]["lib_es"];
            break;
         }
         if (nlang == "se")
         {
            Ergebnis = libname[j]["lib_se"];
            break;
         }
      }

      if (libname[j]["lib_f"] == libentry)
      {
         if (nlang == "en")
         {
            Ergebnis = libname[j]["lib_e"];
            break;
         }
         if (nlang == "de")
         {
            Ergebnis = libname[j]["lib_d"];
            break;
         }
         if (nlang == "ru")
         {
            Ergebnis = libname[j]["lib_r"];
            break;
         }
         if (nlang == "es")
         {
            Ergebnis = libname[j]["lib_es"];
            break;
         }
         if (nlang == "se")
         {
            Ergebnis = libname[j]["lib_se"];
            break;
         }
      }
      if (libname[j]["lib_es"] == libentry)
      {
         if (nlang == "en")
         {
            Ergebnis = libname[j]["lib_e"];
            break;
         }
         if (nlang == "de")
         {
            Ergebnis = libname[j]["lib_d"];
            break;
         }
         if (nlang == "ru")
         {
            Ergebnis = libname[j]["lib_r"];
            break;
         }
         if (nlang == "fr")
         {
            Ergebnis = libname[j]["lib_f"];
            break;
         }
         if (nlang == "se")
         {
            Ergebnis = libname[j]["lib_se"];
            break;
         }
      }
      if (libname[j]["lib_se"] == libentry)
      {
         if (nlang == "en")
         {
            Ergebnis = libname[j]["lib_e"];
            break;
         }
         if (nlang == "de")
         {
            Ergebnis = libname[j]["lib_d"];
            break;
         }
         if (nlang == "ru")
         {
            Ergebnis = libname[j]["lib_r"];
            break;
         }
         if (nlang == "fr")
         {
            Ergebnis = libname[j]["lib_f"];
            break;
         }
         if (nlang == "es")
         {
            Ergebnis = libname[j]["lib_es"];
            break;
         }
      }
   }
   return Ergebnis;
}