/* --- Swazz Javascript Calendar ---
/* --- v 1.0 3rd November 2006
By Oliver Bryant
http://calendar.swazz.org */

/* --- SCOOB addition:  date format selection ---
   --- USA:  MM/DD/YYYY
   --- ISO:  YYYY-MM-DD
   --- EU:   DD/MM/YYYY (the default behavior for this script)
 
 *** Just uncomment either the 'USA' or 'ISO' line below
 *** to override the default European date format
 */
//  var format='EU';   var separator='/';  // DEFAULT FORMAT
var format='USA';  var separator='/';
//  format='ISO';  var separator='-';

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

document.write('<table id="fc" style="z-index:1000000;position:absolute;border-collapse:collapse;background:#FFFFFF;border:1px solid #808080;display:none" cellpadding=2>');
document.write('<tr><td style="cursor:pointer" onclick="csubm()"><img src="../Resources/JScript/calendar/arrowleftmonth.gif"></td><td colspan=5 id="mns" align="center" style="font:bold 13px Arial"></td><td align="right" style="cursor:pointer" onclick="caddm()"><img src="../Resources/JScript/calendar/arrowrightmonth.gif"></td></tr>');
document.write('<tr><td align=center style="background:#F0F0F0;font:12px Arial;border:1px solid #808080;">S</td><td align=center style="background:#F0F0F0;font:12px Arial;border:1px solid #808080;">M</td><td align=center style="background:#F0F0F0;font:12px Arial;border:1px solid #808080;">T</td><td align=center style="background:#F0F0F0;font:12px Arial;border:1px solid #808080;">W</td><td align=center style="background:#F0F0F0;font:12px Arial;border:1px solid #808080;">T</td><td align=center style="background:#F0F0F0;font:12px Arial;border:1px solid #808080;">F</td><td align=center style="background:#F0F0F0;font:12px Arial;border:1px solid #808080;">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:12px">&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 ccm=now.getMonth();
var ccy=now.getFullYear();
var ccd=now.getDay();   // SCOOB: new code
var bax;                // Parameter from lcs call: Before(b), After(a), Both(x)    


var updobj;

function lcsx(txtdat, tfrm) {
    var ielem = document.getElementById(txtdat);
    lcs(ielem, tfrm);
}

function lcs(ielem, tfrm) {
	updobj=ielem;
	getObj('fc').style.left=Left(ielem);
	getObj('fc').style.top=Top(ielem)+ielem.offsetHeight;
	getObj('fc').style.display='';
	bax = tfrm;

	// First check date is valid
	if (ielem.value == '') {
	    var tm = now.getMonth() + 1;
	    var td = now.getDate();
	    var ty = now.getFullYear();
	    if (format == 'USA') {
	        curdt = tm + separator + td + separator + ty;
	    }
	} else {
	    curdt = ielem.value;
	}	
//	curdtarr=curdt.split('/');        // SCOOB old code:
	curdtarr = curdt.split(separator);  // SCOOB: new code
	isdt=true;
	for(var k=0;k<curdtarr.length;k++) {
		if (isNaN(curdtarr[k]))
			isdt=false;
	}
	if (isdt&(curdtarr.length==3)) {
    
// SCOOB: New code if/else if/else
	   if (format=='USA') {      // USA foramt:  MM/DD/YYYY
		ccm=curdtarr[0]-1;
	        ccd=curdtarr[1];
		ccy=curdtarr[2];

	   }
	   else if (format=='ISO') { // ISO format:  YYYY-MM-DD
		ccy=curdtarr[0];
		ccm=curdtarr[1]-1;
	        ccd=curdtarr[2];
	   }
	   else {                    // DEFAULT behavior:  i.e. European format DD/MM/YYYY
	        ccd=curdtarr[0];
		ccm=curdtarr[1]-1;
		ccy=curdtarr[2];
	   }
	   prepcalendar(ccd,ccm,ccy);
	}
	else
	{
	    sccm = ccm;
	    sccy = ccy;
	    prepcalendar(ccd,ccm,ccy);
	}
}

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) {
	evtTgt(EvtObj(e)).style.background='#FFCC66';
}
function cs_out(e) {
	evtTgt(EvtObj(e)).style.background='#DCDCC8';
}
function cs_click(e) {
	updobj.value=calvalarr[evtTgt(EvtObj(e)).id.substring(1,evtTgt(EvtObj(e)).id.length)];
	getObj('fc').style.display='none';
	
}

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

