/*

	functions.js

	version 1.1 ajm 21/03/2007

	DMR Ltd

*/
var checkflds;
var jsLog;
debug=(document.location.hostname.substring(0,5)=='test-' || document.location.hostname.substring(0,4)=='dev-');

var stopenterkey=subclicked=resetsubclicked=subbutton='';
var doExcelMovements=false;
document.onkeypress = keyhandler;

var exclusions = new Object();
var defaultvalues = new Object();
var autocomnums = new Object();
var delwarn = new Object();
var profilec=0;
var profilelabs = new Array();
var profiles = new Array();
var objectCache = new Object();
var bobCache = new Object();
var specloadfuncs = new Array();
var docselect;

var trfld = '';
var lasttridx;
var trtab = '';
var trtabid = '';
var trholder = new Array();
var useByName=false;

function s(obj, striptype, calcobj) {
	obj=s2o(obj);
	if (calcobj) calcobj=s2o(calcobj);
	var returnvar='';
	if (obj!=null) {
		if (trfld != '' && !tdInTable(obj)) return 0;
		v(obj, obj.value.replace(/^(\-|)(0+)(.)/,'$1$3'), 1);
		returnvar=stripn(obj.value, obj.name);
		if (striptype==null) v(obj, dc(returnvar), 2);
		lasts=obj;
		if (isSet(exclusions)) {
			if (calcobj) {
				if (calcobj.id in exclusions) return returnvar;
				else{
					if (obj.id in exclusions) {
						var bob=getAtt(obj, 'bOb');
						return (((bob && g(bob) != "")&&(getAtt(calcobj, 'bC') & getAtt(obj, 'bCE') == getAtt(calcobj, 'bC'))) ? 0 : returnvar);
					}else return returnvar;
				}
			}else return returnvar;
		}else return returnvar;
	}else return 0;
}

var norounding = new Object();
function stripn(vl, objname) {
	var rv='';
	for (var c=0; c < vl.length; c++) if ((pi(vl.charAt(c)) >= 0 && pi(vl.charAt(c)) <= 9) || (vl.charAt(c) == '.') || (vl.charAt(c) == '-' && c==0)) rv=rv + vl.charAt(c);
	if (rv === '') {
		if (objname in defaultvalues && defaultvalues[objname]) {
			if (defaultvalues[objname]!=='null') rv=defaultvalues[objname];
		}else rv=0;
	}else{
		if (rv == '-0') rv='0';
//		if (rv.indexOf('.') != -1) {
			if (objname in autocomnums) {
//				rv=r(rv, autocomnums[objname]);
				do_autodec(objname);
				rv=g(objname);
			}else{
				if (objname in norounding) rv=pi(rv);
				else rv=mr(rv);
			}
//		}
	}
	return rv;
}

function v(o, vl, q) {
	o=s2o(o);
	if (o!=null) o.value=vl;
}

function g(o) {
	o=s2o(o);
	if (o!=null) {
		if (o.id == null && o.length > 0) {
			for (var i = 0 ; i < o.length ; ++i) if (o[i].checked) return o[i].value;
		}else{
			if (o.type == 'checkbox') return ((o.checked === true) ? o.value : '');
			else return ((o.tagName.toLowerCase() == 'select') ? o.options[o.selectedIndex].value : o.value);
		}
//	}else return null;
	}else return "";
}

function p(a,b,c) {
	return pi(s(a,b,c));
}

function q(a, b) {
//	return p(a,null,b);
	return parseInt(s(a,null,b));
}

function m(p) {
	return pi(mr(p));
}

function d(d) {
	return dc(nn(d));
}

function pi(p) {
	return parseInt(p);
}

function pf(p) {
	return parseFloat(p);
}

function mr(m) {
	return Math.round(m);
}

function dc(dcom) {
	dcom=dcom.toString();
	var dind=dcom.indexOf('.');
	if (dind == -1) dind=dcom.length;
	if ((dcom.length > 3)&&(!(dcom.match(/[^0-9-,]/g)))) {
		var comval='';
		var comcount=0;
		for (var i=(dcom.length-1); i >= 0 ; i--) {
			if (i < dind) comcount++;
			if (comcount == 3 && i != 0 && dcom.charAt(i-1) != '-') {
				comcount=0;
				comval=',' + dcom.charAt(i) + comval;
			}else comval=dcom.charAt(i) + comval;
		}
		dcom=comval;
	}
	return dcom;
}

function trim(trm) {
	return trm.toString().replace(/^ +| +$/g,'');
}

function nn(nonanval) {
	return (isNaN(nonanval)) ? 0 : nonanval;
}

