var gdCtrl = new Object();
var goSelectTag = new Array();
var gcGray = "#808080";
var gcToggle = "#ffffcc";
var gcBG = "#ffffff";

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

String.prototype.parseText = function(){
	return( this.replace(/<[^>]+>/g,"") );
}

function fSetDate(iYear, iMonth, iDay){
  var VicPopCal = document.getElementById("VicPopCal");
  //alert("VicPopCal = " + VicPopCal)
  VicPopCal.style.visibility = "hidden";
  gdCtrl.value = CheckStringLength(iDay) + "/" + CheckStringLength(iMonth) + "/" + iYear; //Here, you could modify the locale as you need !!!!
  //alert("goSelectTag = " + goSelectTag)
  if(goSelectTag.length > 0)
  {
	
	for(i=0;i<goSelectTag.length;i++)
	{
  		goSelectTag[i].style.visibility = "visible";
  	}
	goSelectTag.length = 0;
  }
}
//add zero "0" at the left of the bumber id its only ine digit -->
//if 1 make it 01 and if 9 make id 09 and if 12 leave it ...
function CheckStringLength(string){
	if(string.toString().length <= 1)
		string = "0" + string
	return string;
}
function fSetSelected(aCell){
  var iOffset = 0;
  var tbSelYear = document.getElementById("tbSelYear");
  var tbSelMonth = document.getElementById("tbSelMonth");
  var iYear = parseInt(tbSelYear.value);
  var iMonth = parseInt(tbSelMonth.value);
  if (window.Event)event == Event;
  event.cancelBubble = true;
  aCell.bgColor = gcBG;
  with (aCell.firstChild){
  	var iDay = parseInt(innerHTML.parseText());
  	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 WeekDay = new Array("الأحد","الاثنين","الثلاثاء","الأربعاء","الخميس","الجمعة","السبت");
  var styleTD = " bgcolor='"+gcBG+"' bordercolor='"+gcBG+"' valign='middle' align='center' height='"+iCellHeight+"' style='font:normal "+iDateTextSize+" Verdana;";            //Coded by Liming Weng(Victor Won)  email:victorwon@netease.com

  with (document) {
	write("<tr>");
	for(i=0; i<7; i++)
		write("<td bgcolor='#eeeeee' style='font-size:8pt; font-family: Tahoma' "+styleTD+"color:black'>" + WeekDay[i] + "</td>");
	write("</tr>");

  	for (w = 1; w < 7; w++) {
		write("<tr>");
		for (d = 0; d < 7; d++) {
			write("<td id='calCell" + (7 * (w - 1) + d) + "' "+styleTD+"cursor:pointer;' onclick='fSetSelected(this)'>");
			write("<font id='cellText" + (7 * (w - 1) + d) + "' Victor='Liming Weng'> </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++)
	{
		var cellText = document.getElementById("cellText" + (7 * w + d));
		var calCell = document.getElementById("calCell" + (7 * w + d));
		with (cellText)
		{
			Victor = i++;
			if(myMonth[w+1][d] < 0)
			{
				color = gcGray;
				calCell.style.backgroundImage = "none";
				innerHTML = -myMonth[w+1][d];
			}
			else if(myMonth[w+1][d] == giDay)
			{
				//today:
				var tbSelMonth = document.getElementById("tbSelMonth");
				var tbSelYear = document.getElementById("tbSelYear");
				if((tbSelMonth.value == giMonth) && (tbSelYear.value == giYear))
					calCell.style.backgroundImage = "url(images/today.gif)";
				innerHTML = myMonth[w+1][d];
			}
			else
			{
				color = (d==5)?"#ff0000" : "black";
				calCell.style.backgroundImage = "none";
				innerHTML = myMonth[w+1][d];
			}
		}
	}
}

function fSetYearMon(iYear, iMon){
	var tbSelYear = document.getElementById("tbSelYear");
	var tbSelMonth = document.getElementById("tbSelMonth");
	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 tbSelYear = document.getElementById("tbSelYear");
  var tbSelMonth = document.getElementById("tbSelMonth");
  var iMon = tbSelMonth.value;
  var iYear = tbSelYear.value;

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

  fSetYearMon(iYear, iMon);
}

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

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

  fSetYearMon(iYear, iMon);
}

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

function fTagInBound(aTag)
{
  var VicPopCal = document.getElementById("VicPopCal");
  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;
  	if(oTmp.offsetParent == null)break;
  		oTmp = oTmp.offsetParent;
  }
  while(oTmp.tagName != "BODY");
  return pt;
}

function popCalendar(dateCtrl)
{
  gdCtrl = dateCtrl;
  fSetYearMon(giYear, giMonth);
  var point = fGetXY(dateCtrl);
  var VicPopCal = document.getElementById("VicPopCal");
  if(VicPopCal.style.visibility == "visible")
  {
    with (VicPopCal.style)
    {
      left = 0;
      top = 0;
      visibility = "hidden";
      if(goSelectTag.length > 0){
		  //for (i in goSelectTag)
		  for(i=0;i<goSelectTag.length;i++)
		  {
  			goSelectTag[i].style.visibility = "visible";
  		  }
  	  }
    }
  }
  else
  {
    with (VicPopCal.style)
    {
  	  left = point.x - 170;
	  top  = point.y + dateCtrl.offsetHeight+1;
	  width = VicPopCal.offsetWidth;
	  height = VicPopCal.offsetHeight;
	  fToggleTags(point);
	  visibility = "visible";
    }
  }
}

function fHideCal(){
  if(window.Event)event == Event;
  var oE = event;
  if ((oE.clientX>0)&&(oE.clientY>0)&&(oE.clientX<document.body.clientWidth)&&(oE.clientY<document.body.clientHeight)) {
	var oTmp = document.elementFromPoint(oE.clientX,oE.clientY);
	while ((oTmp.tagName!="BODY") && (oTmp.id!="VicPopCal"))
		oTmp = oTmp.offsetParent;
	if (oTmp.id=="VicPopCal")
		return;
  }
  var VicPopCal = document.getElementById("VicPopCal");
  VicPopCal.style.visibility = 'hidden';
  
  if(goSelectTag.length > 0){
	//for (i in goSelectTag)
	for(i=0;i<goSelectTag.length;i++)
		goSelectTag[i].style.visibility = "visible";
  }
  goSelectTag.length = 0;
}

//var gMonths = new Array("January","February","March","April","May","June","July","August","September","October","November","December");
var gMonths = new Array("يناير","فبراير","مارس","إبريل","مايو","يونيو","يوليو","أغسطس","سبتمبر","أكتوبر","نوفمبر","ديسمبر");

with (document) {
write("<Div id='VicPopCal' onblur='fHideCal()' onclick='focus()' style='POSITION:absolute;visibility:hidden;border-width:2px; border-style:outset; width:250px; z-index:100;'>");
write("<table width='100%' height='100%' border='0' style='background-color:buttonface'>");
write("<tr>");
write("<td valign='middle' align='center'><input type='button' name='PrevMonth' value='<' style='height:20;width:20;FONT:16 Fixedsys' onClick='fPrevMonth()' onblur='fHideCal()'>");
write("&nbsp;&nbsp;<select id='tbSelMonth' name='tbSelMonth' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won' onclick='if(window.Event)event == Event; event.cancelBubble=true' onblur='fHideCal()'>");
for (i=0; i<12; i++)
	write("<option value='"+(i+1)+"'>"+gMonths[i]+"</option>");
write("</SELECT>");
write("&nbsp;&nbsp;<SELECT id='tbSelYear' name='tbSelYear' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won' onclick='if(window.Event)event == Event; event.cancelBubble=true' onblur='fHideCal()'>");
for(i=1940;i<2015;i++)
	write("<OPTION value='"+i+"' lang='ar'>&nbsp;&nbsp;"+i+"&nbsp;&nbsp;</OPTION>");
write("</SELECT>");
write("&nbsp;&nbsp;<input type='button' name='PrevMonth' value='>' style='height:20;width:20;FONT:16 Fixedsys' onclick='fNextMonth()' onblur='fHideCal()'>");
write("</td>");
write("</TR><TR>");
write("<td align='center'>");
write("<DIV style='background-color:black;'><table width='100%' border='0' cellSpacing='1'>");
fDrawCal(giYear, giMonth, 18, '11px');
write("</table></DIV>");
write("</td>");
write("</TR><TR><TD align='center'>");
write("<B style='cursor:pointer' onclick='fSetDate(giYear,giMonth,giDay); if(window.Event)event == Event; event.cancelBubble=true' onMouseOver='this.style.color=\"#ff0000\"' onMouseOut='this.style.color=0'>اليوم:&nbsp;&nbsp;"+giDay+"&nbsp;"+gMonths[giMonth-1]+"&nbsp;&nbsp;"+giYear+"</B>");
write("</TD></TR>");write("</TD></TR>");
write("</TABLE></Div>");
}