<!--

// +------------------------------------------------------------+
// | Popup Calendar(Window) |
// +------------------------------------------------------------+
// | Last Modified: 22-Dec-2005 |
// | Web Site: http://www.yxscripts.com |
// | EMail: m_yangxin@hotmail.com |
// +------------------------------------------------------------+
// | Copyright 2002 Xin Yang All Rights Reserved. |
// | This version featured on Dynamic Drive |
// | (http://www.dynamicdrive.com) |
// +------------------------------------------------------------+

// default settings
var fontFace="verdana";
var fontSize=9;

var titleWidth=90;
var titleMode=1;
var dayWidth=12;
var dayDigits=1;

var titleColor="#cccccc";
var daysColor="#cccccc";
var bodyColor="#ffffff";
var dayColor="#ffffff";
var currentDayColor="#333333";
var footColor="#cccccc";
var borderColor="#333333";

var titleFontColor = "#333333";
var daysFontColor = "#333333";
var dayFontColor = "#333333";
var currentDayFontColor = "#ffffff";
var footFontColor = "#333333";

var calFormat = "yyyy/mm/dd";

var weekDay = 0;
// ------

// codes
var calWidth=200, calHeight=200, calOffsetX=-200, calOffsetY=16;
var calWin=null;
var winX=0, winY=0;
var cal="cal";
var cals=new Array();
var currentCal=null;

var yxMonths=new Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");
var yxDays=new Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday");
var yxLinks=new Array("[close]", "[clear]");

var nav=navigator.userAgent.toLowerCase();;
var isOpera=(nav.indexOf("opera")!=-1)?true:false;
var isOpera5=(nav.indexOf("opera 5")!=-1 || nav.indexOf("opera/5")!=-1)?true:false;
var isOpera6=(isOpera && parseInt(navigator.appVersion)>=6)?true:false;
var isN6=(nav.indexOf("gecko")!=-1);
var isN4=(document.layers)?true:false;
var isMac=(nav.indexOf("mac")!=-1);
var isIE=(document.all && !isOpera && (!isMac || navigator.appVersion.indexOf("MSIE 4")==-1))?true:false;

if (isN4) {
 fontSize+=2;
}

var span2="</span>";

function span1(tag) {
 return "<span class='"+tag+"'>";
}
function spanx(tag, color) {
 return "."+tag+" { font-family:"+fontFace+"; font-size:"+fontSize+"px; color:"+color+"; }\n";
}

function a1(tag) {
 return "<a class='"+tag+"' href=";
}

function ax(tag, color) {
 return "."+tag+" { text-decoration:none; color:"+color+"; }\n";
}

function calOBJ(name, title, field, form) {
 this.name = name;
 this.title = title;
 this.field = field;
 this.formName = form;
 this.form = null
}

function setFont(font, size) {
 if (font != "") {
 fontFace=font;
 }
 if (size > 0) {
 fontSize=size;

 if (isN4) {
 fontSize+=2;
 }
 }
}

function setWidth(tWidth, tMode, dWidth, dDigits) {
 if (tWidth > 0) {
 titleWidth=tWidth;
 }
 if (tMode == 1 || tMode == 2) {
 titleMode=tMode;
 }
 if (dWidth > 0) {
 dayWidth=dWidth;
 }
 if (dDigits > 0) {
 dayDigits=dDigits;
 }
}

function setColor(tColor, dsColor, bColor, dColor, cdColor, fColor, bdColor) {
 if (tColor != "") {
 titleColor=tColor;
 }
 if (dsColor != "") {
 daysColor=dsColor;
 }
 if (bColor != "") {
 bodyColor=bColor;
 }
 if (dColor != "") {
 dayColor=dColor;
 }
 if (cdColor != "") {
 currentDayColor=cdColor;
 }
 if (fColor != "") {
 footColor=fColor;
 }
 if (bdColor != "") {
 borderColor=bdColor;
 }
}