function setsubclicked(vl) {
	setsubbutton(vl);
	if (needsSaving) needsSaving=false;
	subclicked='y';
}

function setsubbutton(vl) {
	if (vl) {
		subbutton=vl;
		document.sect.subbutton.value=vl;
	}
}

function resetsubclick() {
	if (resetsubclicked=='y') {
		subclicked='';
		resetsubclicked='';
	}
}

function disableforsubmit() {
	return;
	var e = document.getElementsByTagName('input');
	for (var i = 0 ; i < e.length ; i++) if (e[i].type == 'submit') e[i].disabled=true;
}

function pint(p) {
	return pi(nn(stripn(p)));
}

function flab(f) {
	return (isNotNull(fielddesc) && f in fielddesc) ? fielddesc[f] : '';
}

function fval(f) {
	return g(f);
}

function aval(f) {
	return f;
}

function keyhandler(e) {
	if (getKey(e) == 13) stopenterkey='y';
}

function vartol(var1,var2,tolerance) {
	var retval=false;
	for (var v1=(var1 - tolerance) ; v1<=(var1 + tolerance) ; v1++) if (v1 == var2) retval=true;
	return retval;
}

function h(charge) {
	charge=s2o(charge);
	return (parseFloat(charge.value) < 0) ? 'Minus' : 'Plus';
}

function r(r,rto) {
	return mr(r * Math.pow(10,rto)) / Math.pow(10,rto);
}

function field_copy(fcfrom, fcto) {
	var copyloop = new Array();
	var copyloopcount = 0;
	var res=fcfrom.split(/-/);
	if (res.length > 1) for (var i=pi(res[0]);i<=pi(res[1]);i++) copyloop[copyloopcount++]=i;
	else copyloop[copyloopcount++]=fcfrom;

	for (var cl=0;cl<copyloopcount;cl++) {
		fromid=eval('document.sect.f' + copyloop[cl]);
		toid=eval('document.sect.f' + pi(pi(fcto) + pi(cl)));
		if (res.length==1) {
			if (toid.value != fromid.value) {
				if (toid.value!='') {
					toid.focus();
					if (!(confirm('Are you sure you want to overwrite this field?'))) return;
				}
			}
		}
		fcundo=toid.value;
		toid.value=fromid.value;
		if (res.length==1) field_copy_undo.innerHTML=" (<a href=javascript:undo_field_copy('" + fcto + "');>Undo</a>) ";
	}
}
var fcundo='';
function undo_field_copy(fcto) {
	toid=eval('document.sect.f' + fcto);
	toid.focus();
	if (!(confirm('Are you sure you want to overwrite this field?'))) return;
	toid.value=fcundo;
	fcundo='';
	field_copy_undo.innerHTML='';
}

var readOnlySelectBoxes = new Object();
setupNotSaveddone=false;
var functtmps = new Array();
var sns=0;
function setupNotSaved() {
	if (setupNotSaveddone) return;
	setupNotSaveddone=true;
	window.onbeforeunload=doNeedsSavingBeforeUnload;
}

var needsSaving=false;
function doNeedsSaving(obj) {
	needsSaving=true;
}

function doNeedsSavingBeforeUnload() {
	if (needsSaving) {
		if (subbutton) {
			displayPleaseWait(0);
			displayPleaseWaitFlag=false;
		}
		return "You haven't saved your changes.";
	}
}

function do_checkbox_check(clist, cbox) {
	var s=clist.split('-');
	if (s) {
		var ck=false;
		for (var i=0;i<s.length;i++) {
			fld=eval('document.sect.f' + s[i]);
			if (fld.value) ck=true;
		}
		fld=eval('document.sect.f' + cbox);
		if (ck == true) {
			if (!fld.checked) fld.click();
		}else{
			if (fld.checked) fld.click();
		}
	}
}

var fC=0;
function findContainer(searchObject, findObject) {
	++fC;
	parentN=searchObject.parentNode
//	if ((!parentN)||(parentN.nodeType==9)) return tempr(false);
	if ((!parentN)) return tempr(false);
	var found=false;
	if (typeof(findObject) != 'string') {
		if (parentN === findObject) found=true;
	}else{
		try {
			if ((parentN.id && parentN.id == findObject)||(parentN.tagName.toLowerCase() == findObject.toLowerCase())) found=true;
		} catch(e) { }
	}
	if (found) {
		return tempr(found);
	}else{
		return tempr(findContainer(parentN, findObject));
	}
}

function tempr(r) {
	fC=0;
	return r;
}

