// Title: Tigra Calendar
// URL: http://www.softcomplex.com/products/tigra_calendar/
// Version: 3.2 (European date format)
// Date: 10/14/2002 (mm/dd/yyyy)
// Note: Permission given to use this script in ANY kind of applications if
//    header lines are left unchanged.
// Note: Script consists of two files: calendar?.js and calendar.html

// if two digit year input dates after this year considered 20 century.
var NUM_CENTYEAR = 30;
// is time input control required by default
var BUL_TIMECOMPONENT = false;
// are year scrolling buttons required by default
var BUL_YEARSCROLL = true;

var calendars = [];
var RE_NUM = /^\-?\d+$/;

var mnths = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
var MONTH_NAMES = new Array('January', 'February', 'March', 'April', 'May', 'June',
 'July', 'August', 'September', 'October', 'November', 'December', 'Jan', 'Feb', 'Mar',
 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
var DAY_NAMES = new Array('Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday',
 'Saturday', 'Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
function LZ(x) { return(x < 0 || x > 9 ? "" : "0") + x }

function calendar1(obj_target) {

	// assigning methods
	this.gen_date = cal_gen_date1;
	this.gen_time = cal_gen_time1;
	this.gen_tsmp = cal_gen_tsmp1;
	this.prs_date = cal_prs_date1;
	this.prs_time = cal_prs_time1;
	this.prs_tsmp = cal_prs_tsmp1;
	this.popup    = cal_popup1;

	// validate input parameters
	if (!obj_target)
		return cal_error("Error calling the calendar: no target control specified");
	if (obj_target.value == null)
		return cal_error("Error calling the calendar: parameter specified is not valid target control");
	this.target = obj_target;
	this.time_comp = BUL_TIMECOMPONENT;
	this.year_scroll = BUL_YEARSCROLL;
	
	// register in global collections
	this.id = calendars.length;
	calendars[this.id] = this;
}

function cal_popup1 (str_datetime) {
	this.dt_current = this.prs_tsmp(str_datetime ? str_datetime : this.target.value);
	if (!this.dt_current) return;

	var obj_calwindow = window.open(
		'calendar.html?datetime=' + this.dt_current.valueOf()+ '&id=' + this.id,
		'Calendar', 'width=380,height='+(this.time_comp ? 235 : 210)+
		',status=no,resizable=yes,top=200,left=200,dependent=yes,alwaysRaised=yes'
	);
	obj_calwindow.opener = window;
	obj_calwindow.focus();
}

// timestamp generating function
function cal_gen_tsmp1 (dt_datetime) {
	return(this.gen_date(dt_datetime) + ' ' + this.gen_time(dt_datetime));
}

// date generating function
function cal_gen_date1 (dt_datetime) {
    var sDay = (dt_datetime.getDate() < 10 ? '0' : '') + dt_datetime.getDate();
    var sMonth = ((dt_datetime.getMonth() + 1) < 10 ? '0' : '') + (dt_datetime.getMonth() + 1);
    var sYear = dt_datetime.getFullYear().toString();
    //return (sDay + "/" + sMonth + "/" + sYear);
	return (
		(dt_datetime.getDate() < 10 ? '0' : '') + dt_datetime.getDate() + "-"
		+ mnths[dt_datetime.getMonth()] + "-"
		+ dt_datetime.getFullYear()
	);
}
// time generating function
function cal_gen_time1 (dt_datetime) {
	return (
		(dt_datetime.getHours() < 10 ? '0' : '') + dt_datetime.getHours() + ":"
		+ (dt_datetime.getMinutes() < 10 ? '0' : '') + (dt_datetime.getMinutes()) + ":"
		+ (dt_datetime.getSeconds() < 10 ? '0' : '') + (dt_datetime.getSeconds())
	);
}

// timestamp parsing function
function cal_prs_tsmp1 (str_datetime) {
	// if no parameter specified return current timestamp
	if (!str_datetime)
		return (new Date());

	// if positive integer treat as milliseconds from epoch
	if (RE_NUM.exec(str_datetime))
		return new Date(str_datetime);
		
	// else treat as date in string format
	var arr_datetime = str_datetime.split(' ');
	return this.prs_time(arr_datetime[1], this.prs_date(arr_datetime[0]));
}

// date parsing function
function cal_prs_date1 (str_date) {

	//var arr_date = str_date.split('/');
	var iDate = parseDate(str_date);
	str_date = formatDate(iDate, "dd-NNN-yyyy");
	
	var i;
	if(str_date.indexOf("/") > 0) {
		var arr_date = str_date.split("/");
	} else if(str_date.indexOf("-") > 0) {
		var arr_date = str_date.split('-');
	} else {
		return cal_error("Invalid date format: '" + str_date + "'.\nFormat accepted is dd-mmm-yyyy or dd/mm/yyyy.");
	}

	if (arr_date.length != 3) return cal_error ("Invalid date format: '" + str_date + "'.\nFormat accepted is dd-mmm-yyyy.");
	
	if (!arr_date[0]) return cal_error ("Invalid date format: '" + str_date + "'.\nNo day of month value can be found.");
	if (!RE_NUM.exec(arr_date[0])) return cal_error ("Invalid day of month value: '" + arr_date[0] + "'.\nAllowed values are unsigned integers.");
	
	if (!arr_date[1]) return cal_error ("Invalid date format: '" + str_date + "'.\nNo month value can be found.");
	if (!RE_NUM.exec(arr_date[1])) {
		for(i = 0; i < mnths.length; i++) {
			if(arr_date[1] == mnths[i]) {
				arr_date[1] = i + 1;
				break;
			}
		}
	} else {
		return cal_error ("Invalid year value: '" + arr_date[2] + "'.\nAllowed values are unsigned integers.");
	}
	if (!RE_NUM.exec(arr_date[1])) return cal_error ("Invalid month value: '" + arr_date[1] + "'.\nAllowed values are unsigned integers.");
	
	if (!arr_date[2]) return cal_error ("Invalid date format: '" + str_date + "'.\nNo year value can be found.");
	if (!RE_NUM.exec(arr_date[2])) return cal_error ("Invalid year value: '" + arr_date[2] + "'.\nAllowed values are unsigned integers.");

	var dt_date = new Date();
	dt_date.setDate(1);

	if (arr_date[1] < 1 || arr_date[1] > 12) return cal_error ("Invalid month value: '" + arr_date[1] + "'.\nAllowed range is 01-12.");
	dt_date.setMonth(arr_date[1]-1);
	 
	if (arr_date[2] < 100) arr_date[2] = Number(arr_date[2]) + (arr_date[2] < NUM_CENTYEAR ? 2000 : 1900);
	dt_date.setFullYear(arr_date[2]);

	var dt_numdays = new Date(arr_date[2], arr_date[1], 0);
	dt_date.setDate(arr_date[0]);
	if (dt_date.getMonth() != (arr_date[1]-1)) return cal_error ("Invalid day of month value: '" + arr_date[0] + "'.\nAllowed range is 01-"+dt_numdays.getDate()+".");

	return (dt_date)
}

// time parsing function
function cal_prs_time1 (str_time, dt_date) {

	if (!dt_date) return null;
	var arr_time = String(str_time ? str_time : '').split(':');

	if (!arr_time[0]) dt_date.setHours(0);
	else if (RE_NUM.exec(arr_time[0]))
		if (arr_time[0] < 24) dt_date.setHours(arr_time[0]);
		else return cal_error ("Invalid hours value: '" + arr_time[0] + "'.\nAllowed range is 00-23.");
	else return cal_error ("Invalid hours value: '" + arr_time[0] + "'.\nAllowed values are unsigned integers.");
	
	if (!arr_time[1]) dt_date.setMinutes(0);
	else if (RE_NUM.exec(arr_time[1]))
		if (arr_time[1] < 60) dt_date.setMinutes(arr_time[1]);
		else return cal_error ("Invalid minutes value: '" + arr_time[1] + "'.\nAllowed range is 00-59.");
	else return cal_error ("Invalid minutes value: '" + arr_time[1] + "'.\nAllowed values are unsigned integers.");

	if (!arr_time[2]) dt_date.setSeconds(0);
	else if (RE_NUM.exec(arr_time[2]))
		if (arr_time[2] < 60) dt_date.setSeconds(arr_time[2]);
		else return cal_error ("Invalid seconds value: '" + arr_time[2] + "'.\nAllowed range is 00-59.");
	else return cal_error ("Invalid seconds value: '" + arr_time[2] + "'.\nAllowed values are unsigned integers.");

	dt_date.setMilliseconds(0);
	return dt_date;
}

function cal_error (str_message) {

	var idt = new Date();
	var day = idt.getDay().toString();
	var month = (idt.getMonth() + 1).toString();
	var year = idt.getFullYear().toString();
	if(day.length == 1) day = "0" + day;
	if(month.length == 1) month = "0" + month;
	var dt = day + "/" + month + "/" + year;
	
	return dt;
}

//------------------------------------------------------//

function isDate(val, format) {
	var date = getDateFromFormat(val, format);
	if (date == 0) { 
		return false; 
	}
	return true;
}

function compareDates(date1, dateformat1, date2, dateformat2) {
	var d1 = getDateFromFormat(date1, dateformat1);
	var d2 = getDateFromFormat(date2, dateformat2);
	if (d1 == 0 || d2 == 0) {
		return -1;
	} else if(d1 > d2) {
		return 1;
	}
	return 0;
}

function formatDate(date, format) {
	format = format + "";
	var result = "";
	var i_format = 0;
	var c = "";
	var token = "";
	var y = date.getFullYear() + "";
	var M = date.getMonth() + 1;
	var d = date.getDate();
	var E = date.getDay();
	var H = date.getHours();
	var m = date.getMinutes();
	var s = date.getSeconds();
	var yyyy,yy,MMM,MM,dd,hh,h,mm,ss,ampm,HH,H,KK,K,kk,k;
	// Convert real date parts into formatted versions
	var value = new Object();
	if (y.length < 4) {y = "" + (y - 0 + 1900); }
	value["y"] = "" + y;
	value["yyyy"] = y;
	value["yy"] = y.substring(2, 4);
	value["M"] = M;
	value["MM"] = LZ(M);
	value["MMM"] = MONTH_NAMES[M - 1];
	value["NNN"] = MONTH_NAMES[M + 11];
	value["d"] = d;
	value["dd"] = LZ(d);
	value["E"] = DAY_NAMES[E + 7];
	value["EE"] = DAY_NAMES[E];
	value["H"] = H;
	value["HH"] = LZ(H);
	
	if(H == 0) { 
		value["h"] = 12; 
	} else if(H > 12) { 
		value["h"] = H - 12; 
	} else {
		value["h"] = H; 
	}
	
	value["hh"] = LZ(value["h"]);
	if (H > 11) { 
		value["K"] = H - 12; 
	} else { 
		value["K"] = H;
	}
	
	value["k"] = H + 1;
	value["KK"] = LZ(value["K"]);
	value["kk"] = LZ(value["k"]);
	if (H > 11) { 
		value["a"]="PM"; 
	} else { 
		value["a"]="AM"; 
	}
	
	value["m"] = m;
	value["mm"] = LZ(m);
	value["s"] = s;
	value["ss"] = LZ(s);
	
	while(i_format < format.length) {
		c = format.charAt(i_format);
		token = "";
		while((format.charAt(i_format) == c) && (i_format < format.length)) {
			token += format.charAt(i_format++);
		}
		if (value[token] != null) {
			result = result + value[token]; 
		} else { 
			result = result + token; 
		}
	}
	return result;
}
	
function _isInteger(val) {
	var digits = "1234567890";
	for (var i = 0; i < val.length; i++) {
		if(digits.indexOf(val.charAt(i)) == -1) { return false; }
	}
	return true;
}

function _getInt(str, i, minlength, maxlength) {
	for (var x = maxlength; x >= minlength; x--) {
		var token = str.substring(i, i + x);
		if(token.length < minlength) { return null; }
		if(_isInteger(token)) { return token; }
	}
	return null;
}
	
function getDateFromFormat(val, format) {
	val = val + "";
	format = format + "";
	var i_val = 0;
	var i_format = 0;
	var c = "";
	var token = "";
	var token2 = "";
	var x, y;
	var now = new Date();
	var year = now.getYear();
	var month = now.getMonth() + 1;
	var date = 1;
	var hh = now.getHours();
	var mm = now.getMinutes();
	var ss = now.getSeconds();
	var ampm = "";
	
	while(i_format < format.length) {
		// Get next token from format string
		c = format.charAt(i_format);
		token = "";
		while((format.charAt(i_format) == c) && (i_format < format.length)) {
			token += format.charAt(i_format++);
		}
		// Extract contents of value based on format token
		if (token == "yyyy" || token == "yy" || token == "y") {
			if (token == "yyyy") { x = 4;y = 4; }
			if (token == "yy")   { x = 2;y = 2; }
			if (token == "y")    { x = 2;y = 4; }
			year = _getInt(val, i_val, x, y);
			if (year == null) { return 0; }
			i_val += year.length;
			if(year.length == 2) {
				if(year > 70) { year = 1900 + (year - 0); }
				else { year = 2000 + (year - 0); }
			}
		} else if (token == "MMM" || token == "NNN") {
			month = 0;
			for (var i = 0; i < MONTH_NAMES.length; i++) {
				var month_name = MONTH_NAMES[i];
				if(val.substring(i_val, i_val + month_name.length).toLowerCase() == month_name.toLowerCase()) {
					if(token == "MMM" || (token == "NNN" && i > 11)) {
						month = i + 1;
						if(month > 12) { month -= 12; }
						i_val += month_name.length;
						break;
					}
				}
			}
			if((month < 1) ||(month>12)) { return 0; }
		} else if (token == "EE" || token == "E") {
			for(var i = 0; i < DAY_NAMES.length; i++) {
				var day_name = DAY_NAMES[i];
				if(val.substring(i_val, i_val + day_name.length).toLowerCase() == day_name.toLowerCase()) {
					i_val += day_name.length;
					break;
				}
			}
		} else if(token == "MM" || token == "M") {
			month = _getInt(val, i_val, token.length, 2);
			if(month == null || (month < 1) || (month > 12)) { return 0; }
			i_val += month.length; 
		} else if(token == "dd" || token == "d") {
			date = _getInt(val, i_val, token.length, 2);
			if(date == null || (date < 1) || (date > 31)) { return 0; }
			i_val += date.length;
		} else if(token == "hh" || token == "h") {
			hh = _getInt(val, i_val, token.length, 2);
			if(hh == null || (hh < 1) || (hh > 12)) { return 0; }
			i_val += hh.length;
		} else if(token == "HH" || token == "H") {
			hh = _getInt(val, i_val, token.length, 2);
			if(hh == null || (hh < 0) || (hh > 23)) { return 0; }
			i_val += hh.length;
		} else if(token == "KK" || token == "K") {
			hh = _getInt(val, i_val, token.length, 2);
			if(hh == null || (hh < 0) || (hh > 11)) { return 0; }
			i_val += hh.length;
		} else if(token == "kk" || token == "k") {
			hh = _getInt(val, i_val, token.length, 2);
			if(hh == null || (hh < 1) || (hh > 24)) { return 0; }
			i_val += hh.length;hh--;
		} else if(token == "mm" || token == "m") {
			mm = _getInt(val, i_val, token.length, 2);
			if(mm == null || (mm < 0) || (mm > 59)) { return 0; }
			i_val += mm.length;
		} else if(token == "ss" || token == "s") {
			ss = _getInt(val, i_val, token.length, 2);
			if(ss == null || (ss < 0) || (ss > 59)) { return 0; }
			i_val += ss.length;
		} else if(token == "a") {
			if(val.substring(i_val, i_val + 2).toLowerCase() == "am") { 
				ampm = "AM";
			} else if(val.substring(i_val, i_val + 2).toLowerCase() == "pm") { 
				ampm = "PM";
	 		} else { 
	 			return 0; 
	 		}
			i_val += 2; 
		} else {
			if(val.substring(i_val, i_val + token.length) != token) {
				return 0;
			} else {
				i_val += token.length;
			}
		}
	}
	
	// If there are any trailing characters left in the value, it doesn't match
	if(i_val != val.length) { return 0; }
	// Is date valid for month?
	if (month == 2) {
		// Check for leap year
		if(((year % 4 == 0) && (year % 100 != 0)) || (year % 400 == 0)) { // leap year
			if(date > 29){ return 0; }
		} else { 
			if(date > 28) { return 0; } 
		}
	}
	if((month == 4) || (month == 6) || (month == 9) || (month == 11)) {
		if(date > 30) { return 0; }
	}
	// Correct hours value
	if (hh < 12 && ampm == "PM") { hh = hh - 0 + 12; }
	else if(hh > 11 && ampm == "AM") { hh -= 12; }
	var newdate = new Date(year, month - 1, date, hh, mm, ss);
	return newdate.getTime();
}

function parseDate(val) {
	var preferEuro = (arguments.length == 2) ? arguments[1] : false;
	generalFormats = new Array('y-M-d', 'MMM d, y', 'MMM d,y', 'y-MMM-d', 'd-MMM-y', 'MMM d');
	monthFirst = new Array('M/d/y', 'M-d-y', 'M.d.y', 'MMM-d', 'M/d', 'M-d');
	dateFirst = new Array('d/M/y', 'd-M-y', 'd.M.y', 'd-MMM', 'd/M', 'd-M');
	var checkList = new Array('generalFormats', preferEuro ? 'dateFirst' : 'monthFirst', preferEuro ? 'monthFirst' : 'dateFirst');
	var d = null;
	for (var i = 0; i < checkList.length; i++) {
		var l = window[checkList[i]];
		for (var j = 0; j < l.length; j++) {
			d = getDateFromFormat(val, l[j]);
			if(d != 0) { return new Date(d); }
		}
	}
	return null;
}