/* -------------------------------------------------------------------
MODULE:      Artenfoerderung Vögel Schweiz
FILE:        ie6.js
DEVELOPER:   Reguel Wermelinger (März, 2008)
UPDATE:      14. März 2008 (RW)
OWNER:       Schweizerische Vogelwarte Sempach
--------------------------------------------------------------------*/





/* ---------------------------------------------------------------- */
/* -----[  SubMenü Layer Handling  ]------------------------------- */
/* ---------------------------------------------------------------- */
var timer = new Array();

function ShowMenu(curID, doShow){
  var curLayer = document.getElementById("subMen"+curID);
  
  if (curLayer != null){
    if (doShow){
      Timer(curID, false);
      curLayer.style.visibility = 'visible';
    }else{
      curLayer.style.visibility = 'hidden';
    }
  }
}

function Timer(curID, doTime){
  if (doTime){
    timer[curID] = setTimeout("ShowMenu("+curID+", false)",100);
  }else{
    window.clearTimeout(timer[curID]);
  }
}