/*************************************************************************
    This code is from Dynamic Web Coding at dyn-web.com
    Copyright 2001-2008 by Sharon Paine 
    See Terms of Use at www.dyn-web.com/business/terms.php
    regarding conditions under which you may use this code.
    This notice must be retained in the code as is!
*************************************************************************/

// horizId only needed for horizontal scrolling
function dw_scrollObj(wndoId, lyrId, horizId) {
    if (!document.getElementById) return;
    var wn = document.getElementById(wndoId);
    this.id = wndoId; dw_scrollObj.col[this.id] = this;
    this.animString = "dw_scrollObj.col." + this.id;
    this.load(lyrId, horizId);
    
    if (wn.addEventListener) {
        wn.addEventListener('DOMMouseScroll', dw_scrollObj.doOnMouseWheel, false);
    } 
    wn.onmousewheel = dw_scrollObj.doOnMouseWheel;
}

dw_scrollObj.col = {}; // collect instances
dw_scrollObj.defaultSpeed = dw_scrollObj.prototype.speed = 100; // default for mouseover or mousedown scrolling
dw_scrollObj.defaultSlideDur = dw_scrollObj.prototype.slideDur = 500; // default duration of glide onclick

// pseudo events 
dw_scrollObj.prototype.on_load = function() {} // when dw_scrollObj initialized or new layer loaded
dw_scrollObj.prototype.on_scroll = function() {}
dw_scrollObj.prototype.on_scroll_start = function() {}
dw_scrollObj.prototype.on_scroll_stop = function() {} // when scrolling has ceased (mouseout/up)
dw_scrollObj.prototype.on_scroll_end = function() {} // reached end

dw_scrollObj.prototype.on_glidescroll = function() {}
dw_scrollObj.prototype.on_glidescroll_start = function() {}
dw_scrollObj.prototype.on_glidescroll_stop = function() {} // destination (to/by) reached
dw_scrollObj.prototype.on_glidescroll_end = function() {} // reached end

dw_scrollObj.prototype.load = function(lyrId, horizId) {
    var wndo, lyr;
    if (this.lyrId) { // layer currently loaded?
        lyr = document.getElementById(this.lyrId);
        lyr.style.visibility = "hidden";
    }
    this.lyr = lyr = document.getElementById(lyrId); // hold this.lyr?
    this.lyr.style.position = 'absolute'; 
    this.lyrId = lyrId; // hold id of currently visible layer
    this.horizId = horizId || null; // hold horizId for update fn
    wndo = document.getElementById(this.id);
    this.y = 0; this.x = 0; this.shiftTo(0,0);
    this.maxY = (lyr.offsetHeight - wndo.offsetHeight > 0)? lyr.offsetHeight - wndo.offsetHeight: 0;
    this.wd = horizId? document.getElementById(horizId).offsetWidth: lyr.offsetWidth;
    this.maxX = (this.wd - wndo.offsetWidth > 0)? this.wd - wndo.offsetWidth: 0;
    lyr.style.visibility = "visible"; // Do any current browsers need zIndex ?  
    this.ready = true; this.on_load(); 
}

dw_scrollObj.prototype.shiftTo = function(x, y) {
    if (this.lyr) {
        this.lyr.style.left = (this.x = x) + "px"; 
        this.lyr.style.top = (this.y = y) + "px";
    }
}

dw_scrollObj.prototype.getX = function() { return this.x; }
dw_scrollObj.prototype.getY = function() { return this.y; }

dw_scrollObj.prototype.updateDims = function() {
    var wndo = document.getElementById(this.id);
    var lyr = document.getElementById( this.lyrId );
    this.maxY = (lyr.offsetHeight - wndo.offsetHeight > 0)? lyr.offsetHeight - wndo.offsetHeight: 0;
    this.wd = this.horizId? document.getElementById( this.horizId ).offsetWidth: lyr.offsetWidth;
    this.maxX = (this.wd - wndo.offsetWidth > 0)? this.wd - wndo.offsetWidth: 0;
}

