//	written	by Tan Ling	Wee	on 2 Dec 2001
//	last updated 10 Apr 2002
//	email :	fuushikaden@yahoo.com
//  Modified (very little) by Sai on 01/02/05
//  email :	sai_freelance@yahoo.com

var startAt = 0 // 0 - sunday ; 1 - monday
var showWeekNumber = 1	// 0 - don't show; 1 - show
var showToday = 1		// 0 - don't show; 1 - show
var imgDir = "System/Types/Form/Calendar/"	// directory for images ... e.g. var imgDir="/img/"

var todayStringEN = "Today is"
var todayStringNL = "Vandaag is"
var weekString = "wk"

var calendarPopup, monthSelector, yearSelector, monthSelected, yearSelected, dateSelected, oldMonthSelected, oldYearSelected, oldDateSelected, monthConstructed, yearConstructed, intervalID1, intervalID2, timeoutID1, timeoutID2, ctlToPlaceValue, dateFormat, nStartingYear;

var calendarConstructed=false;
var ie=document.all;
var dom=document.getElementById;

var ns4=document.layers;
var today =	new Date();
var dateNow = today.getDate();
var monthNow = today.getMonth();
var yearNow = today.getFullYear();

var imgsrc = new Array("drop1.gif","drop2.gif","left1.gif","left2.gif","right1.gif","right2.gif");
var img = new Array();
var clickedInsideCalendar = false;

if (dom)
{
	for (var i=0; i<imgsrc.length; i++ )
	{
		img[i] = new Image();
		img[i].src= img + imgsrc[i];
	}
	
	document.write ("<div onclick='clickedInsideCalendar=true' id='calendar'	class='div-style'><table width="+((showWeekNumber==1)?250:220)+" class='table-style'><tr class='title-background-style' ><td><table width='"+((showWeekNumber==1)?248:218)+"'><tr><td class='title-style'><B><span id='caption'></span></B></td><td align=right><a href='javascript:hideCalendar();' class='AlwaysOpenInSelf'><IMG SRC='"+imgDir+"close.gif' WIDTH='12' HEIGHT='11' BORDER='0' ALT='Close the Calendar'></a></td></tr></table></td></tr><tr><td class='body-style'><span id='calendarContent'></span></td></tr>");
		
	if (showToday==1)
		document.write ("<tr class='today-style'><td><span id='lblToday'></span></td></tr>");
		
	document.write ("</table></div><div id='selectMonth' class='div-style'></div><div id='selectYear' class='div-style'></div>");
}

var monthNameEN = new	Array("January","February","March","April","May","June","July","August","September","October","November","December");
var monthNameNL = new	Array("januari","februari","maart","april","mei","juni","juli","augustus","september","oktober","november","december");
var monthNameShortEN = new	Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
var monthNameShortNL = new	Array("jan","feb","mrt","apr","mei","jun","jul","aug","sep","okt","nov","dec");

