/*
   JSCookTree v2.01.  (c) Copyright 2002 by Heng Yuan

   Permission is hereby granted, free of charge, to any person obtaining a
   copy of this software and associated documentation files (the "Software"),
   to deal in the Software without restriction, including without limitation
   the rights to use, copy, modify, merge, publish, distribute, sublicense,
   and/or sell copies of the Software, and to permit persons to whom the
   Software is furnished to do so, subject to the following conditions:

   The above copyright notice and this permission notice shall be included
   in all copies or substantial portions of the Software.

   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
   OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
   ITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
   AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
   LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
   FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
   DEALINGS IN THE SOFTWARE.
*/

// data structures

//
// ctTreeInfo stores information about the current tree
//
function ctTreeInfo (nodeProperties, prefix, hideType, expandLevel)
{
   // default node properties
   this.nodeProperties = nodeProperties;
   // current selected item in this tree
   this.currentItem = null;
   // theme prefix
   this.prefix = prefix;
   // open tree type
   // 0: just open the current tree
   // 1: close other branches in the same tree
   // 2: close other branches in other trees as well
   this.hideType =  hideType;
   // the deepest level of the tree is the always expaned
   this.expandLevel = expandLevel;
   // beginIndex is the first index of the tree item
   this.beginIndex = 0;
   // endIndex is same as beginIndex + # of items in the tree
   this.endIndex = 0;
}

function ctMenuInfo (id, idSub)
{
   // id of the menu item that owns the sub menu
   this.id = id;
   // the id of the sub menu
   this.idSub = idSub;
}

// Globals

var _ctIDSubMenuCount = 0;
var _ctIDSubMenu = 'ctSubTreeID';      // for creating submenu id

var _ctCurrentItem = null;    // the current menu item being selected;

var _ctNoAction = new Object (); // indicate that the item cannot be hovered.

var _ctItemList = new Array ();     // a simple list of items
var _ctTreeList = new Array ();     // a list of ctTreeInfo.
var _ctMenuList = new Array ();     // a list of ctMenuInfo

var _ctMenuInitStr = '';         // initiation command that initiate menu items

// default node properties
var _ctNodeProperties =
{
   // tree attributes
   //
   // except themeLevel, all other attributes can be specified
   // for each level of depth of the tree.

   // HTML code to the left of a folder item
   // first one is for folder closed, second one is for folder opened
   folderLeft: [['', '']],
   // HTML code to the right of a folder item
   // first one is for folder closed, second one is for folder opened
   folderRight: [['', '']],
   // HTML code to the left of a regular item
   itemLeft: ['!@#$'],
   // HTML code to the right of a regular item
   itemRight: [''],
   // HTML code for the connector
   // first one is for w/ having next sibling, second one is for no next sibling
   folderConnect: [[['',''],['','']]],
   itemConnect: [['',''],['','']],
   // HTML code for spacers
   // first one connects next, second one doesn"t
   spacer: [['     ', '     ']],
   // deepest level of theme specified
   themeLevel: 1
   // tells JSCookTree to use <A> ancher tag to open links
   // if this field is set to false, then JSCookTree would hand it.
};

//////////////////////////////////////////////////////////////////////
//
// Drawing Functions and Utility Functions
//
//////////////////////////////////////////////////////////////////////

//
// produce a new unique submenu id
//
function ctNewSubMenuID ()
{
   return _ctIDSubMenu + (++_ctIDSubMenuCount);
}

//
// return the property string for the menu item
//
function ctActionItem ()
{
   return ' onmouseover="ctItemMouseOver (this.parentNode)" onmouseout="ctItemMouseOut (this.parentNode)" onmousedown="ctItemMouseDown (this.parentNode)" onmouseup="ctItemMouseUp (this.parentNode)"';
}

//
// return the property string for the menu item
//
function ctNoActionItem (item)
{
   return item[1];
}

//
// used to determine the property string
//
function ctGetPropertyLevel (level, property)
{
   return (level >= property.length) ? (property.length - 1) : level;
}


