function pad_2(num_string) {
  if(num_string.length >= 2) {
    return num_string;
  } else {
    return "0"+num_string;
  }
}
function days_in_month(year, month) {
  month--; // To get 0-11 months
  month++; // Because we want to look at the next month!
  
  if(month>11) {
    month=0;
    year++;
  }
  start_of_next_month = new Date(year, month);
  end_of_this_month = new Date(start_of_next_month.getTime() - (1000*60*60*12));
  return end_of_this_month.getDate();
}
function set_max_day_from_value(name) {
  max_day=days_in_month(
    document.getElementById(name+".y").value, 
    document.getElementById(name+".m").value
  );
  for(i = 28; i<max_day+1; i++) {
    document.getElementById(name+".d."+i).disabled=false;
  }
  for(i = max_day+1; i<32; i++) {
    document.getElementById(name+".d."+i).disabled=true;
  }
  if(document.getElementById(name+".d").value > max_day)
    document.getElementById(name+".d").value = max_day;
}
function update_hidden_date(name) {
  document.getElementById(name+".h").value =
    document.getElementById(name+".y").value + "-" +
    pad_2(document.getElementById(name+".m").value) + "-" + 
    pad_2(document.getElementById(name+".d").value) +
    document.getElementById(name+".t").value;
}
function update_hidden_date_ym(name) {
  document.getElementById(name+".h").value =
    document.getElementById(name+".y").value + "-" +
    pad_2(document.getElementById(name+".m").value);
}
function find_element_root_offset(element) {
	x=0; y=0;
  while(element) {
    x+=element.offsetLeft;
    y+=element.offsetTop;
    element=element.offsetParent;
  }
	return [x,y];
}
function overlay_near_element(target_element, move_element_id, approx_width, approx_height) {
	target_position = find_element_root_offset(target_element);
	x = target_position[0];
	y = target_position[1];
  divstyle=document.getElementById(move_element_id).style;
  if(x>approx_width/2) {x-=approx_width/2} else {x=0}
  if(y>approx_height/2) {y-=approx_height/2} else {y=0}
  divstyle.left=x+"px";
  divstyle.top=y+"px";
  divstyle.visibility='visible';
}
function try_refresh(time, url) {
  location.href=url;
  setTimeout("try_refresh(" + time + ", '" + url + "')",time*1000);
}

function go_back_ish() {
  if(document.referrer && document.referrer != location.href) {
               history.go(-1); // We just go straight back.
  } else {
    location.href = "/";
  }
  return false;
}

broken_windows_browser=0;
if(navigator.userAgent.toLowerCase().indexOf("msie")>=0) broken_windows_browser=1;
var xmlhttp_by_name = {};

function xmlhttp_call_with_args(name, orst, url, args) {
	var post_content = "";
	for(var i in args) {
		post_content += i + "=" + encodeURIComponent(args[i]) + ";";
	}

	var xmlhttp_o;
	if(broken_windows_browser) {
		xmlhttp_o = new ActiveXObject("MsXml2.XmlHttp");
	} else {
		xmlhttp_o = new XMLHttpRequest();
	}
	xmlhttp_by_name[name] = xmlhttp_o;
	xmlhttp_o.onreadystatechange=orst;
	xmlhttp_o.open("POST", url, true);
	xmlhttp_o.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
	xmlhttp_o.setRequestHeader("Content-length", post_content.length);
	xmlhttp_o.setRequestHeader("Connection", "close");
	xmlhttp_o.send(post_content);
	return xmlhttp_o;
}

var alert_count = 0;
var alert_limit = 20;
function alert_l(str, chosen_limit) {
	alert_count++;
	if(!chosen_limit) chosen_limit=alert_limit;
	if(alert_count>= chosen_limit) return;
	return window.alert(str);
}

function build_simple_xmlr_statechange(n, on_success, on_failure, check_for_success) {
	return function() {
		/* effective args: n, on_success, on_failure */
		// if LOADED
		var my_xmlhttp = xmlhttp_by_name[n];
		if(my_xmlhttp.readyState == 4 && my_xmlhttp.status == 200) {
			var xmldoc=my_xmlhttp.responseXML;
			if(!xmldoc) {
				if(on_failure) on_failure();
			} else if(!xmldoc.lastChild) {
				if(on_failure) on_failure(xmldoc.lastChild);
			} else if(check_for_success && !check_for_success(xmldoc.lastChild)) {
				if(on_failure) on_failure(xmldoc.lastChild);
			} else {
				if(on_success) on_success(xmldoc.lastChild);
			}
		} else if(my_xmlhttp.readyState == 4) {
			if(my_xmlhttp.status!=0) alert_l("HTTP error: "+my_xmlhttp.status);
			if(on_failure) on_failure();
		}
	};
}

