/* 這是和月曆相關的函式
 * 相依於：cookie.js */

var cookie_year = "inccal_year";    /* 存放目前選取年份的 cookie 名稱 */
var cookie_month = "inccal_month";  /* 存放目前選取月份的 cookie 名稱 */
var cookie_date = "inccal_date";    /* 存放目前選取日期的 cookie 名稱 */
var value_year;    /* 目前選取的年份（整數） */
var value_month;   /* 目前選取的月份（整數），注意與 javascript 中的相差 1 */
var value_date;    /* 目前選取的日期（整數） */
var objyear;       /* 顯示年份的物件 */
var objmonth;      /* 顯示月份的物件 */
var row_count = 0; /* 月曆列數 */

var timeedit_year_backgroundcolor;
var timeedit_month_backgroundcolor;

var calfocus_bdc_org = "black";

var alldata;	/* 存放整個月資料的陣列 */

function setyearmonth(){
	var useryear = parseInt(getcookievalue(cookie_year));
	var usermonth = parseInt(getcookievalue(cookie_month));
	var userdate = parseInt(getcookievalue(cookie_date));
	/* 初始化 objyear 和 objmonth，其他函式中不用在做同樣的動作 */
	objyear = document.getElementById("timeselect_year");
	objmonth = document.getElementById("timeselect_month");
	if(useryear >= 1970 && usermonth >= 1 && usermonth <= 12 &&
		userdate >= 1 && userdate <= 31){
		value_year = useryear;
		value_month = usermonth;
		value_date = userdate;
	}else{
		var today = new Date();
		value_year = today.getFullYear();
		value_month = today.getMonth() + 1;	
		value_date = today.getDate();
	} 
}

function timeselect_prev(){
	if(value_month <= 1){
		if(value_year > 1970){
			value_year--;
			value_month = 12;
		}
	}else{
		value_month--;
	}
	var maxdate = get_month_max_day(value_year, value_month - 1);
	value_date = value_date > maxdate ? maxdate : value_date;
	setmonthcal();
}

function timeselect_fwd(){
	if(value_month >= 12){
		value_year++;
		value_month = 1;
	}else{
		value_month++;
	}
	var maxdate = get_month_max_day(value_year, value_month - 1);
	value_date = value_date > maxdate ? maxdate : value_date;
	setmonthcal();
}

function timeselect_prev_kbd(evt){
	timeselect_prev();
	evt.preventDefault();
}

function timeselect_fwd_kbd(evt){
	timeselect_fwd();
	evt.preventDefault();
}

function timeedit_year_kbd(evt){
	evt.preventDefault();
	timeselect_direct();
	$("#timeedit_year").focus();
}

function timeedit_month_kbd(evt){
	evt.preventDefault();
	timeselect_direct();
	$("#timeedit_month").focus();
}

function timeselect_direct(){
	document.getElementById("timeedit_year").style.display = "inline";
	document.getElementById("timeedit_month").style.display = "inline";
	document.getElementById("timeedit_apply").style.display = "inline";
	document.getElementById("timeedit_cancel").style.display = "inline";
	document.getElementById("timeedit_button").style.display = "none";
	document.getElementById("timeselect_year").style.display = "none";
	document.getElementById("timeselect_month").style.display = "none";
	document.getElementById("timeselect_prev").style.display = "none";
	document.getElementById("timeselect_fwd").style.display = "none";
	
	document.getElementById("timeedit_year").value = value_year;
	document.getElementById("timeedit_month").value = value_month;
	
	$(document).unbind("keydown.main");
	$(document).bind("keydown.timeedit", "esc", timeedit_cancel_kbd);
	$(document).bind("keydown.timeedit", "return", timeedit_apply_kbd);
	
	timeedit_year_backgroundcolor = 
		document.getElementById("timeedit_year").style.backgroundColor;
	timeedit_month_backgroundcolor = 
		document.getElementById("timeedit_month").style.backgroundColor;
	
	status_bar_save();
	status_bar_set("(Esc)取消 (Enter)確定");
}

