/* 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("Januar","Februar","Mars","April","Mai","Juni","Juli","August","September","Oktober","November","Desember");
var ppcWN = new Array("Søndag","Mandag","Tirsdag","Onsdag","Torsdag","Fredag","Lørdag");
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;
var ppc_Year=-1;
var ppc_Month=-1;
var ppc_Day=-1;
var ppc_Hour=-1;
var ppc_Minute=-1;
var ppcDate="1/1-2000";
var ppcHour="11";
var ppcMinute="00";
var ppcWid="16";
var rememberYear=0;
var rememberMonth=0;
var noMonths=24;
/* 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("Søndag","Mandag","Tirsdag","Onsdag","Torsdag","Fredag","Lørdag");
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("Restoring the layer structure...");
write("");
write("");
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 extractDateValues(pVal)
{
var retval=false;
var retstr="";
ppc_Year=2001;
ppc_Month=0;
ppc_Day=0;
ppc_Hour=11;
ppc_Minute=0;
ppcHour=12;
ppcMinute=34;
if (pVal!=null)
{
val=pVal.value;
if (val!="")
{
var s1,sdate,stime,s2,s3,s5;
s1=val.split(" ");
sdate=(s1.length>1)?s1[0]:val;
stime=(s1.length>1)?s1[1]:"0:00";
s2=sdate.split("-");
if (s2.length==2)
{
s3=s2[0].split("/");
if (s3.length==2)
{
ppc_Year=s2[1];
ppc_Month=s3[1]-1;
ppc_Day=s3[0]-1;
ppcDate=sdate;
s2=stime.split(":");
if (s2.length==2)
{
ppc_Hour=s2[0];
ppc_Minute=s2[1];
ppcHour=s2[0];
ppcMinute=s2[1];
}
else
retstr="Could not decode time (" + stime + ")!";
retval=true;
}
else
retstr="Could not decode address value (" + val + ")!";
}
else
retstr="Could not decode address value (" + val + ")!";
}
else
retstr="val is empty!";
}
else
alert("val don't exist!");
return (retval);
}
function getCalendarFor(target,rules)
{
ppcSV = target;
ppcRL = rules;
if (ppcFC)
{
if (extractDateValues(ppcSV))
setCalendar(ppc_Year,ppc_Month);
else
setCalendar();
ppcFC = false;
}
else
{
if (extractDateValues(ppcSV))
setCalendar(ppc_Year,ppc_Month);
else
setCalendar(rememberYear,rememberMonth);
}
if ((ppcSV != null)&&(ppcSV))
{
if (ppcIE)
{
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)
{
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 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 = "#ffffc0";
window.setTimeout("document.ppcMonthList.sItem.style.backgroundColor = '#FFFFFF'",50);
}
}
}
function selectDate(param)
{
var arr = param.split("|");
var year = arr[0];
var month = arr[1];
var date = arr[2];
ppcDate=dateFormat(year,month,date);
var ptr = parseInt(date);
ppcPtr.setDate(ptr);
if ((ppcSV != null)&&(ppcSV))
{
if (validDate(date)) {
ppcSV.value =ppcDate + " " + ((ppcHour<10)?"00":ppcHour) + ":" + ((ppcMinute<10)?"00":ppcMinute);}
else {
showError(ppcER[2]);
if (ppcTI)
{
clearTimeout(ppcTI);
ppcTI = false;
}
}
}
else
{
showError(ppcER[1]);
hideCalendar();
}
}
function selectHour(param)
{
ppcHour=param;
ppcSV.value =ppcDate + " " + ((ppcHour<10)?"0"+ppcHour:ppcHour) + ":" + ((ppcMinute<10)?"00":ppcMinute);
return;
}
function selectMinute(param)
{
ppcMinute=param;
ppcSV.value =ppcDate + " " + ((ppcHour<10)?"0"+ppcHour:ppcHour) + ":" + ((ppcMinute<10)?"00":ppcMinute);
return;
}
function setCalendar(year,month)
{
if (year == null) {
year = getFullYear(ppcNow);}
if (month == null) {
month = ppcNow.getMonth();
setSelectList(year,month,year,month);
}
else
{
setSelectList(getFullYear(ppcNow),ppcNow.getMonth(),year,month);
}
rememberYear=year;
rememberMonth=month ;
if (month == 1)
{
ppcML[1] = (isLeap(year)) ? 29 : 28;
}
ppcPtr.setYear(year);
ppcPtr.setMonth(month);
ppcPtr.setDate(1);
updateContent();
}
function updateContent()
{
ppcCD = "";
generateContent();
if (ppcIE)
{
document.all['monthDays'].innerHTML = ppcCD;
}
else if (ppcNN)
{
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;
}
function generateContent()
{
var year = getFullYear(ppcPtr);
var month = ppcPtr.getMonth();
var date = 1;
var day = ppcPtr.getDay(); // 0=sunday, 6=saturday
if (day==0)
{
day=7;
}
var len = ppcML[month];
var bgr,fgr,cnt,tmp = "";
var j,i = 0;
ppcCD = ppcTT;
for (j = 0; j < 7; ++j)
{
if (date > len)
{
break;
}
for (i = 1; i < 8; ++i)
{
bgr = ((i == 6)||(i == 7)) ? "#FFFFF0" : "#FFFFFF";
fgr = ((i == 6)||(i == 7)) ? "#ff0000" : "#000000";
if (((j == 0)&&(i < day))||(date > len))
{
tmp += makeCell(fgr,bgr,year,month,0);
}
else
{
tmp += makeCell(fgr,bgr,year,month,date);
++date;
}
}
ppcCD += "\n" + tmp + "
\n";tmp = "";
}
ppcCD += "
\n";
var s=ppcTT;
s+="";
bgr="#FFFFFF";
fgr="#000000";
for (i=0;i<24;i+=6)
{
s+="\n";
for(j=0;j<6;j++){
s+=makeCell2("#000000","#F0F0FF",i+j,"selectHour");}
s+="
\n";
}
s+="\n";
ppcCD+=s;
s=ppcTT;
s+="\n"
s+=makeCell2("#000000","#FFF0F0",0,"selectMinute");
s+=makeCell2("#000000","#FFF0F0",30,"selectMinute");
s+="
\n";
s+="\n"
for (i=0;i<30;i+=5) {
s+=makeCell2("#000000","#FFF0F0",i,"selectMinute");}
s+="
\n";
s+="\n"
for (i=30;i<60;i+=5) {
s+=makeCell2("#000000","#FFF0F0",i,"selectMinute");}
s+="
\n";
s+="\n";
ppcCD+=s;
}
function makeCell(fgr,bgr,year,month,date)
{
var param = "\'"+year+"|"+month+"|"+date+"\'";
var td1 = ""
var td2b = (ppcIE) ? " | \n" : "\n";
var evt = "onMouseOver=\"this.style.backgroundColor=\'#cccccc\'\" 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 (date == 0)
{
if (ppcIE) {
cellCode = td1+"Style=\"cursor: default\">"+lck+td2a+cellValue+td2b;}
else {
cellCode = td1+">"+td2a+cellValue+td2b;}
}
else
{
if (ppcIE) {
cellCode = td1+evt+"Style=\"cursor: hand\">"+ext+td2a+cellValue+td2b;}
else
{
if (date < 10) {
cellValue = " " + cellValue + " ";}
cellCode = td1+">"+lnk+td2a+cellValue+td2b;
}
}
return cellCode;
}
function makeCell2(fgr,bgr,val,fnc)
{
var param=(val<10)?"0"+val:val;
var td1 = ""
var td2b = (ppcIE) ? " | \n" : "\n";
var evt = "onMouseOver=\"this.style.backgroundColor=\'#cccccc\'\" onMouseOut=\"this.style.backgroundColor=\'"+bgr+"\'\" onMouseUp=\""+fnc+"("+param+")\" ";
var ext = "";
var lnk = "";
var cellValue = val<=0?"00":param;
var cellCode = "";
if (ppcIE) {
cellCode = td1+evt+"Style=\"cursor: hand\">"+ext+td2a+cellValue+td2b;}
else {
cellCode = td1+">"+lnk+td2a+cellValue+td2b;}
return cellCode;
}
function setSelectList(year,month,selectedYear,selectedMonth)
{
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 < noMonths)
{
obj.options[i].value = year + "|" + month;
obj.options[i].text = year + " • " + ppcMN[month];
if ((year==selectedYear) && (month==selectedMonth))
obj.options[i].selected=true;
else
obj.options[i].selected=false;
i++;
month++;
if (month == 12)
{
year++;month = 0;
}
}
}
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;
}
function showError(message)
{
window.alert("[ PopUp Calendar ]\n\n" + message);
}
function isLeap(year)
{
return (year%400==0)||((year%4==0)&&(year%100!=0))?true: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 = "d/m-Y"; // "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) ? (""+(++month)) : ++month; break;
case "Y": str += year; break;
case "y": str += year.substring(2); break;
case "d": str += ((ppcDF.indexOf("m")!=-1)&&(date<10)) ? (""+date) : date; break;
case "W": str += ppcWN[day]; break;
default: str += crt;
}
}
return unescape(str);
}