/* --- Swazz Javascript Calendar ---
/* --- v 1.0 3rd November 2006
By Oliver Bryant
http://calendar.swazz.org 
Modified by Alan Blount - alan[a7]zeroasterisk[d07]com */
//var dateformat = 'ymd'; // year-month-date
var dateformat = 'mdy'; // month-date-year
//var dateformat = 'dmy'; // date-month-year (default)
var datesplitter = '/'; // in between date, month, year... typically '/' or '-'
var prefix0 = false; // months and dates less than 10, get prefixed w/ a '0'
var disablepast = true; // disable date selection in the past
var previousBGColor = '';
var formElementIndex = 999;

document.write('<table id="fc" style="z-index:100; position:absolute; border-collapse:collapse; background: white; border:1px solid black; display:none" cellpadding="2" cellspacing="1">');
document.write('<tr><td style="cursor:pointer" onclick="csubm()"><img src="/images/arrow_left_month.gif"></td><td colspan=5 id="mns" align="center" style="font-weight: bold; font-size: 10pt;"></td><td align="right" style="cursor:pointer" onclick="caddm()"><img src="/images/arrow_right_month.gif"></td></tr>');
document.write('<tr><td align=center class="sortingTableHeader">S</td><td align=center class="sortingTableHeader">M</td><td align=center class="sortingTableHeader">T</td><td align=center class="sortingTableHeader">W</td><td align=center class="sortingTableHeader">T</td><td align=center class="sortingTableHeader">F</td><td align=center class="sortingTableHeader">S</td></tr>');

for(var kk=1;kk<=6;kk++) {
	document.write('<tr>');
	for(var tt=1;tt<=7;tt++) {
		num=7 * (kk-1) - (-tt);
		document.write('<td id="v' + num + '" style="width:18px; height:18px;">&nbsp;</td>');
	}
	document.write('</tr>');
}
document.write('</table>');

document.all?document.attachEvent('onclick',checkClick):document.addEventListener('click',checkClick,false);

// Calendar script
var now = new Date;
var sccm=now.getMonth();
var sccy=now.getFullYear();
var scfd=now.getDate();
var ccm=sccm;
var ccy=sccy;
var cfd=scfd;

var updobj;


var mn=new Array('JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC');
var mnn=new Array('31','28','31','30','31','30','31','31','30','31','30','31');
var mnl=new Array('31','29','31','30','31','30','31','31','30','31','30','31');
var calvalarr=new Array(42);
prepcalendar('',ccm,ccy);
//getObj('fc'+cc).style.visibility='hidden';

function getObj(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 checkClick(e) {
	e?evt=e:evt=event;
	CSE=evt.target?evt.target:evt.srcElement;
	if (getObj('fc'))
		if (!isChild(CSE,getObj('fc'))) {
			if (hackNeeded()) {
				for (var i = 0; i < updobj.form.elements.length; i++) {
					if (updobj.form.elements[i].type == 'select-one') {
						updobj.form.elements[i].style.visibility = "visible";
					}
				}
				formElementIndex = 999;
			}
			getObj('fc').style.display='none';
		}
}

function isChild(s,d) {
	while(s) {
		if (s==d) 
			return true;
		s=s.parentNode;
	}
	return false;
}

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;
}

// creed - added this function
function getPosition(pObject) 
{
	var x = y = 0;
	if (pObject.offsetParent) 
	{
		x = pObject.offsetLeft + 1;
		y = pObject.offsetTop
		while (pObject = pObject.offsetParent) 
		{
			x += pObject.offsetLeft
			y += pObject.offsetTop
		}
	}
	tArray = new Array();
	tArray['x'] = x;
	tArray['y'] = y;
	return tArray;
}

function lcs(ielem) {
	updobj=ielem;
	
	if (hackNeeded()) {
		for (var i = 0; i < updobj.form.elements.length; i++) {
			if (updobj.form.elements[i].type == 'select-one' && i > formElementIndex) {
				updobj.form.elements[i].style.visibility = "hidden";
			}
			if (updobj.form.elements[i].name == updobj.name) {
				formElementIndex = i;
			}
		}
	}

//	getObj('fc').style.left=Left(ielem);
//	getObj('fc').style.top=Top(ielem)+ielem.offsetHeight;
	pos = getPosition(ielem);
	getObj('fc').style.left = pos['x']+'px';
	getObj('fc').style.top = (pos['y']+20)+'px';
	getObj('fc').style.display='';
	
	// First check date is valid
	curdt=ielem.value;
	curdtarr=curdt.replace(/\ /gi,'').replace(/[^0-9]/gi,'/').split('/');
	isdt=true;
	for(var k=0;k<curdtarr.length;k++) {
		if (isNaN(parseInt(curdtarr[k])))
			isdt=false;
	}
	if (isdt&(curdtarr.length==3)) {
		if (dateformat=='ymd') {
			ccy=parseInt(curdtarr[0]);
			ccm=parseInt(curdtarr[1])-1;
			ccd=parseInt(curdtarr[2]);
		} else if (dateformat=='mdy') {
			ccy=parseInt(curdtarr[2]);
			ccm=parseInt(curdtarr[0])-1;
			ccd=parseInt(curdtarr[1]);
		} else {
			ccy=parseInt(curdtarr[2]);
			ccm=parseInt(curdtarr[1])-1;
			ccd=parseInt(curdtarr[0]);
		}
		prepcalendar(ccd,ccm,ccy);
	}

//	alert(updobj.form.name);
}