function timeedit_apply(){
	var edityearobj = document.getElementById("timeedit_year");
	var editmonthobj = document.getElementById("timeedit_month");
	var newyear = parseInt(edityearobj.value);
	var newmonth = parseInt(editmonthobj.value);
	try{
		if(!isFinite(newyear)){
			status_bar_warning("請輸入正確的年份！");
			edityearobj.style.backgroundColor = "red";
			throw false;
		}else if(!isFinite(newmonth)){
			status_bar_warning("請輸入正確的月份！");
			editmonthobj.style.backgroundColor = "red";
			throw false;
		}else if(newyear < 1970){
			status_bar_warning("請輸入 1970 年以後的年份！");
			edityearobj.style.backgroundColor = "red";
			throw false;
		}else if(newmonth < 1 || newmonth > 12){
			status_bar_warning("請輸入正確的月份！");
			editmonthobj.style.backgroundColor = "red";
			throw false;
		}
	}catch(err){
		return err;
	}
	value_year = newyear;
	value_month = newmonth;
	setmonthcal();
	timeedit_cancel();
}

function timeedit_apply_kbd(evt){
	evt.preventDefault();
	timeedit_apply();
}

function timeedit_cancel(){
	document.getElementById("timeedit_year").style.display = "none";
	document.getElementById("timeedit_month").style.display = "none";
	document.getElementById("timeedit_apply").style.display = "none";
	document.getElementById("timeedit_cancel").style.display = "none";
	document.getElementById("timeedit_button").style.display = "inline";
	document.getElementById("timeselect_year").style.display = "inline";
	document.getElementById("timeselect_month").style.display = "inline";
	document.getElementById("timeselect_prev").style.display = "inline";
	document.getElementById("timeselect_fwd").style.display = "inline";
	
	$(document).unbind("keydown.timeedit");
	shortcut_bind();
	
	document.getElementById("timeedit_year").style.backgroundColor = 
		timeedit_year_backgroundcolor;
	document.getElementById("timeedit_month").style.backgroundColor = 
		timeedit_month_backgroundcolor;

	status_bar_restore();
}

function timeedit_cancel_kbd(){
	timeedit_cancel();
	return false;
}

function get_month_max_day(year, month){
	var nextmonth = new Date();
	if(month >= 12){
		year++;
		month = 1;
	}else{
		month++;
	}
	nextmonth.setFullYear(year, month, 0);
	return nextmonth.getDate();
}

function get_appr_row_count(year, month){
	var remainder;
	var jsyear, jsmonth;
	var monthfirstday, monthlastday, monthdaycount;
	var arcount;
	
	jsyear = value_year;
	jsmonth = value_month - 1;
	
	monthdaycount = get_month_max_day(jsyear, jsmonth);
	arcount = Math.floor(monthdaycount / 7);
	remainder = monthdaycount % 7;
	if(remainder != 0){
		arcount++;
	}
	
	monthfirstday = new Date();
	monthfirstday.setFullYear(jsyear, jsmonth, 1);
	monthfirstday = monthfirstday.getDay();
	
	monthlastday = new Date();
	monthlastday.setFullYear(jsyear, jsmonth, monthdaycount);
	monthlastday = monthlastday.getDay();
	
	/* 最多只有 31 天，簡單寫個規則來判斷就好 */
	if(monthlastday < monthfirstday){
		arcount++;
	}
	
	return arcount;
}

