/*
* The Zapatec DHTML utils library
*
* Copyright (c) 2004 by Zapatec, Inc.
* http://www.zapatec.com
* 1700 MLK Way, Berkeley, California,
* 94709, U.S.A.
* All rights reserved.
*
*
* Various utility functions
*/
/// define the global Zapatec namespace
var Zapatec = {};

/// define the Utils namespace
Zapatec.Utils = {};

/// Retrieves the absolute position (relative to <body>) of a given element.
///
/// @param el [HTMLElement] reference to the element.
/// @return [object] { x, y } containing the position.
Zapatec.Utils.getAbsolutePos = function(el) {
	var SL = 0, ST = 0;
	var is_div = /^div$/i.test(el.tagName);
	if (is_div && el.scrollLeft)
		SL = el.scrollLeft;
	if (is_div && el.scrollTop)
		ST = el.scrollTop;
	var r = { x: el.offsetLeft - SL, y: el.offsetTop - ST };
	if (el.offsetParent) {
		var tmp = this.getAbsolutePos(el.offsetParent);
		r.x += tmp.x;
		r.y += tmp.y;
	}
	return r;
};

/// Modify the position of a box to fit in browser's view.  This function will
/// modify the passed object itself, so it doesn't need to return a value.
///
/// @param [object] box { x, y, width, height } specifying the area.
Zapatec.Utils.fixBoxPosition = function(box, leave) {
	var screenX = Zapatec.Utils.getPageScrollX();
	var screenY = Zapatec.Utils.getPageScrollY();
	var sizes = Zapatec.Utils.getWindowSize();
	leave = parseInt(leave, 10) || 0;
	if (box.x < screenX) {
		box.x = screenX + leave;
	}
	if (box.y < screenY) {
		box.y = screenY + leave;
	}
	if (box.x + box.width > screenX + sizes.width) {
		box.x = screenX + sizes.width - box.width - leave;
	}
	if (box.y + box.height > screenY + sizes.height) {
		box.y = screenY + sizes.height - box.height - leave;
	}
};

/**
 * Returns absolute position of an element on the page and its width and height.
 *
 * @private
 * @param {object} oEl Element object
 * @return Offset: left or x - left offset; top or y - top offset,
 * width - element width, height - element height.
 * @object
 */
Zapatec.Utils.getElementOffset = function(oEl) {
	var iLeft = iTop = iWidth = iHeight = 0;
	var sTag;
	if (oEl.getBoundingClientRect) {
		// IE
		var oRect = oEl.getBoundingClientRect();
		iLeft = oRect.left;
		iTop = oRect.top;
		iWidth = oRect.right - iLeft;
		iHeight = oRect.bottom - iTop;
		// getBoundingClientRect returns coordinates relative to the window
		// Why "- 2" is explained here:
		// http://msdn.microsoft.com/library/default.asp?url=/workshop/author/dhtml/reference/methods/getboundingclientrect.asp
		iLeft += Zapatec.Utils.getPageScrollX() - 2;
		iTop += Zapatec.Utils.getPageScrollY() - 2;
	} else {
		// Others
		iWidth = oEl.offsetWidth;
		iHeight = oEl.offsetHeight;
		var sPos = Zapatec.Utils.getStyleProperty(oEl, 'position');
		if (sPos == 'fixed') {
			iLeft = oEl.offsetLeft + Zapatec.Utils.getPageScrollX();
			iTop = oEl.offsetTop + Zapatec.Utils.getPageScrollY();
		} else if (sPos == 'absolute') {
			while (oEl) {
				sTag = oEl.tagName;
				if (sTag) {
					sTag = sTag.toLowerCase();
					// Safari adds margin of the body
					if (sTag != 'body' && sTag != 'html') {
						iLeft += parseInt(oEl.offsetLeft, 10) || 0;
						iTop += parseInt(oEl.offsetTop, 10) || 0;
					}
				}
				oEl = oEl.offsetParent;
				sTag = oEl ? oEl.tagName : null;
				if (sTag) {
					sTag = sTag.toLowerCase();
					if (sTag != 'body' && sTag != 'html') {
						iLeft -= oEl.scrollLeft;
						iTop -= oEl.scrollTop;
					}
				}
			}
		} else {
			var bMoz = (Zapatec.is_gecko && !Zapatec.is_khtml);
			var fStyle = Zapatec.Utils.getStyleProperty;
			var oP = oEl;
			while (oP) {
				// -moz-box-sizing must be "border-box" to prevent subtraction of body
				// border in Mozilla
				if (bMoz) {
					sTag = oP.tagName;
					if (sTag) {
						sTag = sTag.toLowerCase();
						if (sTag == 'body' && !(fStyle(oP, '-moz-box-sizing') == 'border-box')) {
							iLeft += parseInt(fStyle(oP, 'border-left-width'));
							iTop += parseInt(fStyle(oP, 'border-top-width'));
						}
					}
				}
				iLeft += parseInt(oP.offsetLeft, 10) || 0;
				iTop += parseInt(oP.offsetTop, 10) || 0;
				oP = oP.offsetParent;
			}
			oP = oEl;
			while (oP.parentNode) {
				oP = oP.parentNode;
				sTag = oP.tagName;
				if (sTag) {
					sTag = sTag.toLowerCase();
					if (sTag != 'body' && sTag != 'html' && sTag != 'tr') {
						iLeft -= oP.scrollLeft;
						iTop -= oP.scrollTop;
					}
				}
			}
		}
	}
	return {
		left: iLeft,
		top: iTop,
		x: iLeft,
		y: iTop,
		width: iWidth,
		height: iHeight
	};
};

/**
 * Returns current document horizontal scroll position.
 *
 * @return Current document horizontal scroll position
 * @type number
 */
Zapatec.Utils.getPageScrollX = function() {
	if (window.pageXOffset) {
		return window.pageXOffset;
	} else if (document.body && document.body.scrollLeft) {
		return document.body.scrollLeft;
	} else if (document.documentElement && document.documentElement.scrollLeft) {
		return document.documentElement.scrollLeft;
	}
	return 0;
};

/**
 * Returns current document vertical scroll position.
 *
 * @return Current document vertical scroll position
 * @type number
 */
Zapatec.Utils.getPageScrollY = function() {
	if (window.pageYOffset) {
		return window.pageYOffset;
	} else if (document.body && document.body.scrollTop) {
		return document.body.scrollTop;
	} else if (document.documentElement && document.documentElement.scrollTop) {
		return document.documentElement.scrollTop;
	}
	return 0;
};

/**
 * Finds the size of the current web page. This is the usable size
 * and does not include the browser's menu and buttons.
 *
 * @return [object] dimension with the height and width of the window
 */
Zapatec.Utils.getWindowSize = function() {
	var iWidth = 0;
	var iHeight = 0;

	if (Zapatec.is_opera) {
		iWidth = document.body.clientWidth || 0;
		iHeight = document.body.clientHeight || 0;
	} else if (Zapatec.is_khtml) {
		iWidth = window.innerWidth || 0;
		iHeight = window.innerHeight || 0;
	} else if (document.compatMode && document.compatMode == 'CSS1Compat') {
			// Standards-compliant mode
		iWidth = document.documentElement.clientWidth || 0;
		iHeight = document.documentElement.clientHeight || 0;
	} else {
			// Non standards-compliant mode
		iWidth = document.body.clientWidth || 0;
		iHeight = document.body.clientHeight || 0;
	}

	return {
		width: iWidth,
		height: iHeight
	};
};

/**
 * Retrieves computed CSS property values from an element.
 *
 * @param {object} oEl Element object
 * @param {string} sPr Property name of element's style, e.g. "borderLeftWidth"
 * @return Computed CSS property value
 * @type string
 */
Zapatec.Utils.getStyleProperty = function(oEl, sPr) {
	var oDV = document.defaultView;
	if (oDV && oDV.getComputedStyle) {
		// Standard
		var oCS = oDV.getComputedStyle(oEl, '');
		if (oCS) {
			sPr = sPr.replace(/([A-Z])/g, '-$1').toLowerCase();
			return oCS.getPropertyValue(sPr);
		}
	} else if (oEl.currentStyle) {
		// IE
		return oEl.currentStyle[sPr];
	}
	// None
	return oEl.style[sPr];
};

/// Determines if an event is related to a certain element.  This is a poor
/// substitute for some events that are missing from DOM since forever (like
/// onenter, onleave, which MSIE provides).  Basically onmouseover and
/// onmouseout are fired even if the mouse was already in the element but moved
/// from text to a blank area, so in order not to close a popup element when
/// onmouseout occurs in this situation, one would need to first check if the
/// event is not related to that popup element:
///
/// \code
///      function handler_onMouseOut(event) {
///         if (!Zapatec.Utils.isRelated(this, event)) {
///            /// can safely hide it now
///            this.style.display = "none";
///         }
///      }
/// \endcode
///
/// @param el [HTMLElement] reference to the element to check the event against
/// @param evt [Event] reference to the Event object
/// @return [boolean] true if the event is related to the element
Zapatec.Utils.isRelated = function (el, evt) {
	evt || (evt = window.event);
	var related = evt.relatedTarget;
	if (!related) {
		var type = evt.type;
		if (type == "mouseover") {
			related = evt.fromElement;
		} else if (type == "mouseout") {
			related = evt.toElement;
		}
	}
	try {
		while (related) {
			if (related == el) {
				return true;
			}
			related = related.parentNode;
		}
	} catch(e) {};
	return false;
};

/// Remove a certain [CSS] class from the given element.
/// @param el [HTMLElement] reference to the element.
/// @param className [string] the class to remove.
Zapatec.Utils.removeClass = function(el, className) {
	if (!(el && el.className)) {
		return;
	}
	var cls = el.className.split(" ");
	var ar = [];
	for (var i = cls.length; i > 0;) {
		if (cls[--i] != className) {
			ar[ar.length] = cls[i];
		}
	}
	el.className = ar.join(" ");
};

/// Appends a certain [CSS] class to the given element.
/// @param el [HTMLElement] reference to the element.
/// @param className [string] the class to append.
Zapatec.Utils.addClass = function(el, className) {
	Zapatec.Utils.removeClass(el, className);
	el.className += " " + className;
};

/// Retrieves the current target element for some event (useful when bubbling).
/// This function is not actually very useful, but it's legacy from the old calendar code.
/// @param ev [Event] the event object.
/// @return [HTMLElement] window.event.srcElement for MSIE, ev.currentTarget for other browsers.
Zapatec.Utils.getElement = function(ev) {
	if (Zapatec.is_ie) {
		return window.event.srcElement;
	} else {
		return ev.currentTarget;
	}
};

/// Retrieves the target element for some event (useful when bubbling).
/// This function is not actually very useful, but it's legacy from the old calendar code.
/// @param ev [Event] the event object.
/// @return [HTMLElement] window.event.srcElement for MSIE, ev.target for other browsers.
Zapatec.Utils.getTargetElement = function(ev) {
	if (Zapatec.is_ie) {
		return window.event.srcElement;
	} else {
		return ev.target;
	}
};

/// Stops bubbling and propagation of some event.
/// @param ev [Event] the event object
/// @return false
Zapatec.Utils.stopEvent = function(ev) {
	ev || (ev = window.event);
	if (Zapatec.is_ie) {
		ev.cancelBubble = true;
		ev.returnValue = false;
	} else {
		ev.preventDefault();
		ev.stopPropagation();
	}
	return false;
};

/// Adds an event handler to a certain element.  This function adds a handler
/// using the DOM2 addEventListener (or attachEvent for MSIE).  Doing this
/// means that you can add multiple handlers for the same element and same
/// event name, and they will be called in order.
///
/// WARNING: for really old browsers that don't support attachEvent nor
/// addEventListener, it falls back to the default way: el.onclick = func.
/// This means that you CANNOT add multiple handlers in those browsers, as a
/// new one will override the old one.
///
/// @param el [HTMLElement] reference to the element.
/// @param evname [string] the event name, excluding the "on" prefix.
/// @param func event handler function.
Zapatec.Utils.addEvent = function(el, evname, func) {
	if (el.attachEvent) { // IE
		el.attachEvent("on" + evname, func);
	} else if (el.addEventListener) { // Gecko / W3C
		el.addEventListener(evname, func, true);
	} else {
		el["on" + evname] = func;
	}
};

/// Removes an event handler added with Zapatec.Utils.removeEvent().  The
/// prototype scheme is the same.
Zapatec.Utils.removeEvent = function(el, evname, func) {
	if (el.detachEvent) { // IE
		el.detachEvent("on" + evname, func);
	} else if (el.removeEventListener) { // Gecko / W3C
		el.removeEventListener(evname, func, true);
	} else {
		el["on" + evname] = null;
	}
};

/// Create an element of a certain type using document.createElement().  A
/// function was needed in order to add some common attributes to all created
/// elements, but also in order to be able to use it in XHTML too (Gecko and
/// other W3C-compliant browsers).
///
/// This function will create an element of the given type and set certain
/// properties to it: unselectable for IE, and the CSS "-moz-user-select" for
/// Gecko, in order to make the element unselectable in these browsers.
/// Optionally, if the second argument is passed, it will appendChild() the
/// newly created element to its parent.
///
/// @param type [string] the tag name of the new element.
/// @param parent [HTMLElement, optional] a parent for the new element.
/// @return [HTMLElement] reference to the new element.
Zapatec.Utils.createElement = function(type, parent) {
	var el = null;
	if (window.self.document.createElementNS)
		// use the XHTML namespace; IE won't normally get here unless
		// _they_ "fix" the DOM2 implementation.
		el = window.self.document.createElementNS("http://www.w3.org/1999/xhtml", type);
	else
		el = window.self.document.createElement(type);
	if (typeof parent != "undefined")
		parent.appendChild(el);
	if (Zapatec.is_ie)
		el.setAttribute("unselectable", true);
	if (Zapatec.is_gecko)
		el.style.setProperty("-moz-user-select", "none", "");
	return el;
};

// Cookie management

/// Sets a cooke given certain specifications.  It overrides any existing
/// cookie with the same name.
///
/// @param name [string] the cookie name.
/// @param value [string] the cookie value.
/// @param domain [string, optional] the cookie domain.
/// @param path [string, optional] the cookie path.
/// @param exp_days [number, optional] number of days of cookie validity.
Zapatec.Utils.writeCookie = function(name, value, domain, path, exp_days) {
	value = escape(value);
	var ck = name + "=" + value, exp;
	if (domain)
		ck += ";domain=" + domain;
	if (path)
		ck += ";path=" + path;
	if (exp_days) {
		exp = new Date();
		exp.setTime(exp_days * 86400000 + exp.getTime());
		ck += ";expires=" + exp.toGMTString();
	}
	document.cookie = ck;
};

/** 
 * Retrieves the value of a cookie.
 * 
 * @param name [string] the cookie name
 * @return [string or null] a string with the cookie value, or null if it can't be found.
 */
Zapatec.Utils.getCookie = function(name) {
	var re = new RegExp("(^|;\\s*)" + name + "\\s*=(.*?)(;|$)");
	if (re.test(document.cookie)) {
		var value = RegExp.$2;
		value = unescape(value);
		return (value);
	}
	return null;
};

/** 
 * Given an object, create a string suitable for saving the object in a cookie.
 * This is similar to serialization.  WARNING: it does not support nested
 * objects.
 * 
 * @param obj [Object] reference to the object to serialize.
 * @return [string] the serialized object.
 */
Zapatec.Utils.makePref = function(obj) {
	function stringify(val) {
		if (typeof val == "object" && !val)
			return "null";
		else if (typeof val == "number" || typeof val == "boolean")
			return val;
		else if (typeof val == "string")
			return '"' + val.replace(/\22/, "\\22") + '"';
		else return null;
	};
	var txt = "", i;
	for (i in obj)
		txt += (txt ? ",'" : "'") + i + "':" + stringify(obj[i]);
	return txt;
};

/** 
 * The reverse of Zapatec.Utils.makePref(), this function unserializes the
 * given string and creates an object from it.
 * 
 * @param txt [string] the serialized value.
 * @return [Object] a new object if it was created successfully or null otherwise.
 */
Zapatec.Utils.loadPref = function(txt) {
	var obj = null;
	try {
		eval("obj={" + txt + "}");
	} catch(e) {}
	return obj;
};

/** 
 * Merges the values of the source object into the destination object.
 * 
 * @param dest [Object] the destination object.
 * @param src [Object] the source object.
 */
Zapatec.Utils.mergeObjects = function(dest, src) {
	for (var i in src)
		dest[i] = src[i];
};

// based on the WCH idea
// http://www.aplus.co.yu/WCH/code3/WCH.js

/// \defgroup WCH functions
//@{

Zapatec.Utils.__wch_id = 0;	/**< [number, static] used to create ID-s for the WCH objects */

/** 
 * Create an WCH object.  This function does nothing if the browser is not
 * IE5.5 or IE6.0.  A WCH object is one of the most bizarre tricks to avoid a
 * notorious IE bug: IE normally shows "windowed controls" on top of any HTML
 * elements, regardless of any z-index that might be specified in CSS.  This
 * technique is described at: http://www.aplus.co.yu/WCH/
 *
 * A "WCH object" is actually an HTMLIFrame element having a certain "CSS
 * filter" (proprietary MSIE extension) that forces opacity zero.  This object,
 * displayed on top of a windowed control such as a select box, will completely
 * hide the select box, allowing us to place other HTMLElement objects above.
 *
 * WCH stands for "Windowed Controls Hider".
 * 
 * @return [HTMLIFrame or null] a new WCH object if the browser is "supported", null otherwise.
 */
Zapatec.Utils.createWCH = function() {
	var f = null;
	if (Zapatec.is_ie && !Zapatec.is_ie5) {
		var filter = 'filter:progid:DXImageTransform.Microsoft.alpha(style=0,opacity=0);';
		var id = "WCH" + (++Zapatec.Utils.__wch_id);
		window.self.document.body.insertAdjacentHTML
			('beforeEnd', '<iframe id="' + id + '" scroll="no" frameborder="0" ' +
			 'style="z-index:0;position:absolute;visibility:hidden;' + filter +
			 'border:0;top:0;left:0;width:0;height:0;" ' +
			 'src="javascript:false;"></iframe>');
		f = window.self.document.getElementById(id);
	}
	return f;
};

