{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}
{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs20 /*\par
\tab Expandable Listmenu Script\par
\tab Author : Daniel Nolan\par
\tab http://www.bleedingego.co.uk/webdev.php\par
*/\par
\par
function initMenus() \{\par
\tab if (!document.getElementsByTagName) return;\par
\tab\par
\tab var aMenus = document.getElementsByTagName("LI");\par
\tab for (var i = 0; i < aMenus.length; i++) \{\par
\tab\tab var mclass = aMenus[i].className;\par
\tab\tab if (mclass.indexOf("treenode") > -1) \{\par
\tab\tab\tab var submenu = aMenus[i].childNodes;\par
\tab\tab\tab for (var j = 0; j < submenu.length; j++) \{\par
\tab\tab\tab\tab if (submenu[j].tagName == "A") \{\par
\tab\tab\tab\tab\tab\par
\tab\tab\tab\tab\tab submenu[j].onclick = function() \{\par
\tab\tab\tab\tab\tab\tab var node = this.nextSibling;\par
\tab\tab\tab\tab\tab\tab\tab\tab\tab\tab\tab\par
\tab\tab\tab\tab\tab\tab while (1) \{\par
\tab\tab\tab\tab\tab\tab\tab if (node != null) \{\par
\tab\tab\tab\tab\tab\tab\tab\tab if (node.tagName == "UL") \{\par
\tab\tab\tab\tab\tab\tab\tab\tab\tab var d = (node.style.display == "none")\par
\tab\tab\tab\tab\tab\tab\tab\tab\tab node.style.display = (d) ? "block" : "none";\par
\tab\tab\tab\tab\tab\tab\tab\tab\tab this.className = (d) ? "treeopen" : "treeclosed";\par
\tab\tab\tab\tab\tab\tab\tab\tab\tab return false;\par
\tab\tab\tab\tab\tab\tab\tab\tab\}\par
\tab\tab\tab\tab\tab\tab\tab\tab node = node.nextSibling;\par
\tab\tab\tab\tab\tab\tab\tab\} else \{\par
\tab\tab\tab\tab\tab\tab\tab\tab return false;\par
\tab\tab\tab\tab\tab\tab\tab\}\par
\tab\tab\tab\tab\tab\tab\}\par
\tab\tab\tab\tab\tab\tab return false;\par
\tab\tab\tab\tab\tab\}\par
\tab\tab\tab\tab\tab\par
\tab\tab\tab\tab\tab submenu[j].className = (mclass.indexOf("open") > -1) ? "treeopen" : "treeclosed";\par
\tab\tab\tab\tab\}\par
\tab\tab\tab\tab\par
\tab\tab\tab\tab if (submenu[j].tagName == "UL")\par
\tab\tab\tab\tab\tab submenu[j].style.display = (mclass.indexOf("open") > -1) ? "block" : "none";\par
\tab\tab\tab\}\par
\tab\tab\}\par
\tab\}\par
\}\par
\par
window.onload = initMenus;\par
}
 