<!--
function KW_cal_class(m,d,y,d1,d2,mn,c)
{ //v1.3.0
	this.o="";
	this.dsp="";
	this.m=m;
	this.d=d;
	this.y=y;
	this.d1=d1;
	this.d2=d2;
	this.mn=mn,this.sy=((y%100)<10)?"0"+(y%100):(y%100);
	this.mm=(m<10)?"0"+m:m;this.c=c;
	this.dd=(d<10)?"0"+d:d;
	iD=new Date(y,(m-1),d);
	eD=new Date();
	eD.setMilliseconds(0);
	eD.setHours(0);
	eD.setMinutes(0);
	eD.setSeconds(0);
	this.ofs=parseInt((eD-iD)/86400000);
	this.gC=function()
	{
		iD=new Date(this.y,(this.m-1),this.d);
		sD=this.dsp.toString();
		retVal="on";
		if (sD.indexOf("<a")!=0)retVal="off";
		if (iD.getDay()==0||iD.getDay()==6)
			if (sD.indexOf("<a")!=0)
				retVal="wkendoff";
			else
				retVal="wkendon";
		if (this.c==0)
			if (sD.indexOf("<a")!=0)
				retVal="ntmoff";
			else
				retVal="ntmon";
		if (this.ofs==0) 
			retVal="today";
		if (this.spc()==true)
			retVal="special";
		return "kw_cal_"+retVal;
	}
	
	this.spc=function()
	{
		var retVal=false;
		dc=document;
		if (dc.kw_sp)
		{
			for (var i=0;i<dc.kw_sp.length;i++)
			{
				if (this.m==dc.kw_sp[i].m&&(this.y==dc.kw_sp[i].y||dc.kw_sp[i].y=="*")&&this.d==dc.kw_sp[i].d)
					retVal=true;
			}
		}
		return retVal;
	}
}

function KW_sTD(f,n,d,o,a1,a2,a3,a4,w,l,sd)
{ //v1.4.0
	var rV="<a href=\"javascript:window.opener.KW_setCalendar('"+f+"',"+n+",'"+l+"'); window.close();\">"+d+"</a>";
	
	
	if ((a1==1&&o>0)||(a1==-1&&o<0)||(a1==2&&o>=0))
		rV=d;
		
	if (a2>0)
	{
		if (o<=-a2)
			rV=d;
	} 
	else if (a2<0)
	{
		if (o>=-a2)
			rV=d;
	}
	
	if (a3!=-1)
	{
		ss=a3.split("|");
		if (ss[w]==1)
			rV=d;
	}
	
	if (a4>0)
	{
		if (o>=-a4 && o<0)
			rV=d;
	}
	
	if (a4<0)
	{
		if (o<=-a4 && o>0)
			rV=d;
	}
	
	
	if (sd)
	{
		rV=d;
	}
	
	return rV;
}

function KW_date_class(m,d,y)
{
	this.m=m;
	this.d=d;
	this.y=y;
}

function KW_setSpecial()
{ //v1.4.0
	a=KW_setSpecial.arguments;
	dc=document;
	dc.kw_sp = new Array();
	for(var i=0;i<a.length;i=i+3)
		dc.kw_sp[dc.kw_sp.length] = new KW_date_class(a[i],a[i+1],a[i+2])
}

function KW_setCalendar(obj,n,l)
{  //v3.0.1
    if (obj!='')
	{
		dc=document;
		dO=dc.tMh[n];
		if (obj.indexOf("|")==-1)
		{
			MM_findObj(obj).value=dO.o; 
			dc.KW_calYear=dO.y;
		}
		else
		{
			oS=obj.split("|");
			tV=new Array(dO.m,dO.d,dO.y);
			for(var i=0;i<3;i++)
			{ 
				tO=MM_findObj(oS[i]);
				dc.KW_calYear=dO.y;
				if (tO.type.indexOf("select")==-1)
					tO.value=tV[i]; 
				else
					for (var j=0;j<tO.options.length;j++)
						if (tO.options[j].value==tV[i])
							tO.selectedIndex=j;
			}
		}
		dc.KW_calMonth=dO.m-1;
	}
	if (l!='')
	{
		o=MM_findObj(l);
		//v="hide";
		if (o.style)
		{
			o=o.style;
			v='hidden';
		}
		//o.visibility=v;
	}
	CopyInformation();
}

