function extractPageName(hrefString)
{
  var pg = 'default';
  var arr = hrefString.split('.');
  if(arr[arr.length-2].indexOf('/') != -1)
  {
    arr = arr[arr.length-2].split('/');
    pg = arr[arr.length-1].toLowerCase();
  }
  return pg;  
}

function setActiveMenu(arr, crtPage)
{
  for(var i=0; i < arr.length; i++)
  if(extractPageName(arr[i].href) == crtPage)
  {
    arr[i].className = 'current';
    arr[i].parentNode.className = 'current';
  }
}

function setPage()
{
  if(document.location.href) 
    hrefString = document.location.href;
      else
    hrefString = document.location;
    if (document.getElementById('left')!=null)
    setActiveMenu(document.getElementById('left').getElementsByTagName('a'),extractPageName(hrefString).replace(/_[0-9]/,''));
    setActiveMenu(document.getElementById('topMenu').getElementsByTagName('a'),extractPageName(hrefString).replace(/[0-9_]/g,''));
    if (document.getElementById('right')!=null)
    setActiveMenu(document.getElementById('right').getElementsByTagName('a'),extractPageName(hrefString));
}

var swapDelay=5000

function rotate() {
 var doc=document,args=arguments,n; doc.$imgSwaps=new Array();
 doc.$img=FP_getObjectByID(args[0]); doc.$imgNo=0;
 doc.$imgTotal=args.length-1; for(n=1; n<args.length; n+=1)
 doc.$imgSwaps[n-1]=args[n]; setTimeout('swap()',swapDelay);
}

function swap() {
 var doc=document; doc.$imgNo=(doc.$imgNo+1)%doc.$imgTotal; if (document.all){
  doc.$img.style.filter="blendTrans(duration=3)"; doc.$img.filters.blendTrans.Apply()
 } doc.$img.src=doc.$imgSwaps[doc.$imgNo]; if (document.all)
 doc.$img.filters.blendTrans.Play(); setTimeout('swap()',swapDelay)
}

function FP_getObjectByID(id,o) {//v1.0
 var c,el,els,f,m,n; if(!o)o=document; if(o.getElementById) el=o.getElementById(id);
 else if(o.layers) c=o.layers; else if(o.all) el=o.all[id]; if(el) return el;
 if(o.id==id || o.name==id) return o; if(o.childNodes) c=o.childNodes; if(c)
 for(n=0; n<c.length; n++) { el=FP_getObjectByID(id,c[n]); if(el) return el; }
 f=o.forms; if(f) for(n=0; n<f.length; n++) { els=f[n].elements;
 for(m=0; m<els.length; m++){ el=FP_getObjectByID(id,els[n]); if(el) return el; } }
 return null;
}