// for mouseover/mousedown scrolling
dw_scrollObj.prototype.initScrollVals = function(deg, speed) {
    if (!this.ready) return; 
    if (this.timerId) {
        clearInterval(this.timerId); this.timerId = 0;
    }
    this.speed = speed || dw_scrollObj.defaultSpeed;
    this.fx = (deg == 0)? -1: (deg == 180)? 1: 0;
    this.fy = (deg == 90)? 1: (deg == 270)? -1: 0;
    this.endX = (deg == 90 || deg == 270)? this.x: (deg == 0)? -this.maxX: 0; 
    this.endY = (deg == 0 || deg == 180)? this.y: (deg == 90)? 0: -this.maxY;
    this.lyr = document.getElementById(this.lyrId);
    this.lastTime = new Date().getTime();
    this.on_scroll_start(this.x, this.y);  
    this.timerId = setInterval(this.animString + ".scroll()", 10);    
}

dw_scrollObj.prototype.scroll = function() {
    var now = new Date().getTime();
    var d = (now - this.lastTime)/1000 * this.speed;
    if (d > 0) { 
        var x = this.x + Math.round(this.fx * d); var y = this.y + Math.round(this.fy * d);
        if ( ( this.fx == -1 && x > -this.maxX ) || ( this.fx == 1 && x < 0 ) || 
                ( this.fy == -1 && y > -this.maxY ) || ( this.fy == 1 && y < 0 ) ) 
       {
            this.lastTime = now;
            this.shiftTo(x, y);
            this.on_scroll(x, y);
        } else {
            clearInterval(this.timerId); this.timerId = 0;
            this.shiftTo(this.endX, this.endY);
            this.on_scroll_end(this.endX, this.endY);
        }
    }
}

// when scrolling has ceased (mouseout/up)
dw_scrollObj.prototype.ceaseScroll = function() {
    if (!this.ready) return;
    if (this.timerId) {
        clearInterval(this.timerId); this.timerId = 0; 
    }
    //this.lyr = null; // discard ref?
    this.on_scroll_stop(this.x, this.y); 
}

// glide onclick scrolling
dw_scrollObj.prototype.initScrollByVals = function(dx, dy, dur) {
    if ( !this.ready || this.sliding ) return;
    this.startX = this.x; this.startY = this.y;
    this.destX = this.destY = this.distX = this.distY = 0;
    if (dy < 0) {
        this.distY = (this.startY + dy >= -this.maxY)? dy: -(this.startY  + this.maxY);
    } else if (dy > 0) {
        this.distY = (this.startY + dy <= 0)? dy: -this.startY;
    }
    if (dx < 0) {
        this.distX = (this.startX + dx >= -this.maxX)? dx: -(this.startX + this.maxX);
    } else if (dx > 0) {
        this.distX = (this.startX + dx <= 0)? dx: -this.startX;
    }
    this.destX = this.startX + this.distX; this.destY = this.startY + this.distY;
    this.glideScrollPrep(this.destX, this.destY, dur);
}

dw_scrollObj.prototype.initScrollToVals = function(destX, destY, dur) {
    if ( !this.ready || this.sliding ) return;
    this.startX = this.x; this.startY = this.y;
    this.destX = -Math.max( Math.min(destX, this.maxX), 0);
    this.destY = -Math.max( Math.min(destY, this.maxY), 0);
    this.distY = this.destY - this.startY;
    this.distX = this.destX - this.startX;
    this.glideScrollPrep(this.destX, this.destY, dur);
}

dw_scrollObj.prototype.glideScrollPrep = function(destX, destY, dur) {
    this.slideDur = dur || dw_scrollObj.defaultSlideDur;
    this.per = Math.PI/(2 * this.slideDur); this.sliding = true;
    this.lyr = document.getElementById(this.lyrId); 
    this.startTime = new Date().getTime();
    this.timerId = setInterval(this.animString + ".doGlideScroll()",10);
    this.on_glidescroll_start(this.startX, this.startY);
}

dw_scrollObj.prototype.doGlideScroll = function() {
    var elapsed = new Date().getTime() - this.startTime;
    if (elapsed < this.slideDur) {
        var x = this.startX + Math.round( this.distX * Math.sin(this.per*elapsed) );
        var y = this.startY + Math.round( this.distY * Math.sin(this.per*elapsed) );
        this.shiftTo(x, y); 
        this.on_glidescroll(x, y);
    } else {	// if time's up
        clearInterval(this.timerId); this.timerId = 0; this.sliding = false;
        this.shiftTo(this.destX, this.destY);
        //this.lyr = null; 
        this.on_glidescroll_stop(this.destX, this.destY);
        // end of axis reached ? 
        if ( this.distX && (this.destX == 0 || this.destX == -this.maxX) 
          || this.distY && (this.destY == 0 || this.destY == -this.maxY) ) { 
            this.on_glidescroll_end(this.destX, this.destY);
        } 
    }
}