/** 
 * Configure a given WCH object to be displayed on top of the given element.
 * Optionally, a second element can be passed, and in this case it will setup
 * the WCH object to cover both elements.
 * 
 * @param f [HTMLIFrame] the WCH object
 * @param el [HTMLElement] the element to cover.
 * @param el2 [HTMLElement, optional] another element to cover.
 */
Zapatec.Utils.setupWCH_el = function(f, el, el2) {
	if (f) {
		var pos = Zapatec.Utils.getAbsolutePos(el),
			X1 = pos.x,
			Y1 = pos.y,
			X2 = X1 + el.offsetWidth,
			Y2 = Y1 + el.offsetHeight;
		if (el2) {
			var p2 = Zapatec.Utils.getAbsolutePos(el2),
				XX1 = p2.x,
				YY1 = p2.y,
				XX2 = XX1 + el2.offsetWidth,
				YY2 = YY1 + el2.offsetHeight;
			if (X1 > XX1)
				X1 = XX1;
			if (Y1 > YY1)
				Y1 = YY1;
			if (X2 < XX2)
				X2 = XX2;
			if (Y2 < YY2)
				Y2 = YY2;
		}
		Zapatec.Utils.setupWCH(f, X1, Y1, X2-X1, Y2-Y1);
	}
};

/** 
 * Configure a WCH object to cover a certain part of the screen.
 * 
 * @param f [HTMLIFrame] the WCH object.
 * @param x [number] the X coordinate.
 * @param y [number] the Y coordinate.
 * @param w [number] the width of the area.
 * @param h [number] the height of the area.
 */
Zapatec.Utils.setupWCH = function(f, x, y, w, h) {
	if (f) {
		var s = f.style;
		(typeof x != "undefined") && (s.left = x + "px");
		(typeof y != "undefined") && (s.top = y + "px");
		(typeof w != "undefined") && (s.width = w + "px");
		(typeof h != "undefined") && (s.height = h + "px");
		s.visibility = "visible";
	}
};

/** 
 * Hide a WCH object.
 * 
 * @param f [HTMLIFrame] object to hide.
 */
Zapatec.Utils.hideWCH = function(f) {
	if (f)
		f.style.visibility = "hidden";
};

//@}

/** 
 * Destroys the given element (remove it from the DOM tree) if it's not null
 * and it's parent is not null.
 * 
 * @param el [HTMLElement] the element to destroy.
 */
Zapatec.Utils.destroy = function(el) {
	if (el && el.parentNode)
		el.parentNode.removeChild(el);
};

/** 
 * Opens a new window at a certain URL and having some properties.
 * 
 * @param url [string] the URL to open a new window to.
 * @param windowName [string] the name of the new window (as for target attribute).
 * @param width [number] the width of the new window in pixels.
 * @param height [number] the height of the new window in pixels.
 * @param scrollbars [string] "yes" or "no" for scrollbars.
 * 
 * @return [object] the new window
 */
Zapatec.Utils.newCenteredWindow = function(url, windowName, width, height, scrollbars){
	var leftPosition = 0;
	var topPosition = 0;
	if (screen.width)
		leftPosition = (screen.width -  width)/2;
	if (screen.height)
		topPosition = (screen.height -  height)/2;
	var winArgs =
		'height=' + height +
		',width=' + width +
		',top=' + topPosition +
		',left=' + leftPosition +
		',scrollbars=' + scrollbars +
		',resizable';
	var win = window.open(url,windowName,winArgs);
	return win;
};

/** 
 * Given a reference to a select element, this function will select the option
 * having the given value and optionally will call the default handler for
 * "onchange".
 * 
 * @param sel [HTMLSelectElement] reference to the SELECT element.
 * @param val [string] the value that we should select.
 * @param call_default [boolean] true if the default onchange should be called.
 */
Zapatec.Utils.selectOption = function(sel, val, call_default) {
	var a = sel.options, i, o;
	for (i = a.length; --i >= 0;) {
		o = a[i];
		o.selected = (o.val == val);
	}
	sel.value = val;
	if (call_default) {
		if (typeof sel.onchange == "function")
			sel.onchange();
		else if (typeof sel.onchange == "string")
			eval(sel.onchange);
	}
};

/** 
 * A more flexible way to get the "nextSibling" of a given element.  If the
 * "tag" argument is passed, then this function will return the next sibling
 * that has a certain tag.  Otherwise it will simply return el.nextSibling.
 * 
 * @param el [HTMLElement] reference to the anchor element.
 * @param tag [string] the tag name of the returned node.
 * 
 * @return [HTMLElement or null] el.nextSibling if tag is not passed, or the
 * first element after el having the specified tag.  Null is returned if no
 * element could be found.
 */
Zapatec.Utils.getNextSibling = function(el, tag) {
	el = el.nextSibling;
	if (!tag)
		return el;
	tag = tag.toLowerCase();
	while (el && (el.nodeType != 1 || el.tagName.toLowerCase() != tag))
		el = el.nextSibling;
	return el;
};

/** 
 * Similar to Zapatec.Utils.getNextSibling(), this function will return the
 * first child of the given element that has a specified tag.
 * 
 * @param el [HTMLElement] reference to the anchor element.
 * @param tag [string] the tag name of the returned node.
 * 
 * @return [HTMLElement] reference to the found node, or null if none could be
 * found.
 */
Zapatec.Utils.getFirstChild = function(el, tag) {
	el = el.firstChild;
	if (!tag)
		return el;
	tag = tag.toLowerCase();
	if (el.nodeType == 1 && el.tagName.toLowerCase() == tag)
		return el;
	return Zapatec.Utils.getNextSibling(el, tag);
};

Zapatec.Utils._ids = {};	/**< [number, static] maintains a list of generated IDs */

/** 
 * Generates an unique ID, for a certain code (let's say "class").  If the
 * optional "id" argument is passed, then it just returns the id for that code
 * (no generation).  This function is sometimes useful when we need to create
 * elements and be able to access them later by ID.
 * 
 * @param code [string] the class of ids.  User defined, can be anything.
 * @param id [string, optional] specify if the ID is already known.
 * 
 * @return [string] the unique ID
 */
Zapatec.Utils.generateID = function(code, id) {
	if (typeof id == "undefined") {
		if (typeof this._ids[code] == "undefined")
			this._ids[code] = 0;
		id = ++this._ids[code];
	}
	return "zapatec-" + code + "-" + id;
};

/**
*  Add a tooltip to the specified element.
*
*  Function that adds a custom tooltip for an element.  The "target" is the
*  element to where the tooltip should be added to, and the "tooltip" is a DIV
*  that contains the tooltip text.  Optionally, the tooltip DIV can have the
*  "title" attribute set; if so, its value will be displayed highlighted as
*  the title of the tooltip.
*
*  @param target  reference to or ID of the target element
*  @param tooltip reference to or ID of the tooltip content element
*/

Zapatec.Utils.addTooltip = function(target, tooltip) {
return new Zapatec.Tooltip(target, tooltip);
};


// Browser sniffing

/// detect Opera browser
Zapatec.is_opera = /opera/i.test(navigator.userAgent);

/// detect a special case of "web browser"
Zapatec.is_ie = ( /msie/i.test(navigator.userAgent) && !Zapatec.is_opera );

/// detect IE5.0/Win
Zapatec.is_ie5 = ( Zapatec.is_ie && /msie 5\.0/i.test(navigator.userAgent) );

/// detect IE for Macintosh
Zapatec.is_mac_ie = ( /msie.*mac/i.test(navigator.userAgent) && !Zapatec.is_opera );

/// detect KHTML-based browsers
Zapatec.is_khtml = /Konqueror|Safari|KHTML/i.test(navigator.userAgent);

/// detect Konqueror
Zapatec.is_konqueror = /Konqueror/i.test(navigator.userAgent);

/// detect Gecko
Zapatec.is_gecko = /Gecko/i.test(navigator.userAgent);

/*
 * The Zapatec DHTML Calendar
 *
 * Copyright (c) 2004 by Zapatec, Inc.
 * http://www.zapatec.com
 * 1700 MLK Way, Berkeley, California,
 * 94709, U.S.A.
 * All rights reserved.
 *
 * Main Calendar file. Creates a popup or flat calendar with various options.
 *
 * Original version written by Mihai Bazon,
 * http://www.bazon.net/mishoo/calendar.epl
 */

// $Id: calendar.js,v 1.16 2005/05/05 05:04:09 dror Exp $

/**
 * The Calendar object constructor.  Call it, for example, like this:
 *
 * \code
 *   // the following function is called when a date is clicked
 *   function selFunc(cal) {
 *      alert(cal.date);
 *   }
 *   // the following function is called when the calendar should be closed
 *   function closeFunc(cal) {
 *      cal.destroy();
 *   }
 *   var cal = new Zapatec.Calendar(1, new Date(), selFunc, closeFunc);
 * \endcode
 *
 * The above creates a new Calendar object.  The Calendar isn't displayed
 * instantly; using the "cal" variable, the programmer can now set certain
 * configuration variables, hook his own event handlers and then display the
 * calendar using Zapatec.Calendar.create().
 *
 * @param firstDayOfWeek [int] the first day of week (0 for Sun, 1 for Mon, ...)
 * @param dateStr [string or Date] a string to be the default date, or a reference to a Date object
 * @param onSelected [function] this function will be called when a date is selected
 * @param onClose [function] this is called when the calendar should be closed
 */
Zapatec.Calendar = function (firstDayOfWeek, dateStr, onSelected, onClose) {
 // member variables
 this.activeDiv = null;
 this.currentDateEl = null;
 this.getDateStatus = null;
 this.getDateToolTip = null;
 this.getDateText = null;
 this.timeout = null;
 this.onSelected = onSelected || null;
 this.onClose = onClose || null;
 this.onFDOW = null;
 this.dragging = false;
 this.hidden = false;
 this.minYear = 1970;
 this.maxYear = 2050;
 this.minMonth = 0;
 this.maxMonth = 11;
 this.dateFormat = Zapatec.Calendar.i18n("DEF_DATE_FORMAT");
 this.ttDateFormat = Zapatec.Calendar.i18n("TT_DATE_FORMAT");
 this.historyDateFormat = "%B %d, %Y";
 this.isPopup = true;
 this.weekNumbers = true;
 this.noGrab = false;
 if (Zapatec.Calendar.prefs.fdow || (Zapatec.Calendar.prefs.fdow == 0)) {
  this.firstDayOfWeek = parseInt(Zapatec.Calendar.prefs.fdow, 10);
 }
 else {
  var fd = 0;
  if (typeof firstDayOfWeek == "number") {
   fd = firstDayOfWeek;
  } else if (typeof Zapatec.Calendar._FD == 'number') {
   fd = Zapatec.Calendar._FD;
  }
  this.firstDayOfWeek = fd;
 }
 this.showsOtherMonths = false;
 this.dateStr = dateStr;
 this.ar_days = null;
 this.showsTime = false;
 this.sortOrder = "asc"; //Sort for multiple dates in ascending order
 this.time24 = true;
 this.yearStep = 2;
 this.hiliteToday = true;
 this.multiple = null;
 // HTML elements
 this.table = null;
 this.element = null;
 this.tbody = null;
 this.firstdayname = null;
 // Combo boxes
 this.monthsCombo = null;   // months
 this.hilitedMonth = null;
 this.activeMonth = null;
 this.yearsCombo = null;    // years
 this.hilitedYear = null;
 this.activeYear = null;
 this.histCombo = null;    // history
 this.hilitedHist = null;
 // Information
 this.dateClicked = false;

 // one-time initializations
 Zapatec.Calendar._initSDN();
};

/**
 * \internal This function is called from the constructor, only once, to
 * initialize some internal arrays containing translation strings.  It is also
 * called from the calendar wizard in order to reconfigure the calendar with a
 * language different than the initially selected one.
 */
Zapatec.Calendar._initSDN = function() {
 if (typeof Zapatec.Calendar._TT._SDN == "undefined") {
  // table of short day names
  if (typeof Zapatec.Calendar._TT._SDN_len == "undefined")
   Zapatec.Calendar._TT._SDN_len = 3;
  var ar = [];
  for (var i = 8; i > 0;) {
   ar[--i] = Zapatec.Calendar._TT._DN[i].substr(0, Zapatec.Calendar._TT._SDN_len);
  }
  Zapatec.Calendar._TT._SDN = ar;
  // table of short month names
  if (typeof Zapatec.Calendar._TT._SMN_len == "undefined")
   Zapatec.Calendar._TT._SMN_len = 3;
  ar = [];
  for (var i = 12; i > 0;) {
   ar[--i] = Zapatec.Calendar._TT._MN[i].substr(0, Zapatec.Calendar._TT._SMN_len);
  }
  Zapatec.Calendar._TT._SMN = ar;
 }
};

/**
 * Translate a string according to the currently loaded language table.  The
 * \em type variable can be null or missing, or can have one of the following
 * values: "dn", "sdn", "mn", "smn".
 *
 * -# if \em type is null or missing, the given \em str will be looked up in
 *    the translation table.  If a value is found, it is returned.  Otherwise,
 *    the string is looked up in the English table (if present).  If still not
 *    found, the value of \em str itself is returned.
 * -# if \em type is passed, then the value of \em str is looked up in one of
 *    the following internal arrays, depending on the value of \em type:
 *       - DN (day name)
 *       - SDN (short day name)
 *       - MN (month name)
 *       - SMN (short month name)
 *
 * @param str [string] ID of translation text (can be the English text)
 * @param type [string, optional] domain to search through
 *
 * @return the translation according to the current language.
 */
Zapatec.Calendar.i18n = function(str, type) {
 var tr = '';
 if (!type) {
  // normal _TT request
  if (Zapatec.Calendar._TT)
   tr = Zapatec.Calendar._TT[str];
  if (!tr && Zapatec.Calendar._TT_en)
   tr = Zapatec.Calendar._TT_en[str];
 } else switch(type) {
     case "dn"  : tr = Zapatec.Calendar._TT._DN[str];  break;
     case "sdn" : tr = Zapatec.Calendar._TT._SDN[str]; break;
     case "mn"  : tr = Zapatec.Calendar._TT._MN[str];  break;
     case "smn" : tr = Zapatec.Calendar._TT._SMN[str]; break;
 }
 if (!tr) tr = "" + str;
 return tr;
};

// ** constants

/// "static", needed for event handlers.
Zapatec.Calendar._C = null;

/// preferences
Zapatec.Calendar.prefs = {
 fdow     : null, /**< when NULL we will use the options passed at Zapatec.Calendar.setup */
 history  : "",  /**< keeps the history as one big string */
 sortOrder : "asc", /**< Sort order for multiple dates. Ascending by default */
 hsize    : 9  /**< maximum history size (number of stored items) */
};

// BEGIN: CALENDAR STATIC FUNCTIONS

/**
 * Writes the preferences cookie.
 */
Zapatec.Calendar.savePrefs = function() {
 // FIXME: should we make the domain, path and expiration time configurable?
 // I guess these defaults are right though..
 Zapatec.Utils.writeCookie("ZP_CAL", Zapatec.Utils.makePref(this.prefs), null, '/', 30);
};

/**
 * Loads the preference cookie and merges saved prefs to Zapatec.Calendar.prefs.
 */
Zapatec.Calendar.loadPrefs = function() {
 var txt = Zapatec.Utils.getCookie("ZP_CAL"), tmp;
 if (txt) {
  tmp = Zapatec.Utils.loadPref(txt);
  if (tmp)
   Zapatec.Utils.mergeObjects(this.prefs, tmp);
 }
 // FIXME: DEBUG!
 //this.prefs.history = "1979/03/08,1976/12/28,1978/08/31,1998/09/21";
 //this.prefs.history = null;
};

/**
 * \internal Adds a set of events to make some element behave like a button.
 *
 * @param el [HTMLElement] reference to your element.
 */
Zapatec.Calendar._add_evs = function(el) {
 var C = Zapatec.Calendar;
 Zapatec.Utils.addEvent(el, "mouseover", C.dayMouseOver);
 Zapatec.Utils.addEvent(el, "mousedown", C.dayMouseDown);
 Zapatec.Utils.addEvent(el, "mouseout", C.dayMouseOut);
 if (Zapatec.is_ie)
  Zapatec.Utils.addEvent(el, "dblclick", C.dayMouseDblClick);
};

/**
 * \internal This function undoes what Zapatec.Calendar._add_evs did, therefore
 * unregisters the event handlers.
 *
 * @param el [HTMLElement] reference to your element.
 */
Zapatec.Calendar._del_evs = function(el) {
 var C = this;
 Zapatec.Utils.removeEvent(el, "mouseover", C.dayMouseOver);
 Zapatec.Utils.removeEvent(el, "mousedown", C.dayMouseDown);
 Zapatec.Utils.removeEvent(el, "mouseout", C.dayMouseOut);
 if (Zapatec.is_ie)
  Zapatec.Utils.removeEvent(el, "dblclick", C.dayMouseDblClick);
};

/**
 * Given an HTML element, this function determines if it's part of the "months"
 * combo box and if so it returns the element containing the month name.
 *
 * @param el [HTMLElement] some element (usually that triggered onclick)
 * @return [HTMLElement] element with the month
 */
Zapatec.Calendar.findMonth = function(el) {
 if (typeof el.month != "undefined") {
  return el;
 } else if (el.parentNode && typeof el.parentNode.month != "undefined") {
  return el.parentNode;
 }
 return null;
};

/** Similar to findMonth() but for the history combo. */
Zapatec.Calendar.findHist = function(el) {
 if (typeof el.histDate != "undefined") {
  return el;
 } else if (el.parentNode && typeof el.parentNode.histDate != "undefined") {
  return el.parentNode;
 }
 return null;
};

/** Similar to the above functions, but for the years combo. */
Zapatec.Calendar.findYear = function(el) {
 if (typeof el.year != "undefined") {
  return el;
 } else if (el.parentNode && typeof el.parentNode.year != "undefined") {
  return el.parentNode;
 }
 return null;
};

/**
 * This function displays the months combo box.  It doesn't need any parameters
 * because it uses the static _C variable which maintains a reference to the
 * last calendar that was clicked in the page.
 */
