var fontFace="verdana";
var fontSize=9;
var fontColor="#000000";
var dayColor="#6699cc";
var titleWidth=72;
var dayWidth=12;
var dayDigits=1;

var imageUp="/moveright.gif";
var imageDown="/moveleft.gif";
var imageWidth=15;
var imageHeight=15;

var startDate="START_DATE";
var startMonth="START_MONTH";
var startDay="START_DAY";
var startYear="START_YEAR";

var endDate="END_DATE";
var endMonth="END_MONTH";
var endDay="END_DAY";
var endYear="END_YEAR";

function clearIt() {
  var form=document.forms[0];

  form[startMonth].value="";
  form[startDay].value="";
  form[startYear].value="";

  form[endMonth].value="";
  form[endDay].value="";
  form[endYear].value="";
}

var cal="cal";
var cal1="cal1";
var cal2="cal2";

var d=new Date(), cY=d.getFullYear(), cM=d.getMonth(), cF="", D1="", D2="";

var calmonths=new Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");
var caldays=new Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday");

var isN6=(navigator.userAgent.indexOf("Gecko")!=-1);
var isN4=(document.layers)?true:false;
var isIE=(document.all)?true:false;

var layers=null;
if (isIE) {
  layers=document.all;
}
else if (isN4) {
  layers=document.layers;
  fontSize+=3;
}

var span1="<span style='font-family:"+fontFace+"; font-size:"+fontSize+"px; color:"+fontColor+"'>";
var span2="</span>";

function hideCal() {
  if (isIE) {
    layers[cal].innerHTML="";
  }
  else if (isN4) {
    layers[cal].visibility="hide";
    layers[cal].open();
    layers[cal].close();
  }
  else if (isN6) {
    document.getElementById(cal).innerHTML="";
  }
}

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=="TD"){
    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 caldays[i];
  }
  else {
    return caldays[i].substring(0,dayDigits);
  }
}

function calTitle(d) {
  var yy=d.getFullYear(), mm=calmonths[d.getMonth()];

  var s="<tr align='center' bgcolor='#f0f0f0'><td colspan='7'><table cellpadding='0' cellspacing='0' border='0'><tr align='center' valign='middle'><td><a href='javascript:prepYear("+yy+")' style='text-decoration:none; color:#000000'>&#171;</a></td><td width='"+titleWidth+"'>"+span1+yy+span2+"</td><td><a href='javascript:nextYear("+yy+")' style='text-decoration:none; color:#000000;'>&#187;</td></tr><tr align='center' valign='middle'><td><a href='javascript:prepMonth("+d.getMonth()+")' style='text-decoration:none; color:#000000'>&#171;</a></td><td width='"+titleWidth+"'>"+span1+mm+span2+"</td><td><a href='javascript:nextMonth("+d.getMonth()+")' style='text-decoration:none; color:#000000;'>&#187;</a></td></tr></table></td></tr><tr align='center' bgcolor='#f0f0f0'>";

  for (var i=0; i<caldays.length; i++) {
    s+="<td width='"+dayWidth+"'>"+span1+dayDisplay(i)+span2+"</font></td>";
  }

  s+="</tr>";

  return s;
}

function calHeader() {
  return "<table bgcolor='#000000' cellspacing='0' cellpadding='1'><tr><td><table cellspacing='1' cellpadding='3' border='0'>";
}

function calFooter() {
  return "<tr bgcolor='#f0f0f0'><td colspan='7' align='center'><a href='javascript:hideCal()' style='text-decoration:none; color:#000000'>close</a></td></tr></table></td></tr></table>";
}

function calBody(d,day) {
  var s="", dayCount=1, fd=firstDay(d), ld=lastDay(d);
  for (var i=0; i<6; i++) {
    s+="<tr align='center' bgcolor='#ffffff'>";
    for (var j=0; j<7; j++) {
      if (i*7+j<fd || dayCount>ld) {
        s+="<td>"+span1+"&nbsp;"+span2+"</td>";
      }
      else {
        var bgColor="#cfcfcf";
        if (dayCount==day) { bgColor=dayColor; }
        
        s+="<td bgcolor='"+bgColor+"'>"+span1+"<a href='javascript:pickDate("+dayCount+")' style='color:#000000; text-decoration:none;'>"+(dayCount++)+"</a>"+span2+"</td>";
      }
    }
    s+="</tr>";
  }

  return s;
}