function setFontColor(tColorFont, dsColorFont, dColorFont, cdColorFont, fColorFont) {
 if (tColorFont != "") {
 titleFontColor=tColorFont;
 }
 if (dsColorFont != "") {
 daysFontColor=dsColorFont;
 }
 if (dColorFont != "") {
 dayFontColor=dColorFont;
 }
 if (cdColorFont != "") {
 currentDayFontColor=cdColorFont;
 }
 if (fColorFont != "") {
 footFontColor=fColorFont;
 }
}

function setFormat(format) {
 calFormat = format;
}

function setSize(width, height, ox, oy) {
 if (width > 0) {
 calWidth=width;
 }
 if (height > 0) {
 calHeight=height;
 }

 calOffsetX=ox;
 calOffsetY=oy;
}

function setWeekDay(wDay) {
 if (wDay == 0 || wDay == 1) {
 weekDay = wDay;
 }
}

function setMonthNames(janName, febName, marName, aprName, mayName, junName, julName, augName, sepName, octName, novName, decName) {
 if (janName != "") {
 yxMonths[0] = janName;
 }
 if (febName != "") {
 yxMonths[1] = febName;
 }
 if (marName != "") {
 yxMonths[2] = marName;
 }
 if (aprName != "") {
 yxMonths[3] = aprName;
 }
 if (mayName != "") {
 yxMonths[4] = mayName;
 }
 if (junName != "") {
 yxMonths[5] = junName;
 }
 if (julName != "") {
 yxMonths[6] = julName;
 }
 if (augName != "") {
 yxMonths[7] = augName;
 }
 if (sepName != "") {
 yxMonths[8] = sepName;
 }
 if (octName != "") {
 yxMonths[9] = octName;
 }
 if (novName != "") {
 yxMonths[10] = novName;
 }
 if (decName != "") {
 yxMonths[11] = decName;
 }
}

function setDayNames(sunName, monName, tueName, wedName, thuName, friName, satName) {
 if (sunName != "") {
 yxDays[0] = sunName;
 yxDays[7] = sunName;
 }
 if (monName != "") {
 yxDays[1] = monName;
 }
 if (tueName != "") {
 yxDays[2] = tueName;
 }
 if (wedName != "") {
 yxDays[3] = wedName;
 }
 if (thuName != "") {
 yxDays[4] = thuName;
 }
 if (friName != "") {
 yxDays[5] = friName;
 }
 if (satName != "") {
 yxDays[6] = satName;
 }
}

function setLinkNames(closeLink, clearLink) {
 if (closeLink != "") {
 yxLinks[0] = closeLink;
 }
 if (clearLink != "") {
 yxLinks[1] = clearLink;
 }
}

function addCalendar(name, title, field, form) {
 cals[cals.length] = new calOBJ(name, title, field, form);
}

function findCalendar(name) {
 for (var i = 0; i < cals.length; i++) {
 if (cals[i].name == name) {
 if (cals[i].form == null) {
 if (cals[i].formName == "") {
 if (document.forms[0]) {
 cals[i].form = document.forms[0];
 }
 }
 else if (document.forms[cals[i].formName]) {
 cals[i].form = document.forms[cals[i].formName];
 }
 }

 return cals[i];
 }
 }

 return null;
}

function getDayName(y,m,d) {
 var wd=new Date(y,m,d);
 return yxDays[wd.getDay()].substring(0,3);
}

function getMonthFromName(m3) {
 for (var i = 0; i < yxMonths.length; i++) {
 if (yxMonths[i].toLowerCase().substring(0,3) == m3.toLowerCase()) {
 return i;
 }
 }

 return 0;
}

