//The date picker javascript

//Global variables
var winCal;
var dtToday=new Date();
var Cal;
var docCal;
var locale=0;
var MonthName=[["January", "February", "March", "April", "May", "June","July","August", "September", "October", "November", "December"],["janvier","février","mars","avril","mai","juin","juillet","août","septembre","octobre","novembre","décembre"]];
var WeekDayName=["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"];	
var existingDate;//Existing Date

//Configurable parameters
var cnTop="200";//top coordinate of calendar window.
var cnLeft="500";//left coordinate of calendar window
var WindowTitle ="Calendar";//Date Picker title.
var WeekChar=1;//number of character for week day. if 2 then Mo,Tu,We. if 3 then Mon,Tue,Wed.
var CellWidth=20;//Width of day cell.
var DateSeparator="/";//Date Separator, you can change it to "/" if you want.

var ShowLongMonth=true;//Show long month name in Calendar header. example: "January".
var ShowMonthYear=true;//Show Month and Year in Calendar header.
var isCurrentDateDisabled = false; // enable or disable the current date
var isWeekendDateDisabled = false; // enable or disable the week-end date
var isFutureDateDisabled = false; // enable or disable the future date
var MonthYearColor="#000000";//Font Color of Month and Year in Calendar header.
var WeekHeadColor="#F3F3F3";//Background Color in Week header.
//var SundayColor="#FFFFFF";//Background color of Sunday.
//var SaturdayColor="#FFFFFF";//Background color of Saturday.
var WeekDayColor="white";//Background color of weekdays.
var FontColor="black";//color of font in Calendar day cell.
var TodayColor="#736F6E";//Background color of today.
var SelDateColor="F3F3F3";//Backgrond color of selected date in textbox.
var futureDateColor = "white"; //Backgrond color of future date in textbox.
var YrSelColor="#736F6E";//color of font of Year selector.
var ThemeBg="";//Background image of Calendar window.
//end Configurable parameters
//end Global variable

//function NewCal(pCtrl,pFormat,pLang,curDateDisabled, wkendDateDisabled, futDateDisabled)
// PCtrl: id of the date field
// pFormat: format of the date to be displayed
// pLang: language in which the calendar pop up appears: for English, pLang=en and for French, pLang=fr
// curDateDisabled: if true, the current date will be disabled else enabled
// wkendDateDisabled: if true, the week-end date will be disabled else enabled
// futDateDisabled: if true, the future date will be disabled else enabled
function NewCal(pCtrl,pFormat,pLang,curDateDisabled, wkendDateDisabled, futDateDisabled)
{
	Cal=new Calendar(dtToday);
	CalSt=new Calendar(dtToday);
	if (pCtrl!=null)
		Cal.Ctrl=pCtrl;
	if (pFormat!=null)
		Cal.Format=pFormat.toUpperCase();

	isCurrentDateDisabled = curDateDisabled;
	isWeekendDateDisabled = wkendDateDisabled;
	isFutureDateDisabled = futDateDisabled;
	
	if(pLang == "fr"){
		locale = 1;
		WindowTitle = "Calendrier";
	}
	existingDate=document.getElementById(pCtrl).value;
	if (existingDate!="")//Parse Date String
	{
		var Sp1;//Index of Date Separator 1
		var Sp2;//Index of Date Separator 2 
		var strMonth;
		var strDate;
		var strYear;
		var intMonth;
		var YearPattern;
		
		//parse month
		Sp1=existingDate.indexOf(DateSeparator,0)
		Sp2=existingDate.indexOf(DateSeparator,(parseInt(Sp1)+1));
		
		if ((Cal.Format.toUpperCase()=="DDMMYYYY") || (Cal.Format.toUpperCase()=="DDMMMYYYY"))
		{
			strMonth=existingDate.substring(Sp1+1,Sp2);
			strDate=existingDate.substring(0,Sp1);
		}
		else if ((Cal.Format.toUpperCase()=="MMDDYYYY") || (Cal.Format.toUpperCase()=="MMMDDYYYY"))
		{
			strMonth=existingDate.substring(0,Sp1);
			strDate=existingDate.substring(Sp1+1,Sp2);
		}
		if (isNaN(strMonth))
			intMonth=Cal.GetMonthIndex(strMonth);
		else
			intMonth=parseInt(strMonth,10)-1;	
		if ((parseInt(intMonth,10)>=0) && (parseInt(intMonth,10)<12)){
			Cal.Month=intMonth;
			CalSt.Month=intMonth;
		}
		//end parse month
		//parse Date
		if ((parseInt(strDate,10)<=Cal.GetMonDays()) && (parseInt(strDate,10)>=1)){
			Cal.Date=strDate;
			CalSt.Date=strDate;
		}
		//end parse Date
		//parse year
		strYear=existingDate.substring(Sp2+1,Sp2+5);
		YearPattern=/^\d{4}$/;
		if (YearPattern.test(strYear)){
			Cal.Year=parseInt(strYear,10);
			CalSt.Year=parseInt(strYear,10);
		}
		//end parse year
		
	}
	winCal=window.open("","DatePicker","toolbar=no,status=no,menubar=no,scrollbars=no,width=190,height=190,top="+cnTop+",left="+cnLeft);
	winCal.focus();
	docCal=winCal.document;
	RenderCal();
}

