function popup(mylink, windowname) {
	if (! window.focus) return true;
	var href;
	if (typeof(mylink) == 'string') href=mylink;
	else href=mylink.href;
	windowatt = 'width=500,height=720,scrollbars=yes,resizable=yes,menubar=yes,toolbar=0,location=0,directories=0,status=0';
	if(windowname == "_mbrpopup_") windowatt = 'width=720,height=800,scrollbars=yes,resizable=yes,menubar=yes,toolbar=0,location=0,directories=0,status=0';
	if(windowname == "_infopopup_") windowatt = 'width=840,height=800,scrollbars=yes,resizable=yes,menubar=yes,toolbar=0,location=0,directories=0,status=0';
	if(windowname == "_recpopup_") windowatt = 'width=1200,height=860,scrollbars=yes,resizable=yes,menubar=yes,toolbar=yes,location=0,directories=yes,status=0';
	popwindow = window.open(href, windowname, windowatt);
	popwindow.focus();
	return false;
}

function setfocus_to_first_text() {
	var bFound = false;
	for (f=0; f < document.forms.length; f++) {

		for(i=0; i < document.forms[f].length; i++)	{

			if (document.forms[f].elements[i].type == "text") {
				if (document.forms[f][i].disabled != true) {
					// set the focus to it
					document.forms[f][i].focus();
					bFound = true;
				}
			}

			if (bFound == true)	break;
		}

		if (bFound == true)	break;
	}
}

function checkUploadFile() { 
	var ext = document.frm.uploadfile.value;
	if(ext == '') { 
		alert('No file has been selected for upload!');
		return false;
	} else return true;
}

function setGroup(gnum, set) {
	var x=document.getElementById("rfrm");
	for(var i=0; i<x.length; i++) {
		if(x.elements[i].type == "checkbox") {
			var str=x.elements[i].name;
			var pos=str.indexOf("_");
			if(pos != -1) str = str.substr(pos+1);
			if(str == gnum) x.elements[i].checked = set;
		} else if(x.elements[i].type == "text") {
			var str=x.elements[i].name;
			var pos=str.indexOf("_");
			if(pos != -1) str = str.substr(pos+1);
			if(str == gnum) {
				if(set) x.elements[i].value = "x";
				else x.elements[i].value = "";
			}
		}
	}
	return false;
}

function setGroupNa(gnum, set) {
	var x=document.getElementById("rfrm");
	for(var i=0; i<x.length; i++) {
		if(x.elements[i].type == "text") {
			var str=x.elements[i].name;
			var pos=str.indexOf("_");
			if(pos != -1) str = str.substr(pos+1);
			if(str == gnum) {
				if(set) x.elements[i].value = "na";
				else x.elements[i].value = "";
			}
		}
	}
	return false;
}

function setHGroup(gnum, set) {
	var x=document.getElementById("rfrm");
	for(var i=0; i<x.length; i++) {
		if(x.elements[i].type == "checkbox") {
			var str=x.elements[i].name;
			var pos=str.indexOf("_");
			if(pos != -1) {
				str = str.substr(0,pos);
				str = str.substr(1);
			}
			if(str == gnum) x.elements[i].checked = set;
		} else if(x.elements[i].type == "text") {
			var str=x.elements[i].name;
			var pos=str.indexOf("_");
			if(pos != -1) {
				str = str.substr(0,pos);
				str = str.substr(1);
			}
			if(str == gnum && x.elements[i].value != "na") {
				if(set) x.elements[i].value = "x";
				else x.elements[i].value = "";
			}
		}
	}
	return false;
}

function copyreserv(res) {
	var r = res.split("_");
	for(var i=0; i<r.length; i++) {
		var nm = "Ev_"+r[i];
		var x=document.getElementById(nm);
		if(x != null) {
			if(x.type == "checkbox") {
				x.checked = true;
			}
		}
	}
	return false ;
}

function calcAge() {
	var birthdate = document.forms["frm"].elements["birthdate"].value;
	var ba = birthdate.split('/');
	if(ba.length>=3) {
	//var y = document.forms["frm"].elements["year"].value;
	y = ba[2];
	//var m = document.forms["frm"].elements["month"].value;
	m = ba[0];
	//var d = document.forms["frm"].elements["day"].value;
	d = ba[1];
	}
	if(y.length>0 && m>0 && d>0) {
		y = y*1;
		if(y < 100) {
			if(y < 20) y += 2000;
			else y += 1900;
			document.forms["frm"].elements["year"].value = y;
		}
		if(y < 1965 || y > 2010) {
			alert("Year is out of range");
		} else {
		var bd = new Date(y,m-1,d);
		var thd = new Date();
		var thyr = thd.getFullYear();
		var refdate = new Date(thyr, 6, 10);
		var a = 0;
		if(refdate > bd) {
			var i = 0;
			for(i=0;i<100;i++) {
				y++;
				var td = new Date(y,m,d);
				if(td <= refdate) a++;
				else break;
			}
		}
		document.forms["frm"].elements["age"].value = a;
		document.forms["frm"].elements["age"].readOnly = true;
		}
	} else {
		document.forms["frm"].elements["age"].readOnly = false;
	}
	return;
}

