if ( typeof document.attachEvent != 'undefined' )
{
	window.attachEvent  ( 'onload'      , init );
	document.attachEvent( 'onmousemove' , moveMouse );
	document.attachEvent( 'onclick'     , checkMove );
}
else
{
	window.addEventListener  ( 'load'      , init      , false);
	document.addEventListener( 'mousemove' , moveMouse , false);
	document.addEventListener( 'click'     , checkMove , false);
}

var oDv   = document.createElement( "div" );
var dvHdr = document.createElement( "div" );
var dvBdy = document.createElement( "div" );
var windowlock, boxMove, boxOpen, evt;
var fixposx, fixposy, lockX, lockY, fixx, fixy, ox, oy, mouseX, mouseY; 
var boxLeft, boxRight, boxTop, boxBottom, totalScrollTop, totalScrollLeft;
var Lang = true;
boxOpen = false;
ox      = 10;
oy      = 10;
lockX   = 0;
lockY   = 0;

function init()
{
	oDv.appendChild( dvHdr );
	oDv.appendChild( dvBdy );
	oDv.style.position = "absolute";
	oDv.style.visibility = 'hidden';
	document.body.appendChild( oDv );	
}

function defHdrStyle()
{
	dvHdr.innerHTML        = '<img style="vertical-align:middle" src="info.gif">&nbsp;&nbsp;' + dvHdr.innerHTML;
	dvHdr.style.direction  = Lang ? 'rtl' : 'ltr';
	dvHdr.style.fontWeight = 'bold';
	dvHdr.style.width      = '235px';
	dvHdr.style.fontFamily = 'Tahoma';
	dvHdr.style.border     = '1px solid #A5CFE9';
	dvHdr.style.padding    = '3';
	dvHdr.style.fontSize   = '11';
	dvHdr.style.color      = '#4B7A98';
	dvHdr.style.background = '#D5EBF9';
	dvHdr.style.filter     = 'alpha(opacity=85)'; // IE
	dvHdr.style.opacity    = '0.85'; // FF
	dvHdr.align            = "justify";
}

function defBdyStyle()
{
	dvBdy.style.direction    = Lang ? 'rtl' : 'ltr';
	dvBdy.style.borderBottom = '1px solid #A5CFE9';
	dvBdy.style.borderLeft   = '1px solid #A5CFE9';
	dvBdy.style.borderRight  = '1px solid #A5CFE9';
	dvBdy.style.width        = '235px';
	dvBdy.align              = 'justify';
	dvBdy.style.fontFamily   = 'Tahoma';
	dvBdy.style.fontSize     = '11';
	dvBdy.style.padding      = '3';
	dvBdy.style.color        = '#1B4966';
	dvBdy.style.background   = '#FFFFFF';
	dvBdy.style.filter       = 'alpha(opacity=85)'; // IE
	dvBdy.style.opacity      = '0.85'; // FF
}

function checkElemBO(txt)
{
	if ( !txt || typeof(txt) != 'string' )
		return false;
	if ( ( txt.indexOf('header') > -1 ) && 
	     ( txt.indexOf('body')   > -1 ) && 
	     ( txt.indexOf('[')      > -1 ) && 
	     ( txt.indexOf('[')      > -1 ) ) 
		return true;
	else
		return false;
}

