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


// |                   Popup Calendar(Window)                   |


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


// | Last 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)                |


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





// 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 yxLinks=new Array("", "[clear]");





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, ddfield, mmfield, yyfield, datefield, form) {


  this.name = name;


  this.title = title;


  this.field = datefield;


  this.ddfield =ddfield;


  this.mmfield = mmfield;


  this.yyfield = yyfield;


  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, ddfield, mmfield, yyfield, datefield, form) {


  cals[cals.length] = new calOBJ(name, title, ddfield, mmfield, yyfield, datefield, 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 && !calWin.closed) {


      hasCal=true;


      calWin.moveTo(winX+calOffsetX,winY+calOffsetY);


    }





    if (!hasCal) {


      if (isIE || isOpera6) {


        calWin=window.open("","cal","toolbar=0,width="+300+",height="+200+",left="+(winX+calOffsetX)+",top="+(winY+calOffsetY));


      }


      else {


        calWin=window.open("","cal","toolbar=0,width="+300+",height="+200+",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="";


  currentCal.form[currentCal.ddfield].value="";


  currentCal.form[currentCal.mmfield].value="";


  currentCal.form[currentCal.yyfield].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;


  currentCal.form[currentCal.ddfield].value=date.substr(0,2);


  currentCal.form[currentCal.mmfield].value=date.substr(3,2);


  currentCal.form[currentCal.yyfield].value=date.substr(6,4);


  // IE5/Mac needs focus to show the value, weird.


//  currentCal.form[currentCal.field].focus();


  currentCal.form[currentCal.ddfield].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;