function do_autodec(aobj) {
//	obj=document.getElementById('f' + aobj);
	obj=s2o(aobj);
	if (obj.value == '') return;
	obj.value=obj.value.replace(/[^0-9\.]/g,'').replace(/^\./,'0.');
	if (obj.value == '') obj.value=0;
	var sp=obj.value.split('.');
	if (sp.length == 1) {
		if (obj.value < 10 && obj.value != 5) obj.value=obj.value + '.00';
		else{
			if (obj.value == 5) obj.value='0.0' + obj.value;
			else{
				if (obj.value < 100) obj.value='0.' + obj.value;
				else obj.value=obj.value + '.00';
			}
		}
		sp=obj.value.split('.');
	}
	if (sp.length > 2) {
		obj.value=sp[0] + '.' + sp[1];
		sp=obj.value.split('.');
	}
	if (sp[1].length != 2) {
		if (sp[1].length < 2) {
			if (sp[1].length < 1) obj.value=sp[0] + '.00';
			else obj.value=sp[0] + '.' + sp[1] + '0';
		}else{
			obj.value=r(obj.value,((obj.id in autocomnums) ? autocomnums[obj.id] : 2));
			do_autodec(aobj);
		}
	}
	obj.value = obj.value.replace(/^0+([1-9]*[0-9][\.])/g,'$1');
}

function bigformsubmit() {
	if (stopenterkey=='y') {
		stopenterkey='';
		return false;
	}
	if (displayPleaseWaitFlag == false) {
		displayPleaseWait(1);
		displayPleaseWaitFlag=true;
		setTimeout("bigformsubmit()", 50);
		return false;
	}
	window.status='Preprocessing. Please wait..';
	if (checkflds()===false) {
		displayPleaseWait(0);
		displayPleaseWaitFlag=false;
		window.status='Done';
		return false;
	}
	var tname=tvalue=flds='';
	for (i=0;i < document.sect.length; i++) {
		if (document.sect[i].name.substring(0,1) == 'f') {
			ok=0;
			if (document.sect[i].tagName=='SELECT') {
				ok=1;
				tv=document.sect[i].options[document.sect[i].selectedIndex].value;
			}else{
				if (document.sect[i].type=='radio') {
					if (document.sect[i].checked) {
						ok=1;
						tv=document.sect[i].value;
					}
				}else{
					if (document.sect[i].tagName=='TEXTAREA') {
						ok=1;
						tv=document.sect[i].value.replace(/\r\n|\n|\r/g,'<br><br>');
					}else{
						ok=1;
						tv=document.sect[i].value;
					}
				}
			}
			if (ok==1) flds=flds + document.sect[i].name + '=' + tv + '^';
		}
	}
//	if (flds) {
		flds=flds + 'button=' + subbutton;
		document.altform.fielddata.value=escape(flds);
		document.altform.submit();
//	}
	window.status='Done';
	return false;
}

if (debug) var preverifyVals = new Object();

function preverify() {
//	return;
//	if ((!debug)||(!isNotNull(jsLog))||(!('sect' in document.forms))) return;
	if ((!debug)||(!('sect' in document.forms))) return;
	var flds=document.forms['sect'].elements;
	for (f = 0 ; f < flds.length ; ++f) if (flds[f].id) preverifyVals[flds[f].id]=flds[f].value;
}

function postverify() {
//	return;
//	if ((!debug)||(!isNotNull(jsLog))||(!('sect' in document.forms))) return;
	if ((!debug)||(!('sect' in document.forms))) return;
	var flds=document.forms['sect'].elements;
	for (f = 0 ; f < flds.length ; ++f) if (flds[f].id in preverifyVals) if (compare(preverifyVals[flds[f].id], flds[f].value)) write_jsLog('fatal', 'Verification Problem: ' + flds[f].id + ' -- ' + preverifyVals[flds[f].id] + ' --- ' + flds[f].value);
}

function compare(v1, v2) {
	return (v1.replace(/^0$|,/,'') != v2.replace(/^0$|,/,''))
}

function write_jsLog(type, message) {
	if (jsLog==null) jsLog=new Log();
	if (type.toLowerCase()=="info") jsLog.Info(message);
	if (type.toLowerCase()=="fatal") jsLog.Fatal(message);
}

function textareamaxlength(tarea, maxlength, charcount) {
	if (tarea.value.length >= (maxlength-1)) tarea.value=tarea.value.substring(0,maxlength);
	if (charcount) {
		if (tarea.value.length == 0) charcount.innerHTML = '';
		else charcount.innerHTML = '(' + tarea.value.length + ' of ' + maxlength + ')';
	}
}

// Cache object refs as this provides considerable performance improvements, especially in IE
function $(o) {
	if (typeof(o) != 'object') {
		if (o in objectCache) o=objectCache[o];
		else{
			objectCache[o]=document.getElementById(o);
			o=objectCache[o];
		}
	}
	return o;
}