//  resource: http://adomas.org/javascript-mouse-wheel/
dw_scrollObj.handleMouseWheel = function(id, delta) {
    var wndo = dw_scrollObj.col[id];
    var x = wndo.x;
    var y = wndo.y;
    wndo.on_scroll_start(x,y);
    var ny;
    ny = 12  * delta + y
    if (ny < 0 && ny > -wndo.maxY ) {
        wndo.shiftTo(x, ny);
        wndo.on_scroll(x, ny);
    }
}

dw_scrollObj.doOnMouseWheel = function(e) {
    var delta = 0;
    if (!e) e = window.event;
    if (e.wheelDelta) { /* IE/Opera. */
        delta = e.wheelDelta/120;
        if (window.opera) delta = -delta;
    } else if (e.detail) { // Mozilla 
        delta = -e.detail/3;
    }
    if (delta) { // > 0 up, < 0 down
        dw_scrollObj.handleMouseWheel(this.id, delta);
    }
    if (e.preventDefault) e.preventDefault();
    e.returnValue = false;
}

dw_scrollObj.GeckoTableBugFix = function() {} // no longer need old bug fix

// Get position of el within layer (oCont) sOff: 'left' or 'top'
function dw_getLayerOffset(el, oCont, sOff) {
    var off = "offset" + sOff.charAt(0).toUpperCase() + sOff.slice(1);
    var val = el[off];
    while ( (el = el.offsetParent) != oCont ) 
        val += el[off];
    var clientOff = off.replace("offset", "client");
    if ( el[clientOff] ) val += el[clientOff];
    return val;
}
//  dw_event.js version date Feb 2008
//  basic event handling file from dyn-web.com

var dw_Event = {
  
    add: function(obj, etype, fp, cap) {
        cap = cap || false;
        if (obj.addEventListener) obj.addEventListener(etype, fp, cap);
        else if (obj.attachEvent) obj.attachEvent("on" + etype, fp);
    }, 

    remove: function(obj, etype, fp, cap) {
        cap = cap || false;
        if (obj.removeEventListener) obj.removeEventListener(etype, fp, cap);
        else if (obj.detachEvent) obj.detachEvent("on" + etype, fp);
    }, 
    
    DOMit: function(e) { 
        e = e? e: window.event;
        if (!e.target) e.target = e.srcElement;
        if (e.target.nodeType == 3) e.target = e.target.parentNode;
        if (!e.preventDefault) e.preventDefault = function () { e.returnValue = false; return false; }
        if (!e.stopPropagation) e.stopPropagation = function () { e.cancelBubble = true; }
        return e;
    }
}


// Created by: Simon Willison | http://simon.incutio.com/ 
// minor mod by shp dyn-web
function addLoadEvent(func) {
  var oldonload = window.onload;
  if (typeof window.onload != 'function') {
    //window.onload = func;
    window.onload = function() { func(); }
  } else {
    window.onload = function() {
      if (oldonload) {
        oldonload();
      }
      func();
    }
  }
}

/*************************************************************************
    This code is from Dynamic Web Coding at dyn-web.com
    Copyright 2008 by Sharon Paine 
    See Terms of Use at www.dyn-web.com/business/terms.php
    regarding conditions under which you may use this code.
    This notice must be retained in the code as is!

    unobtrusive event handling for use with dw_scroll.js
*************************************************************************/

/////////////////////////////////////////////////////////////////////
// two ways to add style sheet for capable browsers
dw_writeStyleSheet = function(file) {
    document.write('<link rel="stylesheet" href="' + file + '" media="screen" />');
}

function dw_addLinkCSS(file) {
    if ( !document.createElement ) return;
    var el = document.createElement("link");
    el.setAttribute("rel", "stylesheet");
    el.setAttribute("type", "text/css");
    el.setAttribute("media", "screen");
    el.setAttribute("href", file);
    document.getElementsByTagName('head')[0].appendChild(el);
}
/////////////////////////////////////////////////////////////////////

