/* PopUp Calendar v2.1
© PCI, Inc.,2000 • Freeware
webmaster@personal-connections.com
+1 (925) 955 1624
Permission granted  for unlimited use so far
as the copyright notice above remains intact. */

// Settings. Please read readme.html file for instructions
var ppcDF = "d/m/Y";
var ppcMN = new Array("January","February","March","April","May","June","July","August","September","October","November","December");
var ppcMSN = new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
var ppcWN = new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
var ppcER = new Array(4);
ppcER[0] = "Required DHTML functions are not supported in this browser.";
ppcER[1] = "Target form field is not assigned or not accessible.";
ppcER[2] = "Sorry, the chosen date is not acceptable. Please read instructions on the page.";
ppcER[3] = "Unknown error occured while executing this script.";
var ppcUC = false;
var ppcUX = 4;
var ppcUY = 4;

/* Do not edit below this line unless you are sure what are you doing! */

var ppcIE = (navigator.appName == "Microsoft Internet Explorer");
var ppcNN = ((navigator.appName == "Netscape") && (document.layers));
var ppcTT="<table width=\"200\" cellspacing=\"1\" cellpadding=\"2\" border=\"1\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\">\n";
var ppcCD=ppcTT;
var ppcFT="<font face=\"MS Sans Serif, sans-serif\" size=\"1\" color=\"#000000\">";
var ppcFC=true;
var ppcTI=false;
var ppcSV=null;
var ppcRL=null;
var ppcXC=null;
var ppcYC=null;
var ppcML=new Array(31,28,31,30,31,30,31,31,30,31,30,31);
var ppcWE=new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
var ppcNow=new Date();
var ppcPtr=new Date();

if (ppcNN) {
	window.captureEvents(Event.RESIZE);
	window.onresize = restoreLayers;
	document.captureEvents(Event.MOUSEDOWN|Event.MOUSEUP);
	document.onmousedown = recordXY;
	document.onmouseup = confirmXY;
}

function restoreLayers(e) {
	if (ppcNN) {
		with (window.document) {
			open("text/html");
			write("<html><head><title>Restoring the layer structure...</title></head>");
			write("<body bgcolor=\"#FFFFFF\" onLoad=\"history.go(-1)\">");
			write("</body></html>");
			close();
		}
	}
}

function recordXY(e) {
	if (ppcNN) {
		ppcXC = e.x;
		ppcYC = e.y;
		document.routeEvent(e);
	}
}

function confirmXY(e) {
	if (ppcNN) {
		ppcXC = (ppcXC == e.x) ? e.x : null;
		ppcYC = (ppcYC == e.y) ? e.y : null;
		document.routeEvent(e);
	}
}

function getCalendarFor(target,rules,left) {
	ppcSV = target;
	ppcRL = rules;

	if (ppcFC) {
		setCalendar();
		ppcFC = false;
	}

	if ((ppcSV != null) && (ppcSV)) {
		var obj = (ppcIE) ? document.all['PopUpCalendar'] : document.layers['PopUpCalendar'];
	
		if (ppcIE) {
			//var obj = document.all['PopUpCalendar'];
			if (!left)
				obj.style.left = document.body.scrollLeft + event.clientX;
			else {
				if (document.body.scrollLeft + event.clientX - obj.offsetWidth < 0)
					obj.style.left = 0;
				else
					obj.style.left = document.body.scrollLeft + event.clientX - obj.offsetWidth;
			}
			//obj.style.posTop  = document.body.scrollTop + event.clientY;
			if ((200 + event.clientY) > (document.body.offsetHeight))
				obj.style.posTop = document.body.scrollTop + event.clientY - 200;
			else
				obj.style.posTop  = document.body.scrollTop + event.clientY;
			obj.style.visibility = "visible";
		}
		else if (ppcNN) {
			//var obj = document.layers['PopUpCalendar'];
			obj.left = ppcXC
			obj.top  = ppcYC
			obj.visibility = "show";
		}
		else {showError(ppcER[0]);}
	}
	else {showError(ppcER[1]);}
}

function switchMonth(param) {
	var tmp = param.split("|");
	setCalendar(tmp[0],tmp[1]);
}

