<!-- Original:  Kedar R. Bhave (softricks@hotmail.com) -->
<!-- Web Site:  http://www.softricks.com -->

<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->

<!-- Modified:  Mark Dornian (MarkDornian@IbexConsulting.com) -->
<!-- Web Site:  http://www.ibexconsulting.com -->
<!-- Oct 2002 - Allow the calendar to appear as an IE popup -->
<!--          - Change formatting to allow the table cells to be clicked and removal of all anchors -->
<!--          - Default to calender to the one matching the text box date passed in. -->
<!--          - Execute the onchange event of the text box passed in. -->

// Create the popup object globally.
var oPopup = window.createPopup();

var weekend = [0,6];
var weekendColor = "#e0e0e0";
var fontface = "Verdana";
var fontsize = 2;
var format = "MM/DD/YYYY"   //Default format

var gNow = new Date();

isNav = (navigator.appName.indexOf("Netscape") != -1) ? true : false;
isIE = (navigator.appName.indexOf("Microsoft") != -1) ? true : false;

Calendar.Months = ["January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"];
Calendar.Days = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"];

// Non-Leap year Month days..
Calendar.DOMonth = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];
// Leap year Month days..
Calendar.lDOMonth = [31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];

function Calendar(p_item, p_month, p_year, p_format) {
	if ((p_month == null) && (p_year == null))	return;

	if (p_month == null) {
		this.gMonthName = null;
		this.gMonth = null;
		this.gYearly = true;
	} else {
		this.gMonthName = Calendar.get_month(p_month);
		this.gMonth = new Number(p_month);
		this.gYearly = false;
	}

	this.gYear = p_year;
	this.gFormat = p_format;
	this.gBGColor = "white";
	this.gFGColor = "black";
	this.gTextColor = "black";
	this.gHeaderColor = "black";
	this.gReturnItem = p_item;
}

Calendar.get_month = Calendar_get_month;
Calendar.get_daysofmonth = Calendar_get_daysofmonth;
Calendar.calc_month_year = Calendar_calc_month_year;

function Calendar_get_month(monthNo) {
	return Calendar.Months[monthNo];
}

function Calendar_get_daysofmonth(monthNo, p_year) {
	/*
	Check for leap year ..
	1.Years evenly divisible by four are normally leap years, except for...
	2.Years also evenly divisible by 100 are not leap years, except for...
	3.Years also evenly divisible by 400 are leap years.
	*/
	if ((p_year % 4) == 0) {
		if ((p_year % 100) == 0 && (p_year % 400) != 0)
			return Calendar.DOMonth[monthNo];

		return Calendar.lDOMonth[monthNo];
	} else
		return Calendar.DOMonth[monthNo];
}

function Calendar_calc_month_year(p_Month, p_Year, incr) {
	/*
	Will return an 1-D array with 1st element being the calculated month
	and second being the calculated year
	after applying the month increment/decrement as specified by 'incr' parameter.
	'incr' will normally have 1/-1 to navigate thru the months.
	*/
	var ret_arr = new Array();

	if (incr == -1) {
		// B A C K W A R D
		if (p_Month == 0) {
			ret_arr[0] = 11;
			ret_arr[1] = parseInt(p_Year) - 1;
		}
		else {
			ret_arr[0] = parseInt(p_Month) - 1;
			ret_arr[1] = parseInt(p_Year);
		}
	} else if (incr == 1) {
		// F O R W A R D
		if (p_Month == 11) {
			ret_arr[0] = 0;
			ret_arr[1] = parseInt(p_Year) + 1;
		}
		else {
			ret_arr[0] = parseInt(p_Month) + 1;
			ret_arr[1] = parseInt(p_Year);
		}
	}

	return ret_arr;
}

function Calendar_calc_month_year(p_Month, p_Year, incr) {
	/*
	Will return an 1-D array with 1st element being the calculated month
	and second being the calculated year
	after applying the month increment/decrement as specified by 'incr' parameter.
	'incr' will normally have 1/-1 to navigate thru the months.
	*/
	var ret_arr = new Array();

	if (incr == -1) {
		// B A C K W A R D
		if (p_Month == 0) {
			ret_arr[0] = 11;
			ret_arr[1] = parseInt(p_Year) - 1;
		}
		else {
			ret_arr[0] = parseInt(p_Month) - 1;
			ret_arr[1] = parseInt(p_Year);
		}
	} else if (incr == 1) {
		// F O R W A R D
		if (p_Month == 11) {
			ret_arr[0] = 0;
			ret_arr[1] = parseInt(p_Year) + 1;
		}
		else {
			ret_arr[0] = parseInt(p_Month) + 1;
			ret_arr[1] = parseInt(p_Year);
		}
	}

	return ret_arr;
}