// load_wn_lyr1 
// Why specify the id of the scroll area in this class name but not the others ?  
// I don't believe I have tested the addition of the horizontal ID that's needed when you using horizontal scrolling 
// load_wn_lyr2_t2
dw_scrollObj.prototype.setUpLoadLinks = function(controlsId) {
    if ( !document.getElementById || !document.getElementsByTagName ) return;
    var wndoId = this.id; var el = document.getElementById(controlsId); 
    var links = el.getElementsByTagName('a');
    var cls, new_cls, parts;
    for (var i=0; links[i]; i++) {
        cls = dw_scrollObj.get_DelimitedClass( links[i].className );
        parts = cls.split('_');
        if ( parts[0] == 'load' ) {
            // more checking here?
            
            new_cls = cls.replace( 'load_', '');
            links[i].className = links[i].className.replace(cls, new_cls);
            dw_Event.add( links[i], 'click', dw_scrollObj.initLayerLoad );
        }
    }
}

dw_scrollObj.prototype.setUpScrollControls = function(controlsId, autoHide, axis) {
    if ( !document.getElementById || !document.getElementsByTagName ) return;
    var wndoId = this.id; var el = document.getElementById(controlsId); 
    if ( autoHide ) {
        dw_scrollObj.handleControlVis(controlsId, wndoId, axis);
        dw_Scrollbar_Co.addEvent( this, 'on_load', function() { dw_scrollObj.handleControlVis(controlsId, wndoId, axis); } );
    }
    var wn = document.getElementById( wndoId );
    // support area too? later
    var links = el.getElementsByTagName('a');
    var cls, new_cls, parts, eType, eAlt, fn, x, y, dur;
    var re, dur_re = /^([\d]+)$/;
    
    // Reminder: doesn't work to set up anonymous functions here, passing arguments, because of closures !
    for (var i=0; links[i]; i++) {
         x = '', y = ''; // restore
        // Get first class with underscores
        cls = dw_scrollObj.get_DelimitedClass( links[i].className );
        parts = cls.split('_'); 
        eType = dw_scrollObj.getEv_FnType( parts[0] );
        switch ( eType ) {
            case 'mouseover' :
            case 'mousedown' :
            re = /^(mouseover|mousedown)_(up|down|left|right)(_[\d]+)?$/;
                // replace mouseover/mousedown in class name with wndoId (eg. wn_left_100)
                if ( re.test(cls) ) { 
                    new_cls = cls.replace( eType, wndoId);
                    links[i].className = links[i].className.replace(cls, new_cls);
                    eAlt = (eType == 'mouseover')? 'mouseout': 'mouseup';
                    dw_Event.add( links[i], eType, dw_scrollObj.initScrollMouse );
                    dw_Event.add( links[i], eAlt, dw_scrollObj.stopScrollMouse );
                    if ( eType == 'mouseover') {
                        dw_Event.add( links[i], 'mousedown', dw_scrollObj.increaseSpeed );
                        dw_Event.add( links[i], 'mouseup', dw_scrollObj.restoreDefaultSpeed );
                    }
                    dw_Event.add( links[i], 'click', 
                        function(e) { if (e && e.preventDefault) e.preventDefault(); return false; } ); 
                }
                continue;
    
            case 'scrollTo' :
                fn = 'scrollTo';
                re = /^(null|end|[\d]+)$/;
                x = re.test( parts[1] )? parts[1]: '';
                y = re.test( parts[2] )? parts[2]: '';
                dur = ( parts[3] && dur_re.test(parts[3]) )? parts[3]: null;
                break;
            case 'scrollBy':// scrollBy_m30_m40, scrollBy_null_m100, scrollBy_100_null
                fn = 'scrollBy';
                re = /^(([m]?[\d]+)|null)$/;
                x = re.test( parts[1] )? parts[1]: '';
                y = re.test( parts[2] )? parts[2]: '';
                dur = ( parts[3] && dur_re.test(parts[3]) )? parts[3]: null;
                break;
            case 'scrollToId': 
                new_cls = wndoId + '_' + links[i].className;
                links[i].className = links[i].className.replace(cls, new_cls);
                dw_Event.add( links[i], 'click', dw_scrollObj.scrollToId );
                continue;
            case 'click': 
                var o = dw_scrollObj.getClickParts(cls);
                fn = o.fn; x = o.x; y = o.y; dur = o.dur;
                break;
        }
        if ( x !== '' && y !== '' ) {
            new_cls = wndoId + '_' + fn + '_' + x + '_' + y + ( dur? '_' + dur: '');
            links[i].className = links[i].className.replace(cls, new_cls);
            dw_Event.add( links[i], 'click', dw_scrollObj.doOnclick );
        }
    }
}