function RenderCal()
{
	var vCalHeader;
	var vCalData;
	var i;
	var j;
	var SelectStr;
	var vDayCount=0;
	var vFirstDay;

	docCal.open();
	docCal.writeln("<html><head><title>"+WindowTitle+"</title>");
	docCal.writeln("<script>var winMain=window.opener;</script>");
	docCal.writeln("</head><body style=\"margin:0px;padding:0px;\" link="+FontColor+" vlink="+FontColor+"><div name='Calendar'>");

	vCalHeader="<table style=\"border: 1px solid #E9AB00;\" width=\"100%\" height=\"100%\" cellspacing=\"0\" >\n";
	//Month Selector
	vCalHeader+="<tr>\n<td colspan='7'><table width=\"100%\" height=\"100%\" cellspacing=\"0\" border-color=\"\"><tr><td align='left'>\n";
	vCalHeader+="<select name=\"MonthSelector\" onChange=\"javascript:winMain.Cal.SwitchMth(this.selectedIndex);winMain.RenderCal();\">\n";
	for (i=0;i<12;i++)
	{
		if (i==Cal.Month)
			SelectStr="Selected";
		else
			SelectStr="";	
		vCalHeader+="<option "+SelectStr+" value >"+MonthName[locale][i]+"\n";
	}
	vCalHeader+="</select></td>";
	//Year selector
	vCalHeader+="\n<td align='right'><a href=\"javascript:winMain.Cal.DecYear();winMain.RenderCal()\"><b><font color=\""+YrSelColor+"\"><</font></b></a><font face=\"Verdana\" color=\""+YrSelColor+"\" size=2><b> "+Cal.Year+" </b></font><a href=\"javascript:winMain.Cal.IncYear();winMain.RenderCal()\"><b><font color=\""+YrSelColor+"\">></font></b></a></td></tr></table></td>\n";	
	vCalHeader+="</tr>";
	//Calendar header shows Month and Year
	if (ShowMonthYear)
		vCalHeader+="<tr><td style=\"border-bottom:1px #FFFFFF solid\" bgcolor='#fdf6e5' colspan='7' align='center'><font face='Verdana' size='2' align='center' color='"+MonthYearColor+"'><b>"+Cal.GetMonthName(ShowLongMonth)+" "+Cal.Year+"</b></font></td></tr>\n";
	//Week day header
	vCalHeader+="<tr bgcolor="+WeekHeadColor+">";
	for (i=0;i<7;i++)
	{
		vCalHeader+="<td align='center'><font face='Verdana' size='2'>"+WeekDayName[i].substr(0,WeekChar)+"</font></td>";
	}
	vCalHeader+="</tr>";	
	docCal.write(vCalHeader);
	
	//Calendar detail
	CalDate=new Date(Cal.Year,Cal.Month);
	vCalDate=new Date(Cal.Year,Cal.Month);
	CalDate.setDate(1);
	vFirstDay=CalDate.getDay();
	vCalData="<tr>";
	for (i=0;i<vFirstDay;i++)
	{
		vCalData=vCalData+GenCell();
		vDayCount=vDayCount+1;
	}
	for (j=1;j<=Cal.GetMonDays();j++)
	{
		var strCell;
		vDayCount=vDayCount+1;
		if ((j==dtToday.getDate())&&(Cal.Month==dtToday.getMonth())&&(Cal.Year==dtToday.getFullYear())) //if current date
			strCell=GenCell(j,true,TodayColor,isCurrentDateDisabled);//Highlight today's date and make it enabled or disabled
		else if (j==CalSt.Date && Cal.Month==CalSt.Month && Cal.Year==CalSt.Year) // if selected date
			strCell=GenCell(j,true,SelDateColor,false); // Highlight seleted date
		else if (vCalDate.setDate(j) > dtToday ) //if future date then enable or disable it
			strCell=GenCell(j,null,futureDateColor,isFutureDateDisabled);
		else{
			if (vDayCount%7==0)
				strCell=GenCell(j,null,WeekDayColor,isWeekendDateDisabled); // enable or disable the Saturday date
			else if ((vDayCount+6)%7==0)
				strCell=GenCell(j,null,WeekDayColor,isWeekendDateDisabled); // enable or disable the Sunday date
			else
				strCell=GenCell(j,null,WeekDayColor,false);						
		}
		vCalData=vCalData+strCell;

		if((vDayCount%7==0)&&(j<Cal.GetMonDays()))
		{
			vCalData=vCalData+"</tr>\n<tr>";
		}
	}
	docCal.writeln(vCalData);	
	
	docCal.writeln("\n</table>");
	docCal.writeln("</div></body></html>");
	docCal.close();
}

