function expandCollapse( ) {
	for (var i=0; i<expandCollapse.arguments.length-1; i++) {
		var element = document.getElementById(expandCollapse.arguments[i]);
		element.style.display = (element.style.display == "none") ? "block" : "none";
	}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=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_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

 

 function toggle(link,  Id) {
  var lText = link.innerHTML; var d = document.getElementById (Id); 
 if (d.style.display =='none') { link.innerHTML = 'close'; d.style.display = 'block'; }
 else { link.innerHTML = 'more'; d.style.display = 'none'; } }

 
function ChangeClass (obj, className)
{
	obj.className = className;
	return true;
}

function GoToURL(url)
{
	window.top.location = url;
	return true;
}

function whatIsInside (obj)
{
  var txt = '';
  for (var prop in obj) {
    txt += '(' + prop + ' | ' + obj [prop] + ') ';
  }
  return txt;
}

function whatIsInsideId (id)
{
	if (!id) return false;
	var obj = document.getElementById (id);
	if (!obj) return false;
	return whatIsInside (obj);
}

function toBool (boo) {
  if (boo) return true;
  else return false;
}

function isMozillaEngine ()
{
  // return ! toBool (document.all);
  return isGecko();
}

function isMozilla ()
{
  return isMozillaEngine() && ! isPhoenix();
}

function isPhoenix ()
{
  return toBool( navigator.userAgent .match ( /Firefox|Firebird|Phoenix/i ) );
}

function isOpera ()
{
  return toBool( navigator.userAgent .match ( /Opera/i ) );
}

function isGecko ()
{
	return toBool( navigator.userAgent .match ( /\) Gecko\// ) );
}

// TBD: recognize it better
function isMSIE ()
{
	return !isMozillaEngine() && !isOpera();
}

// Return a string representing revision if available.
function getRevision ()
{
	var reRevision = /rv:(\d+)\.(\d+)/;
	var mm = navigator.userAgent .match (reRevision);
	if ('undefined' == typeof mm || null == mm || 1 >= mm.length) {
		return null;
	}
	return {major: mm [1], minor: mm [2]};
}

// NOTE: returns true if buggy geometry (width in pixels etc).
// Q&D. Possible improvement: find which version are affected from a reliable source.
function isWrongGeom ()
{
	// SOME STATS
	
	// WRONG
	// Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.6) Gecko/20040113
	// Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.5) Gecko/20031007
	// Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.4) Gecko/20030624 Netscape/7.1 (ax)
	
	// OK
	// Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.7) Gecko/20040707 Firefox/0.8
	// Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
	// Opera/7.50 (Windows NT 5.2; U) [en]
	// Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.1.4322)
	// Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.7.2) Gecko/20040804 Netscape/7.2 (ax)

	// THE WORK

	// Only mozilla platform seems to be affected.
	if (! isGecko()) {
		return false;
	}

	// Only certain early versions seem to be affected.
	var revision = getRevision();
	if (! revision) {
		return true;
	}
	if (revision.major == '1' && revision.minor >= '7') {
		return false;
	}
	return true;
}

/* Place the item so that its top and bottom margins on the page look nice.
   Can position on top, in the middle, by the golden ratio (see code), or whatever.
 */
function place_the_item (itemName)
{
  var el_item = document.getElementById (itemName);
  if (!el_item) return true;

  var how2position_default= 'golden';
  var how2position = how2position_default;
  if (arguments.length > 1) {
	how2position = arguments [1];
  }
  switch (how2position) {
  case 'golden':
  case 'top':
  case 'topleft':
	break;
  default:
    how2position = how2position_default;
  }

  var itemtop_min;
  var itemleft_min;
  switch (how2position) {
  case 'golden':
  default:
	itemtop_min = 20;
	itemleft_min = 5;
	break;
  case 'top': case 'topleft':
	itemtop_min = 0;
	itemleft_min = 5;
	break;
  }
  /* Some versions of Mozilla do not know el_item.clientHeight, what gives? */
  
  if (isWrongGeom ()) {
	el_item.style.marginTop = itemtop_min;
	return true;
  }

  // el_item.style.top = (document.body.clientHeight - el_item.clientHeight -1) /2; /* half */
  // el_item.style.top = itemtop_min; /* top */
  // el_item.style.top = (document.body.clientHeight - el_item.clientHeight) * 0.382; /* golden */
  
  el_item.style.position = 'absolute';

  el_item.style.top = '800px';

  /* Use the proper parameters */
  if (el_item.clientWidth && el_item.clientWidth > 0) {
	el_width = el_item.clientWidth;
  } else if (el_item.width && el_item.width > 0) {
	el_width = el_item.width;
  } else {
	el_width = 0; // or null?
  }
  if (document.body.clientWidth && document.body.clientWidth > 0) {
	doc_width = document.body.clientWidth;
  } else if (document.width && document.width > 0) {
	doc_width = document.width;
  } else {
	doc_width = 0; // or null?
  }
  
  if (el_item.clientHeight && el_item.clientHeight > 0) {
	el_height = el_item.clientHeight;
  } else if (el_item.height && el_item.height > 0) {
	el_height = el_item.height;
  } else {
	el_height = 0; // or null?
  }
  
  /* Horizontal position */
  switch (how2position) {

  case 'topleft':
	el_item.style.left = 1;
	break;
  
  case 'top': case 'golden': default:
	el_item.style.left = (doc_width - el_width -1) /2; /* centered */
	//el_item.style.left = el_item.style.left + 'px';
	  
	el_item.style.left = parseInt (el_item.style.left);
	if ( parseInt (el_item.style.left) < parseInt (itemleft_min) ) {
		el_item.style.left = parseInt (itemleft_min);
	}
  }
  
  /* Vertical position */
  switch (how2position) {
  
  case 'golden': default:
	el_item.style.top = (document.body.clientHeight - el_height) * 0.382; /* golden */

	el_item.style.top = parseInt (el_item.style.top);
	if ( parseInt (el_item.style.top) < parseInt (itemtop_min) ) {
		el_item.style.top = parseInt (itemtop_min);
	}
	
	break;
  case 'top': case 'topleft':
	el_item.style.top = 0;

	break;  
  } // switch how2position
  
  return true;
}

function getElementPositionById (elemID) {
	if (!elemID) {
		return getElementPosition (null);
	}
    var elem = document.getElementById (elemID);
    return getElementPosition (elem);
}

function getElementPosition (elem) {
	if (!elem) {
		return {left:null, top:null};
	}
    var offsetLeft = 0;
    var offsetTop = 0;
    while (elem) {
        offsetLeft += elem.offsetLeft;
        offsetTop += elem.offsetTop;
        elem = elem.offsetParent;
    }    
    return {left:offsetLeft, top:offsetTop};
}

function getWindowGeom () {
	var doc_width, doc_height;
	
	if (document.body.clientWidth && document.body.clientWidth > 0) {
		doc_width = document.body.clientWidth;
	} else if (document.width && document.width > 0) {
		doc_width = document.width;
	} else {
		doc_width = 0; // or null?
	}

	if (document.body.clientHeight && document.body.clientHeight > 0) {
		doc_height = document.body.clientHeight;
	} else if (document.height && document.height > 0) {
		doc_height = document.height;
	} else {
		doc_height = 0; // or null?
	}

	return {width: doc_width, height: doc_height}
}

function getElementGeom (el) {
	if (!el) {
		return {left:null, top:null};
	}

	var el_width, el_height;
	
	if (el.clientWidth && el.clientWidth > 0) {
		el_width = el.clientWidth;
	} else if (el.width && el.width > 0) {
		el_width = el.width;
	} else {
		el_width = 0; // or null?
	}

	if (el.clientHeight && el.clientHeight > 0) {
		el_height = el.clientHeight;
	} else if (el.height && el.height > 0) {
		el_height = el.height;
	} else {
		el_height = 0; // or null?
	}

	return {width: el_width, height: el_height};
}

function getElementGeomById (elemID) 
{
	if (!elemID) {
		return getElementGeom (null);
	}
    var elem = document.getElementById (elemID);
    return getElementGeom (elem);
}

function OpenPopupWindow (url, title, width, height) {
	return window.open (url, title,
		'toolbar=no,location=no,status=no,menubar=yes,scrollbars=yes,resizable=no,' 
		+ 'width=' + width + ',height=' + height + ',left=20,top=20'
	);
}

// Concatenate parameters as arrays.
// Replacement for Array.concat()
function unite ()
{
  var ar = new Array ();
  var ii, aa;
  for (ii = 0; ii < arguments.length; ++ii) {
    switch (typeof arguments [ii]) {
    case 'object':
      for (aa = 0; aa < arguments [ii].length; ++aa) {
        ar [ar.length] = arguments [ii][aa];
      }
      break;
    case 'string': case 'number':
      ar [ar.length] = arguments [ii];
      break;
    default:
      // undefined, function... what else?
      break;
    }
  }
  return ar;
}

// Get the element referred to either by reference or by its id.
// Null if none.
function getElement (elOrId)
{
	if ('undefined' == typeof elOrId || !elOrId) return null;
	if ('object' == typeof elOrId) return elOrId;
	if ('string' == typeof elOrId) return document.getElementById (elOrId);
	if ('function' == typeof elOrId) return elOrId (this); // hmm
	return null;
}

// Return if el is in array ar.
function isIn (el, ar)
{
	if (!el || !ar) return false;
	var ii;
	for (ii = 0; ii < ar.length; ++ii) {
		if (el == ar [ii]) return true;
	}
	return false;
}

roundNumber = function (nn) {
	return (nn < 0.) ? parseInt (nn -0.5) : parseInt (nn +0.5);
}

// Input a (float) number, output the dollars and cents amount
// in format dddddd.cc (exactly 2 digits after the point).
formatDollars = function (dd) {
	var ff = parseFloat (dd); // No parseDouble is avaiable
	ff = 100. * ff; // Cents
	ff = roundNumber (ff); // Round
	ff = ff.toString ();
	
	var lenlen = ff .length ;
	if (lenlen > 2) {
		ff = ff.substring (0, lenlen - 2) +'.' + ff.substring (lenlen - 2, lenlen);
	} else if (2 == lenlen) {
		ff = '0.'+ ff;
	} else {
		ff = '0.0'+ ff;
	}
	
	return (ff);
};