function scanBO( curNode )
{
	if ( checkElemBO ( curNode.title ) )
	{
		curNode.boHDR     = getParam( 'header'    ,curNode.title );
		curNode.boBDY     = getParam( 'body'      ,curNode.title );
		curNode.boCSSBDY  = getParam( 'cssbody'   ,curNode.title );			
		curNode.boCSSHDR  = getParam( 'cssheader' ,curNode.title );
		curNode.IEbugfix  = ( getParam('hideselects' ,curNode.title ) == 'on' ) ? true : false ;
		curNode.fixX      = parseInt( getParam( 'fixedrelx' , curNode.title ) );
		curNode.fixY      = parseInt( getParam( 'fixedrely' , curNode.title ) );
		curNode.absX      = parseInt( getParam( 'fixedabsx' , curNode.title ) );
		curNode.absY      = parseInt( getParam( 'fixedabsy' , curNode.title ) );
		curNode.offY      = (getParam( 'offsety'   , curNode.title)  != '' ) ? parseInt( getParam( 'offsety' , curNode.title ) ) : 10;
		curNode.offX      = (getParam( 'offsetx'   , curNode.title)  != '' ) ? parseInt( getParam( 'offsetx' , curNode.title ) ) : 10;
		curNode.fade      = (getParam( 'fade'      , curNode.title)  == 'on' ) ? true : false ;
		curNode.fadespeed = (getParam( 'fadespeed' , curNode.title)  != '' ) ? getParam( 'fadespeed' , curNode.title ) : 0.04;
		curNode.WidthOf   = (getParam( 'widthof'   ,curNode.title )  != '' ) ? getParam( 'widthof'   ,curNode.title ) : "235px";
		curNode.delay = (getParam( 'delay' , curNode.title ) != '' ) ? parseInt( getParam( 'delay'   , curNode.title ) ) : 0;
		if ( getParam( 'requireclick' , curNode.title ) == 'on' )
		{
			curNode.requireclick = true;
			document.all ? curNode.attachEvent( 'onclick' , showHideBox ) : curNode.addEventListener( 'click' , showHideBox , false );
			document.all ? curNode.attachEvent( 'onmouseover' , hideBox ) : curNode.addEventListener( 'mouseover' , hideBox , false );
		}
		else
		{// Note : if requireclick is on the stop clicks are ignored   
			if ( getParam( 'doubleclickstop' , curNode.title ) != 'off' )
				document.all ? curNode.attachEvent( 'ondblclick' , pauseBox ) : curNode.addEventListener( 'dblclick' , pauseBox , false);
			if ( getParam( 'singleclickstop' , curNode.title )=='on')
				document.all ? curNode.attachEvent( 'onclick' , pauseBox) : curNode.addEventListener( 'click' , pauseBox , false);
		}
		curNode.windowLock = getParam( 'windowlock' , curNode.title ).toLowerCase() == 'off' ? false : true;
		curNode.title = '';
		curNode.hasbox = 1;
	}
	else
		curNode.hasbox = 2;
}


function getParam(param,list)
{
	var reg = new RegExp('([^a-zA-Z]' + param + '|^' + param + ')\\s*=\\s*\\[\\s*(((\\[\\[)|(\\]\\])|([^\\]\\[]))*)\\s*\\]');
	var res = reg.exec( list );
	var returnvar;
	if( res )
		return res[2].replace('[[','[').replace(']]',']');
	else
		return '';
}

function Left(elem)
{
	var x = 0;
	if ( elem.calcLeft )
		return elem.calcLeft;
	var oElem = elem;
	while( elem )
	{
		if ( ( elem.currentStyle ) && ( !isNaN( parseInt( elem.currentStyle.borderLeftWidth ) ) ) && ( x != 0 ) )
			x += parseInt( elem.currentStyle.borderLeftWidth );
		x   += elem.offsetLeft;
		elem = elem.offsetParent;
	}
	oElem.calcLeft = x;
	return x;
}

function Top(elem)
{
	var x = 0;
	if ( elem.calcTop )
		return elem.calcTop;
	var oElem = elem;
	while( elem )
	{
		if ( ( elem.currentStyle ) && ( !isNaN( parseInt( elem.currentStyle.borderTopWidth ) ) ) && ( x != 0 ) )
			x += parseInt(elem.currentStyle.borderTopWidth); 
		x   += elem.offsetTop;
		elem = elem.offsetParent;
	}
	oElem.calcTop = x;
	return x;
}

var ah,ab;
function applyStyles()
{
	if(ab)
		oDv.removeChild( dvBdy );
	if (ah)
		oDv.removeChild( dvHdr );
	dvHdr = document.createElement( "div" );
	dvBdy = document.createElement( "div" );
	CBE.boCSSBDY ? dvBdy.className = CBE.boCSSBDY : defBdyStyle();
	CBE.boCSSHDR ? dvHdr.className = CBE.boCSSHDR : defHdrStyle();
	dvHdr.innerHTML = CBE.boHDR;
	dvBdy.innerHTML = CBE.boBDY;
	dvHdr.style.width = CBE.WidthOf;
	dvBdy.style.width = CBE.WidthOf;
	ah = false;
	ab = false;
	if ( CBE.boHDR != '' )
	{
		oDv.appendChild( dvHdr );
		ah = true;
	}	
	if (CBE.boBDY != '')
	{
		oDv.appendChild( dvBdy );
		ab = true;
	}	
}