// get info from className (e.g., click_down_by_100)
dw_scrollObj.getClickParts = function(cls) {
    var parts = cls.split('_');
    var re = /^(up|down|left|right)$/;
    var dir, fn, x, y, dur, ar;
    if ( ar = parts[1].match(re) ) { dir = ar[1]; }
    re = /^(to|by)$/; 
    ar = parts[2].match(re);
    fn = (ar[0] == 'to')? 'scrollTo': (ar[0] == 'by')? 'scrollBy': '';
    var val = parts[3]; // value on x or y axis
    if ( parts[4] ) { 
        dur = !isNaN( parts[4] )? parts[4]: null;
    }
    
    // no hyphens in classes. indicate a negative number with m - down_by_100 to scrollBy_0_m100
    if (dir) { // If direction is specified, value on one axis is implied 
        switch (fn) {
            case 'scrollBy' :
                re = /^([\d]+)$/;
                if ( !re.test( val ) ) {
                    x = ''; y = ''; break;
                }
                switch (dir) { // 0 for unspecified axis 
                    case 'up' : x = 0; y = val; break;
                    case 'down' : x = 0; y = 'm' + val; break;
                    case 'left' : x = val; y = 0; break;
                    case 'right' : x = 'm' + val; y = 0;
                 }
                break;
            case 'scrollTo' :
                re = /^(end|[\d]+)$/;
                if ( !re.test( val ) ) {
                    x = ''; y = ''; break;
                }
                switch (dir) { // null for unspecified axis 
                    case 'up' : x = null; y = val; break;
                    case 'down' : x = null; y = (val == 'end')? val: 'm' + val; break;
                    case 'left' : x = val; y = null; break;
                    case 'right' : x = (val == 'end')? val: 'm' + val; y = null;
                 } 
                break;
         }
    }
    return { fn: fn, x: x, y: y, dur: dur }
}

dw_scrollObj.getEv_FnType = function(str) {
    var re = /^(mouseover|mousedown|scrollBy|scrollTo|scrollToId|click)$/;
    if (re.test(str) ) {
        return str;
    }
    return '';
}

// return class name with underscores in it 
dw_scrollObj.get_DelimitedClass = function(cls) {
    if ( cls.indexOf('_') == -1 ) {
        return '';
    }
    var whitespace = /\s+/;
    if ( !whitespace.test(cls) ) {
        return cls;
    } else {
        var classes = cls.split(whitespace); 
        for(var i = 0; classes[i]; i++) { 
            if ( classes[i].indexOf('_') != -1 ) {
                return classes[i];
            }
        }
    }
}

dw_scrollObj.doOnclick = function(e) {
    var tgt = dw_scrollObj.getTargetLink(e);
    var cls = dw_scrollObj.get_DelimitedClass( tgt.className );
    var parts = cls.split('_');
    var wndoId = parts[0];  var fn = parts[1]; 
    var x = parts[2].replace('m', '-'); var y = parts[3].replace('m', '-'); 
    var dur = parts[4] || null;
    var wndo = dw_scrollObj.col[wndoId];
    if (x == 'end') { x = wndo.maxX; }
    if (y == 'end') { y = wndo.maxY; }
    if (x == 'null') { x = wndo.x; }
    if (y == 'null') { y = wndo.y; }
    x = parseInt(x); y = parseInt(y);
    if (fn == 'scrollBy') {
        wndo.initScrollByVals(x, y, dur);
    } else if (fn == 'scrollTo') {
        wndo.initScrollToVals(x, y, dur);
    }
    if (e && e.preventDefault) e.preventDefault();
    return false;
}