function form_to_http_request(f, on_success, on_failure, check_for_success) {
	var form_contents = {};
	for(var i=0; i<f.elements.length; i++) {
		var e = f.elements.item(i);
		if(e.disabled) continue;
		if(e.type == "radio" || e.type == "checkbox") {
			if(!e.checked) continue;
		} else if(e.type == "submit" || e.type == "image") {
			// Broken for now.
			continue;
		}
		if(!e.name) continue; // Should never happen, but does.
		form_contents[e.name]=form_contents[e.name] || [];
		form_contents[e.name].push(e.value);
	}
	var orst = build_simple_xmlr_statechange(f.action, on_success, on_failure, check_for_success);
	xmlhttp_call_with_args(f.action, orst, f.action, form_contents);
	return false;
}

function replace_el_with_id(id, w) {
	var s = document.getElementById(id);
	s.parentNode.replaceChild(w, s);
	if(!w.id) w.id=id;
}

function _mkel(name, attributes, contents, tail_tweaks) {
	var e = document.createElement(name);
	if(attributes) {
		for(var n in attributes) {
			if(broken_windows_browser && n == "type" && name == "button") continue; // Skip it, cross fingers.
			e[n]=attributes[n];
		}
	}
	if(contents) for(var i=0; i<contents.length; i++) {
		if(!contents[i]) continue; // Should never happen, but... you know the drill.
		if(contents[i].nodeType) {
			e.appendChild(contents[i]);
		} else {
			e.appendChild(document.createTextNode(contents[i]));
		}
	}
	if(tail_tweaks)
		tail_tweaks(e);
	return e;
}

var popup__detail_container;
function prepare_detail_container() {
	window.onscroll=function() {
		if(popup__detail_container)
			document.body.removeChild(popup__detail_container);
		popup__detail_container = undefined;
	}
}

function show_popup_detail(ndc, desired_width, options) {
	options=options||{};
	var duration=0.5;
	if(undefined != options.popup_duration)
		duration = options.popup_duration;
	var detail_container = popup__detail_container;
	if(detail_container) document.body.removeChild(detail_container);

	popup__detail_container = detail_container = ndc;

	var close_el = document.createElement("button");
	//close_el.type="button";
	close_el.onclick = function() {
		new Effect.Shrink(detail_container.id, {duration: duration, direction: "center"});
		if(options.onclose) options.onclose();
	}
	close_el.appendChild(document.createTextNode("Close"));
	var anchor_p = document.createElement("p");
	anchor_p.style.textAlign="center";
	if(options.footer_extra) {
		for(var i=0; i<options.footer_extra.length; i++)
			anchor_p.appendChild(options.footer_extra[i]);
	}
	anchor_p.appendChild(close_el);
	detail_container.appendChild(anchor_p);
	var de = document.documentElement;
	var w = window.innerWidth || self.innerWidth || (de&&de.clientWidth) || document.body.clientWidth;
	var h = window.innerHeight || self.innerHeight || (de&&de.clientHeight) || document.body.clientHeight;

	detail_container.style.position='fixed';
	detail_container.style.background="#fff";
	detail_container.style.border="2px outset";
	detail_container.style.display="none";
	if(desired_width)
		detail_container.style.width = desired_width;
	if(options.be_square)
		detail_container.style.height = detail_container.style.width;
	detail_container.id="pseudo-popup";
	document.body.appendChild(detail_container);
	detail_container.style.left = Math.round((w - Element.getWidth(detail_container)) / 2 ) + "px";
	detail_container.style.top = Math.round((h - Element.getHeight(detail_container)) / 2 ) + "px";
	new Effect.Grow(detail_container.id, {duration: duration, direction: "center"});
}

function unhtml(s) {
	var span = document.createElement("span");
	span.innerHTML=s;
	return(span.innerText||s.unescapeHTML());
}

var rlbns__timeouts={};
function run_late_but_not_simultaneously(c, time) {
	var timeout = rlbns__timeouts[c];
	if(timeout) clearTimeout(timeout);
	rlbns__timeouts[c] = setTimeout(c, time);
	return rlbns__timeouts[c];
}
function _bind_to_any(t, f) { // Utility.
	return function() {f.apply(t, arguments)};
}
var _utils_prototypes = {
	getElementsByClassName: function(strClassName){
		if(!strClassName) return [];
		var arrElements = this.all;
		var arrReturnElements = new Array();
		strClassName = strClassName.replace(/-/g, "\-");
		var oRegExp = new RegExp("(^|\s)" + strClassName + "(\s|$)");
		var oElement;
		for(var i=0; i<arrElements.length; i++){
			oElement = arrElements[i];
			if(oRegExp.test(oElement.className)){
				arrReturnElements.push(oElement);
			}
		}
		return (arrReturnElements)
	},
	stripSuffix: function(s) {
		if(this.indexOf(s)==0) return this.substring(s.length);
		return;
	}
};

if(!broken_windows_browser) {
	if(!HTMLElement.prototype.getElementsByClassName) 
		HTMLElement.prototype.getElementsByClassName = _utils_prototypes.getElementsByClassName;
	if(!String.prototype.stripSuffix) 
		String.prototype.stripSuffix = _utils_prototypes.stripSuffix;
}

function _u_prototype() {
	var name = arguments[0];
	var a = [];
	for(var i=1; i<arguments.length; i++)
		a[i-1]=arguments[i];
	if(!this[name])
		this[name] = _utils_prototypes[name];
	return this[name].apply(this, a);
}