function $n(o) {
	if (!useByName) return null;
	nm=document.getElementsByName(o);
	return (nm && nm.length > 0 && nm[0].name == o) ? nm : null;
}

function s2o(obj, nof) {
	if (typeof(obj) != 'object') {
		if (nof == null && obj.toString().substring(0,1)!='f') obj='f' + obj;
		obj=$((tobj=obj));
		if ((useByName)&&((obj==null)||(obj.id && obj.name && obj.id != obj.name))) obj=$n(tobj);
	}
	return obj;
}

function ralert(m) {
	if (displayPleaseWaitFlag) displayPleaseWait(0);
	alert(m);
}

profile('Start');
var addEventCounter=0;
var eventspec=0;
var eventcounter = new Object();
function addEvent(obj, evType, fn, dr) {
	if (obj.addEventListener) {
		dr=(!dr) ? false : true;
		obj.addEventListener(evType, fn, dr);
		return true;
	}else{
		if (obj.attachEvent) {
			var r = obj.attachEvent('on' + evType, fn);
			return r;
		}else return false;
	}
}

function delEvent(obj, evType, fn, dr) {
	if (obj.removeEventListener) {
		dr=(!dr) ? false : true;
		obj.removeEventListener(evType, fn, dr);
		return true;
	}else{
		if (obj.detachEvent) {
			var r = obj.detachEvent('on' + evType, fn);
			return r;
		}else return false;
	}
}

function getElement(obj) {
	return (obj.target) ? obj.target : event.srcElement;
}

function getKey(obj) {
	var key;
	if (window.event && window.event.keyCode) key = window.event.keyCode;
	else{
		if (obj.keycode) key = obj.keycode;
		else if (obj.which) key = obj.which;
	}
	return key;
}
function addFocus(obj) {
	obj=$(obj);
	if (obj.tagName==='SELECT') addEvent(obj, 'mousedown', doFocus);
	addEvent(obj, 'focus', doFocus);
	addEvent(obj, 'blur', doBlur);
}

function keyPress(obj) {
	if (!doExcelMovements) return;
	clearTimeout(editTimer);
	element=getElement(obj);
	key=getKey(obj);
	tid=getAtt(element, 'tid');
	var cursorPos;
	if (element.type.substring(0,6)!=='select' && element.type.substring(0,5)!=='radio') {
		if (document.all) {
			var range=document.selection.createRange();
			range.moveStart('character', -element.value.length);
			cursorPos=range.text.length;
		}else cursorPos=element.selectionStart;
		/*
		if (key == 38) movebox(element, -doExcelMovements);
		if (key == 40) movebox(element, +doExcelMovements);
		*/
		if (key == 38) movebox(element, 1);
		if (key == 40) movebox(element, 3);
		byPassCursor=0;
	}else byPassCursor=1;
	/*
	if ((key == 37)&&(cursorPos==0 || byPassCursor)) movebox(element, -1, 's');
	if ((key == 39)&&(cursorPos==element.value.length || byPassCursor)) movebox(element, +1, 'e');
	*/
	if ((key == 37)&&(cursorPos==0 || byPassCursor)) movebox(element, 4, 's');
	if ((key == 39)&&(cursorPos==element.value.length || byPassCursor)) movebox(element, 2, 'e');
}