var dayNameEN = new Array	("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
var dayNameNL = new Array	("zo","ma","di","wo","do","vr","za");


// Default is NL
var monthName = monthNameNL;
var dayName = dayNameNL;
var todayString = todayStringNL; 
var monthNameShort = monthNameShortNL;

// Set monday as first
if ( startAt==1 )
	dayName.push( dayName.shift() );

/* hides <select> and <applet> objects (for IE only) */
function hideElement( elmID, overDiv )
{
   if( ie )
   {
      var obj;
      for( i = 0; i < document.all.tags( elmID ).length; i++ )
      {
         obj = document.all.tags( elmID )[i];
         if( !obj || !obj.offsetParent )
            continue;
         
         // Find the element's offsetTop and offsetLeft relative to the BODY tag.
         objLeft   = obj.offsetLeft;
         objTop    = obj.offsetTop;
         objParent = obj.offsetParent;
         
         while( objParent.tagName.toUpperCase() != "BODY" )
         {
            objLeft  += objParent.offsetLeft;
            objTop   += objParent.offsetTop;
            objParent = objParent.offsetParent;
         }
   
         objHeight = obj.offsetHeight;
         objWidth = obj.offsetWidth;

         if(( overDiv.offsetLeft + overDiv.offsetWidth ) <= objLeft );
         else if(( overDiv.offsetTop + overDiv.offsetHeight ) <= objTop );
         else if( overDiv.offsetTop >= ( objTop + objHeight ));
         else if( overDiv.offsetLeft >= ( objLeft + objWidth ));
         else
            obj.style.visibility = "hidden";
      }
   }
}
   
/*
* unhides <select> and <applet> objects (for IE only)
*/
function showElement( elmID )
{
   if( ie )
   {  
      var obj;
      for( i = 0; i < document.all.tags( elmID ).length; i++ )
      {
         obj = document.all.tags( elmID )[i];
         
         if( !obj || !obj.offsetParent )
            continue;
         
         obj.style.visibility = "";
      }
   }
}

function HolidayRec (d, m, y, desc)
{
	this.d = d;
	this.m = m;
	this.y = y;
	this.desc = desc;
}

var HolidaysCounter = 0;
var Holidays = new Array();

function addHoliday (d, m, y, desc)
{
	Holidays[HolidaysCounter++] = new HolidayRec ( d, m, y, desc );
}

function swapImage(srcImg, destImg){
	if (ie)
	   document.getElementById(srcImg).setAttribute("src",imgDir + destImg);
}

function init()
{
	if ( !ns4 )
	{		
		calendarPopup=(dom)?document.getElementById("calendar").style : ie? document.all.calendar : document.calendar;
		hideCalendar();

		monthSelector=(dom)?document.getElementById("selectMonth").style : ie? document.all.selectMonth	: document.selectMonth;

		yearSelector=(dom)?document.getElementById("selectYear").style : ie? document.all.selectYear : document.selectYear;

		monthConstructed=false;
		yearConstructed=false;

		if (showToday==1)
			document.getElementById("lblToday").innerHTML =	todayString + " <a class='today-style AlwaysOpenInSelf' href='javascript:monthSelected=monthNow;yearSelected=yearNow;constructCalendar();'>"+dayName[(today.getDay()-startAt==-1)?6:(today.getDay()-startAt)]+", " + dateNow + " " + monthName[monthNow].substring(0,3)	+ "	" +	yearNow	+ "</a>";
		
		sHTML1= "<span id='spanLeft'  class='title-control-normal-style' onmouseover='swapImage(\"changeLeft\",\"left2.gif\");this.className=\"title-control-select-style\";' onclick='javascript:decMonth()' onmouseout='clearInterval(intervalID1);swapImage(\"changeLeft\",\"left1.gif\");this.className=\"title-control-normal-style\";' onmousedown='clearTimeout(timeoutID1);timeoutID1=setTimeout(\"StartDecMonth()\",500)'	onmouseup='clearTimeout(timeoutID1);clearInterval(intervalID1)'>&nbsp;<IMG id='changeLeft' SRC='"+imgDir+"left1.gif' width=11 height=11 BORDER=0>&nbsp;</span>&nbsp;";
		sHTML1+="<span id='spanRight' class='title-control-normal-style' onmouseover='swapImage(\"changeRight\",\"right2.gif\");this.className=\"title-control-select-style\";' onmouseout='clearInterval(intervalID1);swapImage(\"changeRight\",\"right1.gif\");this.className=\"title-control-normal-style\";' onclick='incMonth()' onmousedown='clearTimeout(timeoutID1);timeoutID1=setTimeout(\"StartIncMonth()\",500)'	onmouseup='clearTimeout(timeoutID1);clearInterval(intervalID1)'>&nbsp;<IMG id='changeRight' SRC='"+imgDir+"right1.gif' width=11 height=11 BORDER=0>&nbsp;</span>&nbsp";
		sHTML1+="<span id='spanMonth' class='title-control-normal-style' onmouseover='swapImage(\"changeMonth\",\"drop2.gif\");this.className=\"title-control-select-style\";' onmouseout='swapImage(\"changeMonth\",\"drop1.gif\");this.className=\"title-control-normal-style\";' onclick='popUpMonth()'></span>&nbsp;";
		sHTML1+="<span id='spanYear'  class='title-control-normal-style' onmouseover='swapImage(\"changeYear\",\"drop2.gif\");this.className=\"title-control-select-style\";'	onmouseout='swapImage(\"changeYear\",\"drop1.gif\");this.className=\"title-control-normal-style\";'	onclick='popUpYear()'></span>&nbsp;";
		
		document.getElementById("caption").innerHTML  =	sHTML1;

		calendarConstructed=true;
	}
}

function hideCalendar()
{
	if(calendarPopup){
		calendarPopup.visibility="hidden";
		if ( monthSelector != null)
		   monthSelector.visibility="hidden";
		if ( yearSelector != null )
		   yearSelector.visibility="hidden";

		showElement( 'SELECT' );
		showElement( 'APPLET' );
	}
}

function closeCalendar() 
{
	hideCalendar();
	ctlToPlaceValue.value =	ConstructDate( dateSelected,monthSelected,yearSelected, dateFormat );
	ctlToPlaceValue.internalValue = new Date( yearSelected, monthSelected, dateSelected );
}

/*** Month Pulldown	***/

function StartDecMonth()
{
	intervalID1 = setInterval("decMonth()",80);
}

function StartIncMonth()
{
	intervalID1 = setInterval("incMonth()",80);
}

function incMonth()
{
	monthSelected++;
	if ( monthSelected > 11 )
	{
		monthSelected=0;
		yearSelected++;
	}
	constructCalendar();
}

function decMonth()
{
	monthSelected--;
	if ( monthSelected < 0 )
	{
		monthSelected=11;
		yearSelected--;
	}
	constructCalendar();
}

function constructMonth()
{
	popDownYear();
	if ( !monthConstructed )
	{
		sHTML = "";
		for ( i=0; i<12; i++ )
		{
			sName =	monthName[i];
			if (i==monthSelected)
				sName =	"<B>" +	sName +	"</B>";
			
			sHTML += "<tr><td id='m" + i + "' onmouseover='this.className=\"dropdown-select-style\"' onmouseout='this.className=\"dropdown-normal-style\"' onclick='clickedInsideCalendar=true;monthConstructed=false;monthSelected=" + i + ";constructCalendar();popDownMonth();event.cancelBubble=true;'>&nbsp;" + sName + "&nbsp;</td></tr>";
		}

		document.getElementById("selectMonth").innerHTML = "<table width=70	class='dropdown-style' cellspacing=0 onmouseover='clearTimeout(timeoutID1)'	onmouseout='clearTimeout(timeoutID1);timeoutID1=setTimeout(\"popDownMonth()\",100);event.cancelBubble=true'>" + sHTML + "</table>";
		monthConstructed=true;
	}
}

function popUpMonth()
{
	constructMonth();
	monthSelector.visibility = (dom||ie)? "visible"	: "show";
	monthSelector.left = parseInt(calendarPopup.left) + 50;
	monthSelector.top =	parseInt(calendarPopup.top) + 26;
}

function popDownMonth()
{
	monthSelector.visibility= "hidden";
}

/*** Year Pulldown ***/

function incYear()
{
   var newYear;
	for ( i=0; i<7; i++ )
	{
		newYear = (i+nStartingYear)+1;
		if ( newYear==yearSelected )
			txtYear = "&nbsp;<B>"	+ newYear +	"</B>&nbsp;";
		else
			txtYear = "&nbsp;" + newYear + "&nbsp;";
			
		document.getElementById( "y"+i ).innerHTML = txtYear;
	}
	nStartingYear++;
	clickedInsideCalendar=true;
}

function decYear() 
{
   var newYear;
	for	(i=0; i<7; i++)
	{
		newYear = (i+nStartingYear)-1;
		if ( newYear==yearSelected )
			txtYear = "&nbsp;<B>"	+ newYear +	"</B>&nbsp;";
		else
			txtYear = "&nbsp;" + newYear + "&nbsp;";
		document.getElementById("y"+i).innerHTML = txtYear;
	}
	nStartingYear--;
	clickedInsideCalendar=true;
}

function selectYear( nYear )
{
	yearSelected=parseInt(nYear+nStartingYear);
	yearConstructed=false;
	constructCalendar();
	popDownYear();
}

function constructYear()
{
	popDownMonth();
	var sHTML =	"";
	if ( !yearConstructed )
	{
		var sHTML = "<tr><td align='center' onmouseover='this.className=\"dropdown-select-style\"' onmouseout='clearInterval(intervalID1);this.className=\"dropdown-normal-style\"' onmousedown='clearInterval(intervalID1);intervalID1=setInterval(\"decYear()\",30)' onmouseup='clearInterval(intervalID1)'>-</td></tr>";
		var j = 0;
		nStartingYear = yearSelected - 3;
		var sName;
		for ( i=(yearSelected-3); i<=(yearSelected+3); i++ )
		{
			sName = i;
			if ( i == yearSelected )
				sName =	"<B>" +	sName +	"</B>";

			sHTML += "<tr><td id='y" + j + "' onmouseover='this.className=\"dropdown-select-style\"' onmouseout='this.className=\"dropdown-normal-style\"' onclick='clickedInsideCalendar=true;selectYear("+j+");event.cancelBubble=true'>&nbsp;" + sName + "&nbsp;</td></tr>"
			j++;
		}

		sHTML += "<tr><td align='center' onmouseover='this.className=\"dropdown-select-style\"' onmouseout='clearInterval(intervalID2);this.className=\"dropdown-normal-style\"' onmousedown='clearInterval(intervalID2);intervalID2=setInterval(\"incYear()\",30)'	onmouseup='clearInterval(intervalID2)'>+</td></tr>";
		document.getElementById("selectYear").innerHTML	= "<table width=44 class='dropdown-style' onmouseover='clearTimeout(timeoutID2)' onmouseout='clearTimeout(timeoutID2);timeoutID2=setTimeout(\"popDownYear()\",100)' cellspacing=0>"	+ sHTML	+ "</table>";
		yearConstructed = true;
	}
}

function popDownYear()
{
	clearInterval(intervalID1);
	clearTimeout(timeoutID1);
	clearInterval(intervalID2);
	clearTimeout(timeoutID2);
	yearSelector.visibility= "hidden";
}

function popUpYear()
{
	var leftOffset;

	constructYear();
	yearSelector.visibility	= (dom||ie)? "visible" : "show";
	leftOffset = parseInt(calendarPopup.left) + document.getElementById("spanYear").offsetLeft;
	if (ie)
		leftOffset += 6;
	
	yearSelector.left =	leftOffset;
	yearSelector.top = parseInt(calendarPopup.top) +	26;
}

/*** calendar ***/

function WeekNbr(today)
{
	var Year = today.getFullYear();
	var Month = today.getMonth();
	var Day = today.getDate();
	var now = Date.UTC(Year,Month,Day+1,0,0,0);
	var Firstday = new Date();
	Firstday.setYear(Year);
	Firstday.setMonth(0);
	Firstday.setDate(1);
	var then = Date.UTC(Year,0,1,0,0,0);
	var Compensation = Firstday.getDay();
	if (Compensation > 3) Compensation -= 4;
	else Compensation += 3;
	var NumberOfWeek =  Math.round((((now-then)/86400000)+Compensation)/7);
	return NumberOfWeek;
}

function constructCalendar()
{
	var dateMessage;
	var startDate =	new Date( yearSelected,monthSelected,1 );
	var endDate	= new Date( yearSelected,monthSelected+1,1 );
	endDate	= new Date(endDate	- (24*60*60*1000));

	var numDaysInMonth = endDate.getDate();

	var datePointer	= 0;
	var dayPointer = startDate.getDay() - startAt;
	
	if (dayPointer<0)
		dayPointer = 6;

	var sHTML = "<table	border=0 class='body-style'><tr>";

	if (showWeekNumber==1)
		sHTML += "<td width=27 align=right><b>" + weekString + "</b>&nbsp;</td><td width=1 rowspan=7 class='weeknumber-div-style'><img src='"+imgDir+"divider.gif' width=1></td>";

	for (i=0; i<7; i++)
	{
		sHTML += "<td width='27' align='right'><B>"+ dayName[i]+"</B></td>";
	}
	sHTML +="</tr><tr>";
	
	if (showWeekNumber==1)
		sHTML += "<td align=right>" + WeekNbr(startDate) + "&nbsp;</td>";

	for ( var i=1; i<=dayPointer;i++ )
	{
		sHTML += "<td>&nbsp;</td>";
	}

	for ( datePointer=1; datePointer<=numDaysInMonth; datePointer++ )
	{
		dayPointer++;
		sHTML += "<td align=right>";

		var sStyle="normal-day-style"; //regular day

		if ((datePointer==dateNow)&&(monthSelected==monthNow)&&(yearSelected==yearNow)) //today
		   sStyle = "current-day-style";
		else if	(dayPointer % 7 == (startAt * -1) +1) //end-of-the-week day
		   sStyle = "end-of-weekday-style";

		//selected day
		if ( (datePointer==oldDateSelected) && (monthSelected==oldMonthSelected)	&& ( yearSelected==oldYearSelected ) )
		   sStyle += " selected-day-style";

		sHTML += "<a class='"+sStyle+" AlwaysOpenInSelf' href='javascript:dateSelected="+datePointer+";closeCalendar();'>" + datePointer + "</a>"

		if ((dayPointer+startAt) % 7 == startAt)
		{ 
			sHTML += "</tr><tr>";
			if ((showWeekNumber==1)&&(datePointer<numDaysInMonth))
				sHTML += "<td align=right>" + (WeekNbr(new Date(yearSelected,monthSelected,datePointer+1))) + "&nbsp;</td>";
		}
	}

	document.getElementById("calendarContent").innerHTML   = sHTML;
	document.getElementById("spanMonth").innerHTML = "&nbsp;" +	monthName[monthSelected] + "&nbsp;<IMG id='changeMonth' SRC='"+imgDir+"drop1.gif' WIDTH='11' HEIGHT='11' BORDER=0>";
	document.getElementById("spanYear").innerHTML =	"&nbsp;" + yearSelected	+ "&nbsp;<IMG id='changeYear' SRC='"+imgDir+"drop1.gif' WIDTH='11' HEIGHT='11' BORDER=0>";
}

function popUpCalendar( buttonElement, inputElement, format )
{	
	if (calendarConstructed)
	{
		if ( calendarPopup.visibility == "hidden" )
		{
			ctlToPlaceValue = inputElement;
			dateFormat = format;
         
         // Get date from input element
         var date;
         if ( inputElement.internalValue != null )
            date = inputElement.internalValue;
         else
            date = ParseDate( inputElement.value );
         
         if ( date != null )
         {
            dateSelected = date.getDate();
   			monthSelected = date.getMonth();
				yearSelected = date.getFullYear();
			}
			else
			{
				dateSelected = dateNow;
				monthSelected = monthNow;
				yearSelected = yearNow;
			}
         
         // Set old selected date
			oldDateSelected=dateSelected;
			oldMonthSelected=monthSelected;
			oldYearSelected=yearSelected;

			var aTag = buttonElement;
			var leftpos=0;
		   var toppos=0;
         do 
         {
				aTag = aTag.offsetParent;
				leftpos	+= aTag.offsetLeft;
				toppos += aTag.offsetTop;
			} while( aTag.tagName!="BODY" );

			constructCalendar (1, monthSelected, yearSelected);
			calendarPopup.visibility = (dom||ie)? "visible" : "show";

         // Check whether button is close to the right edge
         if ( document.body.clientWidth < buttonElement.offsetLeft + leftpos + 270 )
            calendarPopup.left = buttonElement.offsetLeft + leftpos - buttonElement.offsetWidth - 270;
         else
	   		calendarPopup.left = buttonElement.offsetLeft + leftpos + buttonElement.offsetWidth;
	   	
	   	// Check whether button is near bottom edge
	   	if ( document.body.clientHeight + document.body.scrollTop < buttonElement.offsetTop + toppos + 220 )
	   	   calendarPopup.top = document.body.clientHeight - 220 + document.body.scrollTop;
   		else
				calendarPopup.top = buttonElement.offsetTop + toppos + 2;
				
			hideElement( 'SELECT', document.getElementById("calendar") );
			hideElement( 'APPLET', document.getElementById("calendar") );			

			clickedInsideCalendar = true;
		}
	}
	else
	{
		init();
		popUpCalendar(buttonElement, inputElement, format );
	}
}

// Override document keypress and onclick
document._xcalOnKeyPress = document.onkeypress;
document.onkeypress = function hidecal1 ()
{ 
	if (event.keyCode==27) 
	{
		hideCalendar();
	}
	if ( document._xcalOnKeyPress )
	   document._xcalOnKeyPress();
}

document._xcalOnClick = document.onclick;
document.onclick = function hidecal2 ()
{ 		
   if (!clickedInsideCalendar)
	{
		hideCalendar();
	}
	clickedInsideCalendar = false;
	if ( document._xcalOnClick )
	   document._xcalOnClick();
}


function ParseDate( dateString )
{
   var now = new Date();
   var day = dateNow;
   var month = monthNow;
   var year = yearNow;

   var dateSeparator = '-';      
   var datePieces = dateString.split( dateSeparator );
   if ( datePieces.length < 2 )
   {
      dateSeparator = '/';
      datePieces = dateString.split( dateSeparator );
      if ( datePieces.length < 2 )
      {
         dateSeparator = '.';
         datePieces = dateString.split( dateSeparator );
         
         if ( datePieces.length < 2 )
         {
            datePieces = new Array();
            if ( dateString.length == 6 )
            {
               datePieces[0] = dateString.substr( 0, 2 );
               datePieces[1] = dateString.substr( 2, 2 );
               datePieces[2] = Math.floor(yearNow/100).toString() + dateString.substr( 4, 2 );
            }
            else if ( dateString.length = 8 )
            {
               datePieces[0] = dateString.substr( 0, 2 );
               datePieces[1] = dateString.substr( 2, 2 );
               datePieces[2] = dateString.substr( 4, 4 );
            }
         }
      }
   }
   
   // Fill in the date pieces
   // fix if string begins with "0x" (the radix is 16 hexadecimal)
   if ( datePieces[0] != null && datePieces[0] != '' )
      day = parseInt( datePieces[0], 10 );

   if ( datePieces[1] != null && datePieces[1] != '' )
      month = parseInt( datePieces[1], 10 ) - 1;

   if ( datePieces[2] != null && datePieces[2] != '' )
      year = parseInt( datePieces[2], 10 );
   
   // if the numbers are invalid like letters then empty the date box
   if ( isNaN( day ) || isNaN( month ) || isNaN( year ) )
      return null;
   else
      // Make valid date
      return new Date( year, month, day );
} 

function FormatDate( date, dateFormat )
{
   if( date == null )
      return '';
   else
      return ConstructDate( date.getDate(), date.getMonth(), date.getFullYear(), dateFormat );   
}

function padZero(num) {
	return (num	< 10)? '0' + num : num ;
}

function ConstructDate( d,m,y, dateFormat )
{
	var sTmp = dateFormat;
	sTmp = sTmp.replace( "dd","<e>");
	sTmp = sTmp.replace( "d","<d>");
	sTmp = sTmp.replace( "<e>",padZero(d));
	sTmp = sTmp.replace( "<d>",d);
	sTmp = sTmp.replace( "MMMM","<o>");
	sTmp = sTmp.replace( "MMM","<p>");
	sTmp = sTmp.replace( "MM","<n>");
	sTmp = sTmp.replace( "M","<m>");
	sTmp = sTmp.replace( "<m>",m+1);
	sTmp = sTmp.replace( "<n>",padZero(m+1));
	sTmp = sTmp.replace( "<o>",monthName[m]);
	sTmp = sTmp.replace( "<p>",monthNameShort[m]);
	sTmp = sTmp.replace( "yyyy", y );
	return sTmp.replace ("yy",y%100);
}