// begin absolutely positioned scrollable area object scripts 
// Extension developed by David G. Miles 
// visibility of scroll set according to page size by Michael V Khalsa
// Original Scrollable Area code developed by Thomas Brattli 
function verifyCompatibleBrowser()
{ 
    this.ver = navigator.appVersion 
    this.dom = document.getElementById?1:0 
    this.ie5 = (this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0; 
    this.ie4 = (document.all && !this.dom)?1:0; 
    this.ns5 = (this.dom && parseInt(this.ver) >=  5) ?1:0; 
 
    this.ns4 = (document.layers && !this.dom)?1:0; 
    this.bw = (this.ie5 || this.ie4 || this.ns4 || this.ns5)
    
    return this 
} 
bw = new verifyCompatibleBrowser();
 
var speed = 25 
 
var loop, timer 
 
function ConstructObject(obj,nest)
{ 
    nest = (!nest) ? '':'document.'+nest+'.'
    this.el = bw.dom?document.getElementById(obj):bw.ie4?document.all[obj]:bw.ns4?eval(nest+'document.'+obj):0; 
    this.css = bw.dom?document.getElementById(obj).style:bw.ie4?document.all[obj].style:bw.ns4?eval(nest+'document.'+obj):0; 
    this.scrollHeight = bw.ns4?this.css.document.height:this.el.offsetHeight;
    this.clipHeight = bw.ns4?this.css.clip.height:this.el.offsetHeight;
    this.up = MoveAreaUp;this.down = MoveAreaDown; 
    this.MoveArea = MoveArea; this.x; this.y;
    this.obj  =  obj + "Object" 
    eval(this.obj + " = this") 
    return this 
}

function MoveArea(x,y)
{
    this.x = x;
    this.y = y;
    this.css.left = this.x+'px';
    this.css.top = this.y+'px';
} 
 
function MoveAreaDown(move)
{ 
	if (this.y>-this.scrollHeight+objContainer.clipHeight)
	{ 
	    this.MoveArea(0,this.y-move);
	    if(loop)
	    	setTimeout(this.obj+".down("+move+")",speed);
	} 
}

function MoveAreaUp(move)
{
	if(this.y<0)
	{ 
	    this.MoveArea(0,this.y-move);
	    if(loop)
	    	setTimeout(this.obj+".up("+move+")",speed);
	} 
} 
 
function PerformScroll(speed)
{
	if(initialised)
	{ 
			loop = true; 
		if(speed>0)
			objScroller.down(speed) 
		else
			objScroller.up(speed) 
			
	} 
} 
 
function CeaseScroll()
{ 
    loop = false 
    if(timer)
    	clearTimeout(timer) 
}

var initialised;

function InitialiseScrollableArea(divcontainer, divcontent)
{
    objContainer = new ConstructObject(divcontainer);
    objScroller = new ConstructObject(divcontent, divcontainer);
    objScroller.MoveArea(0,0);
    objContainer.css.visibility = 'visible';
    initialised = true; 
   	// hide scrolling if display area does not need it
    if (objScroller.scrollHeight <= objContainer.clipHeight) {
    var upArrow = document.getElementById('up-arrow');
    var downArrow = document.getElementById('down-arrow');
		if(upArrow && downArrow) {
	    	upArrow.style.display='none';
	    	downArrow.style.display='none';
		}
	}
}
// end absolutely positioned scrollable area object scripts