// PopCalendar 3.50, Emailware(please mail&commend me if u like it)
// Originally coded by Liming(Victor) Weng, email: victorwon@netease.com
// Release date: 2000.3.13
// Anyone may modify it to satify his needs, but please leave this comment ahead.
//****************************************************************************

var gdCtrl = new Object();
var goSelectTag = new Array();
var gcGray = "#cacaca";
var gcToggle = "#cdf9a2";
var gcToday = "#FF99CC";
var gcMouseOver = gcToday;
var gcTodayMouseOut = gcToday;
var gcBG = "#ffffff";

var gdCurDate = new Date();
var giYear = gdCurDate.getFullYear();
var giMonth = gdCurDate.getMonth()+1;
var giDay = gdCurDate.getDate();
var selfCtrl = null;
var changeimage = '';
var self_image= '';


//****************************************************************************
// Param: popCtrl is the widget beyond which you want this calendar to appear;
//        dateCtrl is the widget into which you want to put the selected date.
// i.e.: <input type="text" name="dc" style="text-align:center" readonly><INPUT type="button" value="V" onclick="fPopCalendar(dc,dc);return false">
//****************************************************************************
function fPopHideCalendar(popCtrl, dateCtrl, self, changeimage1)
{
  selfCtrl = self;
  changeimage= changeimage1;

  if (VicPopCal.style.visibility == 'visible')  //to hide
    fHideCalendar();
  else if (VicPopCal.style.visibility == 'hidden')  //to pop
    fPopCalendar(popCtrl,dateCtrl);

}

function fPopCalendar(popCtrl, dateCtrl){
  event.cancelBubble=true;
  gdCtrl = dateCtrl;
  fSetYearMon(giYear, giMonth);
  var point = fGetXY(popCtrl);
  with (VicPopCal.style) {
   left = point.x;
 top  = point.y+popCtrl.offsetHeight+1;
 width = VicPopCal.offsetWidth;
 height = VicPopCal.offsetHeight;
 fToggleTags(point);
 visibility = 'visible';
  }
  VicPopCal.focus();

  //add by Cloudya 3/12
  self_image=selfCtrl.src;
  selfCtrl.src = changeimage;

}

function stringWidth(s, len)
{
  s = String(s);
  while(s.length < len)
    s = '0' + s;
  return s;
}

function fSetDate(iYear, iMonth, iDay){
  gdCtrl.value = stringWidth(iYear, 4)+
    stringWidth(iMonth, 2) + 
    stringWidth(iDay, 2); //Here, you could modify the locale as you need !!!!
  fHideCalendar();
}

function fHideCalendar(){
  VicPopCal.style.visibility = "hidden";
  for (i in goSelectTag)
   goSelectTag[i].style.visibility = "visible";
  goSelectTag.length = 0;
  selfCtrl.src= self_image;
}

function fSetSelected(aCell){
  var iOffset = 0;
  var iYear = parseInt(tbSelYear.value);
  var iMonth = parseInt(tbSelMonth.value);

  aCell.bgColor = gcBG;
  with (aCell.children["cellText"]){
   var iDay = parseInt(innerText);
   if (color==gcGray)
  iOffset = (Victor<10)?-1:1;
 iMonth += iOffset;
 if (iMonth<1) {
  iYear--;
  iMonth = 12;
 }else if (iMonth>12){
  iYear++;
  iMonth = 1;
 }
  }
  fSetDate(iYear, iMonth, iDay);
}

function Point(iX, iY){
 this.x = iX;
 this.y = iY;
}

function fBuildCal(iYear, iMonth) {
  var aMonth=new Array();
  for(i=1;i<7;i++)
   aMonth[i]=new Array(i);

  var dCalDate=new Date(iYear, iMonth-1, 1);
  var iDayOfFirst=dCalDate.getDay();
  var iDaysInMonth=new Date(iYear, iMonth, 0).getDate();
  var iOffsetLast=new Date(iYear, iMonth-1, 0).getDate()-iDayOfFirst+1;
  var iDate = 1;
  var iNext = 1;

  for (d = 0; d < 7; d++)
 aMonth[1][d] = (d<iDayOfFirst)?-(iOffsetLast+d):iDate++;
  for (w = 2; w < 7; w++)
   for (d = 0; d < 7; d++)
  aMonth[w][d] = (iDate<=iDaysInMonth)?iDate++:-(iNext++);
  return aMonth;
}

function fDrawCal(iYear, iMonth, iCellHeight, iDateTextSize) {
  var WeekDay = new Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
  var styleBasic = " bordercolor='"+gcBG+"' valign='middle' align='center' height='"+iCellHeight+"' style='FONT-FAMILY: arial; FONT-SIZE: 11px; font:bold ; "+iDateTextSize+" 90;"           //Coded by Liming Weng(Victor Won) email:victorwon@netease.com
  var styleTD = " bgcolor='"+gcBG+"'" + styleBasic;
  var styleTodayTD = " bgcolor='"+gcToday+"'" + styleBasic;
  var xMonth = fBuildCal(iYear, iMonth);

  with (document) {
  write("<tr>");
  for(i=0; i<7; i++)
    write("<td width=\"14%\""+styleTD+"color:#6e6674' >" + WeekDay[i] + "</td>");
  write("</tr>");

  for (w = 1; w < 7; w++)
  {
    write("<tr>");
    for (d = 0; d < 7; d++)
    {
      //add by Cloudya -- 2002/02/01
      if (xMonth[w][d] == giDay && iYear == giYear && iMonth == giMonth)
        write("<td id=calTodayCell "+styleTodayTD+"cursor:hand;' onMouseOver='this.bgColor=gcTodayMouseOver' onMouseOut='this.bgColor=gcTodayMouseOut' onclick='fSetSelected(this)'>");
      else
      //add close

        write("<td id=calCell "+styleTD+"cursor:hand;' onMouseOver='this.bgColor=gcToggle' onMouseOut='this.bgColor=gcBG' onclick='fSetSelected(this)'>");
      write("<font id=cellText Victor='Liming Weng'> </font>");
      write("</td>")
    }
    write("</tr>");
  }
  }
}