function ctCollapseTree (id)
{
   var menu = ctGetObject (id).firstChild;
   var i;
   for (i = 0; i < menu.ctItems.length; ++i)
      ctCloseFolder (menu.ctItems[i]);
}

//
// expand a tree such that upto level is exposed
//
function ctExpandTree (id, expandLevel)
{
   if (expandLevel <= 0)
      return;

   var obj = ctGetObject (id);
   if (!obj)
      return;

   var thisMenu = obj.firstChild;
   if (!thisMenu)
      return;

   ctExpandTreeSub (thisMenu, expandLevel)
}

function ctExpandTreeSub (subMenu, expandLevel)
{

   if (subMenu.ctLevel >= expandLevel)
      return;
   var i;
   var item;
   for (i = 0; i < subMenu.ctItems.length; ++i)
   {
      item = subMenu.ctItems[i];
      if (item.ctIdSub)
      {
         ctOpenFolder (item);
         ctExpandTreeSub (ctGetObject (item.ctIdSub), expandLevel);
      }
   }
}

//
// expose a particular menu item use its link as the search value
//
function ctExposeItem (treeIndex, link)
{
   if (treeIndex < 0 || treeIndex >= _ctTreeList.length)
      return;
   var tree = _ctTreeList[treeIndex];
   var endIndex = tree.endIndex;
   var i;
   for (i = tree.beginIndex; i < endIndex; ++i)
   {
      if (_ctItemList[i].length > 2 &&
         _ctItemList[i][2] == link)
      {
         return ctExposeTreeIndex (treeIndex, i);
      }
   }
}


//
// expose a particular menu item using its index
//
function ctExposeTreeIndex (treeIndex, index)
{
   var item = ctGetObject ('ctItemID' + (_ctTreeList[treeIndex].beginIndex + index)).parentNode;
   if (!item)
      return null;

   var parentItem = ctGetThisMenu (item).ctParent;
   if (parentItem)
      ctExposeTreeIndexSub (parentItem);

   ctSetSelectedItem (item);
   ctOpenFolder (item)
   return item;
}

function ctExposeTreeIndexSub (item)
{
   var parentItem = ctGetThisMenu (item).ctParent;
   if (parentItem)
      ctExposeTreeIndexSub (parentItem);
   ctOpenFolder (item);
}

//
// mark a particular menu item with id using its link
//
function ctMarkItem (treeIndex, link)
{
   if (treeIndex < 0 || treeIndex >= _ctTreeList.length)
      return;
   var tree = _ctTreeList[treeIndex];
   var endIndex = tree.endIndex;
   var i;
   for (i = tree.beginIndex; i < endIndex; ++i)
   {
      if (_ctItemList[i].length > 2 &&
         _ctItemList[i][2] == link)
      {
         var item = ctGetObject ('ctItemID' + (_ctTreeList[treeIndex].beginIndex + i)).parentNode;
         if (!item)
            return null;
         if (item.id == "JSCookTreeItem")
            item.id = 'JSCookTreeMarked';
         return item;
      }
   }
}

//
// mark a particular menu item with id using index
//
function ctMarkTreeIndex (treeIndex, index)
{
   var item = ctGetObject ('ctItemID' + (_ctTreeList[treeIndex].beginIndex + index)).parentNode;
   if (!item)
      return null;
   if (item.id == "JSCookTreeItem")
      item.id = 'JSCookTreeMarked';
   return item;
}

//
// return the current selected node for the current tree
//
// treeItem treeItem is the table row of where the tree item is located
//
function ctGetSelectedItem (treeIndex)
{
   if (_ctTreeList[treeIndex].hideType <= 1)
      return _ctTreeList[treeIndex].currentItem;
   else
      return _ctCurrentItem;
}

