// copyright © Thybris, 2001-2002
//
function browserOK() {
  return (document.getElementById || document.all);
}
function checkedLanguage(lang) {
  lang = lang.toLowerCase();
  if (    (lang == "en")
       || (lang == "fr")
     ) {
    return lang;
  } else {
    return "fr"; // default value
  }
}
function remoteLanguage() {
  var remotlang = (navigator.language ? navigator.language : (navigator.userLanguage ? navigator.userLanguage : ""));
  return remotlang.substring(0, 2).toLowerCase();
}
function redirect(lang) {
  var usedlang = checkedLanguage(remoteLanguage());
  if (lang) { lang = lang.toLowerCase(); }
  if ((!location.search) || (location.search.substring(1, 3).toLowerCase() != "in")) {
    if (lang != usedlang) {
      window.top.location = "../" + usedlang + "/" + (browserOK() ? "home.htm" : "index0.htm");
    } else if (!browserOK()) {
      window.top.location = "index0.htm";
    }
  }
}
//