var _id = 0, _pid = 0, _lid = 0, _pLayer;
var _mLists = new Array();
document.lists = _mLists;
var isNav4, isIE4;
if (parseInt(navigator.appVersion.charAt(0)) >= 4) {
  isNav4 = (navigator.appName == "Netscape") ? true : false;
  isIE4 = (navigator.appName.indexOf("Microsoft") != -1) ? true : false;
}                                                                                      
// Setup the colour - default values
var _bgColor = "#CCCC99" , _selectedColor = "#DDDDDD", _menuSelectedColor = "#CCCCCC", _rolloverColor = "#999999"
function colourSetup(bgColor, selectedColor, menuSelectedColor, rolloverColor) { 
  _bgColor = _bgColor || bgColor;
  _selectedColor = _selectedColor || selectedColor
  _menuSelectedColor = _menuSelectedColor || menuSelectedColor
  _rolloverColor = _rolloverColor || rolloverColor
}

function List(visible, width, height, bgColor) {
  this.setIndent = setIndent;
  this.addItem = addItem;
  this.addList = addList;
  this.build = build;
  this.rebuild = rebuild;
  this.setFont = _listSetFont;
  this._writeList = _writeList;
  this._showList = _showList;
  this._updateList = _updateList;
  this._updateParent = _updateParent;
  this.onexpand = null;   this.postexpand = null;
  this.oncontract = null; this.postcontract = null;
  this.lists = new Array(); // sublists
  this.items = new Array(); // layers
  this.types = new Array(); // type
  this.strs = new Array();  // content
  this.x = 0;
  this.y = 0;
  this.visible = visible;
  this.id = _id;
  this.i = 18;
  this.space = true;
  this.pid = 0;
  this.fontIntro = false;
  this.fontOutro = false;
  this.width = width || 350;
  this.height = height || 22;
  this.parLayer = false;
  this.built = false;
  this.shown = false;
  this.needsUpdate = false;
  this.needsRewrite = false;
  this.parent = null;
  this.l = 0;

  if(bgColor) this.bgColor = bgColor;
  else this.bgColor = _bgColor;



  
  _mLists[_id++] = this;
}
function _listSetFont(i,j) {
  this.fontIntro = i;
  this.fontOutro = j;
}
function setIndent(indent) { this.i = indent; if(this.i < 0) { this.i = 0; this.space = false; } }
function setClip(layer, l, r, t, b) {
  if(isNav4) {
    layer.clip.left = l; layer.clip.right = r;
    layer.clip.top = t;  layer.clip.bottom = b;
  } else {
    layer.style.pixelWidth = r-l;
    layer.style.pixelHeight = b-t;
    layer.style.clip = "rect("+t+","+r+","+b+","+l+")";
  }
}
function _writeList() {
  self.status = "List: Writing list...";
  var layer, str, clip;
  var indentWidth;
  
  for(var i = 0; i < this.types.length; i++) {
    indentWidthDefault = 15;
    indentWidth;
    layer = this.items[i];
    if(isNav4) layer.visibility = "hidden";
    else layer.style.visibility = "hidden";
    str = "";
    //str = "<DIV ID=/"lItem9/" NAME=/"lItem9/"></DIV>";
    if(isNav4) layer.document.open();
    str += "<TABLE ID=tableName WIDTH="+this.width+" NOWRAP BORDER=0   CELLPADDING=0 CELLSPACING=0><TR><TD HEIGHT=2></TD></TR><TR>";
    
    if(this.l>0 && this.i>0) {
      indentWidth = (this.l*this.i)+indentWidthDefault;
    } 
    
    if(this.types[i] == "list") {
      str += "<TD ID=tableIndent WIDTH="+indentWidth+" NOWRAP VALIGN=top ALIGN=right><A TARGET='_self' HREF=\"javascript:expand("+this.lists[i].id+");\"><IMG BORDER=0 SRC=\"true.gif\" HEIGHT=9 WIDTH=9 VSPACE=3 HSPACE=3 NAME=\"_img"+this.lists[i].id+"\"></A></TD>"; 
      _pid++;
    } else {
      if(this.space) {
        str += "<TD ID=tableIndent WIDTH="+indentWidth+"  NOWRAP VALIGN=top ALIGN=right><IMG BORDER=0 SRC=\"null.gif\" HEIGHT=9 WIDTH=9 VSPACE=3 HSPACE=3></TD>";
      }
    }
   
    // Menu Text
    str += "<TD ID=tableText HEIGHT="+(this.height-3)+" WIDTH="+(this.width-15-this.l*this.i)+" VALIGN=middle>";
    
    if(this.fontIntro) {
      str += this.fontIntro;
    }
    str += this.strs[i];
    if(this.fontOutro) {
      str += this.fontOutro;
    }
    str += "</TD></TR><TR><TD HEIGHT=2></TD></TR></TABLE>";
    
    if(isNav4) {
      layer.document.writeln(str);
      layer.document.close();
    } else layer.innerHTML = str;
    if(this.types[i] == "list" && this.lists[i].visible)
      this.lists[i]._writeList();
  }
  this.built = true;
  this.needsRewrite = false;
  self.status = '';
}
function _showList() {
  var layer;
  for(var i = 0; i < this.types.length; i++) { 
    layer = this.items[i];
    //setClip(layer, 0, this.width, 0, this.height-1);

    var bg = layer.oBgColor || this.bgColor;
    if(isIE4) {
      if((bg == null) || (bg == "null")) bg = "";
      layer.style.backgroundColor = bg;
    } else {
      layer.document.bgColor = bg;
    }
    if(this.types[i] == "list" && this.lists[i].visible) {
      this.lists[i]._showList();
    }
      
  }
  this.shown = true;
  this.needsUpdate = false;

}
function _updateList(pVis, x, y) {
  var currTop = y, layer;
  for(var i = 0; i < this.types.length; i++) { 
    layer = this.items[i];
    if(this.visible && pVis) {
      if(isNav4) {
        layer.visibility = "visible";
        layer.top = currTop;
        layer.left = x;
      } else {
        layer.style.visibility = "visible";
        layer.style.pixelTop = currTop;
        layer.style.pixelLeft = x;
      }
      if(isNav4) {
        currTop += (layer.clip.bottom  - layer.clip.top) + 2;
      } else {
        currTop += layer.clientHeight + 2;
      }
    } else {
      if(isNav4) layer.visibility = "hidden";
      else layer.style.visibility = "hidden";
    }
    if(this.types[i] == "list") {
      if(this.lists[i].visible) {
        if(!this.lists[i].built || this.lists[i].needsRewrite) this.lists[i]._writeList();
        if(!this.lists[i].shown || this.lists[i].needsUpdate) this.lists[i]._showList();
        if(isNav4) {
          layer.document.images[0].src = "true.gif";
        } else {
          eval('document.images._img'+this.lists[i].id+'.src = "true.gif"');
        }
      } else {
        if(isNav4) {
          layer.document.images[0].src = "false.gif";
        } else {
          eval('document.images._img'+this.lists[i].id+'.src = "false.gif"');
        }
      }
      if(this.lists[i].built)
        currTop = this.lists[i]._updateList(this.visible && pVis, x, currTop);
    }
  }
  return currTop;
}
function _updateParent(pid, l) {
  var layer;
  if(!l) l = 0;
  this.pid = pid;
  this.l = l;
  for(var i = 0; i < this.types.length; i++)
    if(this.types[i] == "list")
      this.lists[i]._updateParent(pid, l+1);
}
function expand(i) {
  _mLists[i].visible = !_mLists[i].visible;
  
  if (_mLists[i].visible) {
    if(_mLists[i].onexpand != null) _mLists[i].onexpand(_mLists[i].id);
  } else {
    if(_mLists[i].oncontract != null) _mLists[i].oncontract(_mLists[i].id);
  }
  _mLists[_mLists[i].pid].rebuild();
  //if(_mLists[i].postexpand != null) _mLists[i].postexpand(_mLists[i].id);
}
function build(x, y) {
  this._updateParent(this.id);
  this._writeList();
  this._showList();
  this._updateList(true, x, y);
  this.x = x; this.y = y;
}
function rebuild() { this._updateList(true, this.x, this.y); }
function addItem(str, bgColor, layer) {
  var testLayer = false;
  if(!document.all) document.all = document.layers;
  if(!layer) {
    if(isIE4 || !this.parLayer) testLayer = eval('document.all.lItem'+_lid);
    else {
      _pLayer = this.parLayer;
      testLayer = eval('_pLayer.document.layers.lItem'+_lid);
    }
    if(testLayer) layer = testLayer;
    else {
      if(isNav4) {
        if(this.parLayer) layer = new Layer(this.width, this.parLayer);
        else layer = new Layer(this.width);
      } else return;
    }
  }
  if(bgColor) layer.oBgColor = bgColor;
  this.items[this.items.length] = layer;
  this.types[this.types.length] = "item";
  this.strs[this.strs.length] = str;
 _lid++;
}
function addList(list, str, bgColor, layer) {
  var testLayer = false;
  if(!document.all) document.all = document.layers;
  if(!layer) {
    if(isIE4 || !this.parLayer) testLayer = eval('document.all.lItem'+_lid);
    else {
      _pLayer = this.parLayer;
      testLayer = eval('_pLayer.document.layers.lItem'+_lid);
    }
    if(testLayer) layer = testLayer;
    else {
      if(isNav4) {
        if(this.parLayer) layer = new Layer(this.width, this.parLayer);
        else layer = new Layer(this.width);
      } else return;
    }
  }
  if(bgColor) layer.oBgColor = bgColor;
  this.lists[this.items.length] = list;
  this.items[this.items.length] = layer;
  this.types[this.types.length] = "list";
  this.strs[this.strs.length] = str;
  list.parent = this;
  _lid++;
}