Zapatec.Calendar.showMonthsCombo = function () {
 var cal = Zapatec.Calendar._C;
 if (!cal) {
  return false;
 }
 var cd = cal.activeDiv;
 var mc = cal.monthsCombo;
 var date = cal.date,
  MM = cal.date.getMonth(),
  YY = cal.date.getFullYear(),
  min = (YY == cal.minYear),
  max = (YY == cal.maxYear);
 for (var i = mc.firstChild; i; i = i.nextSibling) {
  var m = i.month;
  Zapatec.Utils.removeClass(i, "hilite");
  Zapatec.Utils.removeClass(i, "active");
  Zapatec.Utils.removeClass(i, "disabled");
  i.disabled = false;
  if ((min && m < cal.minMonth) ||
      (max && m > cal.maxMonth)) {
   Zapatec.Utils.addClass(i, "disabled");
   i.disabled = true;
  }
  if (m == MM)
   Zapatec.Utils.addClass(cal.activeMonth = i, "active");
 }
 var s = mc.style;
 s.display = "block";
 if (cd.navtype < 0)
  s.left = cd.offsetLeft + "px";
 else {
  var mcw = mc.offsetWidth;
  if (typeof mcw == "undefined")
   // Konqueror brain-dead techniques
   mcw = 50;
  s.left = (cd.offsetLeft + cd.offsetWidth - mcw) + "px";
 }
 s.top = (cd.offsetTop + cd.offsetHeight) + "px";
 cal.updateWCH(mc);
};

/**
 * Same as the above, this function displays the history combo box for the
 * active calendar.
 */