function updatecaltable(){
	var objbd = document.getElementById("calbody");
	var oldcount = row_count;
	var newcount = get_appr_row_count(value_year, value_month);
	var node_tr;
	var node_td;
	var node_datediv;
	var toremove;
	var i, j;
	if(newcount < oldcount){
		for(i=newcount+1; i<=oldcount; i++){
			for(j=0; j<7; j++){
				toremove = document.getElementById("caldate" + i.toString() + 
						j.toString());
				toremove.parentNode.removeChild(toremove);
				toremove = document.getElementById("cal" + i.toString() + 
						j.toString());
				toremove.parentNode.removeChild(toremove);
			}
			toremove = document.getElementById("calrow" + i.toString());
			toremove.parentNode.removeChild(toremove);
		}
	}else{
		for(i=oldcount+1; i<=newcount; i++){
			node_tr = document.createElement("tr");
			node_tr.setAttribute("id", "calrow" + i.toString());
			for(j=0; j<7; j++){
				node_td = document.createElement("td");
				node_td.setAttribute("id", "cal" + i.toString() + 
						j.toString());
				node_datediv = document.createElement("div");
				node_datediv.setAttribute("id", "caldate" + i.toString() +
						j.toString());
				node_td.appendChild(node_datediv);
				node_tr.appendChild(node_td);
			}
			objbd.appendChild(node_tr);
		}
	}
	row_count = newcount;
}

function setmonthcal(){
	objyear.innerHTML = value_year;
	objmonth.innerHTML = value_month;
	alldata = new Array();
	setcookievalue(cookie_year, value_year);
	setcookievalue(cookie_month, value_month);
	updatecaltable();
	var toyear = value_year;
	var tomonth = value_month - 1;
	var todate = 1;
	var od_day;
	var od_month;
	var od_year;
	var objdate = new Date();
	var objcal;
	var i;
	objdate.setFullYear(toyear, tomonth, todate);
	while((od_day = objdate.getDay()) != 0){
		todate = objdate.getDate();
		objdate.setDate(--todate);
	}
	for(i=1 ;i<=row_count ;objdate.setDate(++todate)){
		todate = objdate.getDate();
		od_day = objdate.getDay();
		od_month = objdate.getMonth();
		od_year = objdate.getYear();
		objcal = document.getElementById("cal" + i.toString() + 
				od_day.toString());
		objcaldate = document.getElementById("caldate" + i.toString() + 
				od_day.toString());
		if(od_month == tomonth){
			objcal.style.borderColor = "black";
			objcal.style.color = "black";
			objcal.setAttribute("name", "date" + todate);
			objcal.setAttribute("onclick", 
				"setfocusblock(" + todate + ", true)");
			objcal.setAttribute("ondblclick",
				"caledit(" + value_year + ", " + value_month + ", " +
				todate + ")");
			objcaldate.innerHTML = todate;
			alldata[todate] = new Object();
			alldata[todate].row = i;
			alldata[todate].col = od_day;
			if(value_date == todate){
				setfocusblock(todate, true);
			}else{
				resetblock(todate);
			}
		}else if(od_year < toyear || od_month < tomonth){
			objcal.style.borderColor = "lightgray";
			objcal.style.color = "gray";
			objcaldate.innerHTML = (od_month + 1).toString() + "/" + 
				todate.toString();
		}else if(od_year > toyear || od_month > tomonth){
			objcal.style.borderColor = "lightgray";
			objcal.style.color = "gray";
			objcaldate.innerHTML = (od_month + 1).toString() + "/" + 
				todate.toString();
		}else{
			alert("setmonthcal(): fatal error");
			return;
		}
		if(od_day >= 6){
			i++;
		}
	}
}

function resetblock(thisdt){
	var oldobj = document.getElementById(
		"cal" + alldata[thisdt].row + alldata[thisdt].col);
	oldobj.style.borderColor = calfocus_bdc_org;
	oldobj.style.borderWidth = "1px";
	oldobj.style.color = "black";
}

function setfocusblock(thisdt, reset){
	if(reset){
		resetblock(value_date);
	}
	var thisobj;
	try{
		thisobj = document.getElementById(
			"cal" + alldata[thisdt].row + alldata[thisdt].col);
	}catch(err){
		return;
	}
	calfocus_bdc_org = thisobj.style.borderColor;
	thisobj.style.borderColor = "blue";
	thisobj.style.borderWidth = "3px";
	thisobj.style.color = "green";
	setcookievalue(cookie_date, thisdt);
	value_date = thisdt;
}

function movefocus_up(){
	var newdate = value_date - 7;
	setfocusblock(newdate <= 0 ? 1 : newdate, true);
}