function lite() {                                                
 if(isNav4) {                                                    
   this.unliteBgColor = this.bgColor;                            
   this.bgColor = _rolloverColor;                                     
 } else {                                                        
   this.unliteBgColor = this.style.backgroundColor;              
   this.style.backgroundColor = _rolloverColor;                       
 }                                                               
  if(!this.url) return;                                          
  var loc = window.document.location+"";                         
  if(this.url.substring(0,5) == "http:") loc = ""; else {        
    loc = loc.substring(0,loc.lastIndexOf("/"));                 
    if(this.url.charAt(0) == "/")                                
      loc = loc.substring(0, loc.indexOf("/", 8));               
    else                                                         
      loc += "/";                                                
  }                                                              
  self.status = loc+this.url;                                    
}                                                                

function unlite() {                                    
  if(isNav4) this.bgColor = this.unliteBgColor;        
  else this.style.backgroundColor = this.unliteBgColor;
  self.status = '';                                  
}                                                      
                                                        
function go() {
    var params = this.url.split("|");                    
    var target = params[0];                              
    var url = params[1];
    eval(this.url);
	// Amended below to above  - PHC 20/6/2001                                 
    //window.top.CONTENT.location.href = url;              
    //if (target == "_top") {                              
    //  window.top.location.href = url; 
    //} else {
    //	if (target == "_blank") {
    // 		window.open(target);		
    //	} else {
    //  		eval("window.top."+target+".location.href = url;");
    //  }
    //}                                                   
}                                                      

function setLayerAction(layer) {                                                 
  if(layer.captureEvents) layer.captureEvents(Event.MOUSEOVER|Event.MOUSEOUT|Event.MOUSEUP);                                                                                                                                         
  layer.onmouseover = lite;                                                      
  layer.onmouseout = unlite;                                                     
  layer.onmouseup = go;                                                          
}

function colorize(id) {
                               
  if(this.visible == true) {                         
    if(this.bgColor != _menuSelectedColor) {                  
      this.bgColor = _menuSelectedColor;                      
      this.needsUpdate = true;                       
    }                                                
    for(var i = 0; i < document.lists.length; i++) { 
      document.lists[i].touch = true;                
      if(i != id) {                                  
        if(document.lists[i].bgColor != _bgColor) { 
          document.lists[i].bgColor = _bgColor;     
          document.lists[i].needsUpdate = true;      
        }                                            
      }                                              
    }                                                
  }                                               
  var p = this;                                      
  while(p != null) { p.touch = false; p = p.parent; }
  for(var i = 0; i < document.lists.length; i++)     
    if(document.lists[i].touch && document.lists[i].visible) {                    
      expand(document.lists[i].id);              
    }
} 

function colorizeParent(id) {
                      
  if(this.parent.bgColor != _menuSelectedColor) {                  
    this.parent.bgColor = _menuSelectedColor;                      
    this.parent.needsUpdate = true;                       
  }                                                
                                              
  var p = this;                                      
  while(p != null) { p.touch = false; p = p.parent; }
  for(var i = 0; i < document.lists.length; i++)     
    if(document.lists[i].touch && document.lists[i].visible) {                    
      expand(document.lists[i].id);              
    }
}