function moveMonth(dir) {
	var obj = null;
	var objYear = null;
	var limit = false;
	var tmp;//,dptrYear,dptrMonth;
	
	//
	// Prepare the 'obj' based on the browser type.
	//
	if (ppcIE) {obj = document.ppcMonthList.sMth;}
	else if (ppcNN) {obj = document.layers['PopUpCalendar'].document.layers['monthSelector'].document.ppcMonthList.sMth;}
	else {showError(ppcER[0]);}
	
	//
	// Prepare the 'objYear' based on the browser type.
	//
	if (ppcIE) {objYear = document.ppcMonthList.sYear;}
	else if (ppcNN) {objYear = document.layers['PopUpCalendar'].document.layers['monthSelector'].document.ppcMonthList.sYear;}
	else {showError(ppcER[0]);}
	
	if (obj != null) {
		if (dir.toLowerCase() == "back") {
			if (obj.selectedIndex > 0) {obj.selectedIndex--;}
			else {
				objYear.value = eval(objYear.value) - 1;
				obj.selectedIndex = obj.options.length - 1;
			}
		}
		else if (dir.toLowerCase() == "forward") {
			if (obj.selectedIndex < 11) {obj.selectedIndex++;}
			else {
				objYear.value = eval(objYear.value) + 1;
				obj.selectedIndex = 0;
			}
		}
		else {limit = true;}
	}

	if (!limit) {
		//tmp = obj.options[obj.selectedIndex].value.split("|");
		//dptrYear  = tmp[0];
		//dptrMonth = tmp[1];
		//dptrYear  = objYear.value;
		//dptrMonth = obj.options[obj.selectedIndex].value;
		setCalendar(objYear.value,obj.options[obj.selectedIndex].value);
	}
	else {
		if (ppcIE) {
			obj.style.backgroundColor = "#FF0000";
			window.setTimeout("document.ppcMonthList.sMth.style.backgroundColor = '#FFFFFF'",50);
		}
	}
}

function selectDate(param) {
	var arr   = param.split("|");
	var year  = arr[0];
	var month = arr[1];
	var date  = arr[2];
	var ptr = parseInt(date);
	ppcPtr.setDate(ptr);
	if ((ppcSV != null) && (ppcSV)) {
		if (validDate(date)) {
			ppcSV.value = dateFormat(year,month,date);
			hideCalendar();
		}
		else {
			showError(ppcER[2]);
			if (ppcTI) {
				clearTimeout(ppcTI);
				ppcTI = false;
			}
		}
	}
	else {
		showError(ppcER[1]);
		hideCalendar();
	}
}

function setCalendar(year,month) {
	if (year  == null) {year = getFullYear(ppcNow);}
	if (month == null) {
		month = ppcNow.getMonth();
		setSelectList(year,month);
	}
	if (month == 1) {ppcML[1]  = (isLeap(year)) ? 29 : 28;}
	ppcPtr.setYear(year);
	ppcPtr.setMonth(month);
	ppcPtr.setDate(1);
	updateContent();
}

function updateContent() {
	generateContent();
	if (ppcIE) {document.all['monthDays'].innerHTML = ppcCD;}
	else if (ppcNN) {
		with (document.layers['PopUpCalendar'].document.layers['monthDays'].document) {
			open("text/html");
			write("<html>\n<head>\n<title>DynDoc</title>\n</head>\n<body bgcolor=\"#FFFFFF\">\n");
			write(ppcCD);
			write("</body>\n</html>");
			close();
		}
	}
	else {showError(ppcER[0]);}
	ppcCD = ppcTT;
}

function generateContent() {
	var year  = getFullYear(ppcPtr);
	var month = ppcPtr.getMonth();
	var date  = 1;
	var day   = ppcPtr.getDay();
	var len   = ppcML[month];
	var bgr,cnt,tmp = "";
	var j,i = 0;
	for (j = 0; j < 7; ++j) {
		if (date > len) {break;}
		for (i = 0; i < 7; ++i) {
			bgr = ((i == 0)||(i == 6)) ? "#FFFFCC" : "#FFFFFF";
			if (((j == 0)&&(i < day))||(date > len)) {tmp  += makeCell(bgr,year,month,0);}
			else {tmp  += makeCell(bgr,year,month,date);++date;}
		}
		ppcCD += "<tr align=\"center\">\n" + tmp + "</tr>\n";tmp = "";
	}
	ppcCD += "<tr align=\"center\">\n<td colspan=7><span Style=\"cursor: hand\"><a class=\"calLink\" href=\"JavaScript:hideCalendar()\" onMouseOver=\"window.status=\'Close calendar\';return true;\" onMouseOut=\"window.status=\'\'\">" + ppcFT + "Cancel</a> <a class=\"calLink\" href=\"JavaScript:clearValue()\" onMouseOver=\"window.status=\'Clear value\';return true;\" onMouseOut=\"window.status=\'\'\">" + ppcFT + "Clear</a></span></td></tr>\n";
	ppcCD += "</table>\n";
}

function clearValue() {
	ppcSV.value=''
	hideCalendar();
}