//
// The function that builds the menu inside the specified element id.
//
function ctDraw (id, tree, nodeProperties, prefix, hideType, expandLevel)
{
   var obj = ctGetObject (id);

   if (!nodeProperties)
      nodeProperties = _ctNodeProperties;
   if (!prefix)
      prefix = '';
   if (!hideType)
      hideType = 0;
   if (!expandLevel)
      expandLevel = 0;

   //var treeIndex = _ctTreeList.push (new ctTreeInfo (nodeProperties, prefix, hideType, expandLevel)) - 1;
   _ctTreeList[_ctTreeList.length] = new ctTreeInfo (nodeProperties, prefix, hideType, expandLevel);
   var treeIndex = _ctTreeList.length - 1;

   var beginIndex = _ctItemList.length;

   _ctMenuInitStr = '';
   var str = ctDrawSub (tree, true, null, treeIndex, 0, nodeProperties, prefix, '');
   obj.innerHTML = str;
   eval (_ctMenuInitStr);
   _ctMenuInitStr = '';

   var endIndex = _ctItemList.length;

   _ctTreeList[treeIndex].beginIndex = beginIndex;
   _ctTreeList[treeIndex].endIndex = endIndex;

   if (expandLevel)
      ctExpandTree (id, expandLevel);

   //document.write ('<textarea wrap="off" rows="15" cols="80">' + str + '</textarea><br>');

   return treeIndex;
}