// This is for compatibility with Navigator 3, we have to create and discard one object before the prototype object exists.
new Calendar();

Calendar.prototype.getMonthlyCalendarCode = function() {
	var vCode = "";
	var vHeader_Code = "";
	var vData_Code = "";

	// Begin Table Drawing code here..
	vCode = vCode + "<TABLE BORDER=1 BGCOLOR=\"" + this.gBGColor + "\">";

	vHeader_Code = this.cal_header();
	vData_Code = this.cal_data();
	vCode = vCode + vHeader_Code + vData_Code;

	vCode = vCode + "</TABLE>";

	return vCode;
}

Calendar.prototype.show = function() {
  // The popup object exposes the document property and all of the document
  // properties.
  var oPopBody = oPopup.document.body;

  // Build the HTML inside the popup
	var HTMLString = "";

	HTMLString += "<div style='border-color: silver; border-style: ridge;'>";
	HTMLString += "<span style='font-weight: bold; font-size: small;'>&nbsp;";
	HTMLString += this.gMonthName + " " + this.gYear;
	HTMLString += "</span>";

	// Show navigation buttons
	var prevMMYYYY = Calendar.calc_month_year(this.gMonth, this.gYear, -1);
	var prevMM = prevMMYYYY[0];
	var prevYYYY = prevMMYYYY[1];

	var nextMMYYYY = Calendar.calc_month_year(this.gMonth, this.gYear, 1);
	var nextMM = nextMMYYYY[0];
	var nextYYYY = nextMMYYYY[1];

	HTMLString += "<TABLE Width='97%' BORDER=1 CELLSPACING=0 CELLPADDING=0 BGCOLOR='#e0e0e0'><TR>";
	HTMLString += "<TD Style='CURSOR: hand;' ALIGN=center onclick=\"parent.Build(" +
		            "'" + this.gReturnItem + "', '" + this.gMonth + "', '" + (parseInt(this.gYear)-1) + "', '" + this.gFormat + "');\">" +
		            "<<</TD>";
	HTMLString += "<TD Style='CURSOR: hand;' ALIGN=center onclick=\"parent.Build(" +
		            "'" + this.gReturnItem + "', '" + prevMM + "', '" + prevYYYY + "', '" + this.gFormat + "');\">" +
		            "<</TD>";
	HTMLString += "<TD Style='CURSOR: hand;' ALIGN=center onclick=\"parent.Build(" +
		            "'" + this.gReturnItem + "', '" + nextMM + "', '" + nextYYYY + "', '" + this.gFormat + "');\">" +
		            "></TD>";
	HTMLString += "<TD Style='CURSOR: hand;' ALIGN=center onclick=\"parent.Build(" +
		            "'" + this.gReturnItem + "', '" + this.gMonth + "', '" + (parseInt(this.gYear)+1) + "', '" + this.gFormat + "');\">" +
		            ">></TD>";
	HTMLString += "</TR></TABLE><img src='Images/trans1x1.gif' height='5'>";

	// Get the complete calendar code for the month..
	HTMLString += this.getMonthlyCalendarCode();
	HTMLString += "</font></div>";

	  // Below the HTML that populates the popup is expressed as a string.
  oPopBody.innerHTML = HTMLString
}

Calendar.prototype.cal_header = function() {
	var vCode = "";

	vCode = vCode + "<TR>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='" + this.gHeaderColor + "'><B>" + Calendar.Days[0] + "</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='" + this.gHeaderColor + "'><B>" + Calendar.Days[1] + "</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='" + this.gHeaderColor + "'><B>" + Calendar.Days[2] + "</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='" + this.gHeaderColor + "'><B>" + Calendar.Days[3] + "</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='" + this.gHeaderColor + "'><B>" + Calendar.Days[4] + "</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='14%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='" + this.gHeaderColor + "'><B>" + Calendar.Days[5] + "</B></FONT></TD>";
	vCode = vCode + "<TD WIDTH='16%'><FONT SIZE='2' FACE='" + fontface + "' COLOR='" + this.gHeaderColor + "'><B>" + Calendar.Days[6] + "</B></FONT></TD>";
	vCode = vCode + "</TR>";

	return vCode;
}