function fUpdateCal(iYear, iMonth) {
  myMonth = fBuildCal(iYear, iMonth);
  var i = 0;
  //add by Cloudya -- 2002/02/01
  if (iYear == giYear && iMonth == giMonth)
  {
    calTodayCell.bgColor = gcToday;
    gcTodayMouseOver = gcToday;
    gcTodayMouseOut = gcToday;
  }
  else
  {
    calTodayCell.bgColor = gcBG;
    gcTodayMouseOver = gcToggle;
    gcTodayMouseOut = gcBG;
  }

  for (w = 0; w < 6; w++)
 for (d = 0; d < 7; d++)
  with (cellText[(7*w)+d]) {
   Victor = i++;
   if (myMonth[w+1][d]<0) {
    color = gcGray;
    innerText = -myMonth[w+1][d];
   }
   else if (d==6) {
    color = "green";
    innerText = myMonth[w+1][d];
   }
   else if (d==0) {
    color = "red";
    innerText = myMonth[w+1][d];
   }
   else {
    color = "#2d4b74";
    innerText = myMonth[w+1][d];
   }
  }
}

function fSetYearMon(iYear, iMon){
  tbSelMonth.options[iMon-1].selected = true;
  for (i = 0; i < tbSelYear.length; i++)
 if (tbSelYear.options[i].value == iYear)
  tbSelYear.options[i].selected = true;
  fUpdateCal(iYear, iMon);
}

function fPrevMonth(){
  var iMon = tbSelMonth.value;
  var iYear = tbSelYear.value;

  if (--iMon<1) {
   iMon = 12;
   iYear--;
  }

  fSetYearMon(iYear, iMon);
}

function fNextMonth(){
  var iMon = tbSelMonth.value;
  var iYear = tbSelYear.value;

  if (++iMon>12) {
   iMon = 1;
   iYear++;
  }

  fSetYearMon(iYear, iMon);
}

function fToggleTags(){
  with (document.all.tags("SELECT")){
  for (i=0; i<length; i++)
   if ((item(i).Victor!="Won")&&fTagInBound(item(i))){
    item(i).style.visibility = "hidden";
    goSelectTag[goSelectTag.length] = item(i);
   }
  }
}

function fTagInBound(aTag){
  with (VicPopCal.style){
   var l = parseInt(left);
   var t = parseInt(top);
   var r = l+parseInt(width);
   var b = t+parseInt(height);
 var ptLT = fGetXY(aTag);
 return !((ptLT.x>r)||(ptLT.x+aTag.offsetWidth<l)||(ptLT.y>b)||(ptLT.y+aTag.offsetHeight<t));
  }
}

function fGetXY(aTag){
  var oTmp = aTag;
  var pt = new Point(0,0);
  do {
   pt.x += oTmp.offsetLeft;
   pt.y += oTmp.offsetTop;
   oTmp = oTmp.offsetParent;
  } while(oTmp.tagName!="BODY");
  return pt;
}

var gMonths = new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");

with (document) {
write("<Div id='VicPopCal' onclick='event.cancelBubble=true' style='POSITION:absolute;visibility:hidden;border:black 1px solid ridge;width:8;z-index:100;'>");
write("<table border='0' bgcolor='#E6D7A0'>");
write("<TR>");
write("<td valign='middle' align='center'><input type='button' name='PrevMonth' value='<' style='height:18;width:25;BACKGROUND-COLOR:#ffffff;border:1px outset #000000' onClick='fPrevMonth()'>");
write("&nbsp;<SELECT name='tbSelYear' style='BACKGROUND-COLOR: #FFFFFF; COLOR: #000000; FONT-FAMILY: verdana, geneva, helvetica, arial; FONT-SIZE: 11px' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won'>");
for(i=1970;i<2015;i++)
 write("<OPTION value='"+i+"'>"+i+" Year</OPTION>");
write("</SELECT>");
write("&nbsp;<select name='tbSelMonth'style='BACKGROUND-COLOR: #FFFFFF; COLOR: #000000; FONT-FAMILY: verdana, geneva, helvetica, arial; FONT-SIZE: 11px' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won'>");
for (i=0; i<12; i++)
 write("<option value='"+(i+1)+"'>"+gMonths[i]+"</option>");
write("</SELECT>");
write("&nbsp;<input type='button' name='PrevMonth' value='>' style='height:18;width:25;BACKGROUND-COLOR:#ffffff;border:1px outset #000000' onclick='fNextMonth()'>");
write("</td>");
write("</TR><TR>");
write("<td align='center'>");
write("<DIV style='background-color:094897'><table width='100%' border='0' bordercolordark='#000000' cellpadding='2'cellspacing='1'>");
fDrawCal(giYear, giMonth, 12, 24);
write("</table></DIV>");
write("</td>");
write("</TR><TR><TD align='center' valign=middle>");
write("<B style='cursor:hand;FONT-FAMILY: verdana, geneva, helvetica, arial; FONT-SIZE: 11px Choose' onclick='fSetDate(giYear,giMonth,giDay)' onMouseOver='this.style.color=gcToggle' onMouseOut='this.style.color=0'>Today "+giYear+"-"+giMonth+"-"+giDay+"\uF81F</B>");
write("</TD></TR>");
write("</TABLE></Div>");
}