function makeCell(bgr,year,month,date) {
	var param = "\'"+year+"|"+month+"|"+date+"\'";
	var td1 = "<td width=\"20\" bgcolor=\""+bgr+"\" ";
	var td2 = (ppcIE) ? "</font></span></td>\n" : "</font></a></td>\n";
	var evt = "onMouseOver=\"this.style.backgroundColor=\'#FF0000\'\" onMouseOut=\"this.style.backgroundColor=\'"+bgr+"\'\" onMouseDown=\"selectDate("+param+")\" ";
	var ext = "<span Style=\"cursor: hand\">";
	var lck = "<span Style=\"cursor: default\">";
	var lnk = "<a class=\"calLink\" href=\"javascript:selectDate("+param+")\" onMouseOver=\"window.status=\' \';return true;\">";
	var cellValue = (date != 0) ? date + "" : "&nbsp;";
	if ((ppcNow.getDate() == date) && (ppcNow.getMonth() == month) && (getFullYear(ppcNow) == year)) {
		cellValue = "<b>" + cellValue + "</b>";
	}
	var cellCode = "";
	if (date == 0) {
		if (ppcIE) {cellCode = td1 + "Style=\"cursor: default\">" + lck + ppcFT + cellValue + td2;}
		else {cellCode = td1+">"+ppcFT+cellValue+td2;}
	}
	else {
		if (ppcIE) {cellCode = td1 + evt + "Style=\"cursor: hand\">" + ext + ppcFT + cellValue + td2;}
		else {
			if (date < 10) {cellValue = "&nbsp;" + cellValue + "&nbsp;";}
			cellCode = td1+">"+lnk+ppcFT+cellValue+td2;
		}
	}
	return cellCode;
}


function setSelectList(year,month) {
	// Setup the current month and year for initial display.
	var obj = null;

	if (ppcIE) {obj = document.ppcMonthList.sMth;}
	else if (ppcNN) {obj = document.layers['PopUpCalendar'].document.layers['monthSelector'].document.ppcMonthList.sMth;}
	else {/* NOP */}

	obj.selectedIndex = month;
	
	if (ppcIE) {obj = document.ppcMonthList.sYear;}
	else if (ppcNN) {obj = document.layers['PopUpCalendar'].document.layers['monthSelector'].document.ppcMonthList.sYear;}
	else {/* NOP */}
	
	obj.value = getFullYear(ppcNow);
}

function hideCalendar() {
	if (ppcIE) {document.all['PopUpCalendar'].style.visibility = "hidden";}
	else if (ppcNN) {document.layers['PopUpCalendar'].visibility = "hide";window.status = " ";}
	else {/* NOP */}

	ppcTI = false;
	ppcSV = null;
	if (ppcIE) {
		var obj = document.ppcMonthList.sMth;}
	else if (ppcNN) {
		var obj = document.layers['PopUpCalendar'].document.layers['monthSelector'].document.ppcMonthList.sMth;}
	else {/* NOP */}
	obj.selectedIndex = 0;
	setCalendar();
}

function showError(message) {
	window.alert("[ PopUp Calendar ]\n\n" + message);}

function isLeap(year) {
 if ((year%400==0)||((year%4==0)&&(year%100!=0))) {return true;}
 else {return false;}}

function getFullYear(obj) {
 if (ppcNN) {return obj.getYear() + 1900;}
 else {return obj.getYear();}}

function validDate(date) {
 var reply = true;
 if (ppcRL == null) {/* NOP */}
 else {
  var arr = ppcRL.split(":");
  var mode = arr[0];
  var arg  = arr[1];
  var key  = arr[2].charAt(0).toLowerCase();
  if (key != "d") {
   var day = ppcPtr.getDay();
   var orn = isEvenOrOdd(date);
   reply = (mode == "[^]") ? !((day == arg)&&((orn == key)||(key == "a"))) : ((day == arg)&&((orn == key)||(key == "a")));}
  else {reply = (mode == "[^]") ? (date != arg) : (date == arg);}}
 return reply;}

function isEvenOrOdd(date)
{
  if (date - 21 > 0) {return "e";}
  else if (date - 14 > 0) {return "o";}
  else if (date - 7 > 0) {return "e";}
  else {return "o";}
}

function dateFormat(year,month,date)
{
	if (ppcDF == null) {ppcDF = "m/d/Y";}
	var day = ppcPtr.getDay();
	var crt = "";
	var str = "";
	var chars = ppcDF.length;
	for (var i = 0; i < chars; ++i) {
		crt = ppcDF.charAt(i);
		switch (crt) {
			case "M": str += ppcMSN[month]; break;
			// Since can only take a single character, N is used.
			case "N": str += ppcMN[month]; break;
			case "m": str += (month < 9) ? ("0" + (++month)) : ++month; break;
			case "Y":
				if (year.length < 4)
					year = eval(year) + 1900; 
				str += year; break;
			case "y": str += year.substring(2); break;
			case "d": str += ((ppcDF.indexOf("m")!=-1)&&(date<10)) ? ("0"+date) : date; break;
			case "W": str += ppcWN[day]; break;
			default: str += crt;
		}
	}
	return unescape(str);
}

function checkNums() {
   if ((event.keyCode < 48) || (event.keyCode > 57)) {
      return false;
   }
}

function onYear(year, month) {
   //var Year = document.when.year.value;
   if (year.length == 4) {
      //Selected_Month = document.when.month.selectedIndex;
      //Selected_Year = Year;
      //Make_Calendar(Selected_Year, Selected_Month);
	  setCalendar(year, month)
   }
}