function clkscroll(obj)
{
	if(obj) {
		if(obj.type == "text") {
			if(obj.value == "x") obj.value = "na";
			else if(obj.value == "na") obj.value = "";
			else if(obj.value.length == 0) obj.value = "x";
			else obj.value = "";

			obj.readOnly = true;
		}
	}
	return;
}

function dblclkscroll(obj)
{
	var br = navigator.appName;
	var pos = br.indexOf("Explorer");
	if(pos != -1) clkscroll(obj)
	return true;
}

function bklighton(obj)
{
	if(obj) obj.style.backgroundColor = "#ccff22";
}

function bklightoff(obj)
{
	if(obj) obj.style.backgroundColor = "";
}

function changeOpac(opacity, id)
{
	var object = document.getElementById(id).style;
	object.opacity = (opacity / 100);
	object.MozOpacity = (opacity / 100);
	object.KhtmlOpacity = (opacity / 100);
	object.filter = "alpha(opacity=" + opacity + ")";
}

function blendimage(divid, imageid, image, millisec)
{
	var speed = Math.round(millisec / 10);
	var timer = 0;

	document.getElementById(divid).style.backgroundImage = "url(" + document.getElementById(imageid).src + ")";

	changeOpac(0, imageid);

	//document.getElementById(imageid).src = image.src;
	swapImage(imageid, image);

	for(i = 0; i <= 100; i++)
	{
		setTimeout("changeOpac(" + i + ",'" + imageid + "')",(timer * speed));
		timer++;
	}
}

var slideCache = new Array();
function RunSlideShow(divid,imageid,displaySecs)
{
	var nextImage = getNextImage();

	if(nextImage != null) {
		changeOpac(0, imageid);
		blendimage(divid,imageid,nextImage,100);
	}

	setTimeout("RunSlideShow('"+divid+"','"+imageid+"',"+displaySecs+")",displaySecs*1000);

}

function getNextImage()
{
	var i;
	var img = null;
	if(slideCache.length > 0) {
		for(i=0;i<slideCache.length;i++) {
			var curr_img = slideCache[i];
			if(curr_img.show) {
				curr_img.show = false;
				var j = i+1;
				if(j > slideCache.length-1) j = 0;
				img = slideCache[j];
				img.show = true;
				break;
			}
		}
		if(img == null) {
			img = slideCache[0];
			img.show = true;
		}
	}
	return img;
}

function swapImage(image_id, nextImg)
{
	var blnDOMSUPPORT = (document.getElementById) ? true : false;

	if ( blnDOMSUPPORT ) {
	   var imgMain = document.getElementById(image_id);
	   var divParent;
 
	   var imgNew = document.createElement('img');

	   imgNew.src = nextImg.src;
	   imgNew.width = 450;
	   imgNew.height = 300; 
	   imgNew.id = image_id;
	   imgNew.style.opacity = 0;
	   imgNew.style.MozOpacity = 0;
	   imgNew.style.KhtmlOpacity = 0;
	   imgNew.style.filter = "alpha(opacity=0)";

	   divParent = imgMain.parentNode;
	   divParent.replaceChild(imgNew, imgMain);

	} else {
 
	   document.images[image_id].src = this.src;
	   alert( 'old school' );

	}   
}

function loadXmlDoc(url, callback)
{
	var xmlhttp = null;
	var cb_func = null;
	cb_func = callback;
	if (window.XMLHttpRequest) {  // code for all new browsers
		xmlhttp=new XMLHttpRequest();
	} else if (window.ActiveXObject) {  // code for IE5 and IE6
		xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
	}
	if (xmlhttp!=null) {
		xmlhttp.onreadystatechange = function() {

			if (xmlhttp.readyState==4) { // 4 = "loaded"
				if (xmlhttp.status==200) {// 200 = OK
					cb_func(xmlhttp);
				} else {
					alert("Problem retrieving XML data");
				}
			}
		}
	  xmlhttp.open("GET",url,true);
	  xmlhttp.send(null);
	} else  {
	  alert("Your browser does not support XMLHTTP.");
	}
}

function makeXmlDoc(xmlhttp)
{
	var xmlDoc = null;
	try {
		xmlDoc = new ActiveXObject("Microsoft.XMLDOM");
		xmlDoc.async = false;
		xmlDoc.loadXML(xmlhttp.responseText);
	} catch (e) {
		try {
			parser = new DOMParser();
			xmlDoc = parser.parseFromString(xmlhttp.responseText, "text/xml");
		} catch (e) {
			alert(e.message);
		}
	}
	return xmlDoc;
}