var A_MENUS = [];

function menu (a_items, a_tpl) {

    // browser check
    if (!document.body || !document.body.style)
        return;

    // store items structure
    this.a_config = a_items;

    // store template structure
    this.a_tpl = a_tpl;

    // get menu id
    this.n_id = A_MENUS.length;

    // declare collections
    this.a_index = [];
    this.a_children = [];

    // assigh methods and event handlers
    this.expand      = menu_expand;
    this.collapse    = menu_collapse;

    this.onclick     = menu_onclick;
    this.onmouseout  = menu_onmouseout;
    this.onmouseover = menu_onmouseover;
    this.onmousedown = menu_onmousedown;

    // default level scope description structure
    this.a_tpl_def = {
        'block_top'  : 16,
        'block_left' : 16,
        'top'        : 20,
        'left'       : 4,
        'width'      : 120,
        'height'     : 22,
        'hide_delay' : 0,
        'expd_delay' : 0,
        'css'        : {
            'inner' : '',
            'outer' : ''
        }
    };

    // assign methods and properties required to imulate parent item
    this.getprop = function (s_key) {
        return this.a_tpl_def[s_key];
    };

    this.o_root = this;
    this.n_depth = -1;
    this.n_x = 0;
    this.n_y = 0;

    //  init items recursively
    for (n_order = 0; n_order < a_items.length; n_order++)
        new menu_item(this, n_order);

    // register self in global collection
    A_MENUS[this.n_id] = this;

    // make root level visible
    for (var n_order = 0; n_order < this.a_children.length; n_order++)
        this.a_children[n_order].e_oelement.style.visibility = 'visible';
}

function menu_collapse (n_id) {
    // cancel item open delay
    clearTimeout(this.o_showtimer);

    // by default collapse to root level
    var n_tolevel = (n_id ? this.a_index[n_id].n_depth : 0);

    // hide all items over the level specified
    for (n_id = 0; n_id < this.a_index.length; n_id++) {
        var o_curritem = this.a_index[n_id];
        if (o_curritem.n_depth > n_tolevel && o_curritem.b_visible) {
            o_curritem.e_oelement.style.visibility = 'hidden';
            o_curritem.b_visible = false;
        }
    }

    // reset current item if mouse has gone out of items
    if (!n_id)
        this.o_current = null;
}

function menu_expand (n_id) {

    // expand only when mouse is over some menu item
    if (this.o_hidetimer)
        return;

    // lookup current item
    var o_item = this.a_index[n_id];

    // close previously opened items
    if (this.o_current && this.o_current.n_depth >= o_item.n_depth)
        this.collapse(o_item.n_id);
    this.o_current = o_item;

    // exit if there are no children to open
    if (!o_item.a_children)
        return;

    // show direct child items
    for (var n_order = 0; n_order < o_item.a_children.length; n_order++) {
        var o_curritem = o_item.a_children[n_order];
        o_curritem.e_oelement.style.visibility = 'visible';
        o_curritem.b_visible = true;
    }
}

function menu_onclick (n_id) {
    // don't go anywhere if item has no link defined
    return Boolean(this.a_index[n_id].a_config[1]);
}

function menu_onmouseout (n_id) {

    // lookup new item's object
    var o_item = this.a_index[n_id];

    // apply rollout
    o_item.e_oelement.className = (o_item.a_config[2] && o_item.a_config[2]['oout'] ? o_item.a_config[2]['oout'] : o_item.getstyle(0, 0));
    o_item.e_ielement.className = (o_item.a_config[2] && o_item.a_config[2]['iout'] ? o_item.a_config[2]['iout'] : o_item.getstyle(1, 0));

    // update status line
    o_item.upstatus(7);

    // run mouseover timer
    this.o_hidetimer = setTimeout('A_MENUS['+ this.n_id +'].collapse();',
        o_item.getprop('hide_delay'));
}

function menu_onmouseover (n_id) {

    // cancel mouseoute menu close and item open delay
    clearTimeout(this.o_hidetimer);
    this.o_hidetimer = null;
    clearTimeout(this.o_showtimer);

    // lookup new item's object
    var o_item = this.a_index[n_id];

    // update status line
    o_item.upstatus(7);

    // apply rollover
    o_item.e_oelement.className = (o_item.a_config[2] && o_item.a_config[2]['oover'] ? o_item.a_config[2]['oover'] : o_item.getstyle(0, 1));
    o_item.e_ielement.className = (o_item.a_config[2] && o_item.a_config[2]['iover'] ? o_item.a_config[2]['iover'] : o_item.getstyle(1, 1));

    // if onclick open is set then no more actions required
    if (o_item.getprop('expd_delay') < 0)
        return;

    // run expand timer
    this.o_showtimer = setTimeout('A_MENUS['+ this.n_id +'].expand(' + n_id + ');',
        o_item.getprop('expd_delay'));

}