function prepYear(y) {
  cY=y-1;
  var nd=new Date(cY,cM,1);
  changeCal(nd);
}

function nextYear(y) {
  cY=y+1;
  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 calendar=calHeader()+calTitle(d)+calBody(d,0)+calFooter();

  if (isIE) {
    layers[cal].innerHTML=calendar;
  }
  else if (isN4) {
    layers[cal].document.open();
    layers[cal].document.writeln(calendar);
    layers[cal].document.close();
  }
  else if (isN6) {
    document.getElementById(cal).innerHTML=calendar;
  }
}

function showCal(n) {
  var d=new Date();
  var calx=(n==startDate)?cal1:cal2;
  var form=document.forms[0];

  if (form[n].value!="") {
    var v=form[n].value;
    var mm=v.substring(0,2)-1;
    var dd=v.substring(3,5)-0;
    var yy=v.substring(6)-0;
    d=new Date(yy,mm,dd);
    cY=yy;
    cM=mm;
  }
  else {
    cY=d.getFullYear();
    cM=d.getMonth();
    dd=d.getDate();
  }

  var calendar=calHeader()+calTitle(d)+calBody(d,dd)+calFooter();

  if (isIE) {
    layers[cal].style.pixelTop=getTopIE(layers[calx],true)+32;
    layers[cal].style.pixelLeft=getLeftIE(layers[calx],true);
    layers[cal].innerHTML=calendar;
  }
  else if (isN4) {
    layers[cal].top=getTopN4(layers[calx])+30;
    layers[cal].left=getLeftN4(layers[calx]);
    layers[cal].document.open();
    layers[cal].document.writeln(calendar);
    layers[cal].document.close();
    layers[cal].visibility="show";
  }
  else if (isN6) {
    var l=document.getElementById(calx);
    layer=document.getElementById(cal);
    layer.style.top=getTopN6(l)+24+"px";
    layer.style.left=getLeftN6(l)+"px";
    layer.innerHTML=calendar;
  }

  cF=n;
}

function get2Digits(n) {
  return ((n<10)?"0":"")+n;
}

function pickDate(d) {
  var form=document.forms[0];

  var date=get2Digits(cM+1)+"/"+get2Digits(d)+"/"+cY;

  var mm=get2Digits(cM+1);
  var dd=get2Digits(d);
  var yy=cY;

  if (cF==startDate) {
    form[startMonth].value=mm;
    form[startDay].value=dd;
    form[startYear].value=yy;
    D1=yy+mm+dd;
  }
  else if (cF==endDate) {
    form[endMonth].value=mm;
    form[endDay].value=dd;
    form[endYear].value=yy;
    D2=yy+mm+dd;
  }
  
  form[cF].value=date;

  hideCal();
}

function checkDate() {
  if (D1!="" && D2!="" && D1>D2) {
    alert("Please specify a valid date range.");
    return false;
  }
  else {
    return true;
  }
}

function uptoday() {
  var form=document.forms[0];
  var tY=d.getFullYear(), tM=d.getMonth();

  form[startYear].value=tY;
  form[startMonth].value=get2Digits(tM+1);
  form[startDay].value="01";

  form[endYear].value=tY;
  form[endMonth].value=get2Digits(tM+1);
  form[endDay].value=get2Digits(d.getDate());

  form.submit();
}

function recentday(dd) {
  var form=document.forms[0];
  var td=new Date();

  td.setTime(d.getTime()-24*60*60*1000*(parseInt(dd)-1));

  form[startYear].value=td.getFullYear();
  form[startMonth].value=get2Digits(td.getMonth()+1);
  form[startDay].value=get2Digits(td.getDate());

  form[endYear].value=d.getFullYear();
  form[endMonth].value=get2Digits(d.getMonth()+1);
  form[endDay].value=get2Digits(d.getDate());

  form.submit();
}