var gjaelm = 0;
var gjaurl = new Array(15);
var gjatxt = new Array(15);
var gicpage = [];
var gjssop = [];
var gjssid = [];
var gjssfr = [];
var gjssqty = [];
var gjssobj = [];
var gjsstit = [];
var gjsscin = [];
var gjsstim = [];
var gjssdel = [];
var gjssnum = 0;
var gjpage = '';
var gjcmodal = false;
var gjcmodTit = '';
var FldChAr = [];
// atempt to get gWebAdr correct incase forget to set it in main page
var gWebAdr = window.location.host + window.location.pathname;
if (gWebAdr == "") {
	gWebAdr = "/";
} else {
	gWebAdr = gWebAdr.toLowerCase()
	gWebAdr = gWebAdr.replace("/astman/", "/"); gWebAdr = gWebAdr.replace("/aspages/", "/");
	var n1 = gWebAdr.indexOf("/page/"); if (n1 > -1){gWebAdr = gWebAdr.substr(0, n1+1);}
	gWebAdr = window.location.protocol + "//" + gWebAdr.substr(0, gWebAdr.indexOf("/")+1)
}
var isDebugging = false;

function getObj(objID) {
	if(objID.substr(0, 1) == "_") {objID = 'AJID' + objID;}
	if (document.getElementById) {return document.getElementById(objID);}
	else if (document.all) {return document.all[objID];}
	else if (document.layers) {return document.layers[objID];}
}

function FldChange(ifID, cVal){
	var iVal = 0;
	var ltf = true;
	var ljto = false;
	if(cVal.substr(0, 2) == '0:'){ljto = true; ltf = false; cVal = cVal.substr(2)}
	if(cVal.substr(0, 2) == '1:'){ljto = true; itf = true; cVal = cVal.substr(2)}
	if(cVal.substr(0, 2) == '##'){iVal = cVal.substr(2)}else{if(cVal.lastIndexOf('(') > -1){iVal = cVal.substring(cVal.lastIndexOf('(')+1, cVal.lastIndexOf(')'))}}
	for (var x=0;x<FldChAr.length;x++){
		var c1 = FldChAr[x];
		var n1 = c1.substr(0, 1);
		c1 = c1.substr(2);
		var ifID2 = c1.substr(0, c1.indexOf(':'));
		c1 = c1.substr(c1.indexOf(':')+1);
		if(ifID == ifID2){
			var cObID = c1.substr(0, c1.indexOf(':'))
			c1 = c1.substr(c1.indexOf(':')+1)
			if(n1 == 1){if(iVal == 0){getObj(cObID).style.display = 'none'} else {SetAjax('*goajax.asp?iact=11&iobj=' + iVal + '&cobj=' + c1, cObID, 0)}}
			if(n1 == 2){if(iVal == 0){getObj(cObID).style.display = 'none'} else {SetAjax('*Page.asp?obj_id=' + iVal + '&cAct=SIMP', cObID, 0)}}
			if(n1 == 3 && ((ljto && iVal == c1) || !ljto)){
				if(iVal == c1 & ltf){getObj(cObID).style.display = ''} else {getObj(cObID).style.display = 'none'}
			}
		}
	}
}

function GetAjax(url, lcash) {
	// lcash - 0 = no cash, 1 = cash, +2 = Post method
	var cTxt;
	var c1 = "";
	var n1 = -1;
	var x = 0;
	var passData = null;
	var lpost = false;
	if(lcash > 1){lpost = true; lcash = lcash - 2}
	var ajax = false;
	if (lpost){
		passData = '';
		n1 = url.indexOf('?');
		if (n1 > -1){passData = url.substr(n1+1); url = url.substr(0, n1)}
		n1 = -1;
	}
	if (lcash == 1) {
		for (x=0;x<=15 && n1==-1;x++){
			if (gjaurl[x] == url){n1 = x;}
		}
	}
	if (n1 > -1) {
		cTxt = gjatxt[n1];
	} else {
		gjaurl[gjaelm] = url;
		try{ajax = new XMLHttpRequest();}catch(e){
			try{ajax = new ActiveXObject("MSXML3.XMLHTTP");}catch(e){
				try{ajax = new ActiveXObject("MSXML2.XMLHTTP.3.0");}catch(e){
					try{ajax = new ActiveXObject("Msxml2.XMLHTTP");}catch(e){
						try{ajax = new ActiveXObject("Microsoft.XMLHTTP");}catch(e){}
					}
				}
			}
		}
		if (ajax===null) {return;}
		if (lcash === 0) {
			if (lpost){
				if (passData !== ''){passData = passData + '&'}
				passData = passData + "sid=" + Math.random();
			} else {
				if (url.indexOf("?") == -1) {url = url + "?";} else {url = url + "&";}
				url = url + "sid=" + Math.random();
			}
		}
		if(url.substr(0,4) != "http"){
			url = gWebAdr + url;
			//c1 = document.URL; c1 = c1.substr(0, c1.lastIndexOf('/')+1); url = c1 + url;
		}
		if(lpost){
			ajax.open("POST", url, false);
			ajax.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
		} else {
			ajax.open("GET", url, false);
		}
		ajax.send(passData);
		cTxt = ajax.responseText;
		gjatxt[gjaelm] = cTxt;
		gjaelm++;
		if (gjaelm == 16) {gjaelm = 0;}
	}
	return cTxt;
}

