/***********************************************************/
function checkBrowser() { //v0.1
/***********************************************************
* versies:  0.1 Mark Nauta 16-08-2002
* omschr:       retourneert korte browser naam
************************************************************/
var strBrowserName = navigator.appName;
if (strBrowserName.indexOf('Explorer') != -1){
  return 'IE';
} else if (strBrowserName.indexOf('Netscape') != -1) {
  return 'NS';
}
}

/***********************************************************/
function popWindow(strHtml,intHeight,intWidth){
/***********************************************************
* versies:  0.1 Mark Nauta 15-10-2002
* omschr:       Opent modal popup window, vangt geen resultaat af
************************************************************/
	alert(strHtml);
	if (checkBrowser()=='IE'){
	  var myDialog = new Object;
  	window.showModalDialog(strHtml, myDialog, "dialogHeight: "+intHeight+"px; dialogWidth: "+intWidth+"px; center; help: NO; resizable: NO; scroll: no; status: off;");
  } else {
  	var intLeft = window.screenX + Math.round((window.outerWidth - intWidth)/2);
  	var intTop  = window.screenY + Math.round((window.outerHeight - intHeight)/2);
  	window.open(strHtml,"_blank", "centered=yes,dependant=yes, modal=yes, height="+intHeight+", width="+intWidth+", top="+intTop+", left=" + intLeft);
  }
}


/***********************************************************/
function showhideObject(strObjName, strCommand){
/***********************************************************
* versies:  0.1 Mark Nauta 13-09-2002
*			0.2 Mark Nauta: IE en Moz zijn compatible geworden
* omschr:       Object tonen of verbergen
* parameters:   strObjName  naam van het object
*               strCommand  show, hide of toggle
************************************************************/
	var objNode = findObject(strObjName);
	if (strCommand == 'toggle'){
			strCommand = (objNode.style.visibility=="visible"?'hide':'show');
	}
	var strNN = (strCommand=='show'?'visible':'hidden');
	if (!objNode){alert(strObjName)};
	objNode.style.visibility = strNN;
}

/***********************************************************/
function findObject(strObjName, objDocument) { //v3.0
/***********************************************************
* versies:  0.1 Mark Nauta 18-07-2002
* omschr:       Zoekt een object in de pagina
* parameters:   strObjName  naam van het gezochte object
*               objDocument document waarop gezocht moet worden
************************************************************/
	var intParent, i, x;
	var objNode;
//alert(strObjName+" "+objDocument);
 	if (!objDocument) {
		objDocument=document;
	}
	if ((intParent = strObjName.indexOf("?")) > 0 && parent.frames.length) {
    objDocument = parent.frames[strObjName.substring(intParent+1)].document;
    strObjName = strObjName.substring(0,intParent);
  }
	if (objDocument && objDocument.implementation) {
		objNode = objDocument.getElementById(strObjName);
		return objNode;
	}
  if(!(objNode=objDocument[strObjName]) && objDocument.all)
    objNode = objDocument.all[strObjName];
  for (i=0;!objNode && i < objDocument.forms.length; i++)
    objNode = objDocument.forms[i][strObjName];
  return objNode; 
 //return x; 20021030 weggecommentarieerd vervangen voor bovenstaande regel;
}

/***********************************************************/
function resize(objField, intSize) { //v0.1
/***********************************************************
* versies:  0.1 Mark Nauta 20-12-2006
* omschr:       Geeft objField de aangegeven lengte
* parameters:   objField het te resizen veld
*               intSize de nieuwe lengte
************************************************************/
	objField.size=intSize;
	return true;
}

function addEvent( obj, type, fn ) {
	if ( obj.attachEvent ) {
		obj['e'+type+fn] = fn;
		obj[type+fn] = function(){obj['e'+type+fn]( window.event );}
		obj.attachEvent( 'on'+type, obj[type+fn] );
	} else
	obj.addEventListener( type, fn, false );
}

function removeEvent( obj, type, fn ) {
	if ( obj.detachEvent ) {
		obj.detachEvent( 'on'+type, obj[type+fn] );
		obj[type+fn] = null;
	} else
	obj.removeEventListener( type, fn, false );
}

/***********************************************************/
function getEventCoordinates(evt) { //v0.1
/***********************************************************
* versies:  0.1 Mark Nauta 12-01-2007
* omschr:       Geeft coordinaten (X, Y) van event
* parameters:   Het event
************************************************************/
var elem = (evt.target) ? evt.target : evt.srcElement;
	xPos = evt.clientX;
	yPos = evt.clientY;
	return [xPos, yPos];
}

/***********************************************************/
function getEventTarget(evt) { //v0.1
/***********************************************************
* versies:  0.1 Mark Nauta 12-01-2007
* omschr:       Geeft target van event
* parameters:   Het event
************************************************************/
	return (evt.target) ? evt.target : evt.srcElement;
}

/***********************************************************/
function JSon (URL, parm, onSucces){
/***********************************************************
* versies:  0.1 Mark Nauta 16-01-2007
* omschr:       Roept prototype Ajax.Request aan
* parameters:   
************************************************************/
var myAjax = new Ajax.Request(
	URL, 
	{
		method: 'get', 
		parameters: parm, 
		onComplete: onSucces
	});	
}