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_controlShockwave(objStr,x,cmdName,frameNum) { //v3.0
var obj=MM_findObj(objStr);
if (obj) eval('obj.'+cmdName+'('+((cmdName=='GotoFrame')?frameNum:'')+')');
} 

function updateBiome (labelBiome, bVisibleBiome) {
	var Biomes;
	Biomes = MM_findObj('Biomes');
	if(Biomes) {
		var visibleBiome = -1;
		var strMov = 'mov' + labelBiome;
		if (bVisibleBiome==true) {
			visibleBiome = 1;
		} else {
			visibleBiome = 0;
		}
		//alert('strMov='+strMov+'\nvisibleBiome='+visibleBiome);
		if (labelBiome.length > 0) {
			//if(Biomes.TSetProperty) {
				Biomes.TSetProperty(strMov, 7, visibleBiome);
				MM_findObj('chkAll').checked = 0;
			//}
		} else {
			if(Biomes.TSetProperty) {
				Biomes.TSetProperty('movAG', 7, visibleBiome);
				Biomes.TSetProperty('movB', 7, visibleBiome);
				Biomes.TSetProperty('movCF', 7, visibleBiome);
				Biomes.TSetProperty('movM', 7, visibleBiome);
				Biomes.TSetProperty('movSM', 7, visibleBiome);
				Biomes.TSetProperty('movT1', 7, visibleBiome);
				Biomes.TSetProperty('movT2', 7, visibleBiome);
				Biomes.TSetProperty('movTF', 7, visibleBiome);
				Biomes.TSetProperty('movTM', 7, visibleBiome);
				Biomes.TSetProperty('movTS', 7, visibleBiome);
				MM_findObj('chkAG').checked = visibleBiome;
				MM_findObj('chkB').checked = visibleBiome;
				MM_findObj('chkCF').checked = visibleBiome;
				MM_findObj('chkM').checked = visibleBiome;
				MM_findObj('chkSM').checked = visibleBiome;
				MM_findObj('chkT1').checked = visibleBiome;
				MM_findObj('chkT2').checked = visibleBiome;
				MM_findObj('chkTF').checked = visibleBiome;
				MM_findObj('chkTM').checked = visibleBiome;
				MM_findObj('chkTS').checked = visibleBiome;
			}
		}
	}
}

function updateAllBiomes() {
	var chk;
	chk = MM_findObj('chkAG');
	if(chk) updateBiome('AG', chk.checked);
	chk = MM_findObj('chkB');
	if(chk) updateBiome('B', chk.checked);
	chk = MM_findObj('chkCF');
	if(chk) updateBiome('CF', chk.checked);
	chk = MM_findObj('chkM');
	if(chk) updateBiome('M', chk.checked);
	chk = MM_findObj('chkSM');
	if(chk) updateBiome('SM', chk.checked);
	chk = MM_findObj('chkT1');
	if(chk) updateBiome('T1', chk.checked);
	chk = MM_findObj('chkT2');
	if(chk) updateBiome('T2', chk.checked);
	chk = MM_findObj('chkTF');
	if(chk) updateBiome('TF', chk.checked);
	chk = MM_findObj('chkTM');
	if(chk) updateBiome('TM', chk.checked);
	chk = MM_findObj('chkTS');
	if(chk) updateBiome('TS', chk.checked);
	/*
	chk = MM_findObj('chkAll');
	updateBiome('', chk.checked);
	*/
}


function loadPrintPreview (publicationId) {
	window.open('PublicationPrintPage.aspx?ID='+publicationId, 'preview', 'toolbar=0,menubar=1');
}