/* 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 = "W M d, Y";
var ppcMN = new Array("January","February","March","April","May","June","July","August","September","October","November","December");
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. Inspections may only occur on business days.";
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 = "\n";
var ppcCD = ppcTT;
var ppcFT = "";
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;
}
//Restore layers
function restoreLayers(e)
{
//If the browser is a Netscape Navigator, restore the layer structure
if (ppcNN)
{
with (window.document)
{
open("text/html");
write("Restoring the layer structure...");
write("");
write("");
close();
}
}
}
//Record the X & Y coordinates
function recordXY(e)
{
if (ppcNN)
{
ppcXC = e.x;
ppcYC = e.y;
document.routeEvent(e);
}
}
//Confirm the X & Y Coordinates
function confirmXY(e)
{
if (ppcNN)
{
ppcXC = (ppcXC == e.x) ? e.x : null;
ppcYC = (ppcYC == e.y) ? e.y : null;
document.routeEvent(e);
}
}
//getCalendarFor() function called by the page utilizing the pop up calendar
function getCalendarFor(target, rules)
{
ppcSV = target;
ppcRL = rules;
if (ppcFC)
{
setCalendar();
ppcFC = false;
}
if ((ppcSV != null) && (ppcSV))
{
if (ppcIE)
{
//Execute if the browser is Internet Explorer
var obj = document.all['PopUpCalendar'];
obj.style.left = document.body.scrollLeft+event.clientX;
obj.style.top = document.body.scrollTop+event.clientY;
obj.style.visibility = "visible";
}
else if (ppcNN)
{
//Execute if the browser is Netscape Navigator
var obj = document.layers['PopUpCalendar'];
obj.left = ppcXC
obj.top = ppcYC
obj.visibility = "show";
}
else
showError(ppcER[0]);
}
else
showError(ppcER[1]);
}
//Alter the calendar
function switchMonth(param)
{
var tmp = param.split("|");
setCalendar(tmp[0],tmp[1]);
}
//Move the displayed month in the calendar if the 'back' or 'forward' options are clicked
function moveMonth(dir)
{
var obj = null;
var limit = false;
var tmp,dptrYear,dptrMonth;
if (ppcIE)
obj = document.ppcMonthList.sItem;
else if (ppcNN)
obj = document.layers['PopUpCalendar'].document.layers['monthSelector'].document.ppcMonthList.sItem;
else
showError(ppcER[0]);
if (obj != null)
{
if ((dir.toLowerCase() == "back") && (obj.selectedIndex > 0))
obj.selectedIndex--;
else if ((dir.toLowerCase() == "forward") && (obj.selectedIndex < 12))
obj.selectedIndex++;
else
limit = true;
}
if (!limit)
{
tmp = obj.options[obj.selectedIndex].value.split("|");
dptrYear = tmp[0];
dptrMonth = tmp[1];
setCalendar(dptrYear,dptrMonth);
}
else
{
if (ppcIE)
{
obj.style.backgroundColor = "#FF0000";
window.setTimeout("document.ppcMonthList.sItem.style.backgroundColor = '#FFFFFF'",50);
}
}
}
//Select the date
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();
}
}
//Set the calendar date and month
function setCalendar(year, month)
{
//If the year is set to null, obtain the browser's year
if (year == null)
year = getFullYear(ppcNow);
if (month == null)
{
month = ppcNow.getMonth();
setSelectList(year, month);
}
//If the month is February, determine the number of days depending on whether or not the year is a leap year
if (month == 1)
ppcML[1] = (isLeap(year)) ? 29 : 28;
ppcPtr.setYear(year);
ppcPtr.setMonth(month);
ppcPtr.setDate(1);
updateContent();
}
//Update the date in the form object
function updateContent()
{
generateContent();
if (ppcIE)
document.all['monthDays'].innerHTML = ppcCD;
else if (ppcNN)
{
//If the browser is a netscape browser, open a seperate window, and write the code for the calendar
with (document.layers['PopUpCalendar'].document.layers['monthDays'].document)
{
open("text/html");
write("\n\nDynDoc\n\n\n");
write(ppcCD);
write("\n");
close();
}
}
else
showError(ppcER[0]);
ppcCD = ppcTT;
}
//Generate the calendar's contents
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)
{
//Change the background color of the cell if the day is either a Sunday or a Saturday
bgr = ((i == 0)||(i == 6)) ? "#888844" : "#ECE9D8";
if (((j == 0) && (i < day)) || (date > len))
tmp += makeCell(bgr, year, month, 0);
else
{
tmp += makeCell(bgr, year, month, date);
++date;
}
}
ppcCD += "\n" + tmp + "
\n";
tmp = "";
}
ppcCD += "
\n";
}
//Create a cell in the generated table that has the generated date
function makeCell(bgr, year, month, date)
{
var param = "\'" + year + "|" + month + "|" + date + "\'";
var td1 = " | \n" : "\n";
var evt = "onMouseOver=\"this.style.backgroundColor=\'#FF0000\'\" onMouseOut=\"this.style.backgroundColor=\'" + bgr + "\'\" onMouseUp=\"selectDate(" + param + ")\" ";
var ext = "";
var lck = "";
var lnk = "";
var cellValue = (date != 0) ? date + "" : " ";
if ((ppcNow.getDate() == date) && (ppcNow.getMonth() == month) && (getFullYear(ppcNow) == year))
cellValue = "" + cellValue + "";
var cellCode = "";
//If the date is equal to 0, create a blank cell. Otherwise, insert the date.
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 = " " + cellValue + " ";
cellCode = td1 + ">" + lnk + ppcFT + cellValue + td2;
}
}
return cellCode;
}
//Set the selection list
function setSelectList(year,month)
{
var i = 0;
var obj = null;
if (ppcIE)
obj = document.ppcMonthList.sItem;
else if (ppcNN)
obj = document.layers['PopUpCalendar'].document.layers['monthSelector'].document.ppcMonthList.sItem;
else
{/* NOP */}
while (i < 13)
{
obj.options[i].value = year + "|" + month;
obj.options[i].text = year + " • " + ppcMN[month];
i++;
month++;
if (month == 12)
{
year++;
month = 0;
}
}
}
//Hide the calendar after the selection
function hideCalendar()
{
if (ppcIE)
document.all['PopUpCalendar'].style.visibility = "hidden";
else if (ppcNN)
{
document.layers['PopUpCalendar'].visibility = "hide";
window.status = " ";
}
else
{/* NOP */}
ppcTI = false;
setCalendar();
ppcSV = null;
if (ppcIE)
var obj = document.ppcMonthList.sItem;
else if (ppcNN)
var obj = document.layers['PopUpCalendar'].document.layers['monthSelector'].document.ppcMonthList.sItem;
else
{/* NOP */}
obj.selectedIndex = 0;
}
//Show any error messages upon an error with a javascript alert() function
function showError(message)
{
window.alert("[ PopUp Calendar ]\n\n" + message);
}
//Determine whether or not the submitted year is a leap year
function isLeap(year)
{
if ((year % 400 == 0) || (( year % 4 == 0) && (year % 100 != 0)))
return true;
else
return false;
}
//Get the full year
function getFullYear(obj)
{
if (ppcNN)
return obj.getYear() + 1900;
else
return obj.getYear();
}
//Is the date a valid date
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;
}
//Is the day an even or odd date
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";
}
//Format the date depending on what is submitted in the function call
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 += ppcMN[month];
break;
case "m":
str += (month<9) ? ("0"+(++month)) : ++month;
break;
case "Y":
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);
}