function GenCell(pValue,pHighLight,pColor,isDateDisabled)//Generate table cell with value
{
	var PValue;
	var PCellStr;
	var vColor;
	var vHLstr1;//HighLight string
	var vHlstr2;
	var vDateLink; // making date link
	
	if (pValue==null)
		PValue="";
	else
		PValue=pValue;
	
	if (pColor!=null)
		vColor="bgcolor=\""+pColor+"\"";
	else
		vColor="";	
	if ((pHighLight!=null)&&(pHighLight))
		{vHLstr1="><b>";vHLstr2="</b>";}
	else if (isDateDisabled)
	{
		vHLstr1="color='#848484'>";
		vHLstr2="";
	}
	else
		{vHLstr1=">";vHLstr2="";}

	if(isDateDisabled)
		vDateLink = PValue; // make no date link
	else
		vDateLink = "<a style=\" text-decoration:none;\" href=\"javascript:winMain.document.getElementById('"+Cal.Ctrl+"').value='"+Cal.FormatDate(PValue)+"';window.close();\">"+PValue+"</a>";
	
	PCellStr="<td onmouseover=\"this.style.backgroundColor='#F3F3F3';\" onMouseout=\"this.style.backgroundColor='"+pColor+"';\" style=\"border:1px #F3F3F3 solid\""+vColor+" width="+CellWidth+" align='center'><font face='verdana' size='2'"+ vHLstr1 + vDateLink + vHLstr2 +"</font></td>";
	return PCellStr;
}

function Calendar(pDate,pCtrl)
{
	//Properties
	this.Date=pDate.getDate();//selected date
	this.Month=pDate.getMonth();//selected month number
	this.Year=pDate.getFullYear();//selected year in 4 digits
	
	this.MyWindow=winCal;
	this.Ctrl=pCtrl;
	this.Format="ddMMyyyy";
	this.Separator=DateSeparator;
	
}

function GetMonthIndex(shortMonthName)
{
	for (i=0;i<12;i++)
	{
		if (MonthName[locale][i].substring(0,3).toUpperCase()==shortMonthName.toUpperCase())
		{	return i;}
	}
}
Calendar.prototype.GetMonthIndex=GetMonthIndex;

function IncYear()
{	Cal.Year++;}
Calendar.prototype.IncYear=IncYear;

function DecYear()
{	Cal.Year--;}
Calendar.prototype.DecYear=DecYear;
	
function SwitchMth(intMth)
{	Cal.Month=intMth;}
Calendar.prototype.SwitchMth=SwitchMth;
	

function GetMonthName(IsLong)
{
	var Month=MonthName[locale][this.Month];
	if (IsLong)
		return Month;
	else
		return Month.substr(0,3);
}
Calendar.prototype.GetMonthName=GetMonthName;

function GetMonDays()//Get number of days in a month
{
	var DaysInMonth=[31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];
	if (this.IsLeapYear())
	{
		DaysInMonth[1]=29;
	}	
	return DaysInMonth[this.Month];	
}
Calendar.prototype.GetMonDays=GetMonDays;

function IsLeapYear()
{
	if ((this.Year%4)==0)
	{
		if ((this.Year%100==0) && (this.Year%400)!=0)
		{
			return false;
		}
		else
		{
			return true;
		}
	}
	else
	{
		return false;
	}
}
Calendar.prototype.IsLeapYear=IsLeapYear;

function FormatDate(pDate)
{
	if (this.Format.toUpperCase()=="DDMMYYYY")
		return (pDate+DateSeparator+(this.Month+1)+DateSeparator+this.Year);
	else if (this.Format.toUpperCase()=="DDMMMYYYY")
		return (pDate+DateSeparator+this.GetMonthName(false)+DateSeparator+this.Year);
	else if (this.Format.toUpperCase()=="MMDDYYYY")
		return ((this.Month+1)+DateSeparator+pDate+DateSeparator+this.Year);
	else if (this.Format.toUpperCase()=="MMMDDYYYY")
		return (this.GetMonthName(false)+DateSeparator+pDate+DateSeparator+this.Year);			
}
Calendar.prototype.FormatDate=FormatDate;