var popcal = false;

var gdCtrl = new Object();
var goSelectTag = new Array();
var gcGray = '#808080';
var gcToggle = '#CCCCCC';
var gcBG = '#FFFFFF';

var gdCurDate = new Date();
var giYear = gdCurDate.getFullYear();
var giMonth = gdCurDate.getMonth()+1;
var giDay = gdCurDate.getDate();

function fSetDate(iYear, iMonth, iDay) {
  jsPopCal.style.visibility = 'hidden';
  if (iDay < 10) iDay='0'+iDay
  if (iMonth < 10) iMonth='0'+iMonth
  gdCtrl.value = iDay+'/'+iMonth+'/'+iYear; 
  try
  {
    E_onChange(gdCtrl.id);
  }
  catch(errr){
    var NNNN = 0 ;
  } ;
  for (i in goSelectTag)
    goSelectTag[i].style.visibility = 'visible';
  goSelectTag.length = 0;
}

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 = (underClass<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) {
  var WeekDay = new Array("d","l","m","m","j","v","s");
  var styleTD = "valign='middle' align='center' style='font-size:7.5pt; cursor:hand; font:bold; font-family=Arial, Helvetica;'"; 
  with (document) {
    write("<tr style='height:20'>");
    for(i=0; i<7; i++)
        write("<td align='center' style='font-size:7.5pt; cursor:default; font-family=Arial, Helvetica;' class='popcal'>" + WeekDay[i] + "</td>");
    write("</tr>");

    for (w = 1; w < 7; w++) {
        write("<tr class='popcal'>");
        for (d = 0; d < 7; d++) {
            write("<td id=calCell "+styleTD+"cursor:hand;' onMouseOver='this.bgColor=gcToggle' onMouseOut='this.bgColor=gcBG' onclick='fSetSelected(this)' class='popcal'>");
            write("<font id='cellText' underClass='Liming Weng' class='popcal'></font>");
            write("</td>")
        }
        write("</tr>");
    }
  }
}

function fUpdateCal(iYear, iMonth) {
  myMonth = fBuildCal(iYear, iMonth);
  var i = 0;
  for (w = 0; w < 6; w++)
    for (d = 0; d < 7; d++)
        with (cellText[(7*w)+d]) {
            underClass = i++;
            if (myMonth[w+1][d]<0) {
                color = gcGray;
                innerText = -myMonth[w+1][d];
            }else{
                color = ((d==0)||(d==6))?"#31966B":"black";
                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).underClass!="Won")&&fTagInBound(item(i))){
            item(i).style.visibility = "hidden";
            goSelectTag[goSelectTag.length] = item(i);
        }
  }
}

function fTagInBound(aTag){
  with (jsPopCal.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;
}

// fPopDate => popCtrl, le calendrier apparait en dessous
//          => dateCtrl, la oł je mets la date !
function PopDate(popCtrl, dateCtrl, datevalue){
  popcal = false
  gdCtrl = dateCtrl;
  if (datevalue != '') {
   fSetYearMon(datevalue.getFullYear(), datevalue.getMonth()+1); 
  }
  else {
   fSetYearMon(giYear, giMonth); 
  }
  var point = fGetXY(popCtrl);
  with (jsPopCal.style) {
    left = point.x;
    top  = point.y+popCtrl.offsetHeight;
    //width = jsPopCal.offsetWidth;
    //height = jsPopCal.offsetHeight;
    fToggleTags(point);
    visibility = 'visible';
    //display = 'block';
    window.setTimeout("popcal = true", 100);
  }
}

function TellPopDate(sDate) {
 return '\''+sDate.slice(6, 10)+sDate.slice(3, 5)+sDate.slice(0, 2)+'\''
}

var gMonths = new Array("01","02","03","04","05","06","07","08","09","10","11","12");

with (document) {
write('<DIV id="jsPopCal" style="filter:progid:DXImageTransform.Microsoft.Shadow(color=#666666,direction=135,strength=4);position:absolute;left:0;top:0;visibility:hidden;border:solid 1px #CCCCCC;width:146;z-index:100;margin-top:2;overflow:hidden" class="popcal"><TABLE bgcolor="#FFFFFF" class="popcal"><TR class="popcal"><TD class="popcal">');
write("<table border='0' cellspacing='0' cellpadding='0' class='popcal'>");
write("<tr class='popcal'>");
write("<td style='background-color:#762023; border:0pt black inset' valign='middle' align='center' class='popcal'><input type='image' name='PrevMonth' src='calendar/popd_p.gif' onClick='fPrevMonth()' class='popcal'></td><td style='width:10' class='popcal'>&nbsp;</td>");
write("<td style='background-color:#FFFFFF; border:0pt black inset;height:18' valign='middle' align='center' class='popcal'><select name='tbSelMonth' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' underClass='Won' style='font-size:7pt;position:relative;top:0px' class='popcal'>");
for (i=0; i<12; i++)
    write("<option value='"+(i+1)+"'>"+gMonths[i]+"</option>");
write("</select>");
write("&nbsp;<select style='font-size:7pt;position:relative;top:0px' name='tbSelYear' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' underClass='Won' class='popcal'>");
for(i=1900; i<2100; i++)
    write("<option value='"+i+"'>"+i+"</option>");
write("</select></td><td style='width:10'>&nbsp;</td>");
write("<td style='background-color:#762023; border:0pt black inset'><input type='image' name='PrevMonth' src='calendar/popd_n.gif' onclick='fNextMonth()' class='popcal'>");
write("</td>");
write("</tr><trclass='popcal'>");
write("<td align='center' colspan='5' class='popcal'>");
write("<div class='popcal'><table border='0' cellpadding='2' cellspacing='0' class='popcal'>");
fDrawCal(giYear, giMonth);
write("</table></div>");
write("</td>");
write("</tr><tr class='popcal'><td align='center' colspan='5' class='popcal'>"); //<tr style='height:5; border:1pt black'><td colspan='5'></td></tr>
//write("<b style='cursor:hand; font-size:7.5pt' onclick='fSetDate(giYear,giMonth,giDay)' onMouseOver='this.style.color=gcToggle' onMouseOut='this.style.color=0'>Ce jour ("+giDay+"/"+giMonth+"/"+giYear+")</b>");
write("</td></tr>");
write("</table></td></tr></table></div>");
}