// -*-ecmascript-*-
// SOME CHANGES MADE TO THIS SCRIPT FROM ORIGINGAL, ALSO CUSTOMIZED BEYOND THAT TO REMOVE ARROWS, MATCH CSS, ETC
//
//   
// http://www.kryogenix.org/code/browser/sorttable/
// http://answers.google.com/answers/threadview?id=524043
// http://answers.google.com/answers/threadview?id=524440
// 
////////////////////////////////////////////////////////////////
//
// Changes:
//
// Sat Mar  1 14:46:18 PST 2008 <dairiki@dairiki.org>
// - Use the last <tr> of the <thead> as the headers to clickableize
//   (unless the the <thead> is empty, in which case the first row
//   in the body is used.)  
// - Only sort rows in the first <tbody>.
//
// Wed Dec 12 08:04:30 PST 2007 <dairiki@dairiki.org>
// - Be more careful about munging element classes.  (Add and remove
//   classes rather than setting class outright.)
// - Don't pollute global namespace.
// - Use first non-blank entry in column to determine sort order.
//
// Thu May 18 06:08:19 PDT 2006 <dairiki@dairiki.org>
// - Do a stable sort. (Array.sort() is not guaranteed to be stable.
//   Indeed, it is not stable in my browser.)
//
////////////////////////////////////////////////////////////////


var sorttable = {};