var CSE, iterElem, LSE, CBE, LBE, totalScrollLeft, totalScrollTop, width, height ;
var ini = false;

// Customised function for inner window dimension
function SHW()
{
	if ( document.body && ( document.body.clientWidth != 0 ) )
	{
		width  = document.body.clientWidth;
		height = document.body.clientHeight;
	}
	if ( document.documentElement && ( document.documentElement.clientWidth != 0) && (document.body.clientWidth + 20 >= document.documentElement.clientWidth ) )
	{
		width  = document.documentElement.clientWidth;   
		height = document.documentElement.clientHeight;   
	}
	return [ width , height ];
}

var ID = null;
function moveMouse(e)
{
	//boxMove=true;
	e ? evt = e:evt = event;
	CSE = evt.target ? evt.target : evt.srcElement;
	if ( !CSE.hasbox )
	{
	// Note we need to scan up DOM here, some elements like TR don't get triggered as srcElement
		iElem = CSE;
		while ( ( iElem.parentNode ) && ( !iElem.hasbox ) )
		{
			scanBO( iElem );
			iElem = iElem.parentNode;
		}
	}
	if ( ( CSE != LSE ) && ( !isChild( CSE , dvHdr ) ) && ( !isChild( CSE , dvBdy ) ) )
	{
		if ( !CSE.boxItem )
		{
			iterElem = CSE;
			while ( ( iterElem.hasbox == 2 ) && ( iterElem.parentNode ) )
				iterElem = iterElem.parentNode; 
			CSE.boxItem = iterElem;
		}
		iterElem = CSE.boxItem;
		if ( CSE.boxItem && ( CSE.boxItem.hasbox == 1 ) )
		{
			LBE = CBE;
			CBE = iterElem;
			if (CBE != LBE)
			{
				applyStyles();
				if ( !CBE.requireclick )
					if ( CBE.fade )
					{
						if ( ID != null )
							clearTimeout(ID);
						ID = setTimeout( "fadeIn(" + CBE.fadespeed + ")" , CBE.delay );
					}
					else
					{
						if ( ID != null )
							clearTimeout( ID );
						COL = 1;
						ID = setTimeout( "oDv.style.visibility='visible';ID=null;" , CBE.delay );
					}
				if ( CBE.IEbugfix )
					hideSelects();
				else
					showSelects();
				
				fixposx = !isNaN(CBE.fixX) ? Left(CBE) + CBE.fixX : CBE.absX;
				fixposy = !isNaN(CBE.fixY) ? Top(CBE)  + CBE.fixY : CBE.absY;
				lockX   = 0;
				lockY   = 0;
				boxMove = true;
				ox      = CBE.offX ? CBE.offX : 10;
				oy      = CBE.offY ? CBE.offY : 10;
			}
		}
		else if (!isChild( CSE , dvHdr ) && !isChild( CSE , dvBdy ) && ( boxMove ) )
		{
			// The conditional here fixes flickering between tables cells.
			if ( ( !isChild( CBE , CSE ) ) || ( CSE.tagName != 'TABLE' ) )
			{
				CBE = null;
				if (ID != null)
					clearTimeout( ID );
				fadeOut();
				showSelects();
			}
		}
		LSE = CSE;
	}
	else if ( ( ( isChild( CSE , dvHdr ) || isChild( CSE , dvBdy )) && ( boxMove ) ) )
	{
		totalScrollLeft = 0;
		totalScrollTop  = 0;
		
		iterElem = CSE;
		while( iterElem )
		{
			if( !isNaN( parseInt( iterElem.scrollTop ) ) )
				totalScrollTop += parseInt( iterElem.scrollTop );
			if( !isNaN( parseInt( iterElem.scrollLeft ) ) )
				totalScrollLeft += parseInt( iterElem.scrollLeft );
			iterElem = iterElem.parentNode;
		}
		if ( CBE != null )
		{
			boxLeft   = Left(CBE) - totalScrollLeft;
			boxRight  = parseInt( Left(CBE) + CBE.offsetWidth ) - totalScrollLeft;
			boxTop    = Top(CBE) - totalScrollTop;
			boxBottom = parseInt( Top(CBE) + CBE.offsetHeight ) - totalScrollTop;
			doCheck();
		}
	}
	
	if ( boxMove && CBE )
	{
		// This added to alleviate bug in IE6 w.r.t DOCTYPE
		bodyScrollTop = document.documentElement&&document.documentElement.scrollTop ? document.documentElement.scrollTop : document.body.scrollTop;
		bodyScrollLet = document.documentElement&&document.documentElement.scrollLeft ? document.documentElement.scrollLeft : document.body.scrollLeft;
		mouseX = evt.pageX ? evt.pageX-bodyScrollLet : evt.clientX-document.body.clientLeft;
		mouseY = evt.pageY ? evt.pageY-bodyScrollTop : evt.clientY-document.body.clientTop;
		if ((CBE)&&(CBE.windowLock))
		{
			mouseY < -oy ? lockY = -mouseY-oy : lockY=0;
			mouseX < -ox ? lockX = -mouseX-ox : lockX=0;
			mouseY > (SHW()[1] - oDv.offsetHeight  - oy) ? lockY = -mouseY + SHW()[1] - oDv.offsetHeight - oy : lockY = lockY;
			mouseX > (SHW()[0] - dvBdy.offsetWidth - ox) ? lockX = -mouseX-ox + SHW()[0] - dvBdy.offsetWidth  : lockX = lockX;
		}
		oDv.style.left = ((fixposx)||(fixposx==0)) ? fixposx : bodyScrollLet + mouseX+ox + lockX + "px";
		oDv.style.top  = ((fixposy)||(fixposy==0)) ? fixposy : bodyScrollTop + mouseY+oy + lockY + "px";
		
	}
}