Calendar.prototype.cal_data = function() {
	var vDate = new Date();
	vDate.setDate(1);
	vDate.setMonth(this.gMonth);
	vDate.setFullYear(this.gYear);

	var vFirstDay=vDate.getDay();
	var vDay=1;
	var vLastDay=Calendar.get_daysofmonth(this.gMonth, this.gYear);
	var vOnLastDay=0;
	var vCode = "";

	/*
	Get day for the 1st of the requested month/year..
	Place as many blank cells before the 1st day of the month as necessary.
	*/

	vCode = vCode + "<TR>";
	for (i=0; i<vFirstDay; i++) {
		vCode = vCode + "<TD WIDTH='14%'" + this.write_weekend_string(i) + "><FONT SIZE='2' FACE='" + fontface + "'> </FONT></TD>";
	}

	// Write rest of the 1st week
	for (j=vFirstDay; j<7; j++) {
		vCode = vCode + "<TD Style='CURSOR: hand;' WIDTH='14%' onClick=\"parent.UpdateTextBox('" + this.gReturnItem + "','" + this.format_data(vDay) + "');\" " +
		       this.write_weekend_string(j) + "><FONT SIZE='2' FACE='" + fontface + "'>" +
				   this.format_day(vDay) +
			     "</FONT></TD>";
		vDay=vDay + 1;
	}
	vCode = vCode + "</TR>";

	// Write the rest of the weeks
	for (k=2; k<7; k++) {
		vCode = vCode + "<TR>";

		for (j=0; j<7; j++) {
			vCode = vCode + "<TD Style='CURSOR: hand;' WIDTH='14%' onClick=\"parent.UpdateTextBox('" + this.gReturnItem + "','" + this.format_data(vDay) + "');\" " +
			     this.write_weekend_string(j) + "><FONT SIZE='2' FACE='" + fontface + "'>" +
    			 this.format_day(vDay) +
				   "</FONT></TD>";
			vDay=vDay + 1;

			if (vDay > vLastDay) {
				vOnLastDay = 1;
				break;
			}
		}

		if (j == 6)
			vCode = vCode + "</TR>";
		if (vOnLastDay == 1)
			break;
	}

	// Fill up the rest of last week with proper blanks, so that we get proper square blocks
	for (m=1; m<(7-j); m++) {
		if (this.gYearly)
			vCode = vCode + "<TD WIDTH='14%'" + this.write_weekend_string(j+m) +
			"><FONT SIZE='2' FACE='" + fontface + "' COLOR='gray'> </FONT></TD>";
		else
			vCode = vCode + "<TD WIDTH='14%'" + this.write_weekend_string(j+m) +
			"><FONT SIZE='2' FACE='" + fontface + "' COLOR='gray'>" + m + "</FONT></TD>";
	}
	return vCode;
}

Calendar.prototype.format_day = function(vday) {
	var vNowDay = gNow.getDate();
	var vNowMonth = gNow.getMonth();
	var vNowYear = gNow.getFullYear();

	if (vday == vNowDay && this.gMonth == vNowMonth && this.gYear == vNowYear)
		return ("<FONT COLOR=\"RED\"><B>" + vday + "</B></FONT>");
	else
		return (vday);
}

Calendar.prototype.write_weekend_string = function(vday) {
	var i;

	// Return special formatting for the weekend day.
	for (i=0; i<weekend.length; i++) {
		if (vday == weekend[i])
			return (" BGCOLOR=\"" + weekendColor + "\"");
	}

	return "";
}

Calendar.prototype.format_data = function(p_day) {
	var vData;
	var vMonth = 1 + this.gMonth;
	vMonth = (vMonth.toString().length < 2) ? "0" + vMonth : vMonth;
	var vMon = Calendar.get_month(this.gMonth).substr(0,3).toUpperCase();
	var vFMon = Calendar.get_month(this.gMonth).toUpperCase();
	var vY4 = new String(this.gYear);
	var vY2 = new String(this.gYear.substr(2,2));
	var vDD = (p_day.toString().length < 2) ? "0" + p_day : p_day;

	switch (this.gFormat) {
		case "MM\/DD\/YYYY" :
			vData = vMonth + "\/" + vDD + "\/" + vY4;
			break;
		case "MM\/DD\/YY" :
			vData = vMonth + "\/" + vDD + "\/" + vY2;
			break;
		case "MM-DD-YYYY" :
			vData = vMonth + "-" + vDD + "-" + vY4;
			break;
		case "MM-DD-YY" :
			vData = vMonth + "-" + vDD + "-" + vY2;
			break;

		case "DD\/MON\/YYYY" :
			vData = vDD + "\/" + vMon + "\/" + vY4;
			break;
		case "DD\/MON\/YY" :
			vData = vDD + "\/" + vMon + "\/" + vY2;
			break;
		case "DD-MON-YYYY" :
			vData = vDD + "-" + vMon + "-" + vY4;
			break;
		case "DD-MON-YY" :
			vData = vDD + "-" + vMon + "-" + vY2;
			break;

		case "DD\/MONTH\/YYYY" :
			vData = vDD + "\/" + vFMon + "\/" + vY4;
			break;
		case "DD\/MONTH\/YY" :
			vData = vDD + "\/" + vFMon + "\/" + vY2;
			break;
		case "YYYYMMDD" :
			vData = vY4 + "" + vMonth + "" + vDD;
			break;
		case "DD-MONTH-YY" :
			vData = vDD + "-" + vFMon + "-" + vY2;
			break;

		case "DD\/MM\/YYYY" :
			vData = vDD + "\/" + vMonth + "\/" + vY4;
			break;
		case "DD\/MM\/YY" :
			vData = vDD + "\/" + vMonth + "\/" + vY2;
			break;
		case "DD-MM-YYYY" :
			vData = vDD + "-" + vMonth + "-" + vY4;
			break;
		case "DD-MM-YY" :
			vData = vDD + "-" + vMonth + "-" + vY2;
			break;

		default :
			vData = vMonth + "\/" + vDD + "\/" + vY4;
	}

	return vData;
}

