function MM_findObj2(n, d) { //v3.0
  var p,i,x;
  if(!d) d=document;
  if((p=n.indexOf("?"))>0 && parent.parent.frames.length) {
//    alert (n.substring(p+1));
//    alert (n.substring(0,p));
    d=parent.parent.frames[n.substring(p+1)].document;
    n=n.substring(0,p);
  }
  if(!(x=d[n])&&d.all) x=d.all[n];
  for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0; !x && d.layers && i<d.layers.length; i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n);
  return x;
}

function MM_findObj3(n, d) { //v3.0
  var p,p1,i,x,ftop,frest,fmid,fleft,midf;
  if(!d) d=document;
  if((p=n.indexOf("?"))>0&&parent.frames.length) {
    ftop = n.substring(p+1);
    frest = n.substring(0,p);
    if((p1=frest.indexOf("!"))>0 && parent.frames[ftop].frames.length) {
       fmid = frest.substring(p1+1);
       fleft = frest.substring(0,p1);
       d=parent.frames[ftop].frames[fmid].document; 
    }
    else 
    {
       fleft = frest;
       d=parent.frames[ftop].document; 
    }
    n=fleft;
  }
  if(!(x=d[n])&&d.all) x=d.all[n];
//    alert ("after if");
  for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n);
  return x;
}

function MM_showHide() { //v3.0
//alert ("in showHide");
   var i,p,v,obj,args=MM_showHide.arguments;
   for (i=0; i<(args.length-2); i+=3) 
      if ((obj=MM_findObj(args[i]))!=null) 
      { 
//         alert ("Found Obj");
         v=args[i+2];
         if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }
//         alert (v);
         if(v)// if(v) Added by pf
         obj.visibility=v; 
      }
}

function MM_showHideLayers2() { //v3.0
   var i,p,v,obj,args=MM_showHideLayers2.arguments;
   for (i=0; i<(args.length-2); i+=3) 
      if ((obj=MM_findObj2(args[i]))!=null) 
      { 
         v=args[i+2];
         if (obj.style) {obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v;}
         if(v)// if(v) Added by pf
         obj.visibility=v; 
      }
}

function MM_showHideLayers3() { //v3.0
   var i,p,v,obj,args=MM_showHideLayers3.arguments;
   for (i=0; i<(args.length-2); i+=3) 
      if ((obj=MM_findObj3(args[i]))!=null) 
      { 
         v=args[i+2];
         if (obj.style) {obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v;}
         if(v)// if(v) Added by pf
         obj.visibility=v; 
      }
}

function MM_showMenuHead() { //v3.0
   var i,p,v,obj,args=MM_showMenuHead.arguments;
//   alert (args[1])
//   alert (eval(args[1]+"Lyr.y"))
//   var ndoc = (eval(args[1]+".layers.length"))
//   alert (ndoc)
   for (i=0; i<(args.length-2); i+=3) 
      if ((obj=MM_findObj(args[i]))!=null) 
      { 
//         alert ("found obj")
         v=args[i+2];
         if (is.ns4) 
         {
//            alert ("ns4");
//            obj.document.write(v)
//            obj.document.close()
         }
         else
         {
//            alert (obj.innerHTML)
            obj.childNodes[0].data=v;
         }      
      }
}

function MM_showMenuHead3() { //v3.0
   var i,p,v,obj,args=MM_showMenuHead3.arguments;
   for (i=0; i<(args.length-2); i+=3) 
      if ((obj=MM_findObj3(args[i]))!=null) 
      { 
         v=args[i+2];
         obj.childNodes[0].data=v;
      }
}

function MM_goLocation3() { //v3.0
   var i,p,f,h,ht,s,t,obj,args=MM_goLocation3.arguments;
   i = 0;
//alert ("in golocation" + "\n");
   obj=MM_findObj3(args[i]);
   f = args[i+1];
   t = args[i+2];
   tf= args[i+3];
   td= args[i+4];
//alert ("from : " + f + "\n" + 
//       "to   : " + t + "\n" +
//       "td   : " + td + "\n" +
//       "tf   : " + tf + "\n");
   h = obj.href;
   p = (h.lastIndexOf("index-2.html") + 1);
   s = h.substring(0,p);
      
//alert ("p    : " + p + "\n" + 
//       "href : " + h + "\n" +
//       "pref : " + s + "\n" +
//       "hto  : " + ht + "\n");
   if (tf == "_blank")
   {
      ht= td + t;
//alert ("ht view   : " + ht + "\n");
      ViewHTML(ht);  
   }
   else 
   { 
      ht= s + t;
//alert ("ht obj    : " + ht + "\n");
      obj.href =  ht;

   }
}
function currency(anynum,fd) {
   //-- Returns passed number as string in $xxx,xxx.xx format.
   anynum=eval(anynum)
   workNum=Math.abs((Math.round(anynum*100)/100));workStr=""+workNum
   if (workStr.indexOf(".")==-1){workStr+=".00"}
   dStr=workStr.substr(0,workStr.indexOf("."));dNum=dStr-0
   pStr=workStr.substr(workStr.indexOf("."))
   while (pStr.length<3){pStr+="0"}

   //--- Adds comma in thousands place.
   if (dNum>=1000) {
      dLen=dStr.length
      dStr=parseInt(""+(dNum/1000))+","+dStr.substring(dLen-3,dLen)
   }

   //-- Adds comma in millions place.
   if (dNum>=1000000) {
      dLen=dStr.length
      dStr=parseInt(""+(dNum/1000000))+","+dStr.substring(dLen-7,dLen)
   }
   retval = dStr + pStr 
   //-- Put numbers in parentheses if negative.
   if (anynum<0) {retval="("+retval+")"}
   if (fd) {retval="$"+retval}
   return retval
}