function doCheck()
{
	if ( (mouseX < boxLeft) || (mouseX >boxRight) || (mouseY < boxTop) || (mouseY > boxBottom))
	{
		if ( !CBE.requireclick )
			fadeOut();
		if ( CBE.IEbugfix )
			showSelects();
		CBE = null;
	}
}

function pauseBox(e)
{
	e ? evt = e : evt = event;
	boxMove = false;
	evt.cancelBubble = true;
}

function showHideBox(e)
{
	oDv.style.visibility = ( oDv.style.visibility != 'visible' ) ? 'visible' : 'hidden';
}

function hideBox(e)
{
	oDv.style.visibility = 'hidden';
}

var COL = 0;
var stopfade = false;
function fadeIn( fs )
{
	ID = null;
	COL = 0;
	oDv.style.visibility = 'visible';
	fadeIn2( fs );
}

function fadeIn2( fs )
{
	COL = COL + fs;
	COL = ( COL > 1 ) ? 1 : COL;
	oDv.style.filter = 'alpha(opacity=' + parseInt( 100 * COL ) + ')';
	oDv.style.opacity = COL;
	if ( COL < 1 )
		setTimeout( "fadeIn2(" + fs + ")" , 20 );		
}

function fadeOut()
{
	oDv.style.visibility = 'hidden';
}

function isChild( s , d )
{
	while( s )
	{
		if ( s == d ) 
			return true;
		s = s.parentNode;
	}
	return false;
}

var cSrc;
function checkMove( e )
{
	e ? evt = e : evt = event;
	cSrc = evt.target ? evt.target : evt.srcElement;
	if ( ( !boxMove ) && ( !isChild( cSrc , oDv ) ) )
	{
		fadeOut();
		if ( CBE && CBE.IEbugfix )
			showSelects();
		boxMove = true;
		CBE = null;
	}
}

function showSelects()
{
	var elements = document.getElementsByTagName( "select" );
	for ( i = 0 ; i < elements.length ; i++)
		elements[i].style.visibility = 'visible';
}

function hideSelects()
{
	var elements = document.getElementsByTagName( "select" );
	for ( i = 0 ; i < elements.length ; i++)
		elements[i].style.visibility = 'hidden';
}