function SetAjax(url, iID, itog) {
	var n1, cID;
	var c0 = "";
	var cTxt;
	var cID2 = "";
	var url2 = "";
	var cIDI = "";
	var JQUITab = 0;
	var lok = true;
	if (url.substr(0,1) == "?") {
		lok = false;
		url = url.substr(1);
		n1 = url.indexOf(',');
		if(n1 > 0){
			cTxt = url.substr(0, n1);
			url = url.substr(n1+1);
			var answer = confirm(cTxt);
			if (answer){lok = true}
		}
	}
	if (undefined !== iID && lok) {
		if (iID.substr(0, 1) == "#") {
			//Old Command
			cID = iID.substr(1);
		} else {
			cID = iID;
		}
		if(cID.substr(0, 1) == "_"){cID = 'AJID' + cID;}
		n1 = cID.lastIndexOf(":,:");
		if (n1 >= 0){
			cID2 = cID.substr(n1+3);
			cID = cID.substr(0, n1);
			n1 = url.lastIndexOf(":,:");
			url2 = url.substr(n1+3);
			url = url.substr(0, n1);
		}
		if (cID == 'JQUITAB'){
			if (cID2 == ''){cID2 = 'Contents';}
			var cTabs = $('div[id^=tabs_]').first();
			var nx = $('#JQUITAB').length;
			if(nx == 0){cTabs.append("<div id='JQUITAB'></div>"); cTabs.tabs("add", "#JQUITAB", cID2);}
			JQUITab = cTabs.children('ul').first().children('li').length;
			cId2 = ''
		}

		if(cID.substr(cID.length-1, 1) == "_"){
			cIDI = cID + "I"; cID = cID + "E"; 
		} else {
			cIDI = cID;
		}
		if (cID == 'AJID_MAIN' && gjssnum > 0) {
			for (var i=1;i<=gjssnum;i++){
				clearTimeout(gjsstim[i]);
			}
		}
		var lcash = 1;
		if ($('#'+cID).is(":visible") && (itog == 1 || itog == 3)) {
			if (itog == 1){
				$('#'+cID).hide(0);
			} else {
				$('#'+cID).slideUp(500);
			}
		} else {
			if (url != "") {
				if (url.substr(0,1) == ":") {
					url = url.substr(1);
					cTxt = "<iframe src='" + url + "' width=100% height = 100% marginWidth=0 marginHeight=0 frameBorder=0 scrolling='auto'></iframe>";
				} else {
					if (url.substr(0,1) == "*") {
						lcash = 0;
						url = url.substr(1);
					}
					url = url.replace('#', '%23');
					cTxt = GetAjax(url, lcash);
					if (cTxt.substr(0, 6) == "JAVA=("){
						n1 = cTxt.lastIndexOf('):');
						c0 = cTxt.substr(6, n1-7);
						cTxt = cTxt.substr(n1+2);
					}
					if(cTxt.indexOf("JQUIButton") > -1) {c0 = "$('#" + cID + " .JQUIButton').button();" + c0}
					if(cTxt.indexOf("ui-state-default") > -1) {c0 = "$('#" + cID + " a.ui-state-default').hover(function(){$(this).addClass('ui-state-hover');}, function(){$(this).removeClass('ui-state-hover');}).mousedown(function(){$(this).addClass('ui-state-active');}).mouseup(function(){$(this).removeClass('ui-state-active');});" + c0}
					cTxt = cTxt.replace(/DIALOGID/g, cID);
				}
				$('#' + cIDI).html(cTxt)
				if (cIDI == 'AJID_MAIN' && document.getElementById('page_title')){getObj('page_title').style.display = "none";}
			}
			if (url2 != "" && cID2 != "") {$('#' + cID2).html(url2)}
			if (JQUITab > 0){
				cTabs.tabs("option", "selected", JQUITab-1);
				var chRef = document.location.href;
				n1 = chRef.lastIndexOf('#');
				if (n1 > 0){chRef = chRef.substring(0, n1);}
				c0 = c0 + "document.location='" + chRef + "#" + cTabs.attr('id') + "';"
			}
			if (itog == 2 || itog == 3){
				$('#'+cID).slideDown(500);
			} else {
				$('#'+cID).show(0);
			}
			var t=setTimeout(c0, 150)
		}
	}
}