function MM_findObj(n, d)
{ //v4.01
	var p,i,x;
	
	if (!d)
		d=document;
	  
	if((p=n.indexOf("?"))>0&&parent.frames.length)
	{
		d=parent.frames[n.substring(p+1)].document;
		n=n.substring(0,p);
	}
	
	if(!(x=d[n])&&d.all)
		x=d.all[n];
		
	for (i=0;!x&&i<d.forms.length;i++)
		x=d.forms[i][n];
		
	for(i=0;!x&&d.layers&&i<d.layers.length;i++)
		x=MM_findObj(n,d.layers[i].document);
		
	if(!x && d.getElementById)
		x=d.getElementById(n);
	
	return x;
}

function KW_setDel(val)
{ //v1.3.1
	return (val.match(/\.gif$|\.png$|\.jpg$|\.jpeg$/i))?"<img src=\""+val+"\" class=\"kw_img\">":val;
}

function KW_mX(et)
{ //v3.0.0
	dc=document;
	
	if (et.pageX)
		return et.pageX;
	else if (et.clientX)
		return et.clientX + (dc.documentElement.scrollLeft ? dc.documentElement.scrollLeft : dc.body.scrollLeft);
	else
		return null;
}

function KW_mY(et)
{ //v3.0.0
	dc=document;
	if (et.pageY)
		return et.pageY;
	else if (et.clientY)
		return et.clientY + (dc.documentElement.scrollTop ? dc.documentElement.scrollTop : dc.body.scrollTop);
	else
		return null;
}

function KW_fD(n,a,b,c)
{
	dc=document; //v3.0.0
	return eval("dc.tMh["+n+"]."+a)+dc.tMh[n].d1+eval("dc.tMh["+n+"]."+b)+dc.tMh[n].d2+eval("dc.tMh["+n+"]."+c);
}

function KW_dD(n,a,b,c,d,e,f,g,h,i,j)
{ //v3.0.0
	dc=document;
	return (a==1)?"&nbsp;":KW_sTD(b,n,i,dc.tMh[n].ofs,c,d,e,f,j,g,(dc.tMh[n].spc()&&h==1));
}