var editObject;
var editTimer;
function movebox(thiselement, direction, setCursor) {
	dontbreak=true;
	nextelement=thiselement;
	while (dontbreak) {
		thistid=getAtt(nextelement, 'tid');
		bits=thistid.split('_');
		if (thistid) {
			thiscol=parseInt(bits[2]);
			thisrow=parseInt(bits[1]);
			cellhasinput=false;
			while (!cellhasinput) {
				if (direction == 2 || direction == 4) {
					thiscol+=(direction == 2) ? 1 : -1
					cellid='table' + bits[0] + '_' + bits[1] + '_' + thiscol
				}
				if (direction == 1 || direction == 3) {
					thisrow+=(direction == 1) ? -1 : 1
					cellid='table' + bits[0] + '_' + thisrow + '_' + bits[2];
				}
				cobj=$(cellid);
				if (objectok(cobj)) {
					iid=getAtt(cobj, 'iid');
					if ((iid)&&(iid.substring(0, 5)!='table')) cellhasinput=true;
				}else{
					iid='';
					break;
				}
			}
			nextelement=(iid) ? getIdByiid(iid) : null;
			if (!nextelement) {
				if (direction == 1 || direction == 3) {
					thistable=parseInt(bits[0]);
					thistable+=(direction == 1) ? -1 : 1
					if (thistable > 0) {
						table=$('table' + thistable);
						if (table) {
							rows=table.rows.length;
							cols=1;
							while (isNotNull($('table' + thistable + '_' + rows + '_' + cols))) ++cols; 
							--cols;
							if (direction == 1) {
								for (r = rows ; r > 0 ; --r) {
									for (c=cols ; c > 0 ; --c) {
										nextelement=getIdByiid(getAtt($('table' + thistable + '_' + r + '_' + c), 'iid'));
										if (objectok(nextelement)) {
											r=-1;
											break;
										}
									}
								}
							}else{
								for (r = 1 ; r <= rows ; ++r) {
									for (c = 1 ; c <= cols ; ++c) {
										nextelement=getIdByiid(getAtt($('table' + thistable + '_' + r + '_' + c), 'iid'));
										if (objectok(nextelement)) {
											r=rows + 1;
											break;
										}
									}
								}
							}
						}
					}
				}
			}
			if (!nextelement) dontbreak=false;
			else{
				if (objectok(nextelement)) {
					dontbreak=false;
					if (setCursor) {
						setCursor=(setCursor=='s') ? 0 : nextelement.value.length;
						if (nextelement.type.substring(0,6)!=='select' && nextelement.type.substring(0,5)!=='radio') {
							if (!document.all) nextelement.selectionEnd=nextelement.selectionStart=setCursor;
							else{
								nextelement.focus();
								var oSel = document.selection.createRange();
								oSel.moveStart('character', -nextelement.value.length);
								oSel.moveStart('character', setCursor);
								oSel.moveEnd('character', 0);
								oSel.select();
							}
						}
					}
					nextelement.focus();
					editObject=nextelement;
					if (editObject.type.substring(0,6)!=='select' && editObject.type.substring(0,5)!=='radio') editTimer=setTimeout('editMode()', 1000);
				}
			}
		}else dontbreak=false;
	}
}

function objectok(nextelement) {
	return ((nextelement)&&((!((nextelement.readOnly)||(nextelement.disabled)||(nextelement.id in readOnlySelectBoxes)))||((nextelement.type)&&(nextelement.type=='hidden'))));
}

function doSelect(obj) {
	element=getElement(obj);
	ei=element.id;
	if (ei in bobCache) {
		if (bobCache[ei] && bobCache[ei].length > 0) {
			for (loop = 0 ; loop < bobCache[ei].length ; ++loop) {
				bobCache[ei][loop].onchange();
			}
		}
	}
}

function getIdByiid(iid) {
	o=s2o(iid);
	if (o) return o;
	o=document.getElementsByName('f' + iid);
	for (loop = 0 ; loop < o.length ; ++loop) if (o[loop].checked) return $(o[loop].id);
	return;
}

var rowCache = new Object();
var colCache = new Object();
function getTableFormats() {
	colCache=rowCache=null;
	for (loop = 1 ; table=$('table' + loop) ; ++loop) {
		tableid='table' + loop;
		rowCache[tableid]=table.rows.length;
		
		cols=1;
		while (isNotNull($(tableid + '_1_' + cols))) ++cols; --cols;
		colCache[tableid]=cols;
	}
}

function editMode() {
	if (!document.all) {
		editObject.selectionStart=0;
		editObject.selectionEnd=editObject.value.length;
	}else{
		editObject.focus();
		var oSel = document.selection.createRange();
		oSel.moveStart('character', -editObject.value.length);
		oSel.moveEnd('character', editObject.value.length);
		oSel.select();
	}
}

var doFocusContainer=false;
var bgcols=new Object();
var gotFocus=null;
var doFocusSelect=null;
function doFocus(obj) {
	element=getElement(obj);
	gotFocus=element;
	if (!(element.id in bgcols)) bgcols[element.id]=element.style.backgroundColor;
	element.style.backgroundColor='#ccccff';
	if (doFocusContainer && element.parentNode.nodeName == 'TD') element.parentNode.style.backgroundColor=element.style.backgroundColor;
	if (doFocusSelect) {
		doFocusSelect.select();
		doFocusSelect=null;
	}
}

function doBlur(obj) {
	element=getElement(obj);
	gotFocus=null;
	if (element.id in bgcols) {
		element.style.backgroundColor=bgcols[element.id];
		delete bgcols[element.id];
	}else element.style.backgroundColor='#ffffff';
	if (doFocusContainer && element.parentNode.nodeName == 'TD') element.parentNode.style.backgroundColor=element.style.backgroundColor;
}

