function clearListStatus() {
  var obj;
  obj = MM_findObj('menuExpanderPP'); if (obj) obj.value = "";
  obj = MM_findObj('menuExpanderCRS'); if (obj) obj.value = "";
  obj = MM_findObj('menuExpanderCFBC'); if (obj) obj.value = "";
}


function collapseList(listName) {
	var layerObj;
	var fieldObj;
	if ((fieldObj=MM_findObj(listName))!=null) {
		if ((layerObj=MM_findObj(listName+'layer'))!=null) {
			if (fieldObj.value == "") {
				fieldObj.value = layerObj.innerHTML;
				layerObj.innerHTML = "";
				MM_swapImage(listName+'img','','images/ui/expanderArrowRight.gif',1);
			}
		}
	}
}


function expandList(listName) {
	var layerObj;
	var fieldObj;
	if ((fieldObj=MM_findObj(listName))!=null) {
		if ((layerObj=MM_findObj(listName+'layer'))!=null) {
			if (fieldObj.value != "") {
				layerObj.innerHTML = fieldObj.value;
				fieldObj.value = "";
				MM_swapImage(listName+'img','','images/ui/expanderArrowDown.gif',1);
			}
		}
	}
}


function toggleExpandingList(listName) {
	var layerObj;
	var fieldObj;
	if ((fieldObj=MM_findObj(listName))!=null) {
		if ((layerObj=MM_findObj(listName+'layer'))!=null) {
			if (fieldObj.value == "") {
				collapseList(listName);
			}
			else {
				expandList(listName);
			}
		}
	}
}


function collapseAllLists() {
	collapseList('menuExpanderPP');
	collapseList('menuExpanderCRS');
	collapseList('menuExpanderCFBC');
}


function expandAllLists() {
	expandList('menuExpanderPP');
	expandList('menuExpanderCRS');
	expandList('menuExpanderCFBC');
}