function movefocus_down(){
	var newdate = value_date + 7;
	var maxdate = get_month_max_day(value_year, value_month - 1);
	setfocusblock(newdate >= maxdate ? maxdate : newdate, true);
}

function movefocus_left(){
	var newdate = value_date - 1;
	setfocusblock(newdate <= 0 ? 1 : newdate, true);
}

function movefocus_right(){
	var newdate = value_date + 1;
	var maxdate = get_month_max_day(value_year, value_month - 1);
	setfocusblock(newdate >= maxdate ? maxdate : newdate, true);
}

function direct0(evt){setfocusbykbdinput(evt,0);}
function direct1(evt){setfocusbykbdinput(evt,1);}
function direct2(evt){setfocusbykbdinput(evt,2);}
function direct3(evt){setfocusbykbdinput(evt,3);}
function direct4(evt){setfocusbykbdinput(evt,4);}
function direct5(evt){setfocusbykbdinput(evt,5);}
function direct6(evt){setfocusbykbdinput(evt,6);}
function direct7(evt){setfocusbykbdinput(evt,7);}
function direct8(evt){setfocusbykbdinput(evt,8);}
function direct9(evt){setfocusbykbdinput(evt,9);}

function setfocusbykbdinput(evt, defval){
	evt.preventDefault();
	$(document).unbind("keydown.main");
	var fcjobj = document.getElementById("focusjumper");
	fcjobj.value = defval;
	fcjobj.style.display = "inline";
	fcjobj.focus();
	fcjobj.setSelectionRange(1, 1);
	$(document).bind("keydown.sfk", "esc", setfocusbykbdinput_terminate);
	$(document).bind("keydown.sfk", "return", setfocusbykbdinput_apply);
	status_bar_save();
	status_bar_set("移至特定日期：(Esc)取消 (Enter)確定");
}

function setfocusbykbdinput_terminate(){
	var fcjobj = document.getElementById("focusjumper");
	fcjobj.value = "";
	fcjobj.style.display = "none";
	$(document).unbind("keydown.sfk");
	status_bar_restore();
	shortcut_bind();
}

function setfocusbykbdinput_apply(){
	var fcjobj = document.getElementById("focusjumper");
	var newvalue = parseInt(fcjobj.value);
	if(isFinite(newvalue) && newvalue >= 1 && 
		newvalue <= get_month_max_day(value_year, value_month - 1) ){
		setfocusblock(newvalue, true);
	}
	setfocusbykbdinput_terminate();
}

function call_caledit_kbd(evt){
	evt.preventDefault();
	caledit(value_year, value_month, value_date);
}

function shortcut_bind(){
	$(document).bind("keydown.main", "m", timeedit_month_kbd);
	$(document).bind("keydown.main", "y", timeedit_year_kbd);
	$(document).bind("keydown.main", "z", timeselect_prev_kbd);
	$(document).bind("keydown.main", "x", timeselect_fwd_kbd);
	$(document).bind("keydown.main", "ctrl+left", timeselect_prev_kbd);
	$(document).bind("keydown.main", "ctrl+right", timeselect_fwd_kbd);
	$(document).bind("keydown.main", "up", movefocus_up);
	$(document).bind("keydown.main", "down", movefocus_down);
	$(document).bind("keydown.main", "left", movefocus_left);
	$(document).bind("keydown.main", "right", movefocus_right);
	$(document).bind("keydown.main", "return", call_caledit_kbd);
	$(document).bind("keydown.main", "0", direct0);
	$(document).bind("keydown.main", "1", direct1);
	$(document).bind("keydown.main", "2", direct2);
	$(document).bind("keydown.main", "3", direct3);
	$(document).bind("keydown.main", "4", direct4);
	$(document).bind("keydown.main", "5", direct5);
	$(document).bind("keydown.main", "6", direct6);
	$(document).bind("keydown.main", "7", direct7);
	$(document).bind("keydown.main", "8", direct8);
	$(document).bind("keydown.main", "9", direct9);
	$(document).bind("keydown.main", "ctrl+l", switch_list);
}