Zapatec.Calendar.showHistoryCombo = function() {
 var cal = Zapatec.Calendar._C, a, h, i, cd, hc, s, tmp, div;
 if (!cal)
  return false;
 hc = cal.histCombo;
 while (hc.firstChild)
  hc.removeChild(hc.lastChild);
 if (Zapatec.Calendar.prefs.history) {
  a = Zapatec.Calendar.prefs.history.split(/,/);
  i = 0;
  while (tmp = a[i++]) {
   tmp = tmp.split(/\//);
   h = Zapatec.Utils.createElement("div");
   h.className = Zapatec.is_ie ? "label-IEfix" : "label";
   h.histDate = new Date(parseInt(tmp[0], 10), parseInt(tmp[1], 10)-1, parseInt(tmp[2], 10),
           tmp[3] ? parseInt(tmp[3], 10) : 0,
           tmp[4] ? parseInt(tmp[4], 10) : 0);
   h.appendChild(window.document.createTextNode(h.histDate.print(cal.historyDateFormat)));
   hc.appendChild(h);
   if (h.histDate.dateEqualsTo(cal.date))
    Zapatec.Utils.addClass(h, "active");
  }
 }
 cd = cal.activeDiv;
 s = hc.style;
 s.display = "block";
 s.left = Math.floor(cd.offsetLeft + (cd.offsetWidth-hc.offsetWidth)/2) + "px";
 s.top = (cd.offsetTop + cd.offsetHeight) + "px";
 cal.updateWCH(hc);
};

/**
 * Displays the years combo box for the active calendar.  The "fwd" parameter
 * tells it if it should display future (right) or past (left) years.
 *
 * @param fwd [boolean] true if it's for the right combo (future), false
 * otherwise.
 */
Zapatec.Calendar.showYearsCombo = function (fwd) {
 var cal = Zapatec.Calendar._C;
 if (!cal) {
  return false;
 }
 var cd = cal.activeDiv;
 var yc = cal.yearsCombo;
 if (cal.hilitedYear) {
  Zapatec.Utils.removeClass(cal.hilitedYear, "hilite");
 }
 if (cal.activeYear) {
  Zapatec.Utils.removeClass(cal.activeYear, "active");
 }
 cal.activeYear = null;
 var Y = cal.date.getFullYear() + (fwd ? 1 : -1);
 var yr = yc.firstChild;
 var show = false;
 for (var i = 12; i > 0; --i) {
  if (Y >= cal.minYear && Y <= cal.maxYear) {
   yr.firstChild.data = Y;
   yr.year = Y;
   yr.style.display = "block";
   show = true;
  } else {
   yr.style.display = "none";
  }
  yr = yr.nextSibling;
  Y += fwd ? cal.yearStep : -cal.yearStep;
 }
 if (show) {
  var s = yc.style;
  s.display = "block";
  if (cd.navtype < 0)
   s.left = cd.offsetLeft + "px";
  else {
   var ycw = yc.offsetWidth;
   if (typeof ycw == "undefined")
    // Konqueror brain-dead techniques
    ycw = 50;
   s.left = (cd.offsetLeft + cd.offsetWidth - ycw) + "px";
  }
  s.top = (cd.offsetTop + cd.offsetHeight) + "px";
 }
 cal.updateWCH(yc);
};

// event handlers

/**
 * This is an event handler that gets called when the mouse button is released
 * upon the document.  The name (tableMouseUp) is because of historic reasons
 * (in the initial calendar versions this event was triggered by the calendar
 * table, but now it's the document who does it).
 *
 * This function does a number of things.  It determines which is the element
 * that was actually clicked.  Note that the "mouseup" event usually means
 * "something was clicked"; it's "mouseup" who fires the "onclick" event, not
 * "mousedown" ;-).  So, if the clicked element is a member of one of the combo
 * boxes such as month, year or history, then the appropriate action is taken
 * (switch month, year or go to history date).
 *
 * Also, the Zapatec.Calendar.cellClick() function is called, which further
 * examines the target element and might do other things.
 *
 * Finally, this handler deregisters itself (it's automatically enabled at
 * "mousedown" on document), stops the event propagation, sets the static _C
 * variable to \em null (meaning "no calendar is currently in use").
 *
 * @param ev [Event] the event object
 * @return false
 */
Zapatec.Calendar.tableMouseUp = function(ev) {
 var cal = Zapatec.Calendar._C;
 if (!cal) {
  return false;
 }
 if (cal.timeout) {
  clearTimeout(cal.timeout);
 }
 var el = cal.activeDiv;
 if (!el) {
  return false;
 }
 var target = Zapatec.Utils.getTargetElement(ev);
 ev || (ev = window.event);
 Zapatec.Utils.removeClass(el, "active");
 if (target == el || target.parentNode == el) {
  Zapatec.Calendar.cellClick(el, ev);
 }
 var mon = Zapatec.Calendar.findMonth(target);
 var date = null;
 if (mon) {
  if (!mon.disabled) {
   date = new Date(cal.date);
   if (mon.month != date.getMonth()) {
    date.setMonth(mon.month);
    cal.setDate(date);
    cal.dateClicked = false;
    cal.callHandler();
   }
  }
 } else {
  var year = Zapatec.Calendar.findYear(target);
  if (year) {
   date = new Date(cal.date);
   if (year.year != date.getFullYear()) {
    date.setFullYear(year.year);
    cal.setDate(date);
    cal.dateClicked = false;
    cal.callHandler();
   }
  } else {
   var hist = Zapatec.Calendar.findHist(target);
   if (hist && !hist.histDate.dateEqualsTo(cal.date)) {
    //(date = new Date(cal.date)).setDateOnly(hist.histDate);
    date = new Date(hist.histDate);
    cal._init(cal.firstDayOfWeek, cal.date = date);
    cal.dateClicked = false;
    cal.callHandler();
    cal.updateHistory();
   }
  }
 }
 Zapatec.Utils.removeEvent(window.document, "mouseup", Zapatec.Calendar.tableMouseUp);
 Zapatec.Utils.removeEvent(window.document, "mouseover", Zapatec.Calendar.tableMouseOver);
 Zapatec.Utils.removeEvent(window.document, "mousemove", Zapatec.Calendar.tableMouseOver);
 cal._hideCombos();
 Zapatec.Calendar._C = null;
 return Zapatec.Utils.stopEvent(ev);
};

/**
 * Event handler that gets called when the end-user moves the mouse over the
 * document.
 *
 * This function is pretty complicated too.  It adds hover/active state class
 * to elements that are highlighted and/or clicked.  It determines whether one
 * is trying to modify the time by "drag'n'drop" (the original interface
 * implemented by the calendar).  Finally, it determines if the
 * mouse is over combo box items, also adding/removing hover states and setting
 * some calendar variables with reference to the element involved.
 *
 * @param ev
 *
 * @return
 */
Zapatec.Calendar.tableMouseOver = function (ev) {
 var cal = Zapatec.Calendar._C;
 if (!cal) {
  return;
 }
 var el = cal.activeDiv;
 var target = Zapatec.Utils.getTargetElement(ev);
 if (target == el || target.parentNode == el) {
  Zapatec.Utils.addClass(el, "hilite active");
  Zapatec.Utils.addClass(el.parentNode, "rowhilite");
 } else {
  if (typeof el.navtype == "undefined" ||
      (el.navtype != 50 && ((el.navtype == 0 && !cal.histCombo) || Math.abs(el.navtype) > 2)))
   Zapatec.Utils.removeClass(el, "active");
  Zapatec.Utils.removeClass(el, "hilite");
  Zapatec.Utils.removeClass(el.parentNode, "rowhilite");
 }
 ev || (ev = window.event);
 if (el.navtype == 50 && target != el) {
  var pos = Zapatec.Utils.getAbsolutePos(el);
  var w = el.offsetWidth;
  var x = ev.clientX;
  var dx;
  var decrease = true;
  if (x > pos.x + w) {
   dx = x - pos.x - w;
   decrease = false;
  } else
   dx = pos.x - x;

  if (dx < 0) dx = 0;
  var range = el._range;
  var current = el._current;
  var date = cal.date;
  var pm = (date.getHours() >= 12);
  var old = el.firstChild.data;  // old value of the element
  var count = Math.floor(dx / 10) % range.length;
  for (var i = range.length; --i >= 0;)
   if (range[i] == current)
    break;
  while (count-- > 0)
   if (decrease) {
    if (--i < 0) {
     i = range.length - 1;
    }
   } else if ( ++i >= range.length ) {
    i = 0;
   }

  //ALLOWED TIME CHECK
  if (cal.getDateStatus) { 
   //Current time is changing, check with the callback to see if it's in range of allowed times
   // Fills the "minute" and "hour" variables with the time that user wants to set, to pass them to the dateStatusHandler for verification.
   // As the script passes hours in 24 format, we need to convert input values if they are not in the needed format.
   var minute = null; // minutes to be passed
   var hour = null; // hours to be passed
   var new_date = new Date(date); // as we pass date element to the handler, we need to create new one and fill it with new minutes or hours (depending on what had changed)
   // if "ampm" was clicked
   if (el.className.indexOf("ampm", 0) != -1) {
      minute = date.getMinutes(); // minutes didn't change
      // if the "ampm" value has changed we need to correct hours (add 12 or exclude 12 or set it to zero)
      if (old != range[i]) {
         hour = (range[i] == "pm") ? ((date.getHours() == 0) ? (12) : (date.getHours() + 12)) : (date.getHours() - 12);
      } else {
         hour = date.getHours();
      }
      // updates our new Date object that will be passed to the handler
      new_date.setHours(hour);
   }
   // if hours were clicked
   if (el.className.indexOf("hour", 0) != -1) {
      minute = date.getMinutes(); // minutes didn't change
      hour = (!cal.time24) ? ((pm) ? ((range[i] != 12) ? (parseInt(range[i], 10) + 12) : (12)) : ((range[i] != 12) ? (range[i]) : (0))) : (range[i]); // new value of hours
      new_date.setHours(hour);
   }
   // if minutes were clicked
   if (el.className.indexOf("minute", 0) != -1) {
    hour = date.getHours(); // hours didn't change
    minute = range[i]; // new value of minutes
    new_date.setMinutes(minute);
   }
  }
  var status = false;
  // if the handler is set, we pass new values and retrieve result in "status" variable
  if (cal.getDateStatus) {
     status = cal.getDateStatus(new_date, date.getFullYear(), date.getMonth(), date.getDate(), parseInt(hour, 10), parseInt(minute, 10));
  }
  // if time is enabled, we set new value
  if (status == false) {
     if ( !((!cal.time24) && (range[i] == "pm") && (hour > 23)) ) {
        el.firstChild.data = range[i];
     }
  }
  cal.onUpdateTime();
  //END OF ALLOWED TIME CHECK
 }
 var mon = Zapatec.Calendar.findMonth(target);
 if (mon) {
  if (!mon.disabled) {
   if (mon.month != cal.date.getMonth()) {
    if (cal.hilitedMonth) {
     Zapatec.Utils.removeClass(cal.hilitedMonth, "hilite");
    }
    Zapatec.Utils.addClass(mon, "hilite");
    cal.hilitedMonth = mon;
   } else if (cal.hilitedMonth) {
    Zapatec.Utils.removeClass(cal.hilitedMonth, "hilite");
   }
  }
 } else {
  if (cal.hilitedMonth) {
   Zapatec.Utils.removeClass(cal.hilitedMonth, "hilite");
  }
  var year = Zapatec.Calendar.findYear(target);
  if (year) {
   if (year.year != cal.date.getFullYear()) {
    if (cal.hilitedYear) {
     Zapatec.Utils.removeClass(cal.hilitedYear, "hilite");
    }
    Zapatec.Utils.addClass(year, "hilite");
    cal.hilitedYear = year;
   } else if (cal.hilitedYear) {
    Zapatec.Utils.removeClass(cal.hilitedYear, "hilite");
   }
  } else {
   if (cal.hilitedYear) {
    Zapatec.Utils.removeClass(cal.hilitedYear, "hilite");
   }
   var hist = Zapatec.Calendar.findHist(target);
   if (hist) {
    if (!hist.histDate.dateEqualsTo(cal.date)) {
     if (cal.hilitedHist) {
      Zapatec.Utils.removeClass(cal.hilitedHist, "hilite");
     }
     Zapatec.Utils.addClass(hist, "hilite");
     cal.hilitedHist = hist;
    } else if (cal.hilitedHist) {
     Zapatec.Utils.removeClass(cal.hilitedHist, "hilite");
    }
   } else if (cal.hilitedHist) {
    Zapatec.Utils.removeClass(cal.hilitedHist, "hilite");
   }
  }
 }
 return Zapatec.Utils.stopEvent(ev);
};

/**
 * This is a simple function that stops a "mousedown" related to the calendar's
 * table element.  This helps avoiding text selection in certain browsers (most
 * notably, Safari, since Mozilla already has a better way).
 *
 * @param ev [Event] the Event object
 * @return false
 */
Zapatec.Calendar.tableMouseDown = function (ev) {
 if (Zapatec.Utils.getTargetElement(ev) == Zapatec.Utils.getElement(ev)) {
  return Zapatec.Utils.stopEvent(ev);
 }
};

/**
 * \defgroup dndmove Drag'n'drop (move calendar) functions
 *
 * Contains some functions that implement calendar "drag'n'drop" facility which
 * allows one to move the calendar around the browser's view.
 */
//@{
/**
 * Called at mouseover and/or mousemove on document, this function repositions
 * the calendar according to the current mouse position.
 *
 * @param ev [Event] The Event object
 * @return false
 */
Zapatec.Calendar.calDragIt = function (ev) {
 ev || (ev = window.event);
 var cal = Zapatec.Calendar._C;
 if (!(cal && cal.dragging)) {
  return false;
 }
 var posX = ev.clientX + window.document.body.scrollLeft;
 var posY = ev.clientY + window.document.body.scrollTop;
 cal.hideShowCovered();
 var st = cal.element.style, L = posX - cal.xOffs, T = posY - cal.yOffs;
 st.left = L + "px";
 st.top = T + "px";
 Zapatec.Utils.setupWCH(cal.WCH, L, T);
 return Zapatec.Utils.stopEvent(ev);
};

/**
 * Gets called when the drag and drop operation is finished; thus, at
 * "onmouseup".  This function unregisters D'n'D event handlers and calls
 * Zapatec.Calendar.hideShowCovered() which repaints as appropriate any
 * "windowed controls" that might have been hidden by the end user moving the
 * calendar. (note, this is only for IE5; for IE5.5 there are better--albeit
 * uglier--workarounds).
 *
 * @param ev [Event] the event object
 * @return false
 */
Zapatec.Calendar.calDragEnd = function (ev) {
 var cal = Zapatec.Calendar._C;
 if (!cal) {
  return false;
 }
 cal.dragging = false;
 Zapatec.Utils.removeEvent(window.document, "mousemove", Zapatec.Calendar.calDragIt);
 Zapatec.Utils.removeEvent(window.document, "mouseover", Zapatec.Calendar.calDragIt);
 Zapatec.Utils.removeEvent(window.document, "mouseup", Zapatec.Calendar.calDragEnd);
 Zapatec.Calendar.tableMouseUp(ev);
 cal.hideShowCovered();
};
//@}

/**
 * Called when the mouse button is pressed upon a button.  The name of this
 * function is so for historical reasons; currently, this function is used for
 * \em any type of buttons used in the calendar, not only "days".
 *
 * This function does quite some things.  It checks if the clicked cell is the
 * title bar or the status bar, in which case it starts the calendar dragging
 * mechanism (cal._dragStart()).  If the cell is a time part, then it registers
 * Zapatec.Calendar.tableMouseOver() event handler on the document.  If the
 * cell is a "navigation" button (next/prev year or month, or today) then a
 * timeout is created that will show the appropriate combo box if the button is
 * not quickly depressed.
 *
 * @param ev [Event] the event object
 * @return false
 */
Zapatec.Calendar.dayMouseDown = function(ev) {
 var el = Zapatec.Utils.getElement(ev);
 if (el.disabled) {
  return false;
 }
 var cal = el.calendar;
 cal.activeDiv = el;
 Zapatec.Calendar._C = cal;
 if (el.navtype != 300) {
  if (el.navtype == 50) {
   el._current = el.firstChild.data;
   Zapatec.Utils.addEvent(window.document, "mousemove", Zapatec.Calendar.tableMouseOver);
  } else
   Zapatec.Utils.addEvent(window.document, Zapatec.is_ie5 ? "mousemove" : "mouseover", Zapatec.Calendar.tableMouseOver);
  Zapatec.Utils.addClass(el, "hilite active");
  Zapatec.Utils.addEvent(window.document, "mouseup", Zapatec.Calendar.tableMouseUp);
 } else if (cal.isPopup) {
  cal._dragStart(ev);
 }
 if (el.navtype == -1 || el.navtype == 1) {
  if (cal.timeout) clearTimeout(cal.timeout);
  cal.timeout = setTimeout("Zapatec.Calendar.showMonthsCombo()", 250);
 } else if (el.navtype == -2 || el.navtype == 2) {
  if (cal.timeout) clearTimeout(cal.timeout);
  cal.timeout = setTimeout((el.navtype > 0) ? "Zapatec.Calendar.showYearsCombo(true)" : "Zapatec.Calendar.showYearsCombo(false)", 250);
 } else if (el.navtype == 0 && Zapatec.Calendar.prefs.history) {
  if (cal.timeout) clearTimeout(cal.timeout);
  cal.timeout = setTimeout("Zapatec.Calendar.showHistoryCombo()", 250);
 } else {
  cal.timeout = null;
 }
 return Zapatec.Utils.stopEvent(ev);
};

/**
 * For IE5 we can't make unselectable elements, but we can void the selection
 * immediately after the double click event :D.  This function is a double
 * click handler which does exactly that.  Uses IE-specific functions.
 */
Zapatec.Calendar.dayMouseDblClick = function(ev) {
 Zapatec.Calendar.cellClick(Zapatec.Utils.getElement(ev), ev || window.event);
 if (Zapatec.is_ie)
  window.document.selection.empty();
};

/**
 * This function gets called at "onmouseover" events that trigger on any kind
 * of button, like dates, navigation buttons, etc.  Basically, the function
 * computes and caches the tooltip (if it's a date cell for instance) and
 * displays it in the status bar.  If the cell is not a navigation button, it
 * will also add "rowhilite" class to the containing TR element.
 *
 * @param ev [Event] the event object.
 * @return false
 */
Zapatec.Calendar.dayMouseOver = function(ev) {
 var el = Zapatec.Utils.getElement(ev),
  caldate = el.caldate;
 if (caldate)
  caldate = new Date(caldate[0], caldate[1], caldate[2]);
 if (Zapatec.Utils.isRelated(el, ev) || Zapatec.Calendar._C || el.disabled) {
  return false;
 }
 if (el.ttip) {
  if (el.ttip.substr(0, 1) == "_") {
   el.ttip = caldate.print(el.calendar.ttDateFormat) + el.ttip.substr(1);
  }
  el.calendar.showHint(el.ttip);
 }
 if (el.navtype != 300) {
  Zapatec.Utils.addClass(el, "hilite");
  if (caldate) {
   Zapatec.Utils.addClass(el.parentNode, "rowhilite");
  }
 }
 return Zapatec.Utils.stopEvent(ev);
};

/**
 * Gets called when the mouse leaves a button.  This function "undoes" what
 * dayMouseOver did, that is, it removes the "rowhilite" class from the
 * containing TR and restores the status bar display to read "Select date".
 *
 * @param ev [Event] the event object.
 * @return false
 */
Zapatec.Calendar.dayMouseOut = function(ev) {
 var el = Zapatec.Utils.getElement(ev);
 if (Zapatec.Utils.isRelated(el, ev) || Zapatec.Calendar._C || el.disabled)
  return false;
 Zapatec.Utils.removeClass(el, "hilite");
 if (el.caldate)
  Zapatec.Utils.removeClass(el.parentNode, "rowhilite");
 if (el.calendar)
  el.calendar.showHint(Zapatec.Calendar.i18n("SEL_DATE"));
 return Zapatec.Utils.stopEvent(ev);
};

/**
 * The generic "click" handler.  This function handles actions on any kind of
 * buttons that appear inside our calendar.  It determines the button type by
 * querying \em el.navtype.  The following types of objects are supported:
 *
 * - Date cells (navtype is undefined).  The function will select that date,
 *   add appropriate class names and remove them from the previously selected
 *   date.  If the date in the calendar \em has \em changed, it calls the
 *   calendar's onSelect handler (see the constructor).  If multiple dates is
 *   enabled, it will not unselect previously selected date but rather maintain
 *   an array of dates which will be avaliable to the onSelect or onClose
 *   handler.
 * - The Close button (navtype == 200).  If this is clicked, then the
 *   calendar's onClose handler is called immediately.
 * - The Today button (navtype == 0).  The calendar will jump to the "today"
 *   date and time, unless it's already there.
 * - The About button (navtype == 400).  It will display an alert with the
 *   "about message", as defined in the translation file.
 * - Previous year (navtype == -2)
 * - Previous month (navtype == -1)
 * - Next month (navtype == 1)
 * - Next year (navtype == 2)
 * - Day names (navtype == 100).  If any of them is clicked, the calendar will
 *   display that day as the first day of week.  It calls the "onFDOW" event
 *   handler if defined.
 * - Time parts (navtype == 50).  If any of them is clicked, this function will
 *   determine if it's a click or shift-click, and will take the appropriate
 *   action (simple click means add 1, shift-click means substract 1 from that
 *   time part).  Then it calls onUpdateTime() to refresh the display.
 * - Time scroll buttons (navtype == 201 or navtype == 202).  If such buttons
 *   are clicked, the time part involved is determined and it is incremented or
 *   decremented with the current step (default: 5).  201 is for "add", 202 for
 *   "substract".
 *
 * @param el [HTMLElement] the object being clicked on
 * @param ev [Event] the event object
 */
Zapatec.Calendar.cellClick = function(el, ev) {
 var cal = el.calendar;
 var closing = false;
 var newdate = false;
 var date = null;
 if (typeof el.navtype == "undefined") {
  if (cal.currentDateEl) {
   Zapatec.Utils.removeClass(cal.currentDateEl, "selected");
   Zapatec.Utils.addClass(el, "selected");
   closing = (cal.currentDateEl == el);
   if (!closing) {
    cal.currentDateEl = el;
   }
  }
  cal.date.setDateOnly(new Date(el.caldate[0], el.caldate[1], el.caldate[2]));
  date = cal.date;
  var other_month = !(cal.dateClicked = !el.otherMonth);
  if (!other_month && cal.multiple)
   cal._toggleMultipleDate(new Date(date));
  else
   newdate = true;
  // a date was clicked
  if (other_month)
   cal._init(cal.firstDayOfWeek, date);
  cal.onSetTime();
 } else {
  if (el.navtype == 200) {
   Zapatec.Utils.removeClass(el, "hilite");
   cal.callCloseHandler();
   return;
  }
  date = new Date(cal.date);
  if (el.navtype == 0){
    date.setDateOnly(new Date()); // TODAY
  // unless "today" was clicked, we assume no date was clicked so
  // the selected handler will know not to close the calenar when
  // in single-click mode.
  // cal.dateClicked = (el.navtype == 0);
  ///inputField shows the today's date on clicking Today button
  cal.callHandler();
  cal.callCloseHandler();
  }
 
  cal.dateClicked = false;
  
  var year = date.getFullYear();
  var mon = date.getMonth();
  function setMonth(m) {
   var day = date.getDate();
   var max = date.getMonthDays(m);
   if (day > max) {
    date.setDate(max);
   }
   date.setMonth(m);
  };
  switch (el.navtype) {
      case 400:
   Zapatec.Utils.removeClass(el, "hilite");
   var text = Zapatec.Calendar.i18n("ABOUT");
   if (typeof text != "undefined") {
    text += cal.showsTime ? Zapatec.Calendar.i18n("ABOUT_TIME") : "";
   } else {
    // FIXME: this should be removed as soon as lang files get updated!
    text = "Help and about box text is not translated into this language.\n" +
     "If you know this language and you feel generous please update\n" +
     "the corresponding file in \"lang\" subdir to match calendar-en.js\n" +
     "and send it back to <support@zapatec.com> to get it into the distribution  ;-)\n\n" +
     "Thank you!\n" +
     "http://www.zapatec.com\n";
   }
   alert(text);
   return;
      case -2:
   if (year > cal.minYear) {
    date.setFullYear(year - 1);
   }
   break;
      case -1:
   if (mon > 0) {
    setMonth(mon - 1);
   } else if (year-- > cal.minYear) {
    date.setFullYear(year);
    setMonth(11);
   }
   break;
      case 1:
   if (mon < 11) {
    setMonth(mon + 1);
   } else if (year < cal.maxYear) {
    date.setFullYear(year + 1);
    setMonth(0);
   }
   break;
      case 2:
   if (year < cal.maxYear) {
    date.setFullYear(year + 1);
   }
   break;
      case 100:
   cal.setFirstDayOfWeek(el.fdow);
   Zapatec.Calendar.prefs.fdow = cal.firstDayOfWeek;
   Zapatec.Calendar.savePrefs();
   if (cal.onFDOW)
    cal.onFDOW(cal.firstDayOfWeek);
   return;
      case 50:
   var range = el._range;
   var current = el.firstChild.data;
   var pm = (date.getHours() >= 12);
   for (var i = range.length; --i >= 0;)
    if (range[i] == current)
     break;
   if (ev && ev.shiftKey) {
    if (--i < 0) {
     i = range.length - 1;
    }
   } else if ( ++i >= range.length ) {
     i = 0;
    }

  //ALLOWED TIME CHECK
   if (cal.getDateStatus) { //Current time is changing, check with the callback to see if it's in range
    // Fills "minute" and "hour" variables with the time that user wants to set, to pass them to the dateStatusHandler.
    // As the script passes hours in 24 format, we need to convert inputed values if they are not in the needed format   
    var minute = null; // minutes to be passed
    var hour = null; // hours to be passed
    // as we pass date element to the handler, we need to create new one and fill it with new minutes or hours (depending on what had changed)
    var new_date = new Date(date);
    // if "ampm" was clicked
    if (el.className.indexOf("ampm", 0) != -1) {
     minute = date.getMinutes(); // minutes didn't change
     // if the "ampm" value has changed we need to correct hours (add 12 or exclude 12 or set it to zero)
     hour = (range[i] == "pm") ? ((date.getHours() == 12) ? (date.getHours()) : (date.getHours() + 12)) : (date.getHours() - 12);
     // if the time is disabled we seek the first one disabled.
     // It fixes the bug when you can not change from 'am' to 'pm' or vice versa for the dates that have restrictions for time.
     // This part of code is very easy to understand, so it don't need much comments
     if ( cal.getDateStatus && cal.getDateStatus(new_date, date.getFullYear(), date.getMonth(), date.getDate(), parseInt(hour, 10), parseInt(minute, 10)) ) {
        var dirrect;
        if (range[i] == "pm") {
           dirrect = -5;
        } else {
           dirrect = 5;
        }
        hours = hour;
        minutes = minute;
        do {
           minutes += dirrect;
           if (minutes >=60) {
       minutes -= 60;
       ++hours;
       if (hours >= 24) hours -= 24;
       new_date.setHours(hours);
           }
           if (minutes < 0) {
       minutes += 60;
       --hours;
         if (hours < 0) hours += 24;
       new_date.setHours(hours);
           }
           new_date.setMinutes(minutes);
           if (!cal.getDateStatus(new_date, date.getFullYear(), date.getMonth(), date.getDate(), parseInt(hours, 10), parseInt(minutes, 10))) {
       hour = hours;
       minute = minutes;
       if (hour > 12) i = 1; else i = 0;
       cal.date.setHours(hour);
       cal.date.setMinutes(minute);
       cal.onSetTime();
           }
        } while ((hour != hours) || (minute != minutes));
     }
     // updates our new Date object that will be passed to the handler
     new_date.setHours(hour);
    }
    // if hours were clicked
    if (el.className.indexOf("hour", 0) != -1) {
       minute = date.getMinutes(); // minutes didn't change
       hour = (!cal.time24) ? ((pm) ? ((range[i] != 12) ? (parseInt(range[i], 10) + 12) : (12)) : ((range[i] != 12) ? (range[i]) : (0))) : (range[i]);  // new value of hours
       new_date.setHours(hour);
    }
    // if minutes were clicked
    if (el.className.indexOf("minute", 0) != -1) {
       hour = date.getHours(); // hours didn't change
       minute = range[i]; // new value of minutes
       new_date.setMinutes(minute);
    }
   }
   var status = false;
   // if the handler is set, we pass new values and retreive result in "status" variable
   if (cal.getDateStatus) {
      status = cal.getDateStatus(new_date, date.getFullYear(), date.getMonth(), date.getDate(), parseInt(hour, 10), parseInt(minute, 10));
   }
   if (!status) {
      el.firstChild.data = range[i];
   }
   //END OF ALLOWED TIME CHECK

   cal.onUpdateTime();
   return;
      case 201: // timepart, UP
      case 202: // timepart, DOWN
   var cel = el.timePart;
   var val = parseInt(cel.firstChild.data, 10);
   var pm = (date.getHours() >= 12);
   var range = cel._range;
   for (var i = range.length; --i >= 0;)
    if (val == range[i]) {
     val = i;
     break;
    }
   var step = cel._step;
   if (el.navtype == 201) {
    val = step*Math.floor(val/step);
    val += step;
    if (val >= range.length)
     val = 0;
   } else {
    val = step*Math.ceil(val/step);
    val -= step;
    if (val < 0)
     val = range.length-1;
   }

   //ALLOWED TIME CHECK
   if (cal.getDateStatus) { //Current time is changing, check with the callback to see if it's in range of allowed times
      // Fills "minute" and "hour" variables with the time that user wants to set, to pass them to the dateStatusHandler.
      // As the script passes hours in 24 format, we need to convert inputed values if they are not in the needed format   
      var minute = null; // minutes to be passed
      var hour = null; // hours to be passed
      // as we pass date element to the handler, we need to create new one and fill it with new minutes or hours (depending on what had changed)
      var new_date = new Date(date);
      // if hours were changed
      if (cel.className == "hour") {
         minute = date.getMinutes();
         hour = (!cal.time24) ? ((pm) ? ((range[val] != 12) ? (parseInt(range[val], 10) + 12) : (12)) : ((range[val] != 12) ? (range[val]) : (0))) : (range[val]);
         new_date.setHours(hour);
      }
      // if minutes were changed
      if (cel.className == "minute") {
         hour = date.getHours();
         minute = val;
         new_date.setMinutes(range[val]);
      }
   }
   var status = false;
   // if the handler is set, we pass new values and retreive result in "status" variable
   if (cal.getDateStatus) {
      status = cal.getDateStatus(new_date, date.getFullYear(), date.getMonth(), date.getDate(), parseInt(hour, 10), parseInt(minute, 10));
   }   
   if (!status) {
      cel.firstChild.data = range[val];
   }
   cal.onUpdateTime();
   //END OF ALLOWED TIME CHECK
   return;
      case 0:
   // TODAY will bring us here
   if (cal.getDateStatus && cal.getDateStatus(date, date.getFullYear(), date.getMonth(), date.getDate())) {
    // remember, "date" was previously set to new
    // Date() if TODAY was clicked; thus, it
    // contains today date.
    return false;
   }
   break;
  }
  
  if (!date.equalsTo(cal.date)) {
   cal.setDate(date);
   newdate = true;
  }
 }
 if (newdate) {
  cal.callHandler();
 }
 if (closing) {
  Zapatec.Utils.removeClass(el, "hilite");
  cal.callCloseHandler();
 }
};

// END: CALENDAR STATIC FUNCTIONS

// BEGIN: CALENDAR OBJECT FUNCTIONS

/**
 * This function creates the calendar HTML elements inside the given parent.
 * If _par is null than it creates a popup calendar inside the BODY element.
 * If _par is an element, be it BODY, then it creates a non-popup calendar
 * (still hidden).
 *
 * The function looks rather complicated, but what it does is quite simple.
 * The basic calendar elements will be created, that is, a containing DIV, a
 * TABLE that contains a header (title, navigation bar and day names bar), a
 * body containing 6 rows with 7 or 8 cells each (this depends on whether week
 * numbers are on or off) and a footer containing the status bar.  Appropriate
 * event handlers are assigned to all buttons or to the title and status bar
 * (for drag'n'drop).
 *
 * This function also builds the time selector if the calendar is configured
 * so, and it also creates the elements required for combo boxes (years,
 * months, history).
 *
 * This function does not display day names or dates.  This is done in
 * Zapatec.Calendar.prototype._init().  Therefore, by separating these 2
 * actions we can make date switching happen much faster because the _init
 * function will already have the elements in place (so we don't need to create
 * them again and again).  This was a major improvement which got in
 * the calendar v0.9.1.
 *
 * @param _par
 */
Zapatec.Calendar.prototype.create = function (_par) {
 var parent = null;
 if (! _par) {
  // default parent is the document body, in which case we create
  // a popup calendar.
  parent = window.document.getElementsByTagName("body")[0];
  this.isPopup = true;
  this.WCH = Zapatec.Utils.createWCH();
 } else {
  parent = _par;
  this.isPopup = false;
 }
 this.date = this.dateStr ? new Date(this.dateStr) : new Date();

 var table = Zapatec.Utils.createElement("table");
 this.table = table;
 table.cellSpacing = 0;
 table.cellPadding = 0;
 table.calendar = this;
 Zapatec.Utils.addEvent(table, "mousedown", Zapatec.Calendar.tableMouseDown);

 var div = Zapatec.Utils.createElement("div");
 this.element = div;
 div.className = "calendar";
 if (this.isPopup) {
  div.style.position = "absolute";
  div.style.display = "none";
 }
 div.appendChild(table);

 var thead = Zapatec.Utils.createElement("thead", table);
 var cell = null;
 var row = null;

 var cal = this;
 var hh = function (text, cs, navtype) {
  cell = Zapatec.Utils.createElement("td", row);
  cell.colSpan = cs;
  cell.className = "button";
  if (Math.abs(navtype) <= 2)
   cell.className += " nav";
  Zapatec.Calendar._add_evs(cell);
  cell.calendar = cal;
  cell.navtype = navtype;
  if (text.substr(0, 1) != "&") {
   cell.appendChild(document.createTextNode(text));
  }
  else {
   // FIXME: dirty hack for entities
   cell.innerHTML = text;
  }
  return cell;
 };

 row = Zapatec.Utils.createElement("tr", thead);
 var title_length = 6;
 this.isPopup && --title_length;
 this.weekNumbers && ++title_length;

 hh("", 1, 400).ttip = Zapatec.Calendar.i18n("INFO");
 this.title = hh("", title_length, 300);
 this.title.className = "title";
 if (this.isPopup) {
  this.title.ttip = Zapatec.Calendar.i18n("DRAG_TO_MOVE");
  this.title.style.cursor = "move";
  hh("&#x00d7;", 1, 200).ttip = Zapatec.Calendar.i18n("CLOSE");
 }

 row = Zapatec.Utils.createElement("tr", thead);
 row.className = "headrow";

 this._nav_py = hh("&#x00ab;", 1, -2);
 this._nav_py.ttip = Zapatec.Calendar.i18n("PREV_YEAR");

 this._nav_pm = hh("&#x2039;", 1, -1);
 this._nav_pm.ttip = Zapatec.Calendar.i18n("PREV_MONTH");

 this._nav_now = hh(Zapatec.Calendar.i18n("TODAY"), this.weekNumbers ? 4 : 3, 0);
 this._nav_now.ttip = Zapatec.Calendar.i18n("GO_TODAY");

 this._nav_nm = hh("&#x203a;", 1, 1);
 this._nav_nm.ttip = Zapatec.Calendar.i18n("NEXT_MONTH");

 this._nav_ny = hh("&#x00bb;", 1, 2);
 this._nav_ny.ttip = Zapatec.Calendar.i18n("NEXT_YEAR");

 // day names
 row = Zapatec.Utils.createElement("tr", thead);
 row.className = "daynames";
 if (this.weekNumbers) {
  cell = Zapatec.Utils.createElement("td", row);
  cell.className = "name wn";
  cell.appendChild(window.document.createTextNode(Zapatec.Calendar.i18n("WK")));
  var cal_wk = Zapatec.Calendar.i18n("WK")
   if (cal_wk == null) {
    //if it's not defined in the language file, leave it blank
    cal_wk = "";
   }

 }
 for (var i = 7; i > 0; --i) {
  cell = Zapatec.Utils.createElement("td", row);
  cell.appendChild(window.document.createTextNode(""));
  if (!i) {
   cell.navtype = 100;
   cell.calendar = this;
   Zapatec.Calendar._add_evs(cell);
  }
 }
 this.firstdayname = row.childNodes[this.weekNumbers?1:0];
 this._displayWeekdays();

 var tbody = Zapatec.Utils.createElement("tbody", table);
 this.tbody = tbody;

 for (i = 6; i > 0; --i) {
  row = Zapatec.Utils.createElement("tr", tbody);
  if (this.weekNumbers) {
   cell = Zapatec.Utils.createElement("td", row);
   cell.appendChild(document.createTextNode(""));
  }
  for (var j = 7; j > 0; --j) {
   cell = Zapatec.Utils.createElement("td", row);
   cell.appendChild(document.createTextNode(""));
   cell.calendar = this;
   Zapatec.Calendar._add_evs(cell);
  }
 }

 var tfoot = Zapatec.Utils.createElement("tfoot", table);

 if (this.showsTime) {
  row = Zapatec.Utils.createElement("tr", tfoot);
  row.className = "time";

  cell = Zapatec.Utils.createElement("td", row);
  cell.className = "timetext";
  cell.colSpan = this.weekNumbers ? 2 : 1;
  cell.innerHTML = Zapatec.Calendar.i18n("TIME") || "&nbsp;";

  (function() {
   function makeTimePart(className, init, range_start, range_end) {
    var table, tbody, tr, tr2, part;
    if (range_end) {
     cell = Zapatec.Utils.createElement("td", row);
     cell.colSpan = 2;
     cell.className = "parent-" + className;
     table = Zapatec.Utils.createElement("table", cell);
     table.cellSpacing = table.cellPadding = 0;
     if (className == "hour")
      table.align = "right";
     table.className = "calendar-time-scroller";
     tbody = Zapatec.Utils.createElement("tbody", table);
     tr    = Zapatec.Utils.createElement("tr", tbody);
     tr2   = Zapatec.Utils.createElement("tr", tbody);
    } else
     tr = row;
    part = Zapatec.Utils.createElement("td", tr);
    part.className = className;
    part.appendChild(window.document.createTextNode(init));
    part.calendar = cal;
    part.ttip = Zapatec.Calendar.i18n("TIME_PART");
    part.navtype = 50;
    part._range = [];
    if (!range_end)
     part._range = range_start;
    else {
     part.rowSpan = 2;
     for (var i = range_start; i <= range_end; ++i) {
      var txt;
      if (i < 10 && range_end >= 10) txt = '0' + i;
      else txt = '' + i;
      part._range[part._range.length] = txt;
     }
     var up = Zapatec.Utils.createElement("td", tr);
     up.className = "up";
     up.navtype = 201;
     up.calendar = cal;
     up.timePart = part;
     if (Zapatec.is_khtml)
      up.innerHTML = "&nbsp;";
     Zapatec.Calendar._add_evs(up);

     var down = Zapatec.Utils.createElement("td", tr2);
     down.className = "down";
     down.navtype = 202;
     down.calendar = cal;
     down.timePart = part;
     if (Zapatec.is_khtml)
      down.innerHTML = "&nbsp;";
     Zapatec.Calendar._add_evs(down);
    }
    Zapatec.Calendar._add_evs(part);
    return part;
   };
   var hrs = cal.date.getHours();
   var mins = cal.date.getMinutes();
   var t12 = !cal.time24;
   var pm = (hrs > 12);
   if (t12 && pm) hrs -= 12;
   var H = makeTimePart("hour", hrs, t12 ? 1 : 0, t12 ? 12 : 23);
   H._step = 1;
   cell = Zapatec.Utils.createElement("td", row);
   cell.innerHTML = ":";
   cell.className = "colon";
   var M = makeTimePart("minute", mins, 0, 59);
   M._step = 5; // FIXME: make this part configurable
   var AP = null;
   if (t12) {
    AP = makeTimePart("ampm", pm ? "pm" : "am", ["am", "pm"]);
    AP.className += " button";
   } else
    Zapatec.Utils.createElement("td", row).innerHTML = "&nbsp;";

   cal.onSetTime = function() {
    var hrs = this.date.getHours();
    var mins = this.date.getMinutes();
   //ALLOWED TIME CHECK
    // This part of code seeks for the first enabled time value for this date. 
    // It is written for the cases when you change day, month or year and the time value is disabled for the new date.
    // So if you only allow 8:00 - 17:00 on Mondays and you change the date to a Monday but the time is 7:00 it will
    // automatically move forward to 8:00.
    var new_date = new Date(this.date);
    if (this.getDateStatus && this.getDateStatus(this.date, this.date.getFullYear(), this.date.getMonth(), this.date.getDate(), hrs, mins)) {
       hours = hrs;
       minutes = mins;
       do {
          minutes += 5;
          if (minutes >=60) {
      minutes -= 60;
      hours += 1;
      if (hours >= 24) hours -= 24;
          }
          new_date.setMinutes(minutes);
          new_date.setHours(hours);
          if (!this.getDateStatus(new_date, this.date.getFullYear(), this.date.getMonth(), this.date.getDate(), hours, minutes)) {
      hrs = hours;
       mins = minutes;
          }
       } while ((hrs != hours) || (mins != minutes));
    }
   //END OF ALLOWED TIME CHECK
    var pm = (hrs > 12);
    if (pm && t12) hrs -= 12;
    H.firstChild.data = (hrs < 10) ? ("0" + hrs) : hrs;
    M.firstChild.data = (mins < 10) ? ("0" + mins) : mins;
    if (t12)
       AP.firstChild.data = pm ? "pm" : "am";
   };

   cal.onUpdateTime = function() {
    var date = this.date;
    var h = parseInt(H.firstChild.data, 10);
    if (t12) {
     if (/pm/i.test(AP.firstChild.data) && h < 12)
      h += 12;
     else if (/am/i.test(AP.firstChild.data) && h == 12)
      h = 0;
    }
    var d = date.getDate();
    var m = date.getMonth();
    var y = date.getFullYear();
    date.setHours(h);
    date.setMinutes(parseInt(M.firstChild.data, 10));
    date.setFullYear(y);
    date.setMonth(m);
    date.setDate(d);
    this.dateClicked = false;
    this.callHandler();
   };
  })();
 } else {
  this.onSetTime = this.onUpdateTime = function() {};
 }

 row = Zapatec.Utils.createElement("tr", tfoot);
 row.className = "footrow";

 cell = hh(Zapatec.Calendar.i18n("SEL_DATE"), this.weekNumbers ? 8 : 7, 300);
 cell.className = "ttip";
 if (this.isPopup) {
  cell.ttip = Zapatec.Calendar.i18n("DRAG_TO_MOVE");
  cell.style.cursor = "move";
 }
 this.tooltips = cell;

 div = this.monthsCombo = Zapatec.Utils.createElement("div", this.element);
 div.className = "combo";
 for (i = 0; i < 12; ++i) {
  var mn = Zapatec.Utils.createElement("div");
  mn.className = Zapatec.is_ie ? "label-IEfix" : "label";
  mn.month = i;
  mn.appendChild(window.document.createTextNode(Zapatec.Calendar.i18n(i, "smn")));
  div.appendChild(mn);
 }

 div = this.yearsCombo = Zapatec.Utils.createElement("div", this.element);
 div.className = "combo";
 for (i = 12; i > 0; --i) {
  var yr = Zapatec.Utils.createElement("div");
  yr.className = Zapatec.is_ie ? "label-IEfix" : "label";
  yr.appendChild(window.document.createTextNode(""));
  div.appendChild(yr);
 }

 div = this.histCombo = Zapatec.Utils.createElement("div", this.element);
 div.className = "combo history";

 this._init(this.firstDayOfWeek, this.date);
 parent.appendChild(this.element);
};

/**
 * This function handles keypress events that occur while a popup calendar is
 * displayed.  The implementation is quite complicated; this function calls
 * cellClick in order to set the new date as if it was clicked.
 *
 * @param ev [Event] the event object
 * @return false
 */
Zapatec.Calendar._keyEvent = function(ev) {
 if (!window.calendar) {
  return false;
 }
 (Zapatec.is_ie) && (ev = window.event);
 var cal = window.calendar;
 var act = (Zapatec.is_ie || ev.type == "keypress");
 var K = ev.keyCode;
 if (ev.ctrlKey) {
  switch (K) {
      case 37: // KEY left
   act && Zapatec.Calendar.cellClick(cal._nav_pm);
   break;
      case 38: // KEY up
   act && Zapatec.Calendar.cellClick(cal._nav_py);
   break;
      case 39: // KEY right
   act && Zapatec.Calendar.cellClick(cal._nav_nm);
   break;
      case 40: // KEY down
   act && Zapatec.Calendar.cellClick(cal._nav_ny);
   break;
      default:
   return false;
  }
 } else switch (K) {
     case 32: // KEY space (now)
  Zapatec.Calendar.cellClick(cal._nav_now);
  break;
     case 27: // KEY esc
  act && cal.callCloseHandler();
  break;
     case 37: // KEY left
     case 38: // KEY up
     case 39: // KEY right
     case 40: // KEY down
  if (act) {
   var prev, pos, x, y, ne, el;
   prev = (K == 37) || (K == 38);
   function setVars() {
    el = cal.currentDateEl;
    pos = el.pos;
    y = pos[0];
    x = pos[1];
    ne = cal.ar_days[y][x];
   };setVars();
   function prevMonth() {
    //Zapatec.Calendar.cellClick(cal._nav_pm);
    var date = new Date(cal.date.getFullYear(), cal.date.getMonth()-1, 1);
    date.setDate(date.getMonthDays());
    cal.setDate(date);
   };
   function nextMonth() {
    //Zapatec.Calendar.cellClick(cal._nav_nm);
    var date = new Date(cal.date.getFullYear(), cal.date.getMonth()+1, 1);
    cal.setDate(date);
   };
   while (1) {
    switch (K) {
        case 37: // KEY left
     if (--x >= 0)
      ne = cal.ar_days[y][x];
     else {
      x = 6;
      K = 38;
      continue;
     }
     break;
        case 38: // KEY up
     if (--y >= 0)
      ne = cal.ar_days[y][x];
     else {
      prevMonth();
      setVars();
     }
     break;
        case 39: // KEY right
     if (++x < 7)
      ne = cal.ar_days[y][x];
     else {
      x = 0;
      K = 40;
      continue;
     }
     break;
        case 40: // KEY down
     if (++y < cal.ar_days.length)
      ne = cal.ar_days[y][x];
     else {
      nextMonth();
      setVars();
     }
     break;
    }
    break;
   }
   if (ne) {
    if (!ne.otherMonth) {
     Zapatec.Utils.removeClass(el, "selected");
     Zapatec.Utils.addClass(ne, "selected");
     cal.date.setDateOnly(new Date(ne.caldate[0], ne.caldate[1], ne.caldate[2]));
     cal.currentDateEl = ne;
    } else {
     if (!ne.disabled)
      Zapatec.Calendar.cellClick(ne);
     else if (prev)
      prevMonth();
     else
      nextMonth();
    }
   }
   cal.callHandler();
  }
  break;
     case 13: // KEY enter
  if (act) {
   cal.callHandler();
   cal.hide();
  }
  break;
     default:
  return false;
 }
 return Zapatec.Utils.stopEvent(ev);
};

/**
 * (RE)Initializes the calendar to the given date and firstDayOfWeek.
 *
 * This function perform the action of actually displaying the day names and
 * dates in the calendar.  But first, it checks if the passed date fits in the
 * allowed range, configured by the "minYear", "maxYear", "minMonth" and
 * "maxMonth" properties of the Calendar object.
 *
 * It takes care to highlight special days (calling the
 * calendar.getDateStatus() function which can be overridden by external
 * scripts) or to highlight any dates that might be selected (for instance when
 * multiple dates is on, this function will call _initMultipleDates() to
 * highlight selected dates accordingly).
 *
 * This function is highly optimized for speed, therefore the code in it is not
 * trivial and what it does might not seem obvious. :-) So, WARNING, this is
 * voodoo.  If you want to properly understand the code you should analyze it
 * line by line and try to execute it step by step; use the Venkman JS
 * debugger.
 *
 * @param firstDayOfWeek [int] the first day of week, 0 for Sunday, 1 for Monday, etc.
 * @param date [Date] the date to initialize the calendar to
 *
 * @return
 */
Zapatec.Calendar.prototype._init = function (firstDayOfWeek, date) {
 var
  today = new Date(),
  TD = today.getDate(),
  TY = today.getFullYear(),
  TM = today.getMonth();
 //this.table.style.visibility = "hidden";
 var year = date.getFullYear();
 var month = date.getMonth();
 if (year < this.minYear)
  date.setFullYear(year = this.minYear);
 else if (year > this.maxYear)
  date.setFullYear(year = this.maxYear);
 if (year == this.minYear && month < this.minMonth)
  date.setMonth(month = this.minMonth);
 else if (year == this.maxYear && month > this.maxMonth)
  date.setMonth(month = this.maxMonth);
 this.firstDayOfWeek = firstDayOfWeek;
 this.date = date;
 (this.date = new Date(this.date)).setDateOnly(date);
 var mday = date.getDate();
 var no_days = date.getMonthDays();

 // calendar voodoo for computing the first day that would actually be
 // displayed in the calendar, even if it's from the previous month.
 // WARNING: this is magic. ;-)
 date.setDate(1);
 var day1 = (date.getDay() - this.firstDayOfWeek) % 7;
 if (day1 < 0)
  day1 += 7;
 date.setDate(-day1);
 date.setDate(date.getDate() + 1);

 var row = this.tbody.firstChild;
 var MN = Zapatec.Calendar.i18n(month, "smn");
 var ar_days = this.ar_days = [];
 var weekend = Zapatec.Calendar.i18n("WEEKEND");
 var dates = this.multiple ? (this.datesCells = {}) : null;
 var DATETXT = this.getDateText;
 for (var i = 7; --i > 0; row = row.nextSibling) {
  var cell = row.firstChild;
  if (this.weekNumbers) {
   cell.className = "day wn";
   cell.innerHTML = date.getWeekNumber();
   cell = cell.nextSibling;
  }
  var ar_days_y = ar_days[ar_days.length] = [];
  row.className = "daysrow";
  var hasdays = false, iday;
  for (; cell && (iday = date.getDate()); date.setDate(iday+1), cell = cell.nextSibling) {
   cell.pos = [6-i, ar_days_y.length];
   ar_days_y[ar_days_y.length] = cell;
   var
    wday = date.getDay(),
    dmonth = date.getMonth(),
    dyear = date.getFullYear();
   cell.className = "day";
   var current_month = !(cell.otherMonth = !(dmonth == month));
   if (!current_month) {
    if (this.showsOtherMonths)
     cell.className += " othermonth";
    else {
     cell.className = "emptycell";
     cell.innerHTML = "&nbsp;";
     cell.disabled = true;
     continue;
    }
   } else
    hasdays = true;
   cell.disabled = false;
   cell.innerHTML = DATETXT ? DATETXT(date, year, month, iday) : iday;
   dates && (dates[date.print("%Y%m%d")] = cell);
   if (this.getDateStatus) {
    var status = this.getDateStatus(date, year, month, iday);
    if (this.getDateToolTip) {
     var toolTip = this.getDateToolTip(date, year, month, iday);
     if (toolTip)
      cell.title = toolTip;
    }
    if (status === true) {
     cell.className += " disabled";
     cell.disabled = true;
    } else {
     if (/disabled/i.test(status))
      cell.disabled = true;
     cell.className += " " + status;
    }
   }
   if (!cell.disabled) {
    cell.caldate = [dyear, dmonth, iday];
    cell.ttip = "_";
    if (!this.multiple && current_month && iday == mday && this.hiliteToday) {
     cell.className += " selected";
     this.currentDateEl = cell;
    }
    if (dyear == TY && dmonth == TM && iday == TD) {
     cell.className += " today";
     cell.ttip += Zapatec.Calendar.i18n("PART_TODAY");
    }
    if ((weekend != null) && (weekend.indexOf(wday.toString()) != -1)) {
     cell.className += cell.otherMonth ? " oweekend" : " weekend";
    }
   }
  }
  if (!(hasdays || this.showsOtherMonths))
   row.className = "emptyrow";
 }
 //this.title.firstChild.data = Zapatec.Calendar.i18n(month, "mn") + ", " + year;
 this.title.innerHTML = Zapatec.Calendar.i18n(month, "mn") + ", " + year;
 this.onSetTime();
 //this.table.style.visibility = "visible";
 this._initMultipleDates();
 this.updateWCH();
 // PROFILE
 // this.showHint("Generated in " + ((new Date()) - today) + " ms");
};

/**
 * If "multiple dates" is selected (the calendar.multiple property) this
 * function will highlight cells that display dates that are selected.  It is
 * only called from the _init() function.
 */
Zapatec.Calendar.prototype._initMultipleDates = function() {
 if (this.multiple) {
  for (var i in this.multiple) {
   var cell = this.datesCells[i];
   var d = this.multiple[i];
   if (!d)
    continue;
   if (cell)
    cell.className += " selected";
  }
 }
};

/**
 * Given a Date object, this function will "toggle" it in the calendar; that
 * is, it will select it if not already selected, or unselect it if was already
 * selected.  The array of dates is updated accordingly and the cell object
 * will be added or removed the appropriate class name ("selected").  Of
 * course, this only takes place if "multiple dates" is selected.
 *
 * @param date [Date] the date to (un)select.
 */
Zapatec.Calendar.prototype._toggleMultipleDate = function(date) {
 if (this.multiple) {
  var ds = date.print("%Y%m%d");
  var cell = this.datesCells[ds];
  if (cell) {
   var d = this.multiple[ds];
   if (!d) {
    Zapatec.Utils.addClass(cell, "selected");
    this.multiple[ds] = date;
   } else {
    Zapatec.Utils.removeClass(cell, "selected");
    delete this.multiple[ds];
   }
  }
 }
};

/**
 * Call this in order to install a function handler that returns a tooltip for
 * the given date.  For example:
 *
 * \code
 *   function myHandler(date) {
 *      var str = date.print("%Y/%m/%d");
 *      if (str == "1979/08/03") {
 *         return "Happy birthday Mishoo! :D";
 *      }
 *      return str;
 *   }
 *   calendar.setDateToolTipHandler(myHandler);
 * \endcode
 *
 * The tooltip handler is a "unary" function (receives one argument).  The
 * argument passed is a date object and the function should return the tooltip
 * for that date.
 *
 * @param unaryFunction [function] your tooltip handler, as described above
 */
Zapatec.Calendar.prototype.setDateToolTipHandler = function (unaryFunction) {
 this.getDateToolTip = unaryFunction;
};

/**
 * Moves the calendar to the specified date.  If \em date is not passed, then
 * the "today" date is assumed.  This function does range checking and displays
 * an error in the status bar if the new date is not allowed by the configured
 * calendar range.  Otherwise, it simply calls _init() with the new date.
 *
 * @param date [Date, optional] the date object.
 */
Zapatec.Calendar.prototype.setDate = function (date) {
 // workaround for some bugs in our parseDate code
 if (!date)
  date = new Date();
 if (!date.equalsTo(this.date)) {
  var year = date.getFullYear(), m = date.getMonth();
  if (year == this.minYear && m < this.minMonth)
   this.showHint("<div class='error'>" + Zapatec.Calendar.i18n("E_RANGE") + " ??????</div>");
  else if (year == this.maxYear && m > this.maxMonth)
   this.showHint("<div class='error'>?????? " + Zapatec.Calendar.i18n("E_RANGE") + "</div>");
  this._init(this.firstDayOfWeek, date);
 }
};

/**
 * Displays a hint in the status bar
 *
 * @param text [string] what to display
 */
Zapatec.Calendar.prototype.showHint = function(text) {
 this.tooltips.innerHTML = text;
};

/**
 * Refreshes the calendar.  Useful if the "disabledHandler" function is
 * dynamic, meaning that the list of disabled date can change at runtime.  Just
 * call this function if you think that the list of disabled dates should
 * change.
 *
 * This function simply calls _init() using the current firstDayOfWeek and the
 * current calendar date.
 */
Zapatec.Calendar.prototype.reinit = function() {
 this._init(this.firstDayOfWeek, this.date);
};

/**
 * "refresh()" isn't a good name for it: this function _destroys_ the calendar
 * object and creates another one with the same parameters.  This comes in
 * handy for the calendar wizard where we need to reconstruct the calendar for
 * virtually any property change.
 */
Zapatec.Calendar.prototype.refresh = function() {
 var p = this.isPopup ? null : this.element.parentNode;
 var x = parseInt(this.element.style.left);
 var y = parseInt(this.element.style.top);
 this.destroy();
 this.dateStr = this.date;
 this.create(p);
 if (this.isPopup)
  this.showAt(x, y);
 else
  this.show();
};

/**
 * Configures the "firstDayOfWeek" parameter of the calendar.
 *
 * @param firstDayOfWeek [int] the new first day of week, 0 for Sunday, 1 for Monday, etc.
 */
Zapatec.Calendar.prototype.setFirstDayOfWeek = function (firstDayOfWeek) {
 if (this.firstDayOfWeek != firstDayOfWeek) {
  this._init(firstDayOfWeek, this.date);
  this._displayWeekdays();
 }
};

/**
 * These functions allow one to install a handler that gets called for each
 * date when a month is displayed in the calendar.  Based on this handler's
 * return value, that date can be disabled or highlighted using a class name
 * returned by the handler.
 *
 * The handler has the following prototype:
 *
 * \code
 *   function dateStatus(date, year, month, day);
 * \endcode
 *
 * While all 4 parameters are passed, the handler can for instance use only the
 * first one.  The year, month and day can all be determined from the first
 * parameter which is a Date object, but because many people will explicitely
 * need the year, month or day, we pass them too to speed things up (since we
 * already know them at the time the handler is called).
 *
 * Here is an example of a not-so-complex handler:
 *
 * \code
 *   function my_DateStatus(date, year, month, day) {
 *      var str = date.print("%Y/%m/%d");
 *      if (str >= '2000/01/01' && str <= '2000/12/31') {
 *         return true; // disable all dates in 2000
 *      }
 *      if (str == "1979/08/03") {
 *         return "birthday";
 *      }
 *      return false;
 *   }
 *   calendar.setDateStatusHandler(my_DateStatus);
 * \endcode
 *
 * The above handler will disable all dates in 2000 (returns true) and
 * highlight "1979/08/03" using the class "birthday".  From this example we can
 * notice that the handler can return a boolean value or a string value.  The
 * "boolean" return type is supported for backwards compatibility (function
 * setDisabledHandler, which is deprecated by setDateStatusHandler).  Here's
 * what the return value means:
 *
 * - \b true: the date will be disabled.
 * - \b false: no action taken (date stays enabled).
 * - "disabled": the date will be disabled.
 * - "other_string": the "other_string" will be added to the cell's class name.
 * - "disabled other_string": the date will be disabled and "disabled other_string"
 *   will be added to cell's class name; this helps one make a date disabled while
 *   still highlighting it in a special way.
 *
 * Note that user defined class names should have an associated CSS part
 * somewhere in the document that specifies how the days will look like;
 * otherwise, no difference will be visible.  For instance, for highlighting
 * "birthday" dates, one should also add:
 *
 * \code
 *   .birthday { color: #f00; }
 * \endcode
 *
 * somewhere in the CSS of the calling document.  (the above will make them
 * red).
 *
 * Disabled dates are not clickable; however, if one overrides the "disable"
 * CSS class, or if the cell also gets an "other_string" class that contains
 * settings that override the "disabled" class, those cells might not look
 * "disabled" but still behave so.
 *
 * \b WARNING: this function gets called 28 to 31 times each time a month is
 * displayed.  This means that if you are doing crazy computations in order to
 * determine the status of a day, things \em will slow down dramatically.  You
 * have been warned.
 *
 * @param unaryFunction [function] handler that decides the status of the passed date
 */
Zapatec.Calendar.prototype.setDateStatusHandler = Zapatec.Calendar.prototype.setDisabledHandler = function (unaryFunction) {
 this.getDateStatus = unaryFunction;
};

/**
 * Configures a range of allowed dates for the calendar.  Currently, this
 * function supports setting a range on a "month granularity".  This means,
 * using it you can't disable part of a month.  Both parameters are numeric and
 * can be float.  The range is "inclusive".
 *
 * This function might seem somehow complicated, but it's designed in a way
 * that keeps backwards compatibility with the calendar v0.9.6.
 *
 * -# when the end points are integers, the full years will be included.  That
 *    is, if you call calendar.setRange(1999, 2005) then only dates between and
 *    including 1999/01/01 and 2005/12/31 will be allowed.
 * -# when the end points are floats, the decimal part specifies the month.
 *    Therefore, calendar.setRange(1999.03, 2005.05) will allow dates between
 *    and including 1999/03/01 (March 1) and 2005/05/31 (May 31).
 *
 * The above statements mean that the following two lines are equivalent:
 *
 * \code
 *   calendar.setDate(1999, 2005);       // or
 *   calendar.setDate(1999.01, 2005.12);
 * \endcode
 *
 * @param A [number] the range start point
 * @param Z [number] the range end point
 */
Zapatec.Calendar.prototype.setRange = function (A, Z) {
 var m,
  a = Math.min(A, Z),
  z = Math.max(A, Z);
 this.minYear = m = Math.floor(a);
 this.minMonth = (m == a) ? 0 : Math.ceil((a-m)*100-1);
 this.maxYear = m = Math.floor(z);
 this.maxMonth = (m == z) ? 11 : Math.ceil((z-m)*100-1);
};

/**
 * This function sets up the cal.multiple property initially when the flat or popup calendar is created.
 * If there are dates to be displayed or added to the first time, this property will be filled with those
 * dates at the beginning.
 *
 * multiple -- [Array] - stores the current dates for future use and appending of additional dates
 */
Zapatec.Calendar.prototype.setMultipleDates = function(multiple) {
 if (!multiple || typeof multiple == "undefined") return;
 
 this.multiple = {};
 for (var i = multiple.length; --i >= 0;) {
     var d = multiple[i];
     var ds = d.print("%Y%m%d");
     this.multiple[ds] = d;
 }
};

/**
 * Call the calendar's callback function, if defined.  The passed argument
 * is the date object. This is a public function meant to be invoked by the user so that s/he can
 * have more controls on what to do with the dates selected. 
 */
Zapatec.Calendar.prototype.submitFlatDates = function()
{
 if (typeof this.params.flatCallback == "function") {
    //Specify the pre-set sorting so that Zapatec.Utils will sort the multiple dates accordingly. 
    //Default to "asc" if it does not equal to "asc" or "desc".
    Zapatec.Utils.sortOrder = (this.sortOrder!="asc" && this.sortOrder!="desc" && this.sortOrder!="none") ? "none" : this.sortOrder;
   
    if ( this.multiple && (Zapatec.Utils.sortOrder != "none") ) {
   var dateArray = new Array();
   
   for (var i in this.multiple) {
    var currentDate = this.multiple[i];
    // sometimes the date is not actually selected, that's why we need to check.
    if (currentDate) {
     // and push it in the "dateArray", in case one triggers the calendar again.
     dateArray[dateArray.length] = currentDate;
    }
    //Now let's sort the dateArray array
       dateArray.sort(Zapatec.Utils.compareDates);
   }

   this.multiple = {};
   for (var i = 0; i < dateArray.length; i++) {
    var d = dateArray[i];
    var ds = d.print("%Y%m%d");
    this.multiple[ds] = d;
   }
    } //Else no need to sort the multiple dates.
    this.params.flatCallback(this);
 }
}

/**
 * Call the calendar's "onSelected" handler, if defined.  The passed arguments
 * are the date object and a string with the date formatted by the specifier in
 * calendar.dateFormat.
 */
Zapatec.Calendar.prototype.callHandler = function () {
 if (this.onSelected) {
  this.onSelected(this, this.date.print(this.dateFormat));
 }
};

/**
 * This function updates the calendar history and saves the cookie.  The
 * history is a string containing date and time formatted as "%Y/%m/%d/%H/%M"
 * (that is, all time parts separated by slashes, in a "most significant to
 * least significant order").  Further, such formats are separated by commas,
 * and the current calendar date is added the first, then the cookie saved.
 */
Zapatec.Calendar.prototype.updateHistory = function () {
 var a, i, d, tmp, s, str = "", len = Zapatec.Calendar.prefs.hsize - 1;
 if (Zapatec.Calendar.prefs.history) {
  a = Zapatec.Calendar.prefs.history.split(/,/);
  i = 0;
  while (i < len && (tmp = a[i++])) {
   s = tmp.split(/\//);
   d = new Date(parseInt(s[0], 10), parseInt(s[1], 10)-1, parseInt(s[2], 10),
         parseInt(s[3], 10), parseInt(s[4], 10));
   if (!d.dateEqualsTo(this.date))
    str += "," + tmp;
  }
 }
 Zapatec.Calendar.prefs.history = this.date.print("%Y/%m/%d/%H/%M") + str;
 Zapatec.Calendar.savePrefs();
};

/**
 * Calls the calendar's onClose handler, if present.  Either way, this function
 * calls updateHistory() in order to update the history cookie.
 */
Zapatec.Calendar.prototype.callCloseHandler = function () {
 if (this.dateClicked) {
  this.updateHistory();
 }
 if (this.onClose) {
  this.onClose(this);
 }
 this.hideShowCovered();
};

/** Removes the calendar object from the DOM tree and destroys it. */
Zapatec.Calendar.prototype.destroy = function () {
 this.hide();  // this also removes keyboard events :-\
 Zapatec.Utils.destroy(this.element);
 Zapatec.Utils.destroy(this.WCH);
 Zapatec.Calendar._C = null;
 window.calendar = null;
};

/**
 * Moves the calendar element to a different section in the DOM tree (changes
 * its parent).  This might be useful for flat calendars.
 *
 * @param new_parent [HTMLElement] the new parent for the calendar.
 */
Zapatec.Calendar.prototype.reparent = function (new_parent) {
 var el = this.element;
 el.parentNode.removeChild(el);
 new_parent.appendChild(el);
};

/**
 * This gets called when the user presses a mouse button anywhere in the
 * document, if the calendar is shown.  If the click was outside the open
 * calendar this function closes it and stops the event from propagating.
 *
 * @param ev [Event] the event object.
 * @return false if the event is stopped.
 */
Zapatec.Calendar._checkCalendar = function(ev) {
 if (!window.calendar) {
  return false;
 }
 var el = Zapatec.is_ie ? Zapatec.Utils.getElement(ev) : Zapatec.Utils.getTargetElement(ev);
 for (; el != null && el != calendar.element; el = el.parentNode);
 if (el == null) {
  // calls closeHandler which should hide the calendar.
  window.calendar.callCloseHandler();
  return Zapatec.Utils.stopEvent(ev);
 }
};

/**
 * Updates the calendar "WCH" (windowed controls hider).  A WCH is an
 * "invention" (read: "miserable hack") that works around one of the most
 * common and old bug in Internet Explorer: the SELECT boxes or IFRAMES show on
 * top of any other HTML element.  This function makes sure that the WCH covers
 * correctly the calendar element and another element if passed.
 *
 * @param other_el [HTMLElement, optional] a second element that the WCH should cover.
 */
Zapatec.Calendar.prototype.updateWCH = function(other_el) {
 Zapatec.Utils.setupWCH_el(this.WCH, this.element, other_el);
};

/**
 * Displays a hidden calendar.  It walks quickly through the HTML elements and
 * makes sure that they don't have "hover" or "active" class names that might
 * be there from a previous time the same calendar was displayed.  This
 * function also calls updateWCH() and hideShowCovered() to workaround
 * miserable IE bugs.
 *
 * If the calendar is a popup calendar and doesn't have the "noGrab" property
 * set, this function also adds document event handlers to intercept key events
 * or to close the calendar when one clicks outside it.
 */
Zapatec.Calendar.prototype.show = function () {
 var rows = this.table.getElementsByTagName("tr");
 for (var i = rows.length; i > 0;) {
  var row = rows[--i];
  Zapatec.Utils.removeClass(row, "rowhilite");
  var cells = row.getElementsByTagName("td");
  for (var j = cells.length; j > 0;) {
   var cell = cells[--j];
   Zapatec.Utils.removeClass(cell, "hilite");
   Zapatec.Utils.removeClass(cell, "active");
  }
 }
 this.element.style.display = "block";
 this.hidden = false;
 if (this.isPopup) {
  this.updateWCH();
  window.calendar = this;
  if (!this.noGrab) {
   Zapatec.Utils.addEvent(window.document, "keydown", Zapatec.Calendar._keyEvent);
   Zapatec.Utils.addEvent(window.document, "keypress", Zapatec.Calendar._keyEvent);
   Zapatec.Utils.addEvent(window.document, "mousedown", Zapatec.Calendar._checkCalendar);
  }
 }
 this.hideShowCovered();
};

/**
 * Hides the calendar.  Also removes any "hilite" from the class of any TD
 * element.  Unregisters the document event handlers for key presses and
 * mousedown.
 */
Zapatec.Calendar.prototype.hide = function () {
 if (this.isPopup) {
  Zapatec.Utils.removeEvent(window.document, "keydown", Zapatec.Calendar._keyEvent);
  Zapatec.Utils.removeEvent(window.document, "keypress", Zapatec.Calendar._keyEvent);
  Zapatec.Utils.removeEvent(window.document, "mousedown", Zapatec.Calendar._checkCalendar);
 }
 this.element.style.display = "none";
 Zapatec.Utils.hideWCH(this.WCH);
 this.hidden = true;
 this.hideShowCovered();
};

/**
 * Shows the calendar at a given absolute position (beware that, depending on
 * the calendar element style -- position property -- this might be relative to
 * the parent's containing rectangle).
 *
 * @param x [int] the X position
 * @param y [int] the Y position
 */
Zapatec.Calendar.prototype.showAt = function (x, y) {
 var s = this.element.style;
 s.left = x + "px";
 s.top = y + "px";
 this.show();
};

/**
 * This function displays the calendar near a given "anchor" element, according
 * to some rules passed in \em opts.  The \em opts argument is a string
 * containing one or 2 letters.  The first letter decides the vertical
 * alignment, and the second letter decides the horizontal alignment relative
 * to the anchor element.  Following we will describe these options; in parens
 * we will use simple descriptions like "top to bottom" which means that the
 * top margin of the calendar is aligned with the bottom margin of the object.
 *
 * \b Vertical align:
 *
 * - T -- the calendar is completely above the element (bottom to top)
 * - t -- the calendar is above the element but might overlap it (bottom to bottom)
 * - C -- the calendar is vertically centered to the element
 * - b -- the calendar is below the element but might overlap it (top to top)
 * - B -- the calendar is completely below the element (top to bottom)
 *
 * \b Horizontal align (defaults to 'l' if no letter passed):
 *
 * - L -- the calendar is completely to the left of the element (right to left)
 * - l -- the calendar is to the left of the element but might overlap it (right to right)
 * - C -- the calendar is horizontally centered to the element
 * - r -- the calendar is to the right of the element but might overlap it (left to left)
 * - R -- the calendar is completely to the right of the element (left to right)
 *
 * @param el [HTMLElement] the anchor element
 * @param opts [string, optional] the align options, as described above.  Defaults to "Bl" if nothing passed.
 */
Zapatec.Calendar.prototype.showAtElement = function (el, opts) {
 var self = this;
 var p = Zapatec.Utils.getElementOffset(el);
 if (!opts || typeof opts != "string") {
  this.showAt(p.x, p.y + el.offsetHeight);
  return true;
 }
 this.element.style.display = "block";
 var w = self.element.offsetWidth;
 var h = self.element.offsetHeight;
 self.element.style.display = "none";
 var valign = opts.substr(0, 1);
 var halign = "l";
 if (opts.length > 1) {
  halign = opts.substr(1, 1);
 }
 // vertical alignment
 switch (valign) {
     case "T": p.y -= h; break;
     case "B": p.y += el.offsetHeight; break;
     case "C": p.y += (el.offsetHeight - h) / 2; break;
     case "t": p.y += el.offsetHeight - h; break;
     case "b": break; // already there
 }
 // horizontal alignment
 switch (halign) {
     case "L": p.x -= w; break;
     case "R": p.x += el.offsetWidth; break;
     case "C": p.x += (el.offsetWidth - w) / 2; break;
     case "l": p.x += el.offsetWidth - w; break;
     case "r": break; // already there
 }
 p.width = w;
 p.height = h;
 self.monthsCombo.style.display = "none";
 Zapatec.Utils.fixBoxPosition(p, 10);
 self.showAt(p.x, p.y);
};

/**
 * Customizes the date format that will be reported to the onSelect handler.
 * The format string is described in Date.prototype.print().
 *
 * @param str [string] the date format.
 */
Zapatec.Calendar.prototype.setDateFormat = function (str) {
 this.dateFormat = str;
};

/** Customizes the tooltip date format.  See
 * Zapatec.Calendar.prototype.setDateFormat() for a description of the \em str
 * format.
 *
 * @param str [string] the "tooltip" date format
 */
Zapatec.Calendar.prototype.setTtDateFormat = function (str) {
 this.ttDateFormat = str;
};

/**
 * Tries to identify the date represented in a string.  If successful it also
 * calls this.setDate which moves the calendar to the given date.
 *
 * @param str [string] a date
 * @param fmt [string] the format to try to parse \em str in
 */
Zapatec.Calendar.prototype.parseDate = function (str, fmt) {
 // Konqueror
 if (!str)
  return this.setDate(this.date);
 if (!fmt)
  fmt = this.dateFormat;
 var date = Date.parseDate(str, fmt);
 return this.setDate(date);
};

/**
 * This function hides or shows "windowed controls" accordingly so that the
 * calendar isn't obtured by any such control.  Historically, this function was
 * used for any browser.  It simply walks through all SELECT, IFRAME and APPLET
 * elements present in the DOM, checks if they intersect the calendar and hides
 * them if so or makes them visible otherwise.  This approacy has a number of
 * problems, the most important being that if the end-user's code contains a
 * SELECT which is already hidden and it must stay hidden, it will still be
 * made visible when the calendar closes.  The other obvious problem is that
 * there's an ugly effect generated by elements that suddenly (dis)appear when
 * you drag the calendar around the screen.
 *
 * Currently this function is only used on IE5.0/Windows, browser that leaves
 * no room for a better workaround to this problem.  For IE5.5+/Windows an
 * workaround is possible, albeit amazingly ugly (WCH).  For other browsers
 * such crazy techniques are not anymore useful because the bugs related to
 * windowed controls were fixed.
 */
Zapatec.Calendar.prototype.hideShowCovered = function () {
 if (!Zapatec.is_ie5)
  return;
 var self = this;
 function getVisib(obj){
  var value = obj.style.visibility;
  if (!value) {
   if (window.document.defaultView && typeof (window.document.defaultView.getComputedStyle) == "function") { // Gecko, W3C
    if (!Zapatec.is_khtml)
     value = window.document.defaultView.
      getComputedStyle(obj, "").getPropertyValue("visibility");
    else
     value = '';
   } else if (obj.currentStyle) { // IE
    value = obj.currentStyle.visibility;
   } else
    value = '';
  }
  return value;
 };

 var tags = ["applet", "iframe", "select"];
 var el = self.element;

 var p = Zapatec.Utils.getAbsolutePos(el);
 var EX1 = p.x;
 var EX2 = el.offsetWidth + EX1;
 var EY1 = p.y;
 var EY2 = el.offsetHeight + EY1;

 for (var k = tags.length; k > 0; ) {
  var ar = window.document.getElementsByTagName(tags[--k]);
  var cc = null;

  for (var i = ar.length; i > 0;) {
   cc = ar[--i];

   p = Zapatec.Utils.getAbsolutePos(cc);
   var CX1 = p.x;
   var CX2 = cc.offsetWidth + CX1;
   var CY1 = p.y;
   var CY2 = cc.offsetHeight + CY1;

   if (self.hidden || (CX1 > EX2) || (CX2 < EX1) || (CY1 > EY2) || (CY2 < EY1)) {
    if (!cc.__msh_save_visibility) {
     cc.__msh_save_visibility = getVisib(cc);
    }
    cc.style.visibility = cc.__msh_save_visibility;
   } else {
    if (!cc.__msh_save_visibility) {
     cc.__msh_save_visibility = getVisib(cc);
    }
    cc.style.visibility = "hidden";
   }
  }
 }
};

/**
 * This function displays the week day names in the calendar header, according
 * to the current "firstDayOfWeek".
 */
Zapatec.Calendar.prototype._displayWeekdays = function () {
 var fdow = this.firstDayOfWeek;
 var cell = this.firstdayname;
 var weekend = Zapatec.Calendar.i18n("WEEKEND");
 for (var i = 0; i < 7; ++i) {
  cell.className = "day name";
  var realday = (i + fdow) % 7;
  if (i) {
   if (Zapatec.Calendar.i18n("DAY_FIRST") != null) {
    cell.ttip = Zapatec.Calendar.i18n("DAY_FIRST").replace("%s", Zapatec.Calendar.i18n(realday, "dn"));
   }
   cell.navtype = 100;
   cell.calendar = this;
   cell.fdow = realday;
   Zapatec.Calendar._add_evs(cell);
  }
  if ((weekend != null) && (weekend.indexOf(realday.toString()) != -1)) {
      Zapatec.Utils.addClass(cell, "weekend");
  }
  cell.innerHTML = Zapatec.Calendar.i18n((i + fdow) % 7, "sdn");
  cell = cell.nextSibling;
 }
};


/**
 * Compare two dates in either ascending or descending order. To be used for
 * the multiple dates feature. This function is passed as an argument to the
 * sort routine which calls it to compare dates.
 *
 * @param date1 [date] first date 
 * @param date2 [date] second date
 */
Zapatec.Utils.compareDates = function(date1, date2)
{
 if (Zapatec.Calendar.prefs.sortOrder == "asc")
  return date1 - date2;
 else //"desc"ending order
  return date2 - date1;
}

/** \internal Hides all combo boxes that might be displayed. */
Zapatec.Calendar.prototype._hideCombos = function () {
 this.monthsCombo.style.display = "none";
 this.yearsCombo.style.display = "none";
 this.histCombo.style.display = "none";
 this.updateWCH();
};

/** \internal Starts dragging the element. */
Zapatec.Calendar.prototype._dragStart = function (ev) {
 ev || (ev = window.event);
 if (this.dragging) {
  return;
 }
 this.dragging = true;
 var posX = ev.clientX + window.document.body.scrollLeft;
 var posY = ev.clientY + window.document.body.scrollTop;
 var st = this.element.style;
 this.xOffs = posX - parseInt(st.left);
 this.yOffs = posY - parseInt(st.top);
 Zapatec.Utils.addEvent(window.document, "mousemove", Zapatec.Calendar.calDragIt);
 Zapatec.Utils.addEvent(window.document, "mouseover", Zapatec.Calendar.calDragIt);
 Zapatec.Utils.addEvent(window.document, "mouseup", Zapatec.Calendar.calDragEnd);
};

// BEGIN: DATE OBJECT PATCHES

/** \defgroup DateExtras Augmenting the Date object with some utility functions
 * and variables.
 */
//@{

Date._MD = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]; /**< Number of days in each month */

Date.SECOND = 1000;  /**< One second has 1000 milliseconds. */
Date.MINUTE = 60 * Date.SECOND; /**< One minute has 60 seconds. */
Date.HOUR   = 60 * Date.MINUTE; /**< One hour has 60 minutes. */
Date.DAY    = 24 * Date.HOUR; /**< One day has 24 hours. */
Date.WEEK   =  7 * Date.DAY; /**< One week has 7 days. */

/** Returns the number of days in the month.  The \em month parameter is
 * optional; if not passed, the current month of \b this Date object is
 * assumed.
 *
 * @param month [int, optional] the month number, 0 for January.
 */
Date.prototype.getMonthDays = function(month) {
 var year = this.getFullYear();
 if (typeof month == "undefined") {
  month = this.getMonth();
 }
 if (((0 == (year%4)) && ( (0 != (year%100)) || (0 == (year%400)))) && month == 1) {
  return 29;
 } else {
  return Date._MD[month];
 }
};

/** Returns the number of the current day in the current year. */
Date.prototype.getDayOfYear = function() {
 var now = new Date(this.getFullYear(), this.getMonth(), this.getDate(), 0, 0, 0);
 var then = new Date(this.getFullYear(), 0, 0, 0, 0, 0);
 var time = now - then;
 return Math.floor(time / Date.DAY);
};

/** Returns the number of the week in year, as defined in ISO 8601. */
Date.prototype.getWeekNumber = function() {
 var d = new Date(this.getFullYear(), this.getMonth(), this.getDate(), 0, 0, 0);
 var DoW = d.getDay();
 d.setDate(d.getDate() - (DoW + 6) % 7 + 3); // Nearest Thu
 var ms = d.valueOf(); // GMT
 d.setMonth(0);
 d.setDate(4); // Thu in Week 1
 return Math.round((ms - d.valueOf()) / (7 * 864e5)) + 1;
};

/** Checks dates equality.  Checks time too. */
Date.prototype.equalsTo = function(date) {
 return ((this.getFullYear() == date.getFullYear()) &&
  (this.getMonth() == date.getMonth()) &&
  (this.getDate() == date.getDate()) &&
  (this.getHours() == date.getHours()) &&
  (this.getMinutes() == date.getMinutes()));
};

/** Checks dates equality.  Ignores time. */
Date.prototype.dateEqualsTo = function(date) {
 return ((this.getFullYear() == date.getFullYear()) &&
  (this.getMonth() == date.getMonth()) &&
  (this.getDate() == date.getDate()));
};

/** Set only the year, month, date parts (keep existing time) */
Date.prototype.setDateOnly = function(date) {
 var tmp = new Date(date);
 this.setDate(1);
 this.setFullYear(tmp.getFullYear());
 this.setMonth(tmp.getMonth());
 this.setDate(tmp.getDate());
};

/** Prints the date in a string according to the given format.
 *
 * The format (\b str) may contain the following specialties:
 *
 * - %%a - Abbreviated weekday name
 * - %%A - Full weekday name
 * - %%b - Abbreviated month name
 * - %%B - Full month name
 * - %%C - Century number
 * - %%d - The day of the month (00 .. 31)
 * - %%e - The day of the month (0 .. 31)
 * - %%H - Hour (00 .. 23)
 * - %%I - Hour (01 .. 12)
 * - %%j - The day of the year (000 .. 366)
 * - %%k - Hour (0 .. 23)
 * - %%l - Hour (1 .. 12)
 * - %%m - Month (01 .. 12)
 * - %%M - Minute (00 .. 59)
 * - %%n - A newline character
 * - %%p - "PM" or "AM"
 * - %%P - "pm" or "am"
 * - %%S - Second (00 .. 59)
 * - %%s - Number of seconds since Epoch
 * - %%t - A tab character
 * - %%W - The week number (as per ISO 8601)
 * - %%u - The day of week (1 .. 7, 1 = Monday)
 * - %%w - The day of week (0 .. 6, 0 = Sunday)
 * - %%y - Year without the century (00 .. 99)
 * - %%Y - Year including the century (ex. 1979)
 * - %%% - A literal %% character
 *
 * They are almost the same as for the POSIX strftime function.
 *
 * @param str [string] the format to print date in.
 */
Date.prototype.print = function (str) {
 var m = this.getMonth();
 var d = this.getDate();
 var y = this.getFullYear();
 var wn = this.getWeekNumber();
 var w = this.getDay();
 var s = {};
 var hr = this.getHours();
 var pm = (hr >= 12);
 var ir = (pm) ? (hr - 12) : hr;
 var dy = this.getDayOfYear();
 if (ir == 0)
  ir = 12;
 var min = this.getMinutes();
 var sec = this.getSeconds();
 s["%a"] = Zapatec.Calendar.i18n(w, "sdn"); // abbreviated weekday name [FIXME: I18N]
 s["%A"] = Zapatec.Calendar.i18n(w, "dn"); // full weekday name
 s["%b"] = Zapatec.Calendar.i18n(m, "smn"); // abbreviated month name [FIXME: I18N]
 s["%B"] = Zapatec.Calendar.i18n(m, "mn"); // full month name
 // FIXME: %c : preferred date and time representation for the current locale
 s["%C"] = 1 + Math.floor(y / 100); // the century number
 s["%d"] = (d < 10) ? ("0" + d) : d; // the day of the month (range 01 to 31)
 s["%e"] = d; // the day of the month (range 1 to 31)
 // FIXME: %D : american date style: %m/%d/%y
 // FIXME: %E, %F, %G, %g, %h (man strftime)
 s["%H"] = (hr < 10) ? ("0" + hr) : hr; // hour, range 00 to 23 (24h format)
 s["%I"] = (ir < 10) ? ("0" + ir) : ir; // hour, range 01 to 12 (12h format)
 s["%j"] = (dy < 100) ? ((dy < 10) ? ("00" + dy) : ("0" + dy)) : dy; // day of the year (range 001 to 366)
 s["%k"] = hr ? hr :  "0"; // hour, range 0 to 23 (24h format)
 s["%l"] = ir;  // hour, range 1 to 12 (12h format)
 s["%m"] = (m < 9) ? ("0" + (1+m)) : (1+m); // month, range 01 to 12
 s["%M"] = (min < 10) ? ("0" + min) : min; // minute, range 00 to 59
 s["%n"] = "\n";  // a newline character
 s["%p"] = pm ? "PM" : "AM";
 s["%P"] = pm ? "pm" : "am";
 // FIXME: %r : the time in am/pm notation %I:%M:%S %p
 // FIXME: %R : the time in 24-hour notation %H:%M
 s["%s"] = Math.floor(this.getTime() / 1000);
 s["%S"] = (sec < 10) ? ("0" + sec) : sec; // seconds, range 00 to 59
 s["%t"] = "\t";  // a tab character
 // FIXME: %T : the time in 24-hour notation (%H:%M:%S)
 s["%U"] = s["%W"] = s["%V"] = (wn < 10) ? ("0" + wn) : wn;
  s["%u"] = (w == 0) ? 7 : w; // the day of the week (range 1 to 7, 1 = MON)
 s["%w"] = w;  // the day of the week (range 0 to 6, 0 = SUN)
 // FIXME: %x : preferred date representation for the current locale without the time
 // FIXME: %X : preferred time representation for the current locale without the date
 s["%y"] = ('' + y).substr(2, 2); // year without the century (range 00 to 99)
 s["%Y"] = y;  // year with the century
 s["%%"] = "%";  // a literal '%' character

 var re = /%./g;
 if (!Zapatec.is_ie5 && !Zapatec.is_khtml && !Zapatec.is_mac_ie)
  return str.replace(re, function (par) { return s[par] || par; });

 var a = str.match(re);
 for (var i = 0; i < a.length; i++) {
  var tmp = s[a[i]];
  if (tmp) {
   re = new RegExp(a[i], 'g');
   str = str.replace(re, tmp);
  }
 }

 return str;
};

/**
 * Parses a date from a string in the specified format.
 *
 * @param str [string] the date as a string
 * @param fmt [string] the format to try to parse the date in
 *
 * @return [Date] a date object containing the parsed date or \b null if for
 * some reason the date couldn't be parsed.
 */
Date.parseDate = function (str, fmt) {
 // Konqueror
 if (!str)
  return new Date();
 var y = 0;
 var m = -1;
 var d = 0;
 var a = str.split(/\W+/);
 var b = fmt.match(/%./g);
 var i = 0, j = 0;
 var hr = 0;
 var min = 0;
 for (i = 0; i < a.length; ++i) {
  if (!a[i])
   continue;
  switch (b[i]) {
      case "%d":
      case "%e":
   d = parseInt(a[i], 10);
   break;

      case "%m":
   m = parseInt(a[i], 10) - 1;
   break;

      case "%Y":
      case "%y":
   y = parseInt(a[i], 10);
   (y < 100) && (y += (y > 29) ? 1900 : 2000);
   break;

      case "%b":
      case "%B":
   for (j = 0; j < 12; ++j)
    if (Zapatec.Calendar.i18n(j, "mn").substr(0, a[i].length).toLowerCase() == a[i].toLowerCase()) {
     m = j;
     break;
    }
   break;

      case "%H":
      case "%I":
      case "%k":
      case "%l":
   hr = parseInt(a[i], 10);
   break;

      case "%P":
      case "%p":
   if (/pm/i.test(a[i]) && hr < 12)
    hr += 12;
   break;

      case "%M":
   min = parseInt(a[i], 10);
   break;
  }
 }
 if (y != 0 && m != -1 && d != 0)
  return new Date(y, m, d, hr, min, 0);
 y = 0; m = -1; d = 0;
 for (i = 0; i < a.length; ++i) {
  if (a[i].search(/[a-zA-Z]+/) != -1) {
   var t = -1;
   for (j = 0; j < 12; ++j)
    if (Zapatec.Calendar.i18n(j, "mn").substr(0, a[i].length).toLowerCase() == a[i].toLowerCase()) {
     t = j;
     break;
    }
   if (t != -1) {
    if (m != -1)
     d = m+1;
    m = t;
   }
  } else if (parseInt(a[i], 10) <= 12 && m == -1) {
   m = a[i]-1;
  } else if (parseInt(a[i], 10) > 31 && y == 0) {
   y = parseInt(a[i], 10);
   (y < 100) && (y += (y > 29) ? 1900 : 2000);
  } else if (d == 0) {
   d = a[i];
  }
 }
 if (y == 0) {
  var today = new Date();
  y = today.getFullYear();
 }
 if (m != -1 && d != 0)
  return new Date(y, m, d, hr, min, 0);
 return null;
};

Date.prototype.__msh_oldSetFullYear = Date.prototype.setFullYear; /**< save a reference to the original setFullYear function */

/**
 * This function replaces the original Date.setFullYear() with a "safer"
 * function which makes sure that the month or date aren't modified (unless in
 * the exceptional case where the date is February 29 but the new year doesn't
 * contain it).
 *
 * @param y [int] the new year to move this date to
 */
Date.prototype.setFullYear = function(y) {
 var d = new Date(this);
 d.__msh_oldSetFullYear(y);
 if (d.getMonth() != this.getMonth())
  this.setDate(28);
 this.__msh_oldSetFullYear(y);
};

//@}

// END: DATE OBJECT PATCHES

window.calendar = null;  /**< global object that remembers the calendar */

// initialize the preferences object;
// embed it in a try/catch so we don't have any surprises
try {
 Zapatec.Calendar.loadPrefs();
} catch(e) {};

// ** I18N

// Calendar EN language
// Author: Mihai Bazon, <mihai_bazon@yahoo.com>
// Encoding: any
// Distributed under the same terms as the calendar itself.

// For translators: please use UTF-8 if possible.  We strongly believe that
// Unicode is the answer to a real internationalized world.  Also please
// include your contact information in the header, as can be seen above.

// full day names
Zapatec.Calendar._DN = new Array
("Sunday",
 "Monday",
 "Tuesday",
 "Wednesday",
 "Thursday",
 "Friday",
 "Saturday",
 "Sunday");

// Please note that the following array of short day names (and the same goes
// for short month names, _SMN) isn't absolutely necessary.  We give it here
// for exemplification on how one can customize the short day names, but if
// they are simply the first N letters of the full name you can simply say:
//
//   Zapatec.Calendar._SDN_len = N; // short day name length
//   Zapatec.Calendar._SMN_len = N; // short month name length
//
// If N = 3 then this is not needed either since we assume a value of 3 if not
// present, to be compatible with translation files that were written before
// this feature.

// short day names
Zapatec.Calendar._SDN = new Array
("Sun",
 "Mon",
 "Tue",
 "Wed",
 "Thu",
 "Fri",
 "Sat",
 "Sun");

// First day of the week. "0" means display Sunday first, "1" means display
// Monday first, etc.
Zapatec.Calendar._FD = 0;

// full month names
Zapatec.Calendar._MN = new Array
("January",
 "February",
 "March",
 "April",
 "May",
 "June",
 "July",
 "August",
 "September",
 "October",
 "November",
 "December");

// short month names
Zapatec.Calendar._SMN = new Array
("Jan",
 "Feb",
 "Mar",
 "Apr",
 "May",
 "Jun",
 "Jul",
 "Aug",
 "Sep",
 "Oct",
 "Nov",
 "Dec");

// tooltips
Zapatec.Calendar._TT_en = Zapatec.Calendar._TT = {};
Zapatec.Calendar._TT["INFO"] = "About the calendar";

Zapatec.Calendar._TT["ABOUT"] =
"DHTML Date/Time Selector\n" +
"(c) zapatec.com 2002-2004\n" + // don't translate this this ;-)
"For latest version visit: http://www.zapatec.com/\n" +
"\n\n" +
"Date selection:\n" +
"- Use the \xab, \xbb buttons to select year\n" +
"- Use the " + String.fromCharCode(0x2039) + ", " + String.fromCharCode(0x203a) + " buttons to select month\n" +
"- Hold mouse button on any of the above buttons for faster selection.";
Zapatec.Calendar._TT["ABOUT_TIME"] = "\n\n" +
"Time selection:\n" +
"- Click on any of the time parts to increase it\n" +
"- or Shift-click to decrease it\n" +
"- or click and drag for faster selection.";

Zapatec.Calendar._TT["PREV_YEAR"] = "Prev. year (hold for menu)";
Zapatec.Calendar._TT["PREV_MONTH"] = "Prev. month (hold for menu)";
Zapatec.Calendar._TT["GO_TODAY"] = "Go Today (hold for history)";
Zapatec.Calendar._TT["NEXT_MONTH"] = "Next month (hold for menu)";
Zapatec.Calendar._TT["NEXT_YEAR"] = "Next year (hold for menu)";
Zapatec.Calendar._TT["SEL_DATE"] = "Select date";
Zapatec.Calendar._TT["DRAG_TO_MOVE"] = "Drag to move";
Zapatec.Calendar._TT["PART_TODAY"] = " (today)";

// the following is to inform that "%s" is to be the first day of week
// %s will be replaced with the day name.
Zapatec.Calendar._TT["DAY_FIRST"] = "Display %s first";

// This may be locale-dependent.  It specifies the week-end days, as an array
// of comma-separated numbers.  The numbers are from 0 to 6: 0 means Sunday, 1
// means Monday, etc.
Zapatec.Calendar._TT["WEEKEND"] = "0,6";

Zapatec.Calendar._TT["CLOSE"] = "Close";
Zapatec.Calendar._TT["TODAY"] = "Today";
Zapatec.Calendar._TT["TIME_PART"] = "(Shift-)Click or drag to change value";

// date formats
Zapatec.Calendar._TT["DEF_DATE_FORMAT"] = "%Y-%m-%d";
Zapatec.Calendar._TT["TT_DATE_FORMAT"] = "%a, %b %e";

Zapatec.Calendar._TT["WK"] = "wk";
Zapatec.Calendar._TT["TIME"] = "Time:";

Zapatec.Calendar._TT["E_RANGE"] = "Outside the range";

/* Preserve data */
 if(Zapatec.Calendar._DN) Zapatec.Calendar._TT._DN = Zapatec.Calendar._DN;
 if(Zapatec.Calendar._SDN) Zapatec.Calendar._TT._SDN = Zapatec.Calendar._SDN;
 if(Zapatec.Calendar._SDN_len) Zapatec.Calendar._TT._SDN_len = Zapatec.Calendar._SDN_len;
 if(Zapatec.Calendar._MN) Zapatec.Calendar._TT._MN = Zapatec.Calendar._MN;
 if(Zapatec.Calendar._SMN) Zapatec.Calendar._TT._SMN = Zapatec.Calendar._SMN;
 if(Zapatec.Calendar._SMN_len) Zapatec.Calendar._TT._SMN_len = Zapatec.Calendar._SMN_len;
 Zapatec.Calendar._DN = Zapatec.Calendar._SDN = Zapatec.Calendar._SDN_len = Zapatec.Calendar._MN = Zapatec.Calendar._SMN = Zapatec.Calendar._SMN_len = null

/*  
 * The Zapatec DHTML Calendar
 *
 * Copyright (c) 2004 by Zapatec, Inc.
 * http://www.zapatec.com
 * 1700 MLK Way, Berkeley, California,
 * 94709, U.S.A.  
 * All rights reserved.
 *
 * Original version written by Mihai Bazon,
 * http://www.bazon.net/mishoo/calendar.epl
 *
 * This file defines helper functions for setting up the calendar.  They are
 * intended to help non-programmers get a working calendar on their site
 * quickly.  This script should not be seen as part of the calendar.  It just
 * shows you what one can do with the calendar, while in the same time
 * providing a quick and simple method for setting it up.  If you need
 * exhaustive customization of the calendar creation process feel free to
 * modify this code to suit your needs (this is recommended and much better
 * than modifying calendar.js itself).
 */

// $Id: calendar-setup.js,v 1.8 2005/04/19 00:47:32 dror Exp $

/**
 *  This function "patches" an input field (or other element) to use a calendar
 *  widget for date selection.
 *
 *  Note that you can use the Zapatec DHTML Calendar Wizard and generate the code
 *  and modify the results.
 *  The "params" is a single object that can have the following properties:
 *
 * \code
 *    prop. name   | description
 *  -------------------------------------------------------------------------------------------------
 *   inputField    | the ID of an input field to store the date
 *   displayArea   | the ID of a DIV or other element to show the date
 *   button        | ID of a button or other element that will trigger the calendar
 *   eventName     | event that will trigger the calendar, without the "on" prefix (default: "click")
 *   closeEventName| event that will close the calendar (i.e. one can use "focus" for eventName and "blur" for closeEventName)
 *   ifFormat      | date format that will be stored in the input field
 *   daFormat      | the date format that will be used to display the date in displayArea
 *   singleClick   | (true/false) wether the calendar is in single click mode or not (default: true)
 *   firstDay      | numeric: 0 to 6.  "0" means display Sunday first, "1" means display Monday first, etc.
 *   align         | alignment (default: "Br"); if you don't know what's this see the calendar documentation
 *   range         | array with 2 elements.  Default: [1900.0, 2999.12] -- the range of years available
 *   weekNumbers   | (true/false) if it's true (default) the calendar will display week numbers
 *   flat          | null or element ID; if not null the calendar will be a flat calendar having the parent with the given ID
 *   flatCallback  | function that receives a JS Date object and returns an URL to point the browser to (for flat calendar)
 *   disableFunc   | function that receives a JS Date object and should return true if that date has to be disabled in the calendar
 *   onSelect      | function that gets called when a date is selected.  You don't _have_ to supply this (the default is generally okay)
 *   onClose       | function that gets called when the calendar is closed.  [default]
 *   onUpdate      | function that gets called after the date is updated in the input field.  Receives a reference to the calendar.
 *   date          | the date that the calendar will be initially displayed to
 *   showsTime     | default: false; if true the calendar will include a time selector
 *   timeFormat    | the time format; can be "12" or "24", default is "12"
 *   electric      | if true (default) then given fields/date areas are updated for each move; otherwise they're updated only on close
 *   sortOrder    | ("asc"(ending)/"desc"(ending)/"none"). If "asc" (default), order of the multiple dates (when multiple dates is on) will be sorted in ascending order. Otherwise, it will be sorted in descending order. "none" means no sorting is needed. 
 *   step          | configures the step of the years in drop-down boxes; default: 2
 *   position      | configures the calendar absolute position; default: null
 *   cache         | if "true" (but default: "false") it will reuse the same calendar object, where possible
 *   showOthers    | if "true" (but default: "false") it will show days from other months too
 *   saveDate      | if set (default unset) will save a cookie for this duration.
 * \endcode
 *
 *  None of them is required, they all have default values.  However, if you
 *  pass none of "inputField", "displayArea" or "button" you'll get a warning
 *  saying "nothing to setup".
 */
Zapatec.Calendar.setup = function (params) {
 function param_default(pname, def) { if (typeof params[pname] == "undefined") { params[pname] = def; } };
 param_default("inputField",     null);
 param_default("displayArea",    null);
 param_default("button",         null);
 param_default("eventName",      "click");
 param_default("ifFormat",       "%Y/%m/%d");
 param_default("daFormat",       "%Y/%m/%d");
 param_default("singleClick",    true);
 param_default("disableFunc",    null);
 param_default("dateStatusFunc", params["disableFunc"]); // takes precedence if both are defined
 param_default("dateText",       null);
 param_default("firstDay",       null);
 param_default("align",          "Br");
 param_default("range",          [1900, 2999]);
 param_default("weekNumbers",    true);
 param_default("flat",           null);
 param_default("flatCallback",   null);
 param_default("onSelect",       null);
 param_default("onClose",        null);
 param_default("onUpdate",       null);
 param_default("date",           null);
 param_default("showsTime",      false);
 param_default("sortOrder",      "asc");
 param_default("timeFormat",     "24");
 param_default("electric",       true);
 param_default("step",           2);
 param_default("position",       null);
 param_default("cache",          false);
 param_default("showOthers",     false);
 param_default("multiple",       null);
 param_default("saveDate",       null);

 var tmp = ["inputField", "displayArea", "button"];
 for (var i in tmp) {
  if (typeof params[tmp[i]] == "string") {
   params[tmp[i]] = document.getElementById(params[tmp[i]]);
  }
 }
 if (!(params.flat || params.multiple || params.inputField || params.displayArea || params.button)) {
  alert("Calendar.setup:\n  Nothing to setup (no fields found).  Please check your code");
  return false;
 }
 if (params.saveDate) { //If saveDate is on We're saving the date in a cookie
  //fetch the cookie
  var cookieName = window.location.href + "--" + params.button.id;
  var newdate = Zapatec.Utils.getCookie(cookieName);
  if (newdate != null) { //if there's a cookie
   //set the value of the text field
   document.getElementById(params.inputField.id).value = newdate;
  }
 }

 function onSelect(cal) {
  var p = cal.params;
  var update = (cal.dateClicked || p.electric);
  if (update && p.flat) {
   if (typeof p.flatCallback == "function")
   {
      if (!p.multiple) //User can call function submitFlatDates directly in Calendar object to handle the submission of multiple dates.
    p.flatCallback(cal);
   } else
    alert("No flatCallback given -- doing nothing.");
   return false;
  }
  if (update && p.inputField) {
   p.inputField.value = cal.date.print(p.ifFormat);
   if (typeof p.inputField.onchange == "function")
    p.inputField.onchange();
  }
  if (update && p.displayArea)
   p.displayArea.innerHTML = cal.date.print(p.daFormat);
  if (update && p.singleClick && cal.dateClicked)
   cal.callCloseHandler();
  if (update && typeof p.onUpdate == "function")
   p.onUpdate(cal);
  if (p.saveDate) { //save date in cookie
   //unique name of the cookie is the name of the button  + href 
   var cookieName = window.location.href + "--" + p.button.id;
   Zapatec.Utils.writeCookie(cookieName, p.inputField.value, null, '/', p.saveDate);
  }  
 };

 if (params.flat != null) {
  if (typeof params.flat == "string")
   params.flat = document.getElementById(params.flat);
  if (!params.flat) {
   alert("Calendar.setup:\n  Flat specified but can't find parent.");
   return false;
  }
  var cal = new Zapatec.Calendar(params.firstDay, params.date, params.onSelect || onSelect);
  cal.showsOtherMonths = params.showOthers;
  cal.showsTime = params.showsTime;
  cal.time24 = (params.timeFormat == "24");
  cal.params = params;
  cal.weekNumbers = params.weekNumbers;
  cal.sortOrder = params.sortOrder.toLowerCase();
  cal.setRange(params.range[0], params.range[1]);
  cal.setDateStatusHandler(params.dateStatusFunc);
  cal.getDateText = params.dateText;
  if (params.ifFormat) {
   cal.setDateFormat(params.ifFormat);
  }
  
  if (params.inputField && params.inputField.type == "text" && typeof params.inputField.value == "string") {
   cal.parseDate(params.inputField.value);
  }

  if (params.multiple) {
     cal.setMultipleDates(params.multiple);
  }
  cal.create(params.flat);
  cal.show();
  return cal;
 }

 var triggerEl = params.button || params.displayArea || params.inputField;
 triggerEl["on" + params.eventName] = function() {
  var dateEl = params.inputField || params.displayArea;
  var dateFmt = params.inputField ? params.ifFormat : params.daFormat;
  var mustCreate = false;
  var cal = window.calendar;
  if (!(cal && params.cache)) {
   window.calendar = cal = new Zapatec.Calendar(params.firstDay,
            params.date,
            params.onSelect || onSelect,
            params.onClose || function(cal) {
             if (params.cache)
              cal.hide();
             else
              cal.destroy();
            });
   cal.showsTime = params.showsTime;
   cal.time24 = (params.timeFormat == "24");
   cal.weekNumbers = params.weekNumbers;
   cal.historyDateFormat = params.ifFormat || params.daFormat;
   mustCreate = true;
  } else {
   if (params.date)
    cal.setDate(params.date);
   cal.hide();
  }

  if (params.multiple) {
     cal.setMultipleDates(params.multiple);
  }
  
  cal.showsOtherMonths = params.showOthers;
  cal.yearStep = params.step;
  cal.setRange(params.range[0], params.range[1]);
  cal.params = params;
  cal.setDateStatusHandler(params.dateStatusFunc);
  cal.getDateText = params.dateText;
  cal.setDateFormat(dateFmt);
  if (mustCreate)
   cal.create();
  if (dateEl) {
   var dateValue;
   //figure out if the it's in value or innerHTML
   if (dateEl.value) {
    dateValue = dateEl.value;
   } else {
    dateValue = dateEl.innerHTML;
   }
   if (dateValue != "") { //if there is a date to initialize from
    var parsedDate =Date.parseDate(dateEl.value || dateEl.innerHTML, dateFmt);
    //This check for when webmaster initializes the box with something like
    //"check in"
    if (parsedDate != null) { //if it's parsable
    cal.setDate(parsedDate);
    }
   }
  }
  if (!params.position)
   cal.showAtElement(params.button || params.displayArea || params.inputField, params.align);
  else
   cal.showAt(params.position[0], params.position[1]);
  return false;
 };

 if (params.closeEventName) {
  triggerEl["on" + params.closeEventName] = function() {
   if (window.calendar)
    window.calendar.callCloseHandler();
  };
 }

 return cal;
};
