//'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
//'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
// +------------------------------------------------------------+
// |                   Popup Calendar(Window)                   |
// +------------------------------------------------------------+
// | Last Modified:                 June-2005  			        |
// | Modified by:                   Tom Nance 			        |
// | Web Site:                      http://www.skyportal.net	|
// +------------------------------------------------------------+
// | Modified:                 		Sep-2004   			        |
// | Modified by:                   Ken Smiley, Tom Nance       |
// | Web Site:                      http://www.SkyPortal.net|
// +------------------------------------------------------------+
// | Modified:                  03-Oct-2003                |
// | 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)                |
// +------------------------------------------------------------+

// USAGE EXAMPLES AT BOTTOM OF PAGE
// 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="mm/dd/yyyy";var weekDay=0;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 isOpera=(navigator.userAgent.indexOf("Opera")!=-1)?true:false;var isOpera5=(navigator.appVersion.indexOf("MSIE 5")!=-1&&navigator.userAgent.indexOf("Opera 5")!=-1)?true:false;var isOpera6=(navigator.appVersion.indexOf("MSIE 5")!=-1&&navigator.userAgent.indexOf("Opera 6")!=-1)?true:false;var isN6=(navigator.userAgent.indexOf("Gecko")!=-1);var isN4=(document.layers)?true:false;var isMac=(navigator.userAgent.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 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 js_days_lng[wd.getDay()].substring(0,3);}function getMonthFromName(m3){for(var i=0;i<js_months_lng.length;i++){if(js_months_lng[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 js_days_lng[i];}else{return js_days_lng[i].substring(0,dayDigits);}}function calTitle(d){var yy=d.getFullYear(), mm=js_months_lng[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{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&&!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=""+js_calendar+" ["+name+"] "+js_notfnd+".";}else if(!currentCal.form){window.status=""+js_frm+" ["+currentCal.formName+"] "+js_notfnd+".";}else if(!currentCal.form[currentCal.field]){window.status=""+js_frm+" ["+currentCal.formName+"."+currentCal.field+"] "+js_notfnd+".";}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/,js_months_lng[cM].substring(0,3).toUpperCase());date=date.replace(/Mon/i,js_months_lng[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;currentCal.form[currentCal.field].focus();}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("","","");}}function getDateConfig(strng){var tempStr;tempStr=strng;switch(strng){case "dmy":return "dd/mm/yyyy";break;case "mdy":return "mm/dd/yyyy";break;case "ymd":return "yyyy/mm/dd";break;case "ydm":return "yyyy/dd/mm";break;case "dmmy":return "dd/mm/yyyy";break;case "mmdy":return "mm/dd/yyyy";break;case "ymmd":return "yyyy/mm/dd";break;case "ydmm":return "yyyy/dd/mm";break;case "dmmmy":return "dd/mm/yyyy";break;case "mmmdy":return "mm/dd/yyyy";break;case "ymmmd":return "yyyy/mm/dd";break;case "ydmmmm":return "yyyy/dd/mm";break;}}if(isN4||isN6){document.captureEvents(Event.CLICK);}document.onclick=markClick;
 
 //Define calendar(s): addCalendar ("Unique Calendar Name", "Window title", "Form element's name", Form name")
 //addCalendar("Calendar1", "Select Date", "START_DATE", "PostTopic");
 //addCalendar("Calendar2", "Select Date", "END_DATE", "PostTopic");
 setWidth(90, 1, 15, 1);