// wn_scrollToId_smile, wn_scrollToId_smile_100, wn_scrollToId_smile_lyr1_100
dw_scrollObj.scrollToId = function(e) {
    var dur;
    var tgt = dw_scrollObj.getTargetLink(e);
    var cls = dw_scrollObj.get_DelimitedClass( tgt.className );
    var parts = cls.split('_');
    var wndoId = parts[0];  var wndo = dw_scrollObj.col[wndoId];
    var el = document.getElementById( parts[2] );
    if (el) {
        if ( parts[3] ) {
            if ( isNaN(parts[3]) ) { // Check for and load the layer 
                var id = parts[3];
                if ( document.getElementById(id) && wndo.lyrId != id ) {
                    dw_scrollObj.col[wndoId].load(id);
                }
                dur = parts[4] && !isNaN(parts[4])? parts[4]: null;
            } else {
                dur = parts[3];
            }
        }
        var lyr = document.getElementById(wndo.lyrId);
        var x = dw_getLayerOffset(el, lyr, 'left');
        var y = dw_getLayerOffset(el, lyr, 'top');
        wndo.initScrollToVals(x, y, dur);
    }
    if (e && e.preventDefault) e.preventDefault();
    return false;
}

dw_scrollObj.increaseSpeed = function(e) {
    var wndoId = dw_scrollObj.getWndoIdFromClass(e);
    dw_scrollObj.col[wndoId].speed *= 3;
}

dw_scrollObj.restoreDefaultSpeed = function(e) {
    var wndoId = dw_scrollObj.getWndoIdFromClass(e);
    dw_scrollObj.col[wndoId].speed = dw_scrollObj.prototype.speed;
    if (e && e.preventDefault) e.preventDefault();
    return false;
}

dw_scrollObj.initScrollMouse = function(e) {
    var tgt = dw_scrollObj.getTargetLink(e);
    var cls = dw_scrollObj.get_DelimitedClass( tgt.className );
    var parts = cls.split('_'); // eg. wn_down_100
    var wndoId = parts[0];  var dir = parts[1];  
    var speed = parts[2] || null; 
    var deg = dir == 'up'? 90: dir == 'down'? 270: dir == 'left'? 180: dir == 'right'? 0: null;
    if ( deg != null ) {
        dw_scrollObj.col[wndoId].initScrollVals(deg, speed);
    }
}

dw_scrollObj.stopScrollMouse = function(e) {
    var wndoId = dw_scrollObj.getWndoIdFromClass(e);
    dw_scrollObj.col[wndoId].ceaseScroll();
}

dw_scrollObj.initLayerLoad = function(e) {
    var tgt = dw_scrollObj.getTargetLink(e);
    var cls = dw_scrollObj.get_DelimitedClass( tgt.className );
    //alert(cls)
    var parts = cls.split('_'); 
    var wndoId = parts[0]; var lyrId = parts[1]; var horizId = parts[2]? parts[2]: null;
    dw_scrollObj.col[wndoId].load(lyrId, horizId);
    if (e && e.preventDefault) e.preventDefault();
    return false;
}

dw_scrollObj.getWndoIdFromClass = function(e) {
    var tgt = dw_scrollObj.getTargetLink(e);
    var cls = dw_scrollObj.get_DelimitedClass( tgt.className );
    return cls.slice(0, cls.indexOf('_') );
}

dw_scrollObj.getTargetLink = function(e) {
    dw_Event.DOMit(e);
    var tgt = e.target;
    do {
        if ( tgt.tagName == 'A' ) {
            return tgt;
        }
    } while ( tgt = tgt.parentNode)
    return '';
}

dw_scrollObj.handleControlVis = function(controlsId, wndoId, axis) {
    var wndo = dw_scrollObj.col[wndoId];
    var el = document.getElementById(controlsId);
    if ( ( axis == 'v' && wndo.maxY > 0 ) || ( axis == 'h' && wndo.maxX > 0 ) ) {
        el.style.visibility = 'visible';
    } else {
        el.style.visibility = 'hidden';
    }
}

function init_dw_Scroll() {
    var wndo = new dw_scrollObj('wn', 'lyr1', 't1');
    wndo.setUpScrollControls('scrollLinks');
}

// if necessary objects exists link in the style sheet and call the init function onload
if ( document.getElementById && document.getElementsByTagName ) {
    //dw_writeStyleSheet('css/scroll.css');
    addLoadEvent(init_dw_Scroll);
}