var floatObjects = new Object();
var mouseOffSet=10;
var rodelay=2000;
function doReadOnlyClick(obj) {
	element=getElement(obj);
	thisMouseY=mouseOffSet + mouseY;
	thisMouseX=mouseOffSet + mouseX;
	floatobj=(element.id in exclusions) ? 'floatingExclusion' : 'floatingReadOnly';
	disobj=$(floatobj);
	objWidth=parseFloat(disobj.style.width);
	objHeight=parseFloat(disobj.style.height);
	if ((thisMouseX + objWidth + mouseOffSet) > (document.body.clientWidth + document.body.scrollLeft)) thisMouseX=mouseX - objWidth - mouseOffSet;
	if ((thisMouseY + objHeight + mouseOffSet) > (document.body.clientHeight + document.body.scrollTop)) thisMouseY=mouseY - objHeight - mouseOffSet;
	disobj.style.top = thisMouseY;
	disobj.style.left = thisMouseX;
	disobj.style.visibility="visible";
	if (!isSet(floatObjects)) hideSelects(true);
	floatObjects[floatobj]=(new Date()).getTime();
	setTimeout("undoReadOnlyClick()", rodelay);
}

function undoReadOnlyClick() {
	now=(new Date()).getTime();
	for (floatobj in floatObjects) {
		if ((now - floatObjects[floatobj]) > (rodelay - (rodelay / 5))) {
			delete floatObjects[floatobj];
			disobj=$(floatobj);
			disobj.style.top = -1;
			disobj.style.left = -1;
			if (!isSet(floatObjects)) hideSelects(false);
			disobj.style.visibility="hidden";
		}
	}
}

function hideSelects(hide) {
	if (document.all) {
		if (!docselect) docselect = document.getElementsByTagName("SELECT");
		for (var i=0; i<docselect.length; i++) docselect[i].style.visibility=((hide) ? 'hidden' : 'visible');
	}
}

var mouseX=-1;
var mouseY=-1;
function doReadOnlyMouseOverMove(obj) {
//	window.status='This field is Read Only.';
	if (document.all) {
		mouseX = event.clientX + document.body.scrollLeft;
		mouseY = event.clientY + document.body.scrollTop;
	}else{
		mouseX = obj.pageX;
		mouseY = obj.pageY;
	}
	return true;
}

function doReadOnlyMouseOut(obj) {
	window.status='Done';
}

Array.prototype.arrayContains = function (thingToFind) {
	for (var i = 0 ; i < this.length ; ++i) if (this[i] === thingToFind) return true;
	return false;
}
var isLoaded=false;

function getNextSiblingElement(obj) {
	while(obj.nodeType!=1) obj=obj.nextSibling;
	return obj;
}

function flush_trAdjuster() {
	if (!trfld) return;
	for (i = 0 ; i < trholder.length ; ++i) {
		if (isSet(trholder[i + trtab1strow])) {
			trtab.appendChild(trholder[i + trtab1strow]);
			trholder[i + trtab1strow]='';
		}
	}
	trholder.splice(0, trholder.length);
}

function load_trAdjuster() {
	if (!trfld) return;
	trfld=s2o(trfld);
	addEvent(trfld, 'keyup', do_trAdjuster);
	addEvent(trfld, 'change', do_trAdjuster);
	do_trAdjuster();
}
/*
var trAdjusterLoaded=false;
*/
function do_trAdjuster() {
	if (!trfld) return;
	var i;
	tridx=parseInt(g(trfld));
	if (trholder.length == 0) {
		if (typeof(trtab)=='string') {
			trtabid=trtab;
			trtab=getNextSiblingElement($(trtab).firstChild);
		}
//	trtab1strow
		// Remove the non element nodes from the tbody - firefox and the like. It just makes node traversal and handling a bit easier
		if (!isLoaded) for (i = 0 ; i < trtab.childNodes.length ; ++i) if (trtab.childNodes[i].nodeType!=1) trtab.removeChild(trtab.childNodes[i]);
		for (i = trtab.childNodes.length - 1 ; i >= trtab1strow ; --i) {
			if (i < (tridx + trtab1strow)) trholder[i - trtab1strow]='';
			else{
				trholder[i - trtab1strow]=trtab.childNodes[i].cloneNode(true);
				trtab.removeChild(trtab.childNodes[i]);
			}
		}
	}else{
		if (tridx > lasttridx) {
			for (i = lasttridx ; i < tridx ; ++i) {
				trtab.appendChild(trholder[i]);
				trholder[i] = '';
			}
		}else{
			for (i = lasttridx - 1 ; i >= tridx ; --i) {
				trholder[i] = trtab.childNodes[i + trtab1strow].cloneNode(true);
				trtab.removeChild(trtab.childNodes[i + trtab1strow]);
			}
		}
	}
	lasttridx=tridx;
	if (isLoaded) checkflds('y');
}