(function () {

    var SORT_COLUMN_INDEX;

    function sortables_init() {
	// Find all tables with class sortable and make them sortable
	if (!document.getElementsByTagName) return;
	tbls = document.getElementsByTagName("table");
	for (ti=0;ti<tbls.length;ti++) {
	    thisTbl = tbls[ti];
	    if (ts_hasClass(thisTbl, 'sortable') && thisTbl.id) {
		//initTable(thisTbl.id);
		ts_makeSortable(thisTbl);
	    }
	}
    };

    function ts_hasClass(elem, klass) {
	if (!elem.className)
	    return false;
	var classes = elem.className.split(' ');
	for (var i = 0; i < classes.length; i++) {
	    if (classes[i] == klass)
		return true;
	}
	return false;
    };

    function ts_addClass(elem, klass) {
	if (!elem.className || elem.className.length == 0 
	    || elem.className == klass) {
	    elem.className = klass;
	    return;
	}
	var classes = elem.className.split(' ');
	for (var i = 0; i < classes.length; i++) {
	    if (classes[i] == klass)
		return;
	}
	elem.className = elem.className + ' ' + klass;
    };

    function ts_removeClass(elem, klass) {
	if (!elem.className || elem.className.length == 0) 
	    return;
	if (elem.className == klass) {
	    elem.className = '';
	    return;
	}
	var classes = elem.className.split(' ');
	var newclasses = [];
	for (var i = 0; i < classes.length; i++) {
	    if (classes[i] != klass)
		newclasses.push(classes[i]);
	}
	elem.className = newclasses.join(' ');
    };

    function get_header_row(table) {
	if (table.tHead && table.tHead.rows.length > 0) {
	    var rows = table.tHead.rows;
	    return rows[rows.length - 1];
	} else {
	    return table.rows[0];
	}
    };

    function get_data_rows(table) {
	var skip = 0;
	var rows = table.tBodies[0].rows;

	if (!table.tHead || table.tHead.rows.length == 0) {
	    skip = 1;
	}

	var rv = [];
	for (var i = skip; i < rows.length; i++) {
	    rv.push(rows[i]);
	}
	return rv;
    };

    function ts_rezebra(table) {
	// Assign classes to the rows when the table's first loaded
	var rows = get_data_rows(table);
        var evenrow = true;
	for (var i = 0; i < rows.length; i++) { 
	    if (evenrow)
		ts_addClass(rows[i], 'zebra');
	    else
		ts_removeClass(rows[i], 'zebra');
            // Don't count hidden rows when zebrafying
            if (!rows[i].style || rows[i].style.display != 'none')
		evenrow = !evenrow;
	}
    };
    sorttable.rezebra = ts_rezebra; // export


    function ts_makeSortable(table) {
	var firstRow = get_header_row(table);
	if (!firstRow) return;
	
	ts_rezebra(table);

	// We have a first row: assume it's the header, and make its contents clickable links
	for (var i=0;i<firstRow.cells.length;i++) {
	    var cell = firstRow.cells[i];
	    var txt = cell.innerHTML;
	    cell.innerHTML = '<a href="#" onclick="sorttable.resortTable(this, '+i+');return false;">'+txt+'<span class="sortarrow"></span></a>';
	}
    };
    sorttable.makeSortable = ts_makeSortable; // export

    function ts_getInnerText(el) {
	if (typeof el == "string") return el;
	if (typeof el == "undefined") { return el };
	if (el.innerText) return el.innerText;	//Not needed but it is faster
	var str = "";
	
	var cs = el.childNodes;
	var l = cs.length;
	for (var i = 0; i < l; i++) {
	    switch (cs[i].nodeType) {
	    case 1: //ELEMENT_NODE
		str += ts_getInnerText(cs[i]);
		break;
	    case 3:	//TEXT_NODE
		str += cs[i].nodeValue;
		break;
	    }
	}
	return str;
    };

    function ts_resortTable(lnk, clid) {
	// get the span
	var span = lnk;//.lastChild;
	//if (span.nodeName.toLowerCase() != 'span') {
	//    throw "not a span?";
	//}

	var td = lnk.parentNode;
	var column = clid || td.cellIndex;
	var table = getParent(td,'TABLE');
	var rows = get_data_rows(table);

	// Work out a type for the column
        var itm; 
	var i = 0;
        while (!itm) {
	    if (i == rows.length)
		return;
	    itm = ts_getInnerText(rows[i++].cells[column]);
	}

	var sortfn = ts_sort_caseinsensitive;
	if (itm.match(/^\d\d[\/-]\d\d[\/-]\d\d\d\d$/)) sortfn = ts_sort_date;
	if (itm.match(/^\d\d[\/-]\d\d[\/-]\d\d$/)) sortfn = ts_sort_date;
	if (itm.match(/^[$]/)) sortfn = ts_sort_currency;
	if (itm.match(/^[\d\.]+$/)) sortfn = ts_sort_numeric;
	SORT_COLUMN_INDEX = column;

	if (span.getAttribute("sortdir") == 'down') {
	    //ARROW = '';
	    span.setAttribute('sortdir','up');
	    stable_sort(rows, sortfn, true);
	} else {
	    //ARROW = '';
	    span.setAttribute('sortdir','down');
	    stable_sort(rows, sortfn);
	}

	// We appendChild rows that already exist to the tbody, so it
	// moves them rather than creating new ones
	for (var i = 0; i < rows.length; i++) {
	    var row = rows[i];
	    if (i % 2 == 0) {
		ts_addClass(row, 'zebra');
	    } else {
		ts_removeClass(row, 'zebra');
            }
	    table.tBodies[0].appendChild(row);
	}

	// Delete any other arrows there may be showing
	/*
	var allspans = document.getElementsByTagName("span");
	for (var ci=0;ci<allspans.length;ci++) {
	    if (allspans[ci].className == 'sortarrow') {
		if (getParent(allspans[ci],"table") == getParent(lnk,"table")) { // in the same table as us?
		    allspans[ci].innerHTML = '';
		}
	    }
	}
	span.innerHTML = ARROW;
        */
    };
    sorttable.resortTable = ts_resortTable;

    function getParent(el, pTagName) {
	if (el == null) return null;
	else if (el.nodeType == 1 && el.tagName.toLowerCase() == pTagName.toLowerCase())	// Gecko bug, supposed to be uppercase
	    return el;
	else
	    return getParent(el.parentNode, pTagName);
    };
    function ts_sort_date(a,b) {
	// y2k notes: two digit years less than 50 are treated as 20XX, greater than 50 are treated as 19XX
	aa = ts_getInnerText(a.cells[SORT_COLUMN_INDEX]);
	bb = ts_getInnerText(b.cells[SORT_COLUMN_INDEX]);
	if (aa.length == 10) {
	    //dt1 = aa.substr(6,4)+aa.substr(3,2)+aa.substr(0,2);
	    dt1 = aa.substr(6,4)+aa.substr(0,2)+aa.substr(3,2);
	} else {
	    yr = aa.substr(6,2);
	    if (parseInt(yr) < 50) { yr = '20'+yr; } else { yr = '19'+yr; }
	    //dt1 = yr+aa.substr(3,2)+aa.substr(0,2);
	    dt1 = yr+aa.substr(0,2)+aa.substr(3,2);
	}
	if (bb.length == 10) {
	    //dt2 = bb.substr(6,4)+bb.substr(3,2)+bb.substr(0,2);
	    dt2 = bb.substr(6,4)+bb.substr(0,2)+bb.substr(3,2);
	} else {
	    yr = bb.substr(6,2);
	    if (parseInt(yr) < 50) { yr = '20'+yr; } else { yr = '19'+yr; }
	    //dt2 = yr+bb.substr(3,2)+bb.substr(0,2);
	    dt2 = yr+bb.substr(0,2)+bb.substr(3,2);
	}
	if (dt1==dt2) return 0;
	if (dt1<dt2) return -1;
	return 1;
    };

    function ts_sort_currency(a,b) { 
	aa = ts_getInnerText(a.cells[SORT_COLUMN_INDEX]).replace(/[^0-9.]/g,'');
	bb = ts_getInnerText(b.cells[SORT_COLUMN_INDEX]).replace(/[^0-9.]/g,'');
	return parseFloat(aa) - parseFloat(bb);
    };

    function ts_sort_numeric(a,b) { 
	aa = parseFloat(ts_getInnerText(a.cells[SORT_COLUMN_INDEX]));
	if (isNaN(aa)) aa = 0;
	bb = parseFloat(ts_getInnerText(b.cells[SORT_COLUMN_INDEX])); 
	if (isNaN(bb)) bb = 0;
	return aa-bb;
    };

    function ts_sort_caseinsensitive(a,b) {
	aa = ts_getInnerText(a.cells[SORT_COLUMN_INDEX]).toLowerCase();
	bb = ts_getInnerText(b.cells[SORT_COLUMN_INDEX]).toLowerCase();
	if (aa==bb) return 0;
	if (aa<bb) return -1;
	return 1;
    };

    function ts_sort_default(a,b) {
	aa = ts_getInnerText(a.cells[SORT_COLUMN_INDEX]);
	bb = ts_getInnerText(b.cells[SORT_COLUMN_INDEX]);
	if (aa==bb) return 0;
	if (aa<bb) return -1;
	return 1;
    };


    function addEvent(elm, evType, fn, useCapture) {
	// addEvent and removeEvent
	// cross-browser event handling for IE5+,  NS6 and Mozilla
	// By Scott Andrew
	if (elm.addEventListener){
	    elm.addEventListener(evType, fn, useCapture);
	    return true;
	} else if (elm.attachEvent){
	    var r = elm.attachEvent("on"+evType, fn);
	    return r;
	} else {
	    alert("Handler could not be removed");
	}
    }; 


    function stable_sort(arry, cmp_fn, reverse) {
	for (var i = 0; i < arry.length; i++) {
	    arry[i]._orig_pos = i;
	}
	var dir = reverse ? -1 : 1;
	arry.sort(function (a, b) { 
	    return (dir * cmp_fn(a,b)) || (a._orig_pos - b._orig_pos);
	});
    };

    addEvent(window, "load", sortables_init);
})();