// +------------------------------------------------------------+

// |                   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;