function tdInTable(iobj) {
	iobj=s2o(tiobj=iobj);
	tid=getAtt(iobj,'tid');
	if (tid) {
		tidbits=tid.split('_');
		if ('table' + tidbits[0] != trtabid) return true;
		return (trholder[tid.split('_')[1] - trtab1strow - 1] == '');
	}else return false;
}

function checkCharge(o) {
	cobj=s2o(o);
	tid=getAtt(cobj,'tid');
	if (cobj) return ((stripn(g(o)) + 0 > -1) ? true : false);
	return "";
}

var displayPleaseWaitFlag=false;
var displaytimer;
function displayPleaseWait(dis) {
	if (dis == 1) {
		hideSelects(true);
		disobj=$('outerPleaseWait');
		disobj.style.top = ((document.body.clientHeight / 2) - 50) + document.body.scrollTop;
		disobj.style.left = ((document.body.clientWidth / 2) - 50) + document.body.scrollLeft;
		disobj.style.visibility="visible";
		displaytimer=setInterval("animatePleaseWait()", 50);
	}else{
		if (!displayPleaseWaitFlag) return;
		hideSelects(false);
		disobj=$('outerPleaseWait');
		disobj.style.visibility="hidden";
		clearInterval(displaytimer);
	}
}


var pleasewaitimage;
var pleasewaitimagecount=11;
var preLoadedImages = new Array();
function preLoadPleaseWaitImages() {
	pleasewaitimage=$('imgpw');
	for (i = 0 ; i <= pleasewaitimagecount ; ++i) {
		preLoadedImages[i]=new Image();
		preLoadedImages[i].src='/images/pleasewait-' + i + '.gif';
	}
	++pleasewaitimagecount;
}


var anicount=0;
function animatePleaseWait() {
	pleasewaitimage.src=preLoadedImages[((++anicount) %  pleasewaitimagecount)].src;
}


function screenPosTests() {
//	displayPleaseWait();
//	disobj=$('outerPleaseWait');
//	write_jsLog('fatal', disobj.id + ' --- ' + disobj.style.backgroundColor + ' --- ' + disobj.style.posWidth + ' ---- ' + disobj.style.top + ' ---- ' + disobj.style.posHeight + ' ---- ' + disobj.style.left);
//	write_jsLog('info', document.body.scrollTop + ' --- ' + document.body.scrollLeft + ' ---=--- ' + document.body.clientWidth + ' ----- ' + document.body.clientHeight);
}

function getAtt(id, att) {
	id=s2o(id);
	return (id && id.getAttribute) ? id.getAttribute(att) : '';
}

function setAtt(id, att, val) {
	id=s2o(id);
	return (id && id.setAttribute) ? id.setAttribute(att, val) : '';
}

function isSet(obj) {
	if (typeof(obj)==='array') return (obj.arguments.length > 0);
	if (typeof(obj)==='object') {
		for (var o in obj) return 1;
		return 0;
	}
	if (typeof(obj)=='undefined') return 0;
	if (typeof(obj)=='string') {
		if (obj.length > 0) return 1;
		else return 0;
	}
	throw new Error('isSet doesn\'t support ' + typeof(obj));
}

function doTDClick(obj) {
	element=getElement(obj);
	if (element) {
		obj=s2o(getAtt(element, "iid"));
		if (obj && !obj.disabled && obj.style.visibility!="hidden") obj.focus();
	}
}

function isNotNull(obj) {
	if (typeof(obj) !== 'undefined' && obj !== null) return 1;
	return 0;
}

function doError(obj) {
	return true;
}

function profile(lab) {
	++profilec;
	if (lab) profilelabs[profilec]=lab;
//	if (isNotNull(jsLog)) atal('P: ' + (profilec) + ' -- ' + lab);
	profiles[profilec]=(new Date()).getTime();
}

function profileout() {
	if (!jsLog) return;
	// Display profile Data
	if (profilec > 0) {
		profile("END")
		for (loop = 1 ; loop <= profilec ; ++loop) {
			write_jsLog('info', 'Profile Counter: ' + loop);
			if (profilelabs[loop]!="") write_jsLog('info', 'Profile Label: ' + profilelabs[loop]);
			write_jsLog('info', 'Profile Time: ' + (profiles[loop] / 1000).toFixed(3));
			if (loop > 1) {
				write_jsLog('info', 'From ' + profilelabs[loop - 1] + ' -> ' + profilelabs[loop] + ': ' + ((profiles[loop] - profiles[loop - 1])/1000));
				write_jsLog('info', 'Running Total ' + ((profiles[loop] - profiles[1])/1000));
			}
			write_jsLog('fatal', '###################');
		}
		write_jsLog('info', 'Total Time: ' + ((profiles[profilec] - profiles[1])/1000));
	}
}