function KW_expertCalendar()
{ //v3.0.0
	var dc=document,a=KW_expertCalendar.arguments,d=new Date();
	btm=d.getMonth();
	bty=d.getFullYear();
	d.setDate(1);
	
	if (a[29]!=-1)
		d.setMonth(a[29]);
	else if (dc.KW_calMonth)
		d.setMonth(dc.KW_calMonth);
	else
		d.setMonth(GetDefaultCalendarMonth());
	
	cMn=d.getMonth();
	pMt=((cMn-1)<0)?11:cMn-1;
	nMh=((cMn+1)>11)?0:cMn+1;
	
	if (a[30]!=-1)
		d.setFullYear(a[30]);
	else if (dc.KW_calYear) 
		d.setYear(dc.KW_calYear); 
	else
		d.setYear(GetDefaultCalendarYear());
	
	cYr=d.getFullYear(); 
	pYr=(pMt==11)?cYr-1:cYr;
	nYr=(nMh==0)?cYr+1:cYr;
	wdy=d.getDay();
	dc.tMh=new Array();
	if (a[25]==1)
		wdy=((--wdy)<0)?6:wdy;
	tpM=new Date(d.getFullYear(),d.getMonth(),d.getDate()-wdy);
	
	for (var i=0;i<wdy;i++)
	{ 
		n=dc.tMh.length; 
		dc.tMh[n]= new KW_cal_class((tpM.getMonth()+1),tpM.getDate(),tpM.getFullYear(),a[21],a[23],a[tpM.getMonth()],0); 
		dc.tMh[n].o=KW_fD(n,a[20],a[22],a[24]);
		dc.tMh[n].dsp=KW_dD(n,a[31],a[19],a[26],a[27],a[28],a[42],a[41],a[45],tpM.getDate(),tpM.getDay());
		tpM.setDate(tpM.getDate()+1);
	}
	
	EOM=false;
	
	for (var i=1;!EOM;i++)
	{
		n=dc.tMh.length; 
		dc.tMh[n]=new KW_cal_class((d.getMonth()+1),d.getDate(),d.getFullYear(),a[21],a[23],a[d.getMonth()],1); 
		dc.tMh[n].o=KW_fD(n,a[20],a[22],a[24]);
		dc.tMh[n].dsp=KW_dD(n,0,a[19],a[26],a[27],a[28],a[42],a[41],a[45],d.getDate(),d.getDay());
		d.setDate(d.getDate()+1);
		if (d.getDate()==1)
			EOM=true;
	}
	
	wdy=d.getDay();
	
	if (a[25]==1)
		wdy=((--wdy)<0)?6:wdy;
	
	for (var i=wdy;i<7;i++)
	{
		n=dc.tMh.length; 
		dc.tMh[n]= new KW_cal_class((d.getMonth()+1),d.getDate(),d.getFullYear(),a[21],a[23],a[d.getMonth()],0); 
		dc.tMh[n].o=KW_fD(n,a[20],a[22],a[24]);
		dc.tMh[n].dsp=KW_dD(n,a[31],a[19],a[26],a[27],a[28],a[42],a[41],a[45],d.getDate(),d.getDay());
		d.setDate(d.getDate()+1);
	}
		
	ns4 =(dc.layers)?true:false;
	px=(ns4||window.opera)?'':'px'; s=a[32];
	if (a[33]==-1)
	{ 
		ww=window;
		var wp=(ww.innerWidth!= null)?ww.innerWidth:(dc.body.clientWidth!=null)?dc.body.clientWidth:null;
		oLoc=a[41];
		
		if (oLoc=="")
			oLoc=a[32].name;
			
		oO=dc.getElementById(oLoc);
		
		if (oO.offsetWidth)
			oW=oO.offsetWidth; 
		else if (oO.clip.width)
			oW=oO.clip.width;
		
		winY=KW_mY(a[46])+20;
		winX=KW_mX(a[46])-(oW/4);
		
		if (winX<2)
			winX=2;
		else if (winX+oW>wp)
			winX-=oW/2;
			
		if (a[41]=="")
		{
			posx=(ww.screenX)?ww.screenX:ww.screenLeft;
			posy=(ww.screenY)?ww.screenY:ww.screenTop;
			cma=(a[41]=='')?((ww.outerHeight)?(ww.outerHeight-ww.innerHeight)-30:0):0;
			var scrlx,scrly; 
			if (self.pageYOffset)
			{
				scrlx = self.pageXOffset;
				scrly = self.pageYOffset;
			}
			else if (dc.documentElement && dc.documentElement.scrollTop)
			{
				scrlx = dc.documentElement.scrollLeft; 
				scrly = dc.documentElement.scrollTop;
			}
			else if (dc.body)
			{
				scrlx = dc.body.scrollLeft;
				scrly = dc.body.scrollTop;
			}
			winX+=posx-scrlx;
			winY+=posy+cma-scrly;
		}
		xp=winX;
		yp=winY;
		a[33]=xp; a[34]=yp;
	}
	str="<html><head><title>"+a[cMn]+" "+cYr;
	accs="<a class=\"kw_cal_a\" "; 
	str+="</title></head><link href=\""+a[43]+"\" rel=\"stylesheet\" type=\"text/css\" />";
	str+="<body style=\"margin:0; background-color:"+a[44]+";\">";
	if (a[41]!='' && !ns4)
		str="";
	str+="<table class=\"kw_cal_tbl2\"><tr><td colspan=\"7\">";
	str+="<table width=\""+(a[35]-10)+"\" border=0 cellspacing=0 cellpadding=0 class=\"kw_cal_tbl2\">"; 
	endStr="','"+a[31]+"',0";
	for(ix=33;ix<37;ix++)
		endStr+=","+a[ix];
	for(ix=37;ix<46;ix++)
		endStr+=",'"+a[ix]+"'";
	bStr="";
	for (var j=0;j<29;j++)
		bStr+="'"+a[j]+"',"; 
	xDD="<select id=\"EC_monthDD\" name='EC_monthDD' class=\"EC_dateDD\"" ;
	xDD+="on";
	xDD+="Change=";
	xDD+='"KW_expertCalendar('+bStr;
	xDD+="MM_findObj('EC_monthDD').options[";
	xDD+="MM_findObj('EC_monthDD').selectedIndex].value,'"; xDD+=cYr; xDD+=endStr; xDD+=')">'; 
	for (var j=0;j<12;j++)
		xDD+="<option value=\""+j+"\""+((j==cMn)?" selected":"")+">"+a[j]+"</option>"; 
	xDD+="</select>";
	if (a[41]=="" || ns4)
		xDD=a[cMn]; 
	aStr1=bStr+"'"+pMt+"','"+pYr+endStr;
	aStr2=bStr+"'"+nMh+"','"+nYr+endStr;
	str+="<tr><td ";
	str+="class=\"kw_cal_mnth\">"+accs+"href=\"javascript:window.opener.KW_expertCalendar("+aStr1; 
	str+=")\">"+KW_setDel(a[37])+"</a>"+xDD+accs+"href=\"javascript:window.opener.KW_expertCalendar(";
	str+=aStr2+")\">"+KW_setDel(a[38])+"</a></td>";
	aStr1=bStr+"'"+cMn+"','"+(cYr-1)+endStr; 
	aStr2=bStr+"'"+cMn+"','"+(cYr+1)+endStr; 
	yDD="<select id=\"EC_yearDD\" name='EC_yearDD' class=\"EC_dateDD\" onChange=\"";
	yDD+="KW_expertCalendar("+bStr+"'"+cMn+"',MM_findObj('EC_yearDD').options[";
	yDD+="MM_findObj('EC_yearDD').selectedIndex].value"+endStr.substring(1)+")\">"; 
	yDDa=new Array(1,0,-1);
	for (var j=0;j<yDDa.length;j++)
		yDD+="<option value=\""+(cYr-yDDa[j])+"\""+((yDDa[j]==0)?" selected":"")+">"+(cYr-yDDa[j])+"</option>"; 
	yDD+="</select>";
	if (a[41]=="" || ns4)
		yDD=cYr;
	str+="<td class=\"kw_cal_yr\">"+accs;
	str+="href=\"javascript:window.opener.KW_expertCalendar("+aStr1+")\">"+KW_setDel(a[39])+"</a>";
	str+=yDD+accs+"href=\"javascript:window.opener.KW_expertCalendar("+aStr2+")\">";
	str+=KW_setDel(a[40])+"</a></td></tr></table></td></tr><tr>";
	for (var i=(a[25]==1)?13:12;i<19;i++)
		str+="<td class=\"kw_cal_wktitle\">"+a[i]+"</td>";
	if (a[25]==1)
		str+="<td class=\"kw_cal_wktitle\">"+a[12]+"</td>";
	
	str+="</tr>";
	
	for (var i=0;i<dc.tMh.length;i++) 
	{
		if ((i)/7==parseInt((i)/7))
			str+="<tr>";
		
		tdClass=dc.tMh[i].gC();
		temp=dc.tMh[i].dsp.toString(); 
		tdActive=(temp.indexOf("<a")!=-1)?"id='kwon'":"";
		str+="<td class=\""+tdClass+"\" "+tdActive+">"+dc.tMh[i].dsp+"</td>";
		if ((i+1)/7==parseInt((i+1)/7))
			str+="</tr>";
	}
	aStr1=bStr+"'"+btm+"','"+bty+endStr; 
	aStr2=(a[41]=="")?"window.close()":"KW_setCalendar('',7,'"+a[41]+"')"; 
	//str+="<tr><td colspan=4><a href=\"javascript:window.opener.KW_expertCalendar("+aStr1+")\" class=\"kw_cal_a\">"+a[btm]
	//str+=" "+bty+"</a></td><td colspan=3><a href=\"javascript:"+aStr2+"\" class=\"kw_cal_a\">Close</a></td></tr>"; 
	str+=(a[41]==''&&!ns4)?"</table></body></html>":"</table>";
	if (a[41]!='' && !ns4) 
	{
		t=MM_findObj(a[41]);
		v="show";
		if (t.style)
		{
			t=t.style;
			v='visible'
		}
		t.visibility=v;
		t.left=xp+px;
		t.top=yp+px;
		while (str.indexOf('window.opener.')!=-1)
			str=str.replace('window.opener.','');
		p1=str.indexOf(" window.close();");
		while (p1!=-1)
		{ 
			str=str.substring(0,p1)+str.substring(p1+16);
			p1=str.indexOf(" window.close();");
		}
	
		MM_findObj(a[41]).innerHTML=str;
	}
	else
	{
		var nnx=(ns4)?1.25:1;
		var look='width='+(a[35]*nnx);
		look+=',height='+(a[36]*nnx)+',left='+a[33]+',top='+a[34];
		popwin=window.open('','calendar',look); 
		with(popwin.document)
		{
			open();
			write(str);close();
		}
	} 
}
//-->
