//**** checks browsertype and os... returns an object
function checkBrowser(){
	this.ver = navigator.appVersion;
	this.ua = navigator.userAgent;
	this.dom = document.getElementById ? true:false;
	this.ie6 = (this.ver.indexOf("MSIE 6")>-1 && this.dom)?1:0;
	this.ie55 = (this.ver.indexOf("MSIE 5.5")>-1 && this.dom)?1:0;
	this.ie5 = (this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0;
	this.ie4 = (document.all && !this.dom) ? 1:0;
	this.ie  = (this.ie5 || this.ie4 || this.ie55 || this.ie6);

	this.ns6 = (this.dom && parseInt(this.ver) >= 5 && !this.ie6 && !this.ie5 && !this.ie55 ) ? 1:0;
	this.ns4 = (document.layers) ? 1:0;
	this.ns  = (this.ns4 || this.ns6);
	
	this.opera  = (this.ver.indexOf("Opera")>-1 || this.ua.indexOf("Opera")>-1) ? 1:0;
	this.os  = (this.ver.indexOf("Macintosh")>-1)? "mac":"pc";
	
	this.ff= (this.ua.indexOf("Firefox")>-1 && this.dom) ? 1:0;
	var verString=this.ua.substr(this.ua.indexOf("Firefox")+8,3);
	this.ff15= (this.ff && parseFloat(verString)>=1.5) ? 1:0;
	this.support = (this.dom);
	if(this.ie) this.browserApdx="ie";
	if(this.ns) this.browserApdx="ns";
	this.browserApdx+='_'+this.os;
        this.swf=false;
	if(navigator.mimeTypes && navigator.mimeTypes["application/x-shockwave-flash"] && navigator.mimeTypes["application/x-shockwave-flash"].enabledPlugin) this.swf=true;
	if(this.ie && this.os=='pc'){
	  result = false;document.write('<SCRIPT LANGUAGE=VBScript>\n on error resume next \n result = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.1"))</SCRIPT>\n');
	  if (result) this.swf=true;
	}
	if(this.ie && this.os=='mac' && navigator.plugins["Shockwave-Flash"] && (parseInt(navigator.plugins["Shockwave-Flash"].description)>=6 || parseInt(navigator.plugins["Shockwave-Flash"].filename) >= 6))
	  this.swf=true;
}

function getElementsByAttributeValue(attrName,attrValue,tName,Parent,onlyOne){
	var elem=new Array();
	var d=Parent || self.document.documentElement;
	if(tName && tName!=''){
		var elems=d.getElementsByTagName(tName);
		for(var i=0;i<elems.length;i++){
			var av=getAttributeValue(elems.item(i),attrName);

 			if((attrValue==null && av!=null) || (av!=null && av==attrValue)){
				elem[elem.length]=elems.item(i);
				if(onlyOne) break;
			}
		}
	}
	return elem;
}

function getAttributeValue(node,attrName){
	if((is.ie55 || is.ie5) && !is.opera){
		if(node.getAttribute(attrName))	return node.getAttribute(attrName);
	}else{
		if(node.getAttributeNode(attrName)) return node.getAttributeNode(attrName).value;
	}
	return null;
}

function switchStyleClass(obj,value){
	if (navigator.appName=="Netscape")
    		obj.setAttribute("class", value);
	else
		obj.setAttribute("className", value);
}

function isElementChildOf(cE,pE){
	var tE=cE.parentNode;
	var found=false;
	while(tE && !found){
		if(tE==pE) found=true;
		tE=tE.parentNode;
	}
	return found;
}


AddRefHandler = function(EventName,Handler,pointer,eventObj){
  eventObj[EventName] = function(Ev){
    if(is.ie) Ev=window.event;
    var res=Handler(pointer,Ev);
    return res;
  }
}
//**** Popup - Opener-function

function openWindow(src, name,x, y, width, height,x0,y0,features){
	var yOff=0,xOff=0;
	if(!is) is=new checkBrowser();
	if(!isNaN(x)) xOff=x;if(!isNaN(y)) yOff=y;
	if(x=="ScreenCentered") xOff = Math.ceil((screen.width-width)/2);
	if(y=="ScreenCentered") yOff = Math.ceil((screen.height-height)/2-20);
	if(x=="BrowserLeft"){
		if(is.ie) xOff = self.screenLeft-3; else
		   if(is.ns) xOff = self.screenX+self.outerWidth-self.innerWidth;
	}
	if(y=="BrowserTop"){
		if(is.ie) yOff = self.screenTop; else
		   if(is.ns) yOff = self.screenY+self.outerHeight-self.innerHeight-24;
	}
  xOff+=x0;yOff+=y0;if(xOff<0 )xOff=0;if(yOff<0)yOff=0;
  var stdfeatures = "scrollbars";
  if(features) stdfeatures=features; //else yOff-=20;
  var strfeatures = "left="+xOff+",top="+yOff+",width="+width+",height="+height;
  if (stdfeatures!="") strfeatures+=","+stdfeatures;
  if(popUps[name] && !popUps[name].closed) 		//already opened!
  //		if(popUps[name].location && popUps[name].location.pathname!=src)	//not the same source!
	popUps[name].close();
  self.popUps[name]=window.open(src,name,strfeatures);
  self.popUps[name].focus();
  return void(0);
}

// retrieve an Element's absolute position:
function getElemAbsPos(element){
	var l=0; var t=0;
	var ref = element;
	while(ref){
		t+=ref.offsetTop;
		l+=ref.offsetLeft;
//		dbWrite("OFFSETCALCULATION",ref.tagName,ref.name,"L:",ref.offsetLeft,"T:",ref.offsetTop,"SUM:",l,t);
		ref = ref.offsetParent;
	}
  	return [l,t];
}

function RequestParam(name){
 var Pl = self.location.search;
 var pars;
 var valu=null;
 name=UC(name);
 if(Pl.length>1){
   Pl=Pl.slice(1,Pl.length);
   pars=Pl.split("&");
   for(i=0; i<pars.length;i++){
     hs=new String(pars[i]);
	pe=hs.indexOf("=");
     if(pe>0){
       if(hs.slice(0,pe).toUpperCase()==name)
       	   valu=hs.slice(pe+1,hs.length);
     }else{
       if(hs.toUpperCase()==name) valu=new String();
     }
   }
 }
 return valu;
}
//**** Execute arrays of Strings (each string must be executable JS!)
function execObj(objs){
  for (var i = 0; i < objs.length; i++){
  	dbWrite('evaluation',objs[i]);
    if (typeof objs[i]=="string") eval(objs[i]);
  }
}
function writeObj(objs){
  for (var i = 0; i < objs.length; i++)
   document.write(objs[i]);
}

function UC(str){return str.toUpperCase();}


function isMail(mailAdr){
	var filter  = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-])+\.)+([a-zA-Z0-9]{2,4})+$/;
	if (filter.test(mailAdr)) return true;
	else return false;
}

var mailObKey="superdiscodner";
function mailOb_decode(z,k){
	var d="";
	var e=decodeURIComponent(z);
	for(var i=0;i<e.length;i++){
		d+=""+String.fromCharCode ( e.charCodeAt(i) ^ k.charCodeAt(i % (k.length)) );
	}
	return d;
}


function mailOb_encode(d,k){
	var e="";
	for(var i=0;i<d.length;i++){
		e+=""+String.fromCharCode ( d.charCodeAt(i) ^ k.charCodeAt(i % (k.length)) );
	}
	return encodeURIComponent(e);
}

function mailOb_getLink(el, label, clss, target){
	var s="<"+"a hr"+'ef="ma'+"ilto:"+(mailOb_decode(el,mailObKey))+'"';
	if(clss && clss!="") s+=' class="'+clss+'"';
	if(target && target!="") s+=' target="'+target+'"';
	s+=">";
	if(label && label!="") s+=label;else s+=mailOb_decode(el,mailObKey); 
	s+="</a>";
	return s;
}