function onLoadFunction() {
//	profile('onLoad - Start');
//	profile('sfHover1');
	var sfEls = $("nav").getElementsByTagName("LI");
	if (document.all && !docselect) docselect = document.getElementsByTagName("SELECT");
	for (var i=0; i<sfEls.length; i++) {
		sfEls[i].onmouseover=function() {
			if (document.all) for (i=0 ; i < docselect.length ; i++) docselect[i].style.visibility='hidden';
			this.className+=" sfhover";
		}
		sfEls[i].onmouseout=function() {
			this.className=this.className.replace(/(^| )sfhover/g, '');
			if (document.all) for (i=0 ; i < docselect.length ; i++) docselect[i].style.visibility='visible';
		}
	}
//	profile('sfHover2');
	if ($('sect')) {
		if ($('fielddata')) preLoadPleaseWaitImages();
		var tds = document.getElementsByTagName("td");
		for (var i = 0 ; i < tds.length ; ++i) if (getAtt(tds[i], 'iid')) if (!tds[i].disabled) addEvent(tds[i], 'click', doTDClick);
	}
	
//	profile('sect1');
	var firstobj, el, i;
	tags=new Array('input', 'textarea', 'select');
	for (tag in tags) {
		el = document.getElementsByTagName(tags[tag]);
		for (i = 0 ; i < el.length ; i++) {
			thisobj=el[i];
			if (thisobj.id && thisobj.type != 'hidden') {
				if (!(thisobj.id in objectCache)) objectCache[thisobj.id]=thisobj;
				tagname=thisobj.tagName.toLowerCase();
				if (tagname=='input' || tagname=='textarea' || tagname=='select') {
					if ((thisobj.readOnly)||(thisobj.id in readOnlySelectBoxes)) {
						addEvent(thisobj, 'click', doReadOnlyClick);
						addEvent(thisobj, 'mouseover', doReadOnlyMouseOverMove);
						addEvent(thisobj, 'mousemove', doReadOnlyMouseOverMove);
						addEvent(thisobj, 'mouseout', doReadOnlyMouseOut);
					}else{
						if (tagname != 'select') addFocus(thisobj);
						if (tagname != 'textarea' && doExcelMovements) addEvent(thisobj, 'keydown', keyPress);
						if (tagname == 'input') {
							if (thisobj.type=='text') addEvent(thisobj, 'change', doNeedsSaving);
							if (thisobj.type=='checkbox' || thisobj.type=='radio') {
								useByName=true;
								addEvent(thisobj, 'click', doNeedsSaving);
							}
							bob=getAtt(thisobj, "bOb");
							if (bob) {
								if (getAtt(thisobj, "onchange")) {
									if (!bobCache[bob]) bobCache[bob]=new Array();
									bobCache[bob].push(thisobj);
								}
							}
						}else{
							if (tagname=='select') {
								addEvent(thisobj, 'change', doSelect);
								addEvent(thisobj, 'keyup', doSelect);
							}
							addEvent(thisobj, 'change', doNeedsSaving);
						}
						if ((thisobj.type!=='submit')&&(!firstobj)) {
							doFocusSelect=thisobj;
							thisobj.focus();
							firstobj=thisobj;
						}
					}
				}
			}
		}
	}
/*
	for (b in bobCache) {
		write_jsLog('fatal', 'B: ' + b + ' -- ' + s2o(b).id + ' -- ' + bobCache[b].length);
		for (loop = 0 ; loop < bobCache[b].length ; ++loop) write_jsLog('info', 'L: ' + loop + ' -- ' + bobCache[b][loop]);
	}
*/
	
//	profile('sect2');
	if (specloadfuncs.length > 0) for (i = 0 ; i < specloadfuncs.length ; ++i) if (specloadfuncs[i]) specloadfuncs[i]();
//	profile('C1');
	if (isNotNull(checkflds)) {
		checkflds('y');
	}
	
//	profile('C2');
	if (firstobj) firstobj.focus();
//	if ($('sect')) addEvent($('sect'), 'submit', disableforsubmit);
//	if (document.all && document.body.style) document.body.style.zoom='100%';
//	profile('onLoad - End');
//	if ($('f244')) alert(findContainer($('f244'), 'table'));
	profileout();
	isLoaded=true;
}

addEvent(window, 'load', onLoadFunction);

//addEvent(document, 'mousemove', screenPosTests);

//addEvent(window, 'error', doError);
//window.onerror=doError;

var noLogFocus=true;
document.writeln('<script language=JavaScript type=text/javascript src="/rp/js/log.js"></script>');