function Shop(iPag, iObj, iQty) {
	var url = "goajax.asp?iAct=13&iobj=" + iPag + "&ival=" + iObj + "&ival2=" + iQty;
	var nSiz = GetAjax(url, 0);
	var nVal = 0
	var cErr = '';
	var n1 = nSiz.indexOf("*")
	if (n1>-1){
		cErr = nSiz.substr(n1+1);
		nSiz = nSiz.substr(0, n1)
	}
	n1 = nSiz.indexOf(",")
	if (n1>-1){
		nVal = nSiz.substr(n1+1);
		nSiz = nSiz.substr(0, n1)
	}
	var cTxt = nSiz;
	if (document.getElementById('Shop_Basket_Qty')){
		var c1 = getObj('Shop_Basket_Qty').innerHTML;
		var n2 = c1.indexOf(" ");
		if (n2 > -1){
			cTxt = cTxt + c1.substr(n2);
			if (nSiz == 1 && cTxt.substr(cTxt.length-1)=='s'){cTxt = cTxt.substr(0, cTxt.length-1)}
			if (nSiz != 1 && cTxt.substr(cTxt.length-1)!='s'){cTxt = cTxt + 's'}
		}
		getObj('Shop_Basket_Qty').innerHTML = cTxt;
	}
	if (document.getElementById('Shop_Basket_Val')){
		getObj('Shop_Basket_Val').innerHTML = nVal;
	}
	if (document.getElementById('Shop_Basket_Div')){
		if (nSiz == 0){
			getObj('Shop_Basket_Div').style.display = "none"
		} else {
			getObj('Shop_Basket_Div').style.display = ""
			if (cErr != ''){showtt('','','Shop_Basket_Div',0,15,cErr); cErr = ''}
		}
	}
	if (document.getElementById('Shop_Basket')){
		url = "goajax.asp?iAct=14&iobj=" + iPag;
		cTxt = GetAjax(url, 0);
		getObj('Shop_Basket').innerHTML = cTxt;
	}
	if (cErr != ''){showtt('','','Shop_Basket_Div',15,12,cErr); cErr = ''}
}

