function toggle(elem)
	' When a location expando-button is clicked, display all its children
	' msgbox("are " + cstr(document.all(elem).children.length))
	strToggle = "00_"+cstr(elem)
	if document.all(strToggle).innerHTML = "+" then
		document.all(strToggle).innerHTML = " -"
		for index = 0 to cint(document.all(elem).children.length)-1
			if document.all(elem).children(index).tagname = "DIV" then
				'msgbox(cstr(document.all(elem).children(index).id))
				'msgbox (cstr(document.all(elem).children(index).style.display))
				document.all(elem).children(index).style.display="inline"
			end if
		next
	else
		document.all(strToggle).innerHTML = "+"
		for index = 0 to cint(document.all(elem).children.length)-1
			if document.all(elem).children(index).tagname = "DIV" then
				'msgbox(cstr(document.all(elem).children(index).id))
				'msgbox (cstr(document.all(elem).children(index).style.display))
				document.all(elem).children(index).style.display="none"
			end if
		next	
	end if
end function

function showdetail(elem)
	'msgbox(cstr(elem))
	strElemDetails = "DESC_"+cstr(elem)
	strElemType = "type_"+cstr(elem)
	document.all("viewerhead").innerHTML = cstr(elem) + " " + cstr(document.all(strElemType).innerHTML)
	document.all("viewer").innerHTML = cstr(document.all(strElemDetails).value)
end function