function set_cal(show_date)
{
begin_day = new Date (show_date.getYear(),show_date.getMonth(),1);
begin_day_date = begin_day.getDay();
end_day = new Date (show_date.getYear(),show_date.getMonth()+1,1);
count_day = (end_day - begin_day)/1000/60/60/24;
input_table(begin_day_date,count_day);
}

function input_table(begin,count)
{
init();
j=0;
if (begin!=-1){i=begin;}else{i=7}
for (c=1;c<count+1;c++)
{
 colum_name = eval("d"+i+"r"+j);
 if ((now.getDate() == c)&&(show_date.getMonth() == now.getMonth())&&(show_date.getYear() == now.getYear())) 
 {colum_name.style.backgroundColor = "";colum_name.style.color = "Red"; };


 for (a=0; a<Schedule_array.length; a++)
{
var my_date=new Date(Schedule_array[a][0]);
if ((my_date.getDate() == c)&&(show_date.getMonth() == my_date.getMonth())&&(show_date.getYear() == my_date.getYear())) 

	{
	if (((now.getDate() > c)&&(show_date.getMonth() == now.getMonth())&&(show_date.getYear() == now.getYear()))
	|| ((show_date.getMonth() < now.getMonth())&&(show_date.getYear() == now.getYear()))
	|| (show_date.getYear() < now.getYear()))
 	{colum_name.style.backgroundColor = "#E1E1FF"; };
 	
 	
 	else
 	{colum_name.style.backgroundColor = "FFCC99"; };
	};


}
 
 colum_name.innerText =  c;
 i++;
 if (i==7){i=0;j++;}
}
}

function init()
{
for(j=0;j<6;j++)
{
 for(i=0;i<7;i++)
 {
 colum_name = eval("d"+i+"r"+j);
 colum_name.innerText =  " ";
 colum_name.style.backgroundColor ="";
 colum_name.style.color ="";
 }
}
}

function change_month(sel_month)
{
show_date = new Date(show_date.getYear(),sel_month,1);
set_cal(show_date);
set_Event(show_date);
}

function change_year(sel_year)
{
sel_year = sel_year.value;
show_date = new Date(sel_year,show_date.getMonth(),1);
set_cal(show_date);
set_Event(show_date);
}


function set_EventArray(show_date)
{	var j = 0;
	Event_array = new Array();
	for (i=0; i<Schedule_array.length; i++)
	{
		var my_date=new Date(Schedule_array[i][0]);
		if ((show_date.getMonth() == my_date.getMonth())&&(show_date.getYear() == my_date.getYear())) 
			{ 
			Event_array[j] = new Array(Schedule_array[i][0], Schedule_array[i][1]);
			j++;
			};
	}
	if (j == 0)
	{
	Event_array[0] = new Array("No event for this month", "");
	j = 1;
	}	
	for (i=j; i< 31; i++)
	{
		Event_array[i] = new Array("", "");
		Event_array[j]
		
	}

}

function set_Event(show_date)
{
	set_EventArray(show_date);
	initEvent();
	



	for (i=0; i<Event_array.length; i++)
	{
		Col_name1 = eval("evtd" + i);
		Col_name2 = eval("evt" + i);

		Col_name1.innerText = Event_array[i][0] ;
		Col_name2.innerText = Event_array[i][1];
	}
}

function initEvent()
{
	for (i=0; i<31; i++)	
	{
		Col_name1 = eval("evtd" + i);
		Col_name1.innerText =  "";
		Col_name1.style.backgroundColor ="";
		Col_name1.style.color ="CC3300";

		Col_name2 = eval("evt" + i);
		Col_name2.innerText =  "";
		Col_name2.style.backgroundColor ="";
		Col_name2.style.color ="";
 	}
}