function f_cps(obj) {
	obj.style.background='#DCDCC8';
	obj.style.font='10px Arial';
	obj.style.color='#333333';
	obj.style.textAlign='center';
	obj.style.textDecoration='none';
	obj.style.border='1px solid #333333';
	obj.style.cursor='pointer';
}

function f_cpps(obj) {
	obj.style.background='#DCDCC8';
	obj.style.font='10px Arial';
	obj.style.color='#ABABAB';
	obj.style.textAlign='center';
	obj.style.textDecoration='line-through';
	obj.style.border='1px solid #333333';
	obj.style.cursor='default';
}

function f_hds(obj) {
	obj.style.background='#FFF799';
	obj.style.font='bold 10px Arial';
	obj.style.color='#333333';
	obj.style.textAlign='center';
	obj.style.border='1px solid #333333';
	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 (bax=='b')
        {		
		    if ((d >= (cd -(-1))) && (d<=cd-(-marr[cm]))) {
   			    dip=((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=(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;	
     
			    // SCOOB: New code if/else if/else
			    if (format=='USA') {      // USA foramt:  MM/DD/YYYY
			        calvalarr[d]=''+(cm-(-1))+separator+(d-cd)+separator+cy;
			    }
			    else if (format=='ISO') { // ISO format:  YYYY-MM-DD
			        calvalarr[d]=''+cy+separator+(cm-(-1))+separator+(d-cd);    // SCOOB: new code
			    }
			    else {                    // DEFAULT behavior:  i.e. European format DD/MM/YYYY
			        calvalarr[d]=''+(d-cd)+separator+(cm-(-1))+separator+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';
			    }
		}
        else if (bax=='a')
        {		
		    if ((d >= (cd -(-1))) && (d<=cd-(-marr[cm]))) {
   			    dip=((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=(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;	

			    // SCOOB: New code if/else if/else
			    if (format=='USA') {      // USA foramt:  MM/DD/YYYY
			        calvalarr[d]=''+(cm-(-1))+separator+(d-cd)+separator+cy;
			    }
			    else if (format=='ISO') { // ISO format:  YYYY-MM-DD
			        calvalarr[d]=''+cy+separator+(cm-(-1))+separator+(d-cd);    // SCOOB: new code
			    }
			    else {                    // DEFAULT behavior:  i.e. European format DD/MM/YYYY
			        calvalarr[d]=''+(d-cd)+separator+(cm-(-1))+separator+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';
			    }
		}
        else
        {		
		    if ((d >= (cd -(-1))) && (d<=cd-(-marr[cm]))) {
   			    dip=false;
			    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=(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;	

			    // SCOOB: New code if/else if/else
			    if (format=='USA') {      // USA foramt:  MM/DD/YYYY
			        calvalarr[d]=''+(cm-(-1))+separator+(d-cd)+separator+cy;
			    }
			    else if (format=='ISO') { // ISO format:  YYYY-MM-DD
			        calvalarr[d]=''+cy+separator+(cm-(-1))+separator+(d-cd);    // SCOOB: new code
			    }
			    else {                    // DEFAULT behavior:  i.e. European format DD/MM/YYYY
			        calvalarr[d]=''+(d-cd)+separator+(cm-(-1))+separator+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';
			    }
		}

	}
	
}

//prepcalendar('',ccm,ccy);
//getObj('fc'+cc).style.visibility='hidden';

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

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

function cdayf(tfrm) {
    if (tfrm =='b') // Allow Before
    {
        if ((ccy<sccy)|((ccy==sccy)&&(ccm<=sccm)))
	        return;
        else {
	        ccy=sccy;
	        ccm=sccm;
	        cfd=scfd;
	        }
	}
    else if (tfrm=='a') // After
    {
        if ((ccy>sccy)|((ccy==sccy)&&(ccm>=sccm)))
	        return;
        else {
	        ccy=sccy;
	        ccm=sccm;
	        cfd=scfd;
	        }
    }
    else if (tfrm == 'x') // Both
    {
        return
    }
    
}