// *****************************************
// menu.js : dynamic hierarchical menu system
//
// (c) by E.F. de Moor (Creagraphy) ernst@creagraphy.nl
//
// date: april 8th 2002
//
//
// Following function are used for interfacing
//
// my_menu_sel(id)          : called when the user clicks a menu item in our own frame.
//                            This function must call menu_sel in all frames!
// my_menu_over(id)         : called when the mouse moves over a menu item of our own frame.
//                            This function must call menu_over in all frames!
// my_menu_out(id)          : called when the mouse moves out a menu item of our own frame.
//                            This function must call menu_out in all frames!
//
// menu_sel(id)             : called when the user clicks a menu item in any frame.
// menu_over(id)            : called when the mouse moves over a menu item in any frame.
// menu_out(id)             : called when the mouse moves out a menu item in any frame.
// set_page_info(sel, info) : called by the content frame, if the content changes.
//
// cms_onload(sel)          : called once when this frame is loaded
//
//
// Note about the my_menu... functions:
//      These functions are implemented in ../menu.inc.
//
// Note about the menu_sel, menu_over and menu_out functions:
//      Any frame is allowed to implement these (not just menu frames). This can be used
//      To give helpinformation (e.g. popup notes, textual explanations) in other frames
//      Whenever something happens with a menu button or whenever a new page is loaded
//      in the content frame.
//
// Note: Also new is that the content frame is now allowed to have a menu itself. This is
//       Handy to have a popup menu to appear over the content itself.


// First get a pointer to the menu tree and set_states function of the main frame
if(typeof(menu_tree) == "undefined" && typeof(parent.menu_tree) != "undefined") {
  menu_tree = parent.menu_tree;
}
if(typeof(menu_tree) == "undefined" && typeof(top.menu_tree) != "undefined") {
  menu_tree = top.menu_tree;
}
menu_tree_parms = new Array();
if(typeof(menu_tree) != "undefined")
  for(var i=0; i<menu_tree.length; i++)
    menu_tree_parms[i] = new Object();

menu_sel_functions = new Array();
menu_over_functions = new Array();
menu_out_functions = new Array();
page_info_functions = new Array();

function add_menu_sel(f) {
  menu_sel_functions[menu_sel_functions.length] = f;
}
function add_menu_over(f) {
  menu_over_functions[menu_over_functions.length] = f;
}
function add_menu_out(f) {
  menu_out_functions[menu_out_functions.length] = f;
}
function add_page_info(f) {
  page_info_functions[page_info_functions.length] = f;
}
// Propagate functions: Call all functions in all frames
function do_menu_sel(id) {
  if(!cms_check_formchange())  // EMO 20040727: Did the user change something in the form?
    return(false);
  var i;
  if(menu_tree[id].selected) {
    menu_tree[id].expanded = !menu_tree[id].expanded;
  }
  else
    set_states(id);
  if(loaded && typeof(my_menu_sel) == 'function')
    my_menu_sel(id, menu_tree_parms[id].x, menu_tree_parms[id].y);
  if (parent && parent.frames)
    for(i=0; i<parent.frames.length; i++)
      if (parent.frames[i].loaded && parent.frames[i].menu_sel)
        parent.frames[i].menu_sel(id, menu_tree_parms[id].x,
                                  menu_tree_parms[id].y);
  return true;
}
function do_menu_over(id) {
  var i;
  set_states(-1);
  if (parent && parent.frames)
    for(i=0; i<parent.frames.length; i++)
      if (parent.frames[i].loaded && parent.frames[i].menu_over)
        parent.frames[i].menu_over(id, menu_tree_parms[id].x,
                                  menu_tree_parms[id].y);
  return 0;
}
function do_menu_out(id) {
  set_states(-1);
  var i;
  if (parent && parent.frames)
    for(i=0; i<parent.frames.length; i++)
      if (parent.frames[i].loaded && parent.frames[i].menu_out)
        parent.frames[i].menu_out(id, menu_tree_parms[id].x,
                                  menu_tree_parms[id].y);
  return 0;
}
function menu_sel(id,x,y) {
  for (var i=0;i<menu_sel_functions.length;i++)
    menu_sel_functions[i](id,x,y);
}
function menu_over(id,x,y) {
  for (var i=0;i<menu_over_functions.length;i++)
    menu_over_functions[i](id,x,y);
}
function menu_out(id,x,y) {
  for (var i=0;i<menu_out_functions.length;i++)
    menu_out_functions[i](id,x,y);
}
function set_page_info(sel, info) {
  for (var i=0;i<page_info_functions.length;i++)
    page_info_functions[i](sel,info);
}

//Function to facilitate solving the IE6 bug: Force a refresh
function refresh_menu() {
  if(navigator.appVersion.match(/MSIE/)) {
    for(i=0; i<menu_tree.length; i++)
      show_menu_item(i,0,menu_tree[i].visible,100);
  }
}

// General menu utility functions

// Show a menu item according to state flags, with indicated mouse_over
function show_menu_item(index, mouse_over, visible, opacity_percentage) {
  if(visible) {
    if(menu_tree[index].selected) {
      set_menu_style(index,'sel', mouse_over, opacity_percentage);
    }
    else if(menu_tree[index].expanded) {
      set_menu_style(index,'exp', mouse_over, opacity_percentage);
    }
    else if(menu_tree[index].parent) {
      set_menu_style(index,'par', mouse_over, opacity_percentage);
    }
    else {
      set_menu_style(index,'plain', mouse_over, opacity_percentage);
    }
    set_all_visible(index, 1);
  }
  else
    set_all_visible(index, 0);
}

function set_menu_style(index, state, over, opacity_percentage) {
  div = menu_tree_parms[index].div_id;
  if(over)
    state += '_over';
  if(div) {
    id = menu_tree_parms[index].image_id;
    image = eval('menu_tree_parms[index].image_'+state);
    if(typeof(image) == "undefined") {
      if(state=="sel_over")
        state=menu_tree_parms[index].last_over_state;
      if(state=="sel")
        state=menu_tree_parms[index].last_state;
      image = eval('menu_tree_parms[index].image_'+state);
    }
    if(typeof(image) == "undefined") {
      if(state=="exp_over")
        state='par_over';
      if(state=="exp")
        state='par';
      image = eval('menu_tree_parms[index].image_'+state);
    }
    if(typeof(image) == "undefined") {
      if(over)
        state='plain_over';
      else
        state='plain';
      image = eval('menu_tree_parms[index].image_'+state);
    }
    if(image) {
      if(document.layers && document.layers[div])
        document.layers[div].document.images[0].src = image;
      else
        if(document.images && document.images[id])
          document.images[id].src = image;
      set_opacity(div,opacity_percentage);
    }
  }
  else {
    if(menu_tree_parms[index].divs) {
      classes = eval('menu_tree_parms[index].classes_'+state);
      if(typeof(classes) == "undefined") {
        if(state=="sel_over")
          state=menu_tree_parms[index].last_over_state;
        if(state=="sel")
          state=menu_tree_parms[index].last_state;
        classes = eval('menu_tree_parms[index].classes_'+state);
      }
      if(typeof(classes) == "undefined") {
        if(state=="exp_over")
          state='par_over';
        if(state=="exp")
          state='par';
        classes = eval('menu_tree_parms[index].classes_'+state);
      }
      if(typeof(classes) == "undefined") {
        if(over)
          state='plain_over';
        else
          state='plain';
        classes = eval('menu_tree_parms[index].classes_'+state);
      }
      opacities = eval('menu_tree_parms[index].opacities_'+state);
      if(typeof(classes) != "undefined") {
        for(var i=0; i<menu_tree_parms[index].divs.length; i++) {
          id = menu_tree_parms[index].divs[i];
          set_class(id,classes[i]);
          cur_opacity = Math.floor(opacity_percentage * opacities[i] / 100);
          set_opacity(id,cur_opacity);
        }
      }
    }
  }
  if(over)
    menu_tree_parms[index].last_over_state = state;
  else
    menu_tree_parms[index].last_state = state;
}

function set_all_visible(index, v) {
  div = menu_tree_parms[index].div_id;
  if(div) {
    set_visible(div,v);
  }
  else {
    if(menu_tree_parms[index].divs) {
      for(var i=0; i<menu_tree_parms[index].divs.length; i++) {
        set_visible(menu_tree_parms[index].divs[i],v);
      }
    }
  }
}

function set_all_x(index, x, scroll_fix) {
  if (scroll_fix) x += get_scroll_x();
  menu_tree_parms[index].x = x;
  div = menu_tree_parms[index].div_id;
  if(div)
    set_x(div,x);
  else {
    if(menu_tree_parms[index].divs) {
      for(i=0; i<menu_tree_parms[index].divs.length; i++) {
        set_x(menu_tree_parms[index].divs[i],x);
      }
    }
  }
}

function set_all_y(index, y, scroll_fix) {
  if (scroll_fix) y += get_scroll_y();
  menu_tree_parms[index].y = y;
  div = menu_tree_parms[index].div_id;
  if(div)
    set_y(div,y);
  else {
    if(menu_tree_parms[index].divs) {
      for(var i=0; i<menu_tree_parms[index].divs.length; i++) {
        set_y(menu_tree_parms[index].divs[i],y);
      }
    }
  }
}

// Find the selected menu item, and call set_states.
function set_states_from_sel(sel) {
  var id=-1;
  for(var i=0; i<menu_tree.length; i++) {
    if(!not_main_menu && sel && sel.match(new RegExp("t-"+menu_tree[i].type+"/")) &&
       sel.match(new RegExp(menu_tree[i].ref+"$"))) {
      id=i;
      break;
    }
    // EMO 2005-01-18: Add the new url syntax
    if(!not_main_menu && sel && menu_tree[i].type=='d' &&
       sel.match(new RegExp(menu_tree[i].ref+"$"))) {
      id=i;
      break;
    }
    IdTest = "/"+menu_tree[i].id+"$";
    if(sel && sel.match(new RegExp("t-i/")) &&
       sel.match(new RegExp(IdTest))) {
      id=i;
      break;
    }
  }
  set_states(id);
}

var sel_index;
// Set state flags of all menu items: parent, expanded, selected
function set_states(id) {
  if(typeof(menu_tree) == "undefined")  // No tree available, skip processing
    return;
  if(id==sel_index)   // No processing necessary, state remains the same
    return;
  if(id >= 0)
    sel_index = id;
  var i;
  for(i=0; i<menu_tree.length; i++) {
    // declare the item not expanded, until proven otherwise
    menu_tree[i].expanded = false;
    // Has the menu item children?
    if(menu_tree[i+1] && menu_tree[i+1].level > menu_tree[i].level )
      menu_tree[i].parent = true;
    else
      menu_tree[i].parent = false;
    // is it selected?
    if(i == sel_index) {
      cur_level = menu_tree[i].level;
      menu_tree[i].selected = true;
      if(menu_tree[i].parent)
        menu_tree[i].expanded = true;
    }
    else
      menu_tree[i].selected = false;
  }
  // Set all parents to expanded
  for(i=sel_index; i>=0; i--) {
    // is it expanded?
    if(menu_tree[i].level < cur_level) {
      menu_tree[i].expanded = true;
      cur_level = menu_tree[i].level;
    }
  }
  check_visible(0,0);
}

function check_visible(level, idx) {
  for(var i=idx; i<menu_tree.length; i++) {
    // Assume item is invisible
    menu_tree[i].visible = false;
    if(menu_tree[i].level < level)
      return (i-1);
    // Items of the current level are always displayed (e.g. root level or expanded tree)
    if(menu_tree[i].level == level)
       menu_tree[i].visible = true;
    // Expanded and selected items are displayed too
    if(menu_tree[i].selected)
       menu_tree[i].visible = true;
    // Calculate the desired display position
    if(menu_tree[i].expanded) {
       menu_tree[i].visible = true;
      i = check_visible(level+1,++i);
    }
  }
  return(i);
}

// Object constructor for a menu item.
function menu_item(id, level, text, explanation, ref, type, target, invisible) {
  this.id           = id;
  this.level        = level;
  this.text         = text;
  this.explanation  = explanation;
  this.ref          = ref;
  this.type         = type;
  this.target       = target;
  this.invisible    = invisible;
}

// Returns formatted string to show where a user has navigated...
function get_navloc_str(args) {
  // Optional input vars: sel, item_seperator, item_prefix, item_postfix
  var sel        = arguments[0];
  var seperator  = arguments[1]; // Optional seperator
  var prefix     = arguments[2]; // Optional prefix before every item in the chain...
  var postfix    = arguments[3]; // Optional postfix after every item in the chain...
  var no_links   = arguments[4]; // Set to 1, or define, if each part of the path may not be clickable...

  var navloc_str = '';
	sel_found      = false;
	var level_path = new Array();

	if (!seperator) seperator='';
	if (!prefix)    prefix='';
	if (!postfix)   postfix='';
	if (sel!='' && menu_tree.length>0) {
    for (var i=0; i<menu_tree.length; i++) {
		  this_level = menu_tree[i].level;
			if (no_links) {
    		level_path[this_level] = menu_tree[i].text;
			} else {
    		level_path[this_level] = "<a href='/p-content/"+menu_tree[i].ref+"' target=content>"+menu_tree[i].text+"</a>";
			}
      IdTest = "/"+menu_tree[i].ref+"$";
      if (sel.match(new RegExp(IdTest))) {
        sel_found = true;
        break;
      }
    }

    // Construct a string out of the levels we've just found, if any...
	  if (sel_found==true && level_path.length>0) {
			for(var i=0; i<this_level+1; i++) {
		    if (navloc_str != '') navloc_str = navloc_str + seperator;
        navloc_str = navloc_str + prefix + level_path[i] + postfix;
      }
	  }
	}
	return navloc_str;
}