//
// draw the sub menu recursively
//
function ctDrawSub (subMenu, isMain, id, treeIndex, level, nodeProperties, prefix, indent)
{
   var lvl = level;
   if (lvl > nodeProperties.themeLevel)
      lvl = nodeProperties.themeLevel;

   var str = '<div class="' + prefix + 'TreeLevel' + lvl + '"';
   if (!isMain)
      str += ' id="' + id + '"';
   str += '>';

   var strSub = '';

   var item;
   var idSub;
   var hasChild;

   var classStr;
   var connectSelect;
   var childIndent;
   var index;
   var actionStr;
   var itemID;
   var markerStr;
   var themeLevel = nodeProperties.themeLevel;

   var i;
   if (isMain)
      i = 0;
   else
      i = 5;

   var className = ' class="' + prefix + 'Row"';

   for (; i < subMenu.length; ++i)
   {
      item = subMenu[i];
      if (!item)
         continue;

      //index = _ctItemList.push (item) - 1;
      _ctItemList[_ctItemList.length] = item;
      index = _ctItemList.length - 1;

      hasChild = (item.length > 5);
      idSub = hasChild ? ctNewSubMenuID () : null;

      str += '<table cellspacing="0" class="' + prefix + 'Table">';

      //
      // #JSCookTreeFolderClose & #JSCookTreeFolderOpen
      // are used in style sheet to control the animation of folder open/close
      // Also, it tells status of the submenu
      //
      str += '<tr' + className;
      if (hasChild)
         str += ' id="JSCookTreeFolderClosed">';
      else
         str += ' id="JSCookTreeItem">';

      classStr = prefix + (hasChild ? 'Folder' : 'Item');

      //
      // markerStr is used to mark Spacer cell such that the item (<tr> tag)
      // could be tracked in an alternative way
      // _ctMenuInitStr is used to initate the menu item
      //
      itemID = 'ctItemID' + index;
      markerStr = ' id="' + itemID + '"';
      _ctMenuInitStr += 'ctSetupItem (ctGetObject ("' + itemID + '").parentNode,' + index + ',' + treeIndex + ',' + level + ',' + (idSub ? ('"' + idSub + '"') : 'null') + ');';

      str += '<td class="' + classStr + 'Spacer"' + markerStr + '>' + indent;

      str += '</td>';

      if (item[0] == _ctNoAction)
      {
         str += ctNoActionItem (item, prefix);
         str += '</tr></table>';
         continue;
      }

      actionStr = ctActionItem ();

      str += '<td class="' + classStr + 'Left"' + actionStr + '>';
      // add connect part
      if (hasChild)
      {
         connectSelect = ctHasNextItem (i, subMenu) ? 0 : 1;
         lvl = ctGetPropertyLevel (level, nodeProperties.folderConnect);
         str += '<span class="JSCookTreeFolderClosed">' + nodeProperties.folderConnect[lvl][connectSelect][0] + '</span>' +
               '<span class="JSCookTreeFolderOpen">' + nodeProperties.folderConnect[lvl][connectSelect][1] + '</span>';
      }
      else
      {
         connectSelect = ctHasNextItem (i, subMenu) ? 0 : 1;
         lvl = ctGetPropertyLevel (level, nodeProperties.itemConnect);
         str += nodeProperties.itemConnect[lvl][connectSelect];
      }

      if (item[0] != null && item[0] != _ctNoAction)
      {
         str += item[0];
      }
      else if (hasChild)
      {
         lvl = ctGetPropertyLevel (level, nodeProperties.folderLeft);
         str += '<span class="JSCookTreeFolderClosed">' + nodeProperties.folderLeft[lvl][0] + '</span>' +
               '<span class="JSCookTreeFolderOpen">' + nodeProperties.folderLeft[lvl][1] + '</span>';
      }
      else
      {
         lvl = ctGetPropertyLevel (level, nodeProperties.itemLeft);
         str += nodeProperties.itemLeft[lvl];
      }
      str += '</td>';

      str += '<td class="' + classStr + 'Text"' + '>';

      str += '<a class="jstreemenu"';

      if (item[2] != null)
      {
         str += ' href="' + item[2] + '"';
         if (item[3])
            str += ' target="' + item[3] + '"';
      }

      if (item[4] != null)
         str += ' title="' + item[4] + '"';
      else
         str += ' title="' + item[1] + '"';

      str += '>' + item[1] + '</a></td>';

      str += '<td class="' + classStr + 'Right"' + actionStr + '>';

      if (hasChild)
      {
         lvl = ctGetPropertyLevel (level, nodeProperties.folderRight);
         str += '<span class="JSCookTreeFolderClosed">' + nodeProperties.folderRight[lvl][0] + '</span>' +
               '<span class="JSCookTreeFolderOpen">' + nodeProperties.folderRight[lvl][1] + '</span>';
      }
      else
      {
         lvl = ctGetPropertyLevel (level, nodeProperties.itemRight);
         str += nodeProperties.itemRight[lvl];
      }
      str += '</td>'
      str += '</tr></table>';

      if (hasChild)
      {
         childIndent = indent;
         lvl = ctGetPropertyLevel (level, nodeProperties.spacer);
         childIndent += nodeProperties.spacer[lvl][connectSelect];

         str += ctDrawSub (item, false, idSub, treeIndex, level + 1, nodeProperties, prefix, childIndent);
      }
   }

   str += '</div>';

   return str;
}

//////////////////////////////////////////////////////////////////////
//
// Mouse Event Handling Functions
//
//////////////////////////////////////////////////////////////////////

//
// action should be taken for mouse moving in to the menu item
//
function ctItemMouseOver (item)
{
   var treeItem = _ctItemList[item.ctIndex];
   var isDefaultItem = ctIsDefaultItem (treeItem);

   if (isDefaultItem)
   {
      var className = ctGetDefaultClassName (item);

      if (item.className == className)
         item.className = className + 'Hover';
   }
}

//
// action should be taken for mouse moving out of the menu item
//
function ctItemMouseOut (item)
{
   if (ctIsDefaultItem (_ctItemList[item.ctIndex]))
   {
      var className = ctGetDefaultClassName (item);

      if (item.className == (className + 'Hover') ||
         item.className == (className + 'Active'))
      {
         var tree = _ctTreeList[item.ctTreeIndex];
         var currentItem = (tree.hideType <= 1) ? tree.currentItem : _ctCurrentItem;

         if (item == currentItem)
            item.className = className + 'Selected';
         else
            item.className = className;
      }
   }
}