function SrchRun(recv_form, cDest) {
	var c0 = '';
	var c1 = '';
	var c2 = '';
	var nlc = 0;
	var n0 = 0;
	var n1 = 0;
	var n2 = 0;
	n0 = recv_form.Srch_Meth.value;
	for (var i=0;i<recv_form.length;i++){
		c0 = recv_form.elements[i].name;
		if (undefined !== c0){
			if (c0.substr(0,6) == 'SrchS_'){n1 = 1;	if (recv_form.elements[i].checked){c1 = c1 + recv_form.elements[i].value;}}
			if (c0.substr(0,6) == 'SrchO_'){n2 = 1; nlc = 0; if (recv_form.elements[i].checked){c2 = c2 + recv_form.elements[i].value+';'; nlc = 1;}}
			if (c0.substr(0,7) == 'SrchOC_'){n2 = 1; if (nlc == 1){c2 = c2 + recv_form.elements[i].value+';';}}
		}
	}
	c0 = recv_form.Srch_txt.value;
	c0 = c0.replace(/"/g, ":");
	c0 = c0.replace(/,/g, " ");
	if (n1 === 0){c1 = recv_form.SrchTT.value;}
	if (c1 == 'AB'){c1 = 'C';}
	if (c2 == '' && n2 === 0){c2 = recv_form.SrchX.value;}
	if (c0 != '' && c1 != '' && c2 != ''){
		var curl = '*ultlist.asp?cAjID=' + cDest + '&AddPTxt={srch_lst(' + n0 + ',' + c1 + ',' + c2 + ',' + c0 + ',' + recv_form.SrchA.value + ',' + recv_form.SrchB.value + ',';
		curl = curl + recv_form.SrchD.value + ',' + recv_form.SrchE.value + ',' + recv_form.SrchF.value + ',' + recv_form.SrchG.value + ',' + recv_form.SrchH.value + ')}';
		curl = curl.replace('#', '%23');
		getObj(cDest).innerHTML="Searching...";
		setTimeout(function() {SetAjax(curl, cDest, 0);}, 1);
	} else {
		getObj(cDest).innerHTML='Try again!';
	}
	c1 = document.location.href;
	n1 = c1.lastIndexOf('#'); 
	if (n1 > 0){c1 = c1.substring(0, n1);}
	document.location=c1+'#BM'+cDest;
	return false;
}

function ErrorSetting(msg, file_loc, line_no) {
	var error_d = "Error in file: " + file_loc + "\nline number:" + line_no + "\nMessage:" + msg;
	if(isDebugging){alert("Error Found !!!\n--------------\n"+error_d);}
	return true;
}
window.onerror = ErrorSetting;

function confirmation(ctxt, curl) {
	var answer = confirm(ctxt);
	if (answer){window.location = curl;}
}

function confirmation2(ctxt, curl, iID) {
	var answer = confirm(ctxt);
	if (answer){SetAjax(curl, iID, 0);}
}

function confirmation3(ctxt, curl, CanTxt) {
	var answer = confirm(ctxt);
	var cTxt = CanTxt;
	if (answer){cTxt = GetAjax(curl, 0);}
	return cTxt;
}

function confmEPage(ctxt, iobj, cAct, idest) {
	var answer = confirm(ctxt);
	if (answer){mEPage(iobj, cAct, idest);}
}

function togInner(cDispID, cContID, cOn, cOff) {
	var o1 = getObj(cDispID); 
	var o2 = getObj(cContID); 
	if (o1.style.display == "none") {
		o2.innerHTML=cOff;
	} else {
		o2.innerHTML=cOn;
	}
}	

function ShowHideBut(cBut, oBut, cDiv) {
	var o1 = getObj(cDiv); 
	if (o1.style.display == "none") {
		o1.style.display = "";
		oBut.src= cBut + '/det-up.gif';
	} else {
		o1.style.display = "none";
		oBut.src= cBut + '/det-dn.gif';
	}
}	

function SetArea(cID, cCon) {
	if (getObj(cID).style.display == "") {
		getObj(cID).style.display = "none";
	} else {
		getObj(cID).innerHTML=cCon;
		getObj(cID).style.display = "";
	}
}

function Left(obj) {
	var curleft = 0;
	if (obj.offsetParent){
		while (obj.offsetParent){
			curleft += obj.offsetLeft;
			obj = obj.offsetParent;
		}
	}
	else if (obj.x) {
		curleft += obj.x;
	}
	return curleft;
}

function Top(obj) {
	var curtop = 0;
	if (obj.offsetParent){
		while (obj.offsetParent){
			curtop += obj.offsetTop;
			obj = obj.offsetParent;
		}
	}
	else if (obj.y) {
		curtop += obj.y;
	}
	return curtop;
}

function getwsize() {
	var width = screen.availWidth*0.8;
	var height = screen.availHeight*0.8;
	var left = 0;
	var top = 0;
	height = document.body.offsetHeight;
	if (window.screenLeft) {
		left = window.screenLeft;
		top = window.screenTop;
	} else if (window.screenleft){
		left = window.screenleft;
		top = window.screentop;
	}

	if (document.body){
		width = document.body.clientWidth;
		height = document.body.clientHeight;
	} else if (window.innerWidth){
		width = window.innerWidth;
		height = window.innerHeight;
	} else if (document.documentElement && document.documentElement.clientWidth){
		width = document.documentElement.clientWidth;
		height = document.documentElement.clientHeight;
	}
	left = left + 10;
	top = top - 30;
	width = width - 5;
	height = height - 10;
		
	var c1 = "width="+width+"px,height="+height+",left="+left+",top="+top+",resizable=1,scrollbars=1,location=0,status=0";
	return c1;
}

//open window for new item (iobj to add new item to, Field Name, Variable Type) 
function opnnew(cBut, iobj, fobj, iVar) {
	var url;
	if(iobj < 0 ){
		url = 'wysiwyg.asp?iobj=' + -iobj + '&srcid=' + fobj;
	} else {
		url = 'Epage.asp?gjp=' + gjpage + '&obj_id=' + iobj + '&cact=ZNW0';
	}
	activeModalWin = window.open(url, "", getwsize());
	if(iobj > 0 ){
		window.onfocus = function(){
			if (activeModalWin.closed === false){
				activeModalWin.focus();
			} else {
				window.onfocus = '';
				chkCookie(cBut, 1, fobj, iVar);
			}
		};
	}
}
function editElem(cBut, iobj, fobj, iVar) {
	var url = 'Epage.asp?gjp=' + gjpage + 'obj_id=' + iobj + '&cact=ZEDIT';
	activeModalWin = window.open(url, "", getwsize());
	window.onfocus = function (){
		if (activeModalWin.closed === false){
			activeModalWin.focus();
		} else {
			window.onfocus = '';
			chkCookie(cBut, 0, fobj, iVar);
		}
	};
}

function pRefresh(cnxt, c0, iobj, idest) {
//alert(cnxt+":"+c0+":"+iobj.toString()+":"+idest.toString()+":");
	var c1 = '';
	var n1 = 0;
	if (cnxt == ''){
		var cwLoc = window.location.href;
		n1 = cwLoc.indexOf('main');
		if(n1 >= 0) {
			c1 = 'main.asp';
		} else {
			n1 = cwLoc.indexOf('page');
			if(n1 >= 0){c1 = 'page.asp';}
		}
		if (c1 != ''){
			c1 = c1 + '?obj_id=';
			if(idest < 0) {c1 = c1 + c0;}
			if(idest === 0) {c1 = c1 + iobj;}
			if(idest > 0) {c1 = c1 + idest;}
			c1 = c1 + '&REMEN='+Math.round(Math.random()*10000);
			window.location = c1;
		}
	} else {
		if (cnxt.substr(0,8) == "$dialog,") {
			cnxt = cnxt.substr(8);
			n1 = cnxt.indexOf(",");
			if (n1 >= 0){
				var a1 = cnxt.split(",");
				showDialog(a1[0], a1[1], a1[2], a1[3], a1[4], a1[5]);
			}
		} else {
			n1 = cnxt.indexOf(",");
			if (n1 >= 0){
				c1 = cnxt.substr(0, n1);
				cnxt = cnxt.substr(n1+1);
				SetAjax(cnxt, c1, 0);
			}
		}
	}
}
//mEPage(1882, 'ZNW0&amp;ALO=59418R1896,PAJLST7,*ultlist.asp?cAjID=PAJLST7', 0);
// Old Mode +iobj
// iobj = ID of object to Edit
// cAct = ZNW0/ZEDIT,Ajax Refresh Obj, Ajax ID
// idest = 
function mEPage(iobj, cAct, idest) {
	var cnxt = '';
	var n1 = cAct.indexOf(',');
	if(n1 >= 0) {cnxt = cAct.substr(n1+1); cAct = cAct.substr(0, n1);}
	var url = gWebAdr + 'Epage.asp?gjp=' + gjpage + '&obj_id=' + iobj + '&cact=' + cAct;
	activeModalWin = window.open(url, "", getwsize());
	if (cnxt !== '0'){
		window.onfocus = function () {
			if (activeModalWin.closed === false){
				activeModalWin.focus();
			} else {
				window.onfocus = '';
				var name = 'ULTOBJADD_' + gjpage;
				var cRes = $.cookie(name);
				if (undefined !== cRes){
					$.cookie(name, null);
					n1 = cRes.indexOf(",");
					var c0 = cRes.substr(0, n1); c0 = c0.substr(2); //object ID added
					cRes = cRes.substr(n1+1);  //object text
					pRefresh(cnxt, c0, iobj, idest);
				}
			}
		}
	};
}
// iobj = ID of object to Edit
// iobj2 = Edit Page Definition ID
// idest = Next Page
function mEPage2(iobj, iobj2) {
	var cnxt = '';
	var url = gWebAdr + 'page.asp?obj_id=' + iobj2 + '&EditObj=' + iobj + '&EditNext=-1 ';
	activeModalWin = window.open(url, "", getwsize());
	window.onfocus = function () {
		if (activeModalWin.closed === false){
			activeModalWin.focus();
		} else {
			window.onfocus = '';
			var sURL = unescape(window.location.pathname);
			window.location.replace( sURL );
		}
	};
}



function chkCookie(cBut, iNew, fobj, iVar) {
	var name = 'ULTOBJADD_' + gjpage;
	var cRes = $.cookie(name);
	if (undefined !== cRes){
		var n1 = cRes.indexOf(",");
		var c0 = cRes.substr(0, n1);  //object ID added
		var o1 = getObj(fobj);
		cRes = cRes.substr(n1+1);  //object text
		$.cookie(name, null);
		if (iVar == -1){}
		if (iVar === 0 || iVar == 1){
			o1.value = cRes;
			if (fobj.substr(0, 2) == 'FS'){
				n1 = fobj.substr(2);
				if (iNew == 1){
					addRow(cBut, n1, c0.substr(2), cRes, fobj, iVar, 1);
				} else {
					editRow(n1, c0.substr(2), cRes);
				}
			}
		}
		if (iVar == 2){
			o1.options[o1.length] = new Option(cRes, c0);
			o1.value = c0;
		}
		if (iVar == 3){
			cRes = "<label for='UF" + n1 + "'>&nbsp;</label> <input ID = 'UF" + n1 + "' type='checkbox' name='UF" + n1 + "' value ='" + c0 + "' checked='checked'/> " + cRes + "<br/>";
			o1.innerHTML = o1.innerHTML + cRes;
		}
		if (iVar == 4){
			cRes = "<label for='UF" + n1 + "'>&nbsp;</label> <input ID = 'UF" + n1 + "' type='radio' name='UF" + n1 + "' value ='" + c0 + "' checked='checked'/> " + cRes + "<br/>";
			o1.innerHTML = o1.innerHTML + cRes;
		}
	}
}

//moz
function modDialogShow(url,width,height) {
	 var left = screen.availWidth/2 - width/2;
	 var top = screen.availHeight/2 - height/2;
	 activeModalWin = window.open(url, "", "width="+width+"px,height="+height+",left="+left+",top="+top);
	 window.onfocus = function(){if (activeModalWin.closed === false){activeModalWin.focus();}};
}

// Add Row to Table (Table ID, Obj_id to add, Text to Add, Complex)
function addRow(cBut, tid, iobj, crval, fobj, iVar, icmplx) {
	var lact = 0;
	var ctid, crid, hidinp, c0, c1, c2, c3, tbody, row, td1, td2, img;
	if (crval != ''){
		if (iobj < 0){
			var iID = -iobj;
			iobj = 0;
			var url="goajax.asp?iAct=8&cobj=" + crval + "&iobj="+iID+"&ival="+icmplx;
			iobj = GetAjax(url, 0);
			if(iobj === 0){
				if (icmplx == 1){
					alert('You must add new items using the NEW button');
				} else {
					alert('You can only add links to items that already exist!');
				}
			}
		}
		if (iobj > 0){
			ctid = "t" + tid;
			crid = ctid + "r" + iobj;
			hidinp = getObj('F' + tid); 
			c0 = hidinp.value;
			c1 = '-#' + iobj + ',';
			c2 = '=#' + iobj + ',';
			c3 = '+#' + iobj + ',';
			if (c0.indexOf(c1) > -1) {
				lact = 1; c0 = c0.replace(c1, c2);
			} else if (c0.indexOf(c2) > -1 || c0.indexOf(c3) > -1) {
				lact = 0;
			} else {
				lact = 1; c0 = c0 + c3;
			}
			hidinp.value = c0;
		}
	}
	if (lact == 1){
		tbody = getObj(ctid).getElementsByTagName("TBODY")[0];
		row = document.createElement("TR");
		td1 = document.createElement("TD");
		row.id = crid;
		td1.appendChild(document.createTextNode(crval));
		td1.id = crid + 'A';
		td1.className = 'clascell';
		row.appendChild(td1);
		td2 = document.createElement("TD");
		td2.className = 'clascell';
		img = document.createElement('IMG');
		img.setAttribute('src', cBut + '/edit.gif');
		img.setAttribute('alt', 'Edit Item');
		img.style.marginLeft = "6px";
		img.onclick = new Function("editElem('" + cBut + "', "+iobj+", '" + fobj + "', "+iVar+");");
		td2.appendChild(img);
		img = document.createElement('IMG');
		img.setAttribute('src', cBut + '/BUT_DELT.gif');
		img.setAttribute('alt', 'Delete Item');
		img.style.marginLeft = "6px";
		img.onclick =new Function("delElem("+tid+", "+iobj+");");
		td2.appendChild(img);
		row.appendChild(td2);
		tbody.appendChild(row);
	}
}

// Edit Row on Table (Table ID, Obj_id, Text to Edit
function editRow(tid, iobj, crval) {
	if (iobj > 0 && crval != ''){
		var ctid = "t" + tid;
		var crid = ctid + "r" + iobj + "A";
		var o1 = getObj(crid);
		o1.innerHTML = crval;
		
	}
}

function delElem(tid, iobj) {
	var crid = "t" + tid + "r" + iobj;
	var elemToDel = getObj(crid);
	if(!elemToDel) {return;}
	elemToDel.parentNode.removeChild(elemToDel);
	var hidinp = getObj('F' + tid);
	var c0 = hidinp.value;
	var c1 = '-#' + iobj + ',';
	var c2 = '=#' + iobj + ',';
	var c3 = '+#' + iobj + ',';
	if (c0.indexOf(c2) > -1) {
		c0 = c0.replace(c2, c1);
	} else if (c0.indexOf(c3) > -1) {
		c0 = c0.replace(c3, '');
	}
	hidinp.value = c0;
}

function removeOptionSelected(iobj) {
  var elSel = getObj(iobj);
  var i;
  for (i = elSel.length - 1; i>=0; i--) {
    if (elSel.options[i].selected) {
      elSel.remove(i);
    }
  }
}

function appendOptionLast(iobjf, iobjt) {
  var elSelf = document.getElementById(iobjf);
  var elSelt = document.getElementById(iobjt);
  var c1 = 'x';
  var v1 = 0;
  var i;
  for (i = elSelf.length - 1; i>=0; i--) {
    if (elSelf.options[i].selected) {
      c1 = elSelf.options[i].text;
      v1 = elSelf.options[i].value;
    }
  }
  if (v1 > 0) {
    for (i = elSelt.length - 1; i>=0; i--) {
      if (elSelt.options[i].value == v1) {v1 = 0;}
    }
  }
  if (v1 > 0) {
    var elOptNew = document.createElement('option');
    elOptNew.text = c1; elOptNew.value = v1;
    try {elSelt.add(elOptNew, null);}
    catch(ex) {elSelt.add(elOptNew);}
  }
}

function selectAllOptions(iobj) {
  var selObj = document.getElementById(iobj);
  for (var i=0; i<selObj.options.length; i++) {
    selObj.options[i].selected = true;
  }
}

function checkAll(cName, ltf) {
var doc = document.getElementsByName(cName); 
for (var i = 0; i < doc.length; i++){
	if (doc[i].checked != ltf) doc[i].checked = ltf;
   }
}

function copyToClipboard(text){   
	if(window.clipboardData){   
		window.clipboardData.setData('text',text);   
	} else {
		alert('Sorry, only works in IE.');
	}
	return false;   
}

function IsNumeric(input){
     var RE = /^-{0,1}\d*\.{0,1}\d+$/;
     return (RE.test(input));
}

/*
function showDialog(cURL){
alert(cURL);
   $("#UIDialog").html('<iframe id="modalIframeId" width="100%" height="100%" marginWidth="0" marginHeight="0" frameBorder="0" />').dialog("open");
   $("#modalIframeId").attr("src", cURL);
return false;}
*/

function showDialog(cURL, cID, cTitle, iWidth, iHeight, cOpt) {
/*	cOpt
	S	-	Submit Button
	D	-	Done Button
	C	-	Cancel Button
	F0	-	AutoForm0
	F1	-	AutoForm1
	K	-	Submit Form on Carriage Return
	X	-	No close on escape
	W	-	Modeless Window
*/	
	var lok = true;
	if (cURL.substr(0,1) == "?") {
		lok = false;
		cURL = cURL.substr(1);
		var n1 = cURL.indexOf(',');
		if(n1 > 0){
			var cTxt = cURL.substr(0, n1);
			cURL = cURL.substr(n1+1);
			var answer = confirm(cTxt);
			if (answer){lok = true}
		}
	}
	if (lok){
		var iMaxH = $(window).height()-65
		var lOK = false
		if (cID == "NEW"){var d=new Date(); cID = "ID"+d.getTime(); lOK = true;}
		if (cID == "DEF"){cID = 'IDModDef'; if (!gjcmodal){gjcmodal = true; lOK = true;}}
		if (cID == 'IDModDef'){if(cTitle == ''){cTitle = gjcmodTit;} else {gjcmodTit = cTitle;}}
		if (lOK){
			if (iHeight == -1){
				$('body').append("<div style='display:none;max-height: " + iMaxH + "px;'' id='" + cID + "'></div>");
			} else {
				$('body').append("<div style='display:none;' id='" + cID + "'></div>");
			}
		}
		if (iWidth == 0){iWidth=$(window).width()-15};
		if (iHeight == 0){iMaxH};
		if (iWidth == -1){iWidth='auto'};
		if (iHeight == -1){iHeight='auto'};

		var dlg = $('#'+cID);
		if (cURL != ""){
			var dataString = "";
			if (cOpt.indexOf('F0') > -1){dataString = $("#AutoForm0").serialize();}
			if (cOpt.indexOf('F1') > -1){dataString = $("#AutoForm1").serialize();}
			if (dataString != ""){if (cURL.indexOf('?') > -1){cURL = cURL + '&'+dataString} else {cURL = cURL + '?'+dataString}}
			SetAjax(cURL, cID, 0);
		}
		dlg.dialog({autoOpen: false, height: iHeight, maxHeight: iMaxH, width: iWidth, title: cTitle});
		if (cOpt.indexOf('W') == -1){dlg.dialog({ modal: true});}
		$('#'+cID+' a').addClass("ui-state-default").css("padding-left","3px").css("padding-right","3px").hover(function(){$(this).addClass("ui-state-hover"); }, function(){$(this).removeClass("ui-state-hover");});
		if (cURL != "" && cID != 'IDModDef'){
			dlg.dialog({close: function(ev, ui) {$(this).remove();}});
		};
		if (cOpt.indexOf('X') > -1){
			dlg.dialog({closeOnEscape: false, open: function(event, ui) { $(".ui-dialog-titlebar-close").hide();}});
		} else {
			dlg.dialog({closeOnEscape: true});
		}
		var aButs=new Array();
		if (cOpt.indexOf('S') > -1){aButs.push({text: "Submit", click: function() { $("#"+cID+" form").submit();}})}
		if (cOpt.indexOf('C') > -1){aButs.push({text: "Cancel", click: function() { $(this).dialog("close"); }})}
		if (cOpt.indexOf('D') > -1){aButs.push({text: "Done", click: function() { $(this).dialog("close"); }})}
		if (aButs.length > 0){dlg.dialog({ buttons: aButs});}
		if (cOpt.indexOf('K') > -1){dlg.keyup(function(e) {if (e.keyCode == 13) {$("#"+cID+" form").submit()} });}
		dlg.dialog('option','position', 'center');
		dlg.dialog('open');
//		$('.ui-dialog-buttonpane > button:last').focus(); 
	}
	return cID
}

function jqOnOff(lTF, cID1, cID2, cAJ1, cAJ2){
	var cShID = cID2;
	var cHiID = cID1;
	var cAJAX = cAJ2;
	if(lTF){cShID = cID1; cHiID = cID2; cAJAX = cAJ1};
	if(cShID != ''){$('*[id^=' + cShID + ']').show()};
	if(cHiID != ''){$('*[id^=' + cHiID + ']').hide()};
	if(cAJAX != ''){GetAjax('goajax.asp?' + cAJAX, 0)};
}

function jqCheckAll(id, flag){$('input[id^='+id+']').attr('checked', flag);}