function getFormat() {
 var calF = calFormat;

 calF = calF.replace(/\\/g, '\\\\');
 calF = calF.replace(/\//g, '\\\/');
 calF = calF.replace(/\[/g, '\\\[');
 calF = calF.replace(/\]/g, '\\\]');
 calF = calF.replace(/\(/g, '\\\(');
 calF = calF.replace(/\)/g, '\\\)');
 calF = calF.replace(/\{/g, '\\\{');
 calF = calF.replace(/\}/g, '\\\}');
 calF = calF.replace(/\</g, '\\\<');
 calF = calF.replace(/\>/g, '\\\>');
 calF = calF.replace(/\|/g, '\\\|');
 calF = calF.replace(/\*/g, '\\\*');
 calF = calF.replace(/\?/g, '\\\?');
 calF = calF.replace(/\+/g, '\\\+');
 calF = calF.replace(/\^/g, '\\\^');
 calF = calF.replace(/\$/g, '\\\$');

 calF = calF.replace(/dd/i, '\\d\\d');
 calF = calF.replace(/mm/i, '\\d\\d');
 calF = calF.replace(/yyyy/i, '\\d\\d\\d\\d');
 calF = calF.replace(/day/i, '\\w\\w\\w');
 calF = calF.replace(/mon/i, '\\w\\w\\w');

 return new RegExp(calF);
}

function getDateNumbers(date) {
 var y, m, d;

 var yIdx = calFormat.search(/yyyy/i);
 var mIdx = calFormat.search(/mm/i);
 var m3Idx = calFormat.search(/mon/i);
 var dIdx = calFormat.search(/dd/i);

 y=date.substring(yIdx,yIdx+4)-0;
 if (mIdx != -1) {
 m=date.substring(mIdx,mIdx+2)-1;
 }
 else {
 var m = getMonthFromName(date.substring(m3Idx,m3Idx+3));
 }
 d=date.substring(dIdx,dIdx+2)-0;

 return new Array(y,m,d);
}

function hideCal() {
 calWin.close();
 calWin = null;
 window.status = "";
}

function getLeftIE(x,m) {
 var dx=0;
 if (x.tagName=="TD"){
 dx=x.offsetLeft;
 }
 else if (x.tagName=="TABLE") {
 dx=x.offsetLeft;
 if (m) { dx+=(x.cellPadding!=""?parseInt(x.cellPadding):2); m=false; }
 }
 return dx+(x.parentElement.tagName=="BODY"?0:getLeftIE(x.parentElement,m));
}
function getTopIE(x,m) {
 var dy=0;
 if (x.tagName=="TR"){
 dy=x.offsetTop;
 }
 else if (x.tagName=="TABLE") {
 dy=x.offsetTop;
 if (m) { dy+=(x.cellPadding!=""?parseInt(x.cellPadding):2); m=false; }
 }
 return dy+(x.parentElement.tagName=="BODY"?0:getTopIE(x.parentElement,m));
}

function getLeftN4(l) { return l.pageX; }
function getTopN4(l) { return l.pageY; }

function getLeftN6(l) { return l.offsetLeft; }
function getTopN6(l) { return l.offsetTop; }

function lastDay(d) {
 var yy=d.getFullYear(), mm=d.getMonth();
 for (var i=31; i>=28; i--) {
 var nd=new Date(yy,mm,i);
 if (mm == nd.getMonth()) {
 return i;
 }
 }
}

function firstDay(d) {
 var yy=d.getFullYear(), mm=d.getMonth();
 var fd=new Date(yy,mm,1);
 return fd.getDay();
}

function dayDisplay(i) {
 if (dayDigits == 0) {
 return yxDays[i];
 }
 else {
 return yxDays[i].substring(0,dayDigits);
 }
}

function calTitle(d) {
 var yy=d.getFullYear(), mm=yxMonths[d.getMonth()];
 var s;

 if (titleMode == 2) {
 s="<tr align='center' bgcolor='"+titleColor+"'><td colspan='7'>\n<table cellpadding='0' cellspacing='0' border='0'><tr align='center' valign='middle'><td align='right'>"+span1("title")+"<b>"+a1("titlea")+"'javascript:if(window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(-10)'>&nbsp;&#171;</a>&nbsp;"+a1("titlea")+"'javascript:if(window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(-1)'>&#139;&nbsp;</a></b>"+span2+"</td><td width='"+titleWidth+"'><b>"+span1("title")+yy+span2+"</b></td><td align='left'>"+span1("title")+"<b>"+a1("titlea")+"'javascript:if (window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(1)'>&nbsp;&#155;</a>&nbsp;"+a1("titlea")+"'javascript:if (window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(10)'>&#187;&nbsp;</a></b>"+span2+"</td></tr><tr align='center' valign='middle'><td align='right'>"+span1("title")+"<b>"+a1("titlea")+"'javascript:if (window.opener && !window.opener.closed && window.opener.prepMonth) window.opener.prepMonth("+d.getMonth()+")'>&nbsp;&#139;&nbsp;</a></b>"+span2+"</td><td width='"+titleWidth+"'><b>"+span1("title")+mm+span2+"</b></td><td align='left'>"+span1("title")+"<b>"+a1("titlea")+"'javascript:if (window.opener && !window.opener.closed && window.opener.nextMonth) window.opener.nextMonth("+d.getMonth()+")'>&nbsp;&#155;&nbsp;</a></b>"+span2+"</td></tr></table>\n</td></tr><tr align='center' bgcolor='"+daysColor+"'>";
 }
 else {
 s="<tr align='center' bgcolor='"+titleColor+"'><td colspan='7'>\n<table cellpadding='0' cellspacing='0' border='0'><tr align='center' valign='middle'><td>"+span1("title")+"<b>"+a1("titlea")+"'javascript:if(window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(-1)'>&nbsp;&#171;</a>&nbsp;"+a1("titlea")+"'javascript:if (window.opener && !window.opener.closed && window.opener.prepMonth) window.opener.prepMonth("+d.getMonth()+")'>&#139;&nbsp;</a></b>"+span2+"</td><td width='"+titleWidth+"'><nobr><b>"+span1("title")+mm+" "+yy+span2+"</b></nobr></td><td>"+span1("title")+"<b>"+a1("titlea")+"'javascript:if (window.opener && !window.opener.closed && window.opener.nextMonth) window.opener.nextMonth("+d.getMonth()+")'>&nbsp;&#155;</a>&nbsp;"+a1("titlea")+"'javascript:if(window.opener && !window.opener.closed && window.opener.moveYear) window.opener.moveYear(1)'>&#187;&nbsp;</a></b>"+span2+"</td></tr></table>\n</td></tr><tr align='center' bgcolor='"+daysColor+"'>";
 }

 for (var i=weekDay; i<weekDay+7; i++) {
 s+="<td width='"+dayWidth+"'>"+span1("days")+dayDisplay(i)+span2+"</td>";
 }

 s+="</tr>";

 return s;
}

function calHeader() {
 return "<head>\n<title>"+currentCal.title+"</title>\n<style type='text/css'>\n"+spanx("title",titleFontColor)+spanx("days",daysFontColor)+spanx("foot",footColor)+spanx("day",dayFontColor)+spanx("currentDay",currentDayFontColor)+ax("titlea",titleFontColor)+ax("daya",dayFontColor)+ax("currenta",currentDayFontColor)+ax("foota",footFontColor)+"</style>\n</head>\n<body>\n<table align='center' border='0' bgcolor='"+borderColor+"' cellspacing='0' cellpadding='1'><tr><td>\n<table cellspacing='1' cellpadding='3' border='0'>";
}

function calFooter() {
 return "<tr bgcolor='"+footColor+"'><td colspan='7' align='center'>"+span1("foot")+"<b>"+a1("foota")+"'javascript:if (window.opener && !window.opener.closed && window.opener.hideCal) window.opener.hideCal()'>"+yxLinks[0]+"</a>&nbsp;&nbsp;"+a1("foota")+"'javascript:if (window.opener && !window.opener.closed && window.opener.clearDate) window.opener.clearDate()'>"+yxLinks[1]+"</a></b>"+span2+"</td></tr></table>\n</td></tr></table>\n</body>";
}

function calBody(d,day) {
 var s="", dayCount=1, fd=firstDay(d), ld=lastDay(d);

 if (weekDay > 0 && fd == 0) {
 fd = 7;
 }

 for (var i=0; i<6; i++) {
 s+="<tr align='center' bgcolor='"+bodyColor+"'>";
 for (var j=weekDay; j<weekDay+7; j++) {
 if (i*7+j<fd || dayCount>ld) {
 s+="<td>"+span1("day")+"&nbsp;"+span2+"</td>";
 }
 else {
 var bgColor=dayColor;
 var fgTag="day";
 var fgTagA="daya";
 if (dayCount==day) {
 bgColor=currentDayColor;
 fgTag="currentDay";
 fgTagA="currenta";
 }

 s+="<td bgcolor='"+bgColor+"'>"+span1(fgTag)+a1(fgTagA)+"'javascript: if (window.opener && !window.opener.closed && window.opener.pickDate) window.opener.pickDate("+dayCount+")'>"+(dayCount++)+"</a>"+span2+"</td>";
 }
 }
 s+="</tr>";
 }

 return s;
}

function moveYear(dy) {
 cY+=dy;
 var nd=new Date(cY,cM,1);
 changeCal(nd);
}

function prepMonth(m) {
 cM=m-1;
 if (cM<0) { cM=11; cY--; }
 var nd=new Date(cY,cM,1);
 changeCal(nd);
}

function nextMonth(m) {
 cM=m+1;
 if (cM>11) { cM=0; cY++;}
 var nd=new Date(cY,cM,1);
 changeCal(nd);
}

function changeCal(d) {
 var dd = 0;

 if (currentCal != null) {
 var calRE = getFormat();

 if (currentCal.form[currentCal.field].value!="" && calRE.test(currentCal.form[currentCal.field].value)) {
 var cd = getDateNumbers(currentCal.form[currentCal.field].value);
 if (cd[0] == d.getFullYear() && cd[1] == d.getMonth()) {
 dd=cd[2];
 }
 }
 else {
 var cd = new Date();
 if (cd.getFullYear() == d.getFullYear() && cd.getMonth() == d.getMonth()) {
 dd=cd.getDate();
 }
 }
 }

 var calendar=calHeader()+calTitle(d)+calBody(d,dd)+calFooter();

 calWin.document.open();
 calWin.document.write(calendar);
 calWin.document.close();
}

function markClick(e) {
 if (isIE || isOpera6) {
 winX=event.screenX;
 winY=event.screenY;
 }
 else if (isN4 || isN6) {
 winX=e.screenX;
 winY=e.screenY;

 document.routeEvent(e);
 }

 if (isN4 || isN6) {
 document.routeEvent(e);
 }
 else {
 event.cancelBubble=false;
 }

 return true;
}

function showCal(name) {
 var lastCal=currentCal;
 var d=new Date(), hasCal=false;

 currentCal = findCalendar(name);

 if (currentCal != null && currentCal.form != null && currentCal.form[currentCal.field]) {
 var calRE = getFormat();

 if (currentCal.form[currentCal.field].value!="" && calRE.test(currentCal.form[currentCal.field].value)) {
 var cd = getDateNumbers(currentCal.form[currentCal.field].value);
 d=new Date(cd[0],cd[1],cd[2]);

 cY=cd[0];
 cM=cd[1];
 dd=cd[2];
 }
 else {
 cY=d.getFullYear();
 cM=d.getMonth();
 dd=d.getDate();
 }

 var calendar=calHeader()+calTitle(d)+calBody(d,dd)+calFooter();

 if (calWin != null && typeof(calWin.closed)!="undefined" && !calWin.closed) {
 hasCal=true;
 calWin.moveTo(winX+calOffsetX,winY+calOffsetY);
 }

 if (!hasCal) {
 if (isIE || isOpera6) {
 calWin=window.open("","cal","toolbar=0,width="+calWidth+",height="+calHeight+",left="+(winX+calOffsetX)+",top="+(winY+calOffsetY));
 }
 else {
 calWin=window.open("","cal","toolbar=0,width="+calWidth+",height="+calHeight+",screenx="+(winX+calOffsetX)+",screeny="+(winY+calOffsetY));
 }
 }

 calWin.document.open();
 calWin.document.write(calendar);
 calWin.document.close();

 calWin.focus();
 }
 else {
 if (currentCal == null) {
 window.status = "Calendar ["+name+"] not found.";
 }
 else if (!currentCal.form) {
 window.status = "Form ["+currentCal.formName+"] not found.";
 }
 else if (!currentCal.form[currentCal.field]) {
 window.status = "Form Field ["+currentCal.formName+"."+currentCal.field+"] not found.";
 }

 if (lastCal != null) {
 currentCal = lastCal;
 }
 }
}

function get2Digits(n) {
 return ((n<10)?"0":"")+n;
}

function clearDate() {
 currentCal.form[currentCal.field].value="";
 hideCal();
}

function pickDate(d) {
 hideCal();
 window.focus();

 var date=calFormat;
 date = date.replace(/yyyy/i, cY);
 date = date.replace(/mm/i, get2Digits(cM+1));
 date = date.replace(/MON/, yxMonths[cM].substring(0,3).toUpperCase());
 date = date.replace(/Mon/i, yxMonths[cM].substring(0,3));
 date = date.replace(/dd/i, get2Digits(d));
 date = date.replace(/DAY/, getDayName(cY,cM,d).toUpperCase());
 date = date.replace(/day/i, getDayName(cY,cM,d));

 currentCal.form[currentCal.field].value=date;
 // IE5/Mac needs focus to show the value, weird.
 currentCal.form[currentCal.field].focus();
}
// ------

// user functions
function checkDate(name) {
 var thisCal = findCalendar(name);

 if (thisCal != null && thisCal.form != null && thisCal.form[thisCal.field]) {
 var calRE = getFormat();

 if (calRE.test(thisCal.form[thisCal.field].value)) {
 return 0;
 }
 else {
 return 1;
 }
 }
 else {
 return 2;
 }
}

function getCurrentDate() {
 var date=calFormat, d = new Date();
 date = date.replace(/yyyy/i, d.getFullYear());
 date = date.replace(/mm/i, get2Digits(d.getMonth()+1));
 date = date.replace(/dd/i, get2Digits(d.getDate()));

 return date;
}

function compareDates(date1, date2) {
 var calRE = getFormat();
 var d1, d2;

 if (calRE.test(date1)) {
 d1 = getNumbers(date1);
 }
 else {
 d1 = getNumbers(getCurrentDate());
 }

 if (calRE.test(date2)) {
 d2 = getNumbers(date2);
 }
 else {
 d2 = getNumbers(getCurrentDate());
 }

 var dStr1 = d1[0] + "" + d1[1] + "" + d1[2];
 var dStr2 = d2[0] + "" + d2[1] + "" + d2[2];

 if (dStr1 == dStr2) {
 return 0;
 }
 else if (dStr1 > dStr2) {
 return 1;
 }
 else {
 return -1;
 }
}

function getNumbers(date) {
 var calRE = getFormat();
 var y, m, d;

 if (calRE.test(date)) {
 var yIdx = calFormat.search(/yyyy/i);
 var mIdx = calFormat.search(/mm/i);
 var m3Idx = calFormat.search(/mon/i);
 var dIdx = calFormat.search(/dd/i);

 y=date.substring(yIdx,yIdx+4);
 if (mIdx != -1) {
 m=date.substring(mIdx,mIdx+2);
 }
 else {
 var mm=getMonthFromName(date.substring(m3Idx,m3Idx+3))+1;
 m=(mm<10)?("0"+mm):(""+mm);
 }
 d=date.substring(dIdx,dIdx+2);

 return new Array(y,m,d);
 }
 else {
 return new Array("", "", "");
 }
}
// ------

if (isN4 || isN6) {
 document.captureEvents(Event.CLICK);
}
document.onclick=markClick;

-->