function evtTgt(e)
{
	var el;
	if(e.target)el=e.target;
	else if(e.srcElement)el=e.srcElement;
	if(el.nodeType==3)el=el.parentNode; // defeat Safari bug
	return el;
}
function EvtObj(e){if(!e)e=window.event;return e;}
function cs_over(e) {
	previousBGColor = evtTgt(EvtObj(e)).style.background;
	evtTgt(EvtObj(e)).style.background = '#C5D6E6';
}
function cs_out(e) {
	evtTgt(EvtObj(e)).style.background = previousBGColor;
//	evtTgt(EvtObj(e)).style.background='#FFF0F5';
}
function cs_click(e) {
	if (hackNeeded()) {
		for (var i = 0; i < updobj.form.elements.length; i++) {
			if (updobj.form.elements[i].type == 'select-one') {
				updobj.form.elements[i].style.visibility = "visible";
			}
		}
		formElementIndex = 999;
	}
	updobj.value=calvalarr[evtTgt(EvtObj(e)).id.substring(1,evtTgt(EvtObj(e)).id.length)];
	getObj('fc').style.display='none';
}

// styles for dates in the future
function f_cps(obj) {
	obj.style.background = '#EEEEEE';
	obj.style.font = '8pt Arial';
	obj.style.color = 'black';
	obj.style.textAlign = 'center';
	obj.style.border = '1px solid black';
	obj.style.cursor = 'pointer';
}

// styles for dates in the future
function f_cpps(obj) {
	obj.style.background = '#DDDDDD';
	obj.style.font = '8pt Arial';
	obj.style.color = 'black';
	obj.style.textAlign = 'center';
	obj.style.border = '1px solid black';
	obj.style.cursor = 'pointer';
}

// currently selected date
function f_hds(obj) {
	obj.style.background = '#C5D6E6';
	obj.style.font = '8pt Arial';
	obj.style.color = 'black';
	obj.style.textAlign = 'center';
	obj.style.border = '1px solid black';
	obj.style.cursor = 'pointer';
}

// day selected
function prepcalendar(hd,cm,cy) {
	now=new Date();
	sd=now.getDate();
	td=new Date();
	td.setDate(1);
	td.setFullYear(cy);
	td.setMonth(cm);
	cd=td.getDay();
	getObj('mns').innerHTML=mn[cm]+ ' ' + cy;
	marr=((cy%4)==0)?mnl:mnn;
	for(var d=1;d<=42;d++) {
		f_cps(getObj('v'+parseInt(d)));
		if ((d >= (cd -(-1))) && (d<=cd-(-marr[cm]))) {
			dip=(disablepast&&(d-cd < sd)&&(cm==sccm)&&(cy==sccy));
			htd=((hd!='')&&(d-cd==hd));
			if (dip)
				f_cpps(getObj('v'+parseInt(d)));
			else if (htd)
				f_hds(getObj('v'+parseInt(d)));
			else
				f_cps(getObj('v'+parseInt(d)));

			getObj('v'+parseInt(d)).onmouseover = cs_over;
			getObj('v'+parseInt(d)).onmouseout = cs_out;
			getObj('v'+parseInt(d)).onclick = cs_click;
//			getObj('v'+parseInt(d)).onmouseover=(dip)?null:cs_over;
//			getObj('v'+parseInt(d)).onmouseout=(dip)?null:cs_out;
//			getObj('v'+parseInt(d)).onclick=(dip)?null:cs_click;
			
			getObj('v'+parseInt(d)).innerHTML=d-cd;
			
			cmx = parseInt(cm)+1;
			if (cmx < 10 && prefix0==true) {
				cmx = '0'+cmx;
			}
			dx = d-cd;
			if (dx < 10 && prefix0==true) {
				dx = '0'+dx;
			}
			if (dateformat=='ymd') {
				calvalarr[d]=''+cy+datesplitter+cmx+datesplitter+dx;
			} else if (dateformat=='mdy') {
				calvalarr[d]=''+cmx+datesplitter+dx+datesplitter+cy;
			} else {
				calvalarr[d]=''+dx+datesplitter+cmx+datesplitter+cy;
			}
		}
		else {
			getObj('v'+d).innerHTML='&nbsp;';
			getObj('v'+parseInt(d)).onmouseover=null;
			getObj('v'+parseInt(d)).onmouseout=null;
			getObj('v'+parseInt(d)).style.cursor='default';
		}
	}
}

function caddm() {
	marr=((ccy%4)==0)?mnl:mnn;
	
	ccm+=1;
	if (ccm>=12) {
		ccm=0;
		ccy++;
	}
	cdayf();
	prepcalendar('',ccm,ccy);
}

function csubm() {
	marr=((ccy%4)==0)?mnl:mnn;
	
	ccm-=1;
	if (ccm<0) {
		ccm=11;
		ccy--;
	}
	cdayf();
	prepcalendar('',ccm,ccy);
}

function cdayf() {
//	if (!disablepast||((ccy>sccy)||((ccy==sccy)&&(ccm>=sccm))))
		return;
//	else {
//		ccy=sccy;
//		ccm=sccm;
//		cfd=scfd;
//	}
}

function hackNeeded() {
	if (window.XMLHttpRequest) {
		// IE 7, mozilla, safari, opera 9
		return 0;
	} else {
		// IE6, older browsers
		return 1;
	}
}