function Build(p_item, p_month, p_year, p_format) {
	gCal = new Calendar(p_item, p_month, p_year, p_format);

	// Customize your Calendar here..
	gCal.gBGColor="white";
	gCal.gLinkColor="black";
	gCal.gTextColor="blue";
	gCal.gHeaderColor="darkgreen";

  gCal.show();
}

function show_calendar() {
  var p_item = arguments[0];
  var p_language = arguments[1];
  var p_format = null;

  // Do not pass format in but set via language
  if (p_language.toUpperCase() != null && p_language.toUpperCase() == "FR") {
    p_format = "YYYYMMDD";
    Calendar.Months = ["janvier", "f\u00E9vrier", "mars", "avril", "mai", "juin", "juillet", "ao\u00FBt", "septembre", "octobre", "novembre", "d\u00E9cembre"];                  
    Calendar.Days = ["dim", "lun", "mar", "mer", "jeu", "ven", "sam"];
  } else {
    p_format = "YYYYMMDD";
  }

  //Use the passed format only if it is one of the supported formats.
  if (p_format != null && (p_format == "YYYYMMDD" || p_format == "MM/DD/YYYY" )) {
  	format = p_format;
  }

  var TextBox = eval("document.all('" + p_item + "')");

  //Determine the current value of the return item
  try{
     var ItemValue = TextBox.value;

	 // If the format is DD/MM/YYYY, switch it to MM/DD/YYYY before working with it as javascript only supports this one format.
	 if (format == "DD/MM/YYYY"){
	 	ItemValue = ReverseElements1And2(ItemValue);
	 }

     var oDate = new Date(ItemValue);
     }
  catch(e){}

  if (isNaN(oDate)){
     oDate = gNow;
  } else {

     // If a short date was passed that is more than one century ago, assume it is this century
     var enteredYearLength = ItemValue.length - ItemValue.lastIndexOf("/") - 1;
     
     if (enteredYearLength < 4 && oDate.getFullYear() < gNow.getFullYear() - 98) {
        oDate.setFullYear( oDate.getFullYear() + 100 );
     }
  }


  var popup_width = 240;
  var popup_height = 210;
	var p_year = new String(oDate.getFullYear().toString());
  var p_month = oDate.getMonth();

	Build(p_item, p_month, p_year, format);

	// This popup is displayed relative to the item that was clicked
  oPopup.show(0 + TextBox.offsetWidth - popup_width, TextBox.offsetHeight, popup_width, popup_height, TextBox);
}

// Update the text box with the value selected, hide the popup and then execute the onchange event for the text box.
function UpdateTextBox(ReturnItem, SelectedDate){
    var TextBox = eval("document.all('" + ReturnItem + "')");

    TextBox.value = SelectedDate;
    TextBox.fireEvent("onchange");
    oPopup.hide();
}

// Reverse the first two elements in the date (Usually day and month)
function ReverseElements1And2(DateValue){
	var StartElement1 = 0;
	var EndElement1 = -1;
	var StartElement2 = -1;
	var EndElement2 = -1;
	var StartElement3 = -1;
	var LastPosition = -1;

	//Get right out if there is no posibility that this is a date
	if (DateValue == null || String(DateValue).length < 6){
		return;
	}

	//Find the limits
	LastPosition = String(DateValue).length - 1;
	EndElement1 = String(DateValue).indexOf("/");
	StartElement2 = EndElement1 + 1;
	EndElement2 = String(DateValue).indexOf("/",StartElement2);
	StartElement3 = EndElement2 + 1;

	//Check for reasonableness of the numbers
	if (StartElement3 > LastPosition || StartElement3 < 4) {
		return;
	}

	//Flip the elements 1 & 2 of three
	var Element1 = String(DateValue).substring(StartElement1, EndElement1 + 1);
	var Element2 = String(DateValue).substring(StartElement2, EndElement2 + 1);
	var Element3 = String(DateValue).substring(StartElement3);

	return Element2 + Element1 + Element3
}