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

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

// PMJ Here are days of week
	
document.write('<table id="fc" style="position:absolute;border-collapse:collapse;background:#FFFFFF;border:1px solid #ABABAB;display:none" cellpadding=2>');
document.write('<tr><td style="cursor:pointer" onclick="csubm()"><img src="arrowleftmonth.gif"></td><td colspan=5 id="mns" align="center" style="font:bold 13px Arial; cursor:pointer" onclick="csetm()"></td><td align="right" style="cursor:pointer" onclick="caddm()"><img src="arrowrightmonth.gif"></td></tr>');
// document.write('<tr><td align=center style="background:#ABABAB;font:12px Arial">S</td><td align=center style="background:#ABABAB;font:12px Arial">M</td><td align=center style="background:#ABABAB;font:12px Arial">T</td><td align=center style="background:#ABABAB;font:12px Arial">W</td><td align=center style="background:#ABABAB;font:12px Arial">T</td><td align=center style="background:#ABABAB;font:12px Arial">F</td><td align=center style="background:#ABABAB;font:12px Arial">S</td></tr>');
document.write('<tr>');
for(var dow=0;dow<7;dow++)
  document.write('<td align=center style="background:#ABABAB;font:12px Arial">' + dn[dow] + '</td>');
document.write('</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 ccm=now.getMonth();
var ccy=now.getFullYear();

// PMJ

function LocateCalendar(obj, e){
var posx=0,posy=0;
try {
  if(e==null) e=window.event;
  if(e.pageX || e.pageY){
    posx=e.pageX; posy=e.pageY;
    }
  else if(e.clientX || e.clientY){
    if(document.documentElement.scrollTop){
      posx=e.clientX+document.documentElement.scrollLeft;
      posy=e.clientY+document.documentElement.scrollTop;
      }
    else{
      posx=e.clientX+document.body.scrollLeft;
      posy=e.clientY+document.body.scrollTop;
      }
    }
}
catch (e) {}
debug("LocateCalendar posx, posy: " + posx + ", " + posy);
obj.style.top=(posy+15)+"px";
obj.style.left=(posx+0)+"px";
}

var updobj;
function lcs(ielem, e) {
  debug("lcs1");
	updobj=ielem;
  var cal = getObj('fc');
  cal.style.zIndex = 100000; // PMJ - top of the rest
//	cal.style.left=Left(ielem);
//	cal.style.top=Top(ielem)+ielem.offsetHeight;
  LocateCalendar(cal, e);
	cal.style.display='';
	
	// First check date is valid
	curdt=ielem.innerHTML; // .value; // PMJ
  debug("lcs2: " + curdt);
	curdtarr=curdt.split('-'); // pmj
	isdt=true;
  debug("lcs3");
	for(var k=0;k<curdtarr.length;k++) {
		if (isNaN(curdtarr[k]))
			isdt=false;
	}
  debug("lcs4");
	if (isdt&(curdtarr.length==3)) {
    ccd=curdtarr[2];
		ccm=curdtarr[1]-1;
		ccy=curdtarr[0];
    debug("lcs4a");
		prepcalendar(ccd,ccm,ccy);
	}
  debug("lcs5");
}

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

// PMJ here are month name abbreviations

// 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='#C4D3EA';
	obj.style.font='10px Arial';
	obj.style.color='#333333';
	obj.style.textAlign='center';
	obj.style.textDecoration='none';
	obj.style.border='1px solid #6487AE';
	obj.style.cursor='pointer';
}

function f_cpps(obj) {
	obj.style.background='#C4D3EA';
	obj.style.font='10px Arial';
	obj.style.color='#ABABAB';
	obj.style.textAlign='center';
	obj.style.textDecoration='line-through';
	obj.style.border='1px solid #6487AE';
	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 #6487AE';
	obj.style.cursor='pointer';
}

// PMJ

function twoDig(i) {
  if (i<10) 
    {i="0" + i}
  return i
}

// PMJ

function getDateStr(objId, beginning) {
  debug("getDateStr objId: " + objId);
  var obj, str, dateStr;
  dateStr = '';
  if (obj = document.getElementById(objId))
    if (str = obj.innerHTML) {
      debug("getDateStr 2: " + str);
      var d=str.split('-');
      var t=new Date();
      for (var i = 0; i < 3; i++)
        debug("getDateStr part: " + d[i] + ", " + parseInt(d[i]));
      t.setDate(1 * d[2]);
      t.setFullYear(1 * d[0]);
      t.setMonth(1 * d[1]-1);
      t.setHours(10);
      // trick - for end date, we will go forward one day as we don't pass hours,minutes,seconds, then do < endDate+1
      if (!beginning) {
        var oneDay = 24 * 60 * 60 * 1000;
        t.setTime(t.getTime() + oneDay);
      }
      var temp = (t.getMonth()+1) + "/" + t.getDate() + "/" + t.getFullYear(); // 5/28/2008
      debug("getDateStr 3: " + temp);
      dateStr = temp;
    }
  return dateStr;
}

// day selected
function prepcalendar(hd,cm,cy) {
try {  debug("prepcalendar"); } catch (e) {}
	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;
try {  debug("prepcalendar2"); } catch (e) {}
	for(var d=1;d<=42;d++) {
		f_cps(getObj('v'+parseInt(d)));
		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;	
      // calvalarr[d]=''+(d-cd)+'/'+(cm-(-1))+'/'+cy;
      calvalarr[d]=''+cy+'-'+twoDig(cm+1)+'-'+twoDig(d-cd); // pmj
		}
		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';
			}
	}
try {  debug("prepcalendar3"); } catch (e) {}
}

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();
	prepcalendar('',ccm,ccy);
}

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

// PMJ - set the month by clicking on it's title

function csetm() {
  updobj.innerHTML=''+ccy+'-'+twoDig(ccm+1)+'-'+twoDig(1)
  getObj('fc').style.display='none';
}

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