//
// action should be taken for mouse button down at a menu item
//
function ctItemMouseDown (item)
{
   if (ctIsDefaultItem (_ctItemList[item.ctIndex]))
   {
      var className = ctGetDefaultClassName (item);

      if (item.className == (className + 'Hover'))
         item.className = className + 'Active';
   }
}

//
// action should be taken for mouse button up at a menu item
//
function ctItemMouseUp (item)
{
   if (item.ctIdSub)
   {
      // toggle the submenu
      var subMenu = ctGetObject (item.ctIdSub);
      if (subMenu.style.display == 'block')
      {
         ctCloseFolder (item);
      }
      else
      {
         ctOpenFolder (item);
      }
   }
   ctSetSelectedItem (item);
}

//
// set the item as the selected item
//
function ctSetSelectedItem (item)
{
   var tree = _ctTreeList[item.ctTreeIndex];
   var hideType = tree.hideType;

   var otherItem;

   if (hideType <= 1)
      otherItem = tree.currentItem;
   else
      otherItem = _ctCurrentItem;

   if (otherItem != item)
   {
      ctLabelMenu (item);

      // set otherItem to normal
      if (otherItem)
      {
         if (ctIsDefaultItem (_ctItemList[otherItem.ctIndex]))
         {
            var className = ctGetDefaultClassName (otherItem);
            if (otherItem.className == (className + 'Selected'))
               otherItem.className = className;
         }

         // hide otherItem if required
         if (hideType > 0 && otherItem)
            ctHideMenu (otherItem, item);
      }

      // finally, set this item as selected
      if (hideType <= 1)
         tree.currentItem = item;
      else
         _ctCurrentItem = item;

      if (ctIsDefaultItem (_ctItemList[item.ctIndex]))
      {
         var className = ctGetDefaultClassName (item);
         item.className = className + 'Selected';
      }
   }
}

//////////////////////////////////////////////////////////////////////
//
// Mouse Event Support Utility Functions
//
//////////////////////////////////////////////////////////////////////

//
// check if an item is in open form
//
function ctIsFolderOpen (item)
{
   if (item.id == 'JSCookTreeFolderOpen')
      return true;
   return false;
}

//
// change an item into the open form
//
function ctOpenFolder (item)
{
   if (ctIsFolderOpen (item))
      return;
   if (item.ctIdSub)
   {
      var subMenu = ctGetObject (item.ctIdSub);
      subMenu.style.display = 'block';

      item.id = 'JSCookTreeFolderOpen';
   }
}

//
// change an item into the closed form
//
function ctCloseFolder (item)
{
   if (!ctIsFolderOpen (item))
      return;

   // hide the downstream menus
   if (item.ctIdSub)
   {
      var subMenu = ctGetObject (item.ctIdSub);
      var i;
      for (i = 0; i < subMenu.ctSubMenu.length; ++i)
         ctCloseFolder (subMenu.ctSubMenu[i].ctParent);

      var expandLevel = _ctTreeList[item.ctTreeIndex].expandLevel;
      if (item.ctLevel < expandLevel)
         return;
      subMenu.style.display = 'none';

      item.id = 'JSCookTreeFolderClosed';
   }
}

//
// setup an menu item
//
function ctSetupItem (item, index, treeIndex, level, idSub)
{
   if (!item.ctIndex)
   {
      item.ctIndex = index;
      item.ctTreeIndex = treeIndex;
      item.ctLevel = level;
      item.ctIdSub = idSub;
   }

   var thisMenu = ctGetThisMenu (item);
   ctSetupMenu (thisMenu, item, null, null);

   if (idSub)
   {
      var subMenu = ctGetObject (idSub);
      ctSetupMenu (subMenu, null, thisMenu, item);
   }
}

//
// setup the relationship between a node and its sub menu
//
function ctSetupMenu (thisMenu, thisItem, parentMenu, parentItem)
{
   if (!thisMenu.ctSubMenu)
         thisMenu.ctSubMenu = new Array ();

   if (parentItem)
   {
      if (!thisMenu.ctParent)
      {
         // establish the tree w/ back edge
         thisMenu.ctParent = parentItem;
         thisMenu.ctLevel = parentItem.ctLevel + 1;

         //parentMenu.ctSubMenu.push (thisMenu);
         parentMenu.ctSubMenu[parentMenu.ctSubMenu.length] = thisMenu;
      }
   }

   if (thisItem)
   {
      if (!thisItem.ctMenu)
      {
         thisItem.ctMenu = thisMenu;

         thisMenu.ctLevel = thisItem.ctLevel;

         if (!thisMenu.ctItems)
            thisMenu.ctItems = new Array ();

         //thisMenu.ctItems.push (thisItem);
         thisMenu.ctItems[thisMenu.ctItems.length] = thisItem;
      }
   }
}

//
// label the path from the menu root to the item
//
function ctLabelMenu (item)
{
   var thisMenu = ctGetThisMenu (item);
   while (thisMenu && thisMenu.ctLevel != 0)
   {
      thisMenu.ctCurrentItem = item;
      thisMenu = ctGetThisMenu (thisMenu.ctParent);
   }
}

//
// hide an item up to the parent menu of activeItem
//
function ctHideMenu (item, activeItem)
{
   var subMenu;
   while (item)
   {
      if (item.ctIdSub &&
         (subMenu = ctGetObject (item.ctIdSub)).ctLevel &&
         (subMenu.ctCurrentItem != activeItem))
      {
         ctCloseFolder (item);
      }
      item = ctGetThisMenu (item).ctParent;
   }
}

//
// returns the menu div where this obj (menu item) is in
//
function ctGetThisMenu (item)
{
   var str = _ctTreeList[item.ctTreeIndex].prefix;
   if (item.ctLevel == 0)
      str += 'TreeLevel0';
   else
   {
      var themeLevel = _ctTreeList[item.ctTreeIndex].nodeProperties.themeLevel;
      var lvl = (item.ctLevel < themeLevel) ? item.ctLevel : themeLevel;
      str += 'TreeLevel' + lvl;
   }
   while (item)
   {
      if (item.className == str)
         return item;
      item = item.parentNode;
   }
   return null;
}

//
// return true if there is next item
//
// used to determine connectors
//
function ctHasNextItem (index, tree)
{
   if (index < (tree.length - 2) ||
      (index == (tree.length - 2) && tree[index + 1]))
      return true;
   else
      return false;
}

function ctGetDefaultClassName (item)
{
   var tree = _ctTreeList[item.ctTreeIndex];
   return tree.prefix + 'Row';
}

//
// return true if this item is handled using default handlers
//
function ctIsDefaultItem (item)
{
   if (item[0] == _ctNoAction)
      return false;
   return true;
}

//
// returns the object baring the id
//
function ctGetObject (id)
{
   if (document.all)
      return document.all[id];
   return document.getElementById (id);
}

//
// debug function, ignore :)
//
function ctGetProperties (obj)
{
   var msg = obj + ':\n';
   var i;
   for (i in obj)
      msg += i + ' = ' + obj[i] + '; ';
   return msg;
}

/* JSCookTree v2.01     1. change Array.push (obj) call to Array[length] = obj.
                     Suggestion from Dick van der Kaaden <dick@netrex.nl> to
                     make the script compatible with IE 5.0
                  2. added ctGetSelectedItem (treeIndex) function due to demand
*/
/* JSCookTree v2.0      1. added controls over tree branches opening/closing
                  2. added the ability to mark a specific tree item
                  3. added an extra description field to make the tree
                     format the same as JSCookMenu
                  4. more control over themes.  allow multiple trees
                     w/ different themes co-exist in the same page
                  5. tooltips.
*/
/* JSCookTree v1.01. made more tolerant to extra commas */
/* JSCookTree v1.0.  (c) Copyright 2002 by Heng Yuan */