function menu_onmousedown (n_id) {

    // lookup new item's object
    var o_item = this.a_index[n_id];

    // apply mouse down style
    o_item.e_oelement.className = (o_item.a_config[2] && o_item.a_config[2]['oover'] ? o_item.a_config[2]['oover'] : o_item.getstyle(0, 2));
    o_item.e_ielement.className = (o_item.a_config[2] && o_item.a_config[2]['iover'] ? o_item.a_config[2]['iover'] : o_item.getstyle(1, 2));

    this.expand(n_id);
//  this.items[id].switch_style('onmousedown');
}


function menu_item (o_parent, n_order) {

    // store parameters passed to the constructor
    this.n_depth  = o_parent.n_depth + 1;
    this.a_config = o_parent.a_config[n_order + (this.n_depth ? 3 : 0)];

    // return if required parameters are missing
    if (!this.a_config) return;

    // store info from parent item
    this.o_root    = o_parent.o_root;
    this.o_parent  = o_parent;
    this.n_order   = n_order;

    // register in global and parent's collections
    this.n_id = this.o_root.a_index.length;
    this.o_root.a_index[this.n_id] = this;
    o_parent.a_children[n_order] = this;

    // calculate item's coordinates
    var o_root = this.o_root,
        a_tpl  = this.o_root.a_tpl;

    // assign methods
    this.getprop  = mitem_getprop;
    this.getstyle = mitem_getstyle;
    this.upstatus = mitem_upstatus;

    this.n_x = n_order
        ? o_parent.a_children[n_order - 1].n_x + this.getprop('left')
        : o_parent.n_x + this.getprop('block_left');

    this.n_y = n_order
        ? o_parent.a_children[n_order - 1].n_y + this.getprop('top')
        : o_parent.n_y + this.getprop('block_top');

document.write (
        '<a id="e' + o_root.n_id + '_'
            + this.n_id +'o" class="'
            + (this.a_config[2] && this.a_config[2]['oout'] ? this.a_config[2]['oout'] : this.getstyle(0, 0))
            + '" href="' + this.a_config[1] + '"'
            + (this.a_config[2] && this.a_config[2]['tw'] ? ' target="' + this.a_config[2]['tw'] + '"' : '')
            + ' style="position: absolute; top: ' + this.n_y + 'px; left: ' + this.n_x + 'px; width: '
            + this.getprop('width') + 'px; height: ' + this.getprop('height') + 'px; visibility: hidden;'
            +' z-index: ' + this.n_depth + ';" ' + 'onclick="return A_MENUS[' + o_root.n_id + '].onclick('
            + this.n_id + ');" onmouseout="A_MENUS[' + o_root.n_id + '].onmouseout('
            + this.n_id + ');" onmouseover="A_MENUS[' + o_root.n_id + '].onmouseover('
            + this.n_id + ');" onmousedown="A_MENUS[' + o_root.n_id + '].onmousedown('
            + this.n_id + ');"><div  id="e' + o_root.n_id + '_'
            + this.n_id +'i" class="'
            + (this.a_config[2] && this.a_config[2]['iout'] ? this.a_config[2]['iout'] : this.getstyle(1, 0))
            + '">' + this.a_config[0] + "</div></a>\n"
        );
    this.e_ielement = document.getElementById('e' + o_root.n_id + '_' + this.n_id + 'i');
    this.e_oelement = document.getElementById('e' + o_root.n_id + '_' + this.n_id + 'o');

    this.b_visible = !this.n_depth;

    // no more initialization if leaf
    if (this.a_config.length < 4)
        return;

    // node specific methods and properties
    this.a_children = [];

    // init downline recursively
    for (var n_order = 0; n_order < this.a_config.length - 3; n_order++)
        new menu_item(this, n_order);
}

function mitem_getprop (s_key) {

    // return value if defined in cell parameters
    if (this.a_config[2] && this.a_config[2][s_key])
        return parseInt(this.a_config[2][s_key]);

    // check if value is defined for current level
    var s_value = null,
        a_level = this.o_root.a_tpl[this.n_depth];

    // return value if explicitly defined
    if (a_level)
        s_value = a_level[s_key];

    // request recursively from parent levels if not defined
    return (s_value == null ? this.o_parent.getprop(s_key) : s_value);
}

function mitem_getstyle (n_pos, n_state) {

    var a_css = this.getprop('css');
    var a_oclass = a_css[n_pos ? 'inner' : 'outer'];

    // same class for all states
    if (typeof(a_oclass) == 'string')
        return a_oclass;

    // inherit class from previous state if not explicitly defined
    for (var n_currst = n_state; n_currst >= 0; n_currst--)
        if (a_oclass[n_currst])
            return a_oclass[n_currst];
}

function mitem_upstatus (b_clear) {
    window.setTimeout("window.status=unescape('" + (b_clear
        ? ''
        : (this.a_config[2] && this.a_config[2]['sb']
            ? escape(this.a_config[2]['sb'])
            : escape(this.a_config[0]) + (this.a_config[1]
                ? ' ('+ escape(this.a_config[1]) + ')'
                : ''))) + "')", 10);
}