/**
 * toolbox.js
 * 
 * Includes small subset of functions from Prototype JavaScript framework (http://www.prototypejs.org/)
 *  (c) 2005-2007 Sam Stephenson
 * 
 * @package RevTK
 * @author  Fabrice Denis
 */

var Class = {
  create: function() {
    return function() {
      this.initialize.apply(this, arguments);
    }
  }
}

Object.extend = function(destination, source) {
  for (var property in source) {
    destination[property] = source[property];
  }
  return destination;
}

Function.prototype.bind = function() {
  var __method = this, args = $A(arguments), object = args.shift();
  return function() {
    return __method.apply(object, args.concat($A(arguments)));
  }
}

Function.prototype.bindAsEventListener = function() {
  var __method = this, args = $A(arguments), object = args.shift();
  return function(event) {
    return __method.apply(object, [event || window.event].concat(args));
  }
}

var $A = Array.from = function(iterable) {
  if (!iterable) return [];
  if (iterable.toArray) {
    return iterable.toArray();
  } else {
    var results = [];
    for (var i = 0, length = iterable.length; i < length; i++)
      results.push(iterable[i]);
    return results;
  }
}

var Enumerable = {
  each: function(iterator) {
    var index = 0;
    try {
      this._each(function(value) {
        iterator(value, index++);
      });
    } catch (e) {
      if (e != $break) throw e;
    }
    return this;
  }
}  

Object.extend(Array.prototype, Enumerable);
Object.extend(Array.prototype, {
  _each: function(iterator) {
    for (var i = 0, length = this.length; i < length; i++)
      iterator(this[i]);
  }
});


function $(element) {
  if (arguments.length > 1) {
    for (var i = 0, elements = [], length = arguments.length; i < length; i++)
      elements.push($(arguments[i]));
    return elements;
  }
  if (typeof element == 'string')
    element = document.getElementById(element);
  return element;/*Element.extend(element);*/
}

if (!window.Event) {
  var Event = new Object();
}
Object.extend(Event, {
  KEY_BACKSPACE: 8,
  KEY_TAB:       9,
  KEY_RETURN:   13,
  KEY_ESC:      27,
  KEY_LEFT:     37,
  KEY_UP:       38,
  KEY_RIGHT:    39,
  KEY_DOWN:     40,
  KEY_DELETE:   46,
  KEY_HOME:     36,
  KEY_END:      35,
  KEY_PAGEUP:   33,
  KEY_PAGEDOWN: 34,

  element: function(event) {
    return $(event.target || event.srcElement);
  },
  
  stop: function(event) {
    if (event.preventDefault) {
      event.preventDefault();
      event.stopPropagation();
    } else {
      event.returnValue = false;
      event.cancelBubble = true;
    }
  }

});


/* dom utility */

var dom = {

	// nodetypes
	ELEMENT_NODE:1,	ATTRIBUTE_NODE:2, TEXT_NODE:3,
	
	walkTheDOM:function(node, func)
	{
		func(node);
		node = node.firstChild;
		while (node) {
			dom.walkTheDOM(node, func);
			node = node.nextSibling;
		} 
	},

	// crossbrowser addEvent
	addEvent: function(obj, evType, fn, useCapture)
	{
		if (useCapture==undefined)
			useCapture = false; // use bubbling
		if (obj.addEventListener){
			obj.addEventListener(evType, fn, useCapture);
			return true;
		} else if (obj.attachEvent){
			var r = obj.attachEvent("on"+evType, fn);
			return r;
		} else {
			alert("Handler could not be attached");
		}
	},
	
	// crossbrowser removeEvent
	removeEvent: function(obj, evType, fn, useCapture)
	{
		if (useCapture==undefined)
			useCapture = false; // use bubbling
		if (obj.removeEventListener){
			obj.removeEventListener(evType, fn, useCapture);
			return true;
		} else if (obj.detachEvent){
			var r = obj.detachEvent("on"+evType, fn);
			return r;
		} else {
			alert("Handler could not be removed");
		}
	},

	purgeEventHandlers: function(node)
	{
		dom.walkTheDOM(node, function (e) {
			for (var n in e) {            
				if (typeof e[n] === 'function') {
					e[n] = null;
				}
			}
		});
	},

	/* assign an eventhandler to a list of eventtypes for given element */
	delegateEvents: function(element, eventtypes, eventhandler)
	{
		for (var i=0;i<eventtypes.length; i++) {
			element['on'+eventtypes[i]] = eventhandler;
		}
	},

	/* Copyright Robert Nyman, http://www.robertnyman.com */
	getElementsByClassName: function (oElm, strTagName, strClassName)
	{
	    var arrElements = (strTagName == "*" && oElm.all)? oElm.all : oElm.getElementsByTagName(strTagName);
	    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);
	},

	/* Copyright Robert Nyman, http://www.robertnyman.com */
	getElementsByAttribute: function(oElm, strTagName, strAttributeName, strAttributeValue)
	{
	    var arrElements = (strTagName == "*" && oElm.all)? oElm.all : oElm.getElementsByTagName(strTagName);
	    var arrReturnElements = new Array();
	    var oAttributeValue = (typeof strAttributeValue != "undefined")? new RegExp("(^|\\s)" + strAttributeValue + "(\\s|$)") : null;
	    var oCurrent;
	    var oAttribute;
	    for(var i=0; i<arrElements.length; i++){
	        oCurrent = arrElements[i];
	        oAttribute = oCurrent.getAttribute && oCurrent.getAttribute(strAttributeName);
	        if(typeof oAttribute == "string" && oAttribute.length > 0){
	            if(typeof strAttributeValue == "undefined" || (oAttributeValue && oAttributeValue.test(oAttribute))){
	                arrReturnElements.push(oCurrent);
	            }
	        }
	    }
	    return arrReturnElements;
	},

	// returns parent html element of given tag, or null if not found, optional classname
	getParent: function(el, sTagName, classname)
	{
		function recursive(el, sTagName, classname) {
			if (el == null)
				return null;
			// gecko bug, supposed to be uppercase
			else if (el.nodeType==dom.ELEMENT_NODE && el.tagName.toLowerCase()==sTagName)
			{
				var oClassValue = classname ? new RegExp("(^|\\s)" + classname + "(\\s|$)") : null;
				if (oClassValue===null || oClassValue.test(el.className))
					return el;
			}
			return recursive(el.parentNode, sTagName, classname);
		}
		return recursive(el, sTagName, classname);
	},

	/* by Peter-Paul Koch http://www.quirksmode.org */
	findPosition: function(obj)
	{
		var curleft = 0;
		var curtop = 0;
		if (obj.offsetParent)
		{
			curleft = obj.offsetLeft;
			curtop = obj.offsetTop;
			while (obj = obj.offsetParent) {
				curleft += obj.offsetLeft;
				curtop += obj.offsetTop;
			}
		}
		return [curleft, curtop];
	},
	
	// set element styles shorthand
	setStyle:function(element, oStyles)
	{
		for (var property in oStyles) {
			element.style[property] = oStyles[property];
		}
	}
}


/* css */

var CssClass = {
	classnames: function(element) {
		return element.className.split(/\s+/);
	},
	
	set: function(element, s) {
		element.className = s;
	},
	
	// adds a class taking care of whether it was present already or not
	add: function(element, s) {
		if (this.has(element,s)) return;// minimize refresh (for buggy IE)
		
		var classes = this.classnames(element);
		for (var i=0;i<classes.length;i++) {
			if (classes[i]=='s') return;
		}
		var newclasses = classes.concat(s).join(' ');
		element.className = newclasses;
	},
	
	has: function(element, s) {
		var classes = this.classnames(element);
		for (var i=0;i<classes.length;i++) {
			if (classes[i]==s) {
				return true;
			}
		}
		return false;
	},

	remove: function(element, s) {
		if (!this.has(element,s)) return; // minimize refresh (for buggy IE)
		
		var classes = this.classnames(element);
		var newclasses = '';
		for (var i=0;i<classes.length;i++) {
			if (classes[i]!=s) {
				newclasses += (i>0?' ':'')+classes[i];
			}
		}
		element.className = newclasses;
	},

	replace: function(element, sold, snew) {
		var classes = this.classnames(element);
		var newclasses = '';
		for (var i=0;i<classes.length;i++) {
			if (classes[i]!=sold) {
				newclasses += (i>0?' ':'')+classes[i];
			}
		}
		element.className = newclasses+' '+snew;
	}
}

/* dhtml helpers */

var dynHTML =
{
	clearTableBody:function(t)
	{
		while(t.rows.length){
			t.deleteRow(0);
		}
		return;
	},
	
	insertTableRow:function(tbody, oRow, iRowIndex)
	{
	//	console.log('dynHTML::insertTableRow() tbody=%o oRow=%o iRowIndex=%d',tbody,oRow,iRowIndex);
		var tr, td, cells = oRow.tCells;

		// insert at end of table by default
		if (iRowIndex===undefined)
			iRowIndex = -1;

		if (!cells)
			return;

		tr = tbody.insertRow(iRowIndex);

		if (oRow.tId)
			tr.id = oRow.tId;
		if (oRow.tClass)
			tr.className = oRow.tClass;

		for (var i=0; i<cells.length; i++)
		{
			td = tr.insertCell(-1);
			if (cells[i].tClass)
				td.className = cells[i].tClass;
			td.innerHTML = cells[i].tHtml;
		}
	},

	/* input handling :	just thrown here in dynHTML for now */

	// cross-browser move caret to end of input field
	setCaretToEnd:function(control)
	{
		if (control.createTextRange) {
			var range = control.createTextRange();
			range.collapse(false);
			range.select();
		}
		else if (control.setSelectionRange) {
			control.focus();
			var length = control.value.length;
			control.setSelectionRange(length, length);
		}
	}
}

/* ajax */

// use:	var myXmlHttp = new XmlHttpObject();
//
function XmlHttpObject()
{
	var xmlhttp = false;
	var responseHandler = null;

	this.bBusy = false;
	this.bDebug = false;

	/*@cc_on
	@if (@_jscript_version >= 5)
	try {
	  xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
	} catch (e) {
	  try {
	    xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
	  } catch (E) {
	    xmlhttp = false;
	  }
	}
	@end @*/
	if (!xmlhttp && typeof XMLHttpRequest != 'undefined') {
		try {
		// native XMLHttpRequest object ?
			xmlhttp = new XMLHttpRequest();
		} catch (e) {
			xmlhttp = false;
		}
	}
	if (!xmlhttp && window.createRequest) {
		try {
		// IceBrowser ?
			xmlhttp = window.createRequest();
		} catch (e) {
			xmlhttp=false;
		}
	}

	if (!xmlhttp) {
		return null;
	}
	
	this.connect = function(sMethod, sURL, sVars, funcHandleResponse)
	{
		if (!xmlhttp)
			return false;
	
		responseHandler = funcHandleResponse;
		
		this.bBusy = true;
		
		try {
			if (sMethod == "GET")
			{
				xmlhttp.open(sMethod, sURL+"?"+sVars, true);
				sVars = "";
			}
			else
			{
				xmlhttp.open(sMethod, sURL, true);
				xmlhttp.setRequestHeader("Method", "POST "+sURL+" HTTP/1.1");
				xmlhttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
			}
			
			xmlhttp.onreadystatechange = this.onReadyState.bind(this);
			xmlhttp.send(sVars);
		}
		catch(z) { return false; }
		return true;
	},

	this.onReadyState = function()
	{
		if (xmlhttp.readyState == 4 && this.bBusy)
		{
			this.bBusy = false;

			if (xmlhttp.status==200)
			{
		        var response = xmlhttp.responseText;
		
				if (this.bDebug) {
					// show response
		        	//document.getElementById('response').innerHTML = '<div class="actionconfirmationmessage">'+response+'</div>';
		        	alert('response = '+response);
		    	}
		    	
		    	responseHandler(response);
			}
			else
			{
				alert('xmlhttp object status error: '+xmlhttp.status);
			}
		}
	}
}


/* common code, unsorted */

var App = {
	// php will pass variables here (<script ...>App.loaddata.xxx = ...</script>)
	loaddata:{},

	debugresponse:function(response)
	{
		if (response.indexOf('@')==0) {
			var objResponse = response.substr(1).evalJSON(true);
			if (objResponse.dbgtime){
				var dbgtimeDiv = $('dbgtime');
				dbgtimeDiv.innerHTML = 'Generated in '+objResponse.dbgtime+' seconds';
			}
			return objResponse;
		}
		
		var debugDiv = $('debugresponse');
		if (!debugDiv){
			// create the debugging div
			debugDiv = document.createElement('div');
			debugDiv.id = 'debugresponse';
			dom.setStyle(debugDiv,{
				position:'absolute',
				right:'1px',
				top:'1px',
				width:'auto'
			})
			document.getElementsByTagName('body')[0].appendChild(debugDiv);
		}
		
		// if '@' is not present, it will be a server-side error message/debugging output
		debugDiv.style.display = 'block';
    	debugDiv.innerHTML = '<p>'+response+'</p>';
		
		return null;
	}
};


/* user interface */

var AppUI = {

	// this is for behaviours on all pages!
	initialize:function()
	{
		// Initialize help system link, if any
		var helpLink = $('DynHelp');
		if (helpLink){
			helpLink.onclick = this.helpSystemEvent.bindAsEventListener(this, helpLink);
		}
	},
	
	// dynamically load the help-system class, and the help data for the current page
	helpSystemEvent:function(e, helpLink)
	{	
		function loadScript(url)
		{
			// dynamically load javascript file
			var scriptElem = document.createElement('script');
			scriptElem.src = url;
			scriptElem.type = 'text/javascript';
			document.getElementsByTagName('head')[0].appendChild(scriptElem);
		}
		
		if (!this.dynHelpSystem)
		{
			// load help system and this page's help
			var pageId = /DynHelpId-([^\s]+)/.test(helpLink.className) ? RegExp.$1 : null;
			if (pageId){
				loadScript('/vocab/help/help.php?page='+pageId);
			}
		}
		else
		{
			this.dynHelpSystem.start();
		}
		
		Event.stop(e);
		return false;
	},

	/* */
	toggleDisplay: function(id){
		var element = $(id);
		element.style.display = (element.style.display == 'none') ? '' : 'none';
	},

	/* sets html element's alpha transparency level, opacity is a float between 0 and 1 */
	setOpacity:function(div, opacity)
	{
		var itsIE = !!$('ie');
		if (itsIE){
			div.style.filter = 'alpha(opacity='+Math.ceil(opacity*100)+')';
		}
		else{
			div.style.opacity = opacity.toFixed(2);
		}
	},

	/* */
	scrollTop: function(){
		var dx = window.pageXOffset || document.documentElement.scrollLeft || document.body.scrollLeft || 0;
		window.scrollTo(dx,0);
	},
	
	/* cross-browser css :hover pseudo-class */
	addHoverState:function(element){
		if (typeof element == 'string')
			element = $(element);
		dom.addEvent(element, 'mouseover', this.eventElementHoverOver.bindAsEventListener(this) );
		dom.addEvent(element, 'mouseout', this.eventElementHoverOut.bindAsEventListener(this) );
	},
	eventElementHoverOver:function(e){
		var element = Event.element(e);
		CssClass.add(element,'hover');
	},
	eventElementHoverOut:function(e){
		var element = Event.element(e);
		CssClass.remove(element,'hover');
	},
	
	/* re-usable events */
	selectAllOnFocus:function(e){
		this.select();
	}
}

/* ui stuff */


/* event cache & clean for IE memory leaks */

dom.getHiddenParams = function(div)
{
	var i, msgs = div.getElementsByTagName('input');
	var params = { };
	for (i=0; i<msgs.length; i++)
	{
		if (/Js(Data|Form)-(\w+)/.test(msgs[i].className))
		{
			var sType = RegExp.$1;
			var sPropName = RegExp.$2 || alert('dom::getHiddenParams() - Empty property name');
			if (sType==='Data'){
				params[sPropName] = msgs[i].value;
			}
			else {
				if (!params.formData) {
					params.formData = {};
				}
				params.formData[sPropName] = msgs[i].value;
			}
		}
	}
	return params;
};


var EventCache = Class.create();
EventCache.prototype = {
	initialize:function(sId) {
		this.sId = sId;
		this.eCache = [];
	},

	push:function(element, sEventType) {
		this.eCache.push({oElem:element, evType:sEventType});
	},
	
	addEvent:function(element, sEventType, fn)
	{
		element['on'+sEventType] = fn;
		this.push(element, sEventType);
	},

	purge:function() {
		if (this.eCache)
		{
			//console.log('EventCache::purge('+this.sId+') '+this.eCache.length+' events');
			for(var i=this.eCache.length-1; i>=0; i--){
				var evc = this.eCache[i];
				evc.oElem['on'+evc.evType] = null;
			}
			// free up references to the elements
			this.eCache =[];
		}
	}
}


/* uiTable :: enhanced table class with row highlighting */

var uiTable = Class.create();
uiTable.prototype = {
	
	DATAROW_HIGHLIGHT_CLASS: 'hover',		// class applied to table row on hover

	// add mouseover highlight to rows in tables of class "cstp-tabular"
	initialize: function(table)
	{
		//console.log('uiTable::initialize(%o)', table);
		this.evtCache = new EventCache('uiTable');
		var tbody = table.tBodies[0];
		if (tbody){
			dom.delegateEvents(tbody, ["mouseover","mouseout"], this.eventHandler.bindAsEventListener(this));
			this.evtCache.push(tbody, 'mouseover');
			this.evtCache.push(tbody, 'mouseout');
		}
	},
	
	eventHandler:function(e)
	{
		var elem = Event.element(e);
		var row = dom.getParent(elem,'tr');
		var evType = e.type;
		switch(evType){
			case "mouseover": CssClass.add(row, this.DATAROW_HIGHLIGHT_CLASS); break;
			case "mouseout": CssClass.remove(row, this.DATAROW_HIGHLIGHT_CLASS); break;
		}		
	},
	
	destroy:function()
	{
		this.evtCache.purge();
	}
}


var DBG_CONSOLE_ENABLED = false;
var DBG_CONSOLE_ID = 'koohii_console';

// FreBug console debugging ( http://www.joehewitt.com/software/firebug/ )
// If not present (IE/Opera/Safari), dynamically create a div to output messages.
var DBGConsole = {
	debugCounter: 0,
	
	log: function(message)
	{
		if (!DBG_CONSOLE_ENABLED) return;
	    this.debugCounter++;
	
		var found = !!document.getElementById(DBG_CONSOLE_ID);
		if (!found) {
			// create the debugging div
			var d = document.createElement('div');
			d.id = DBG_CONSOLE_ID;
			d.style.position = 'absolute';
			d.style.right = '0';
			d.style.top = '0';
			d.style.width = '300px';
			d.style.border = '2px solid #dc0000';
			d.style.background = '#fff5f5';
			d.style.padding = '5px';
			d.style.font = 'bold 10px Verdana;';
			d.style.textAlign = 'left';
			d.style.color = '#000';
			d.style.font = '12px Courier New, monospace;';
		}
		var t = document.createTextNode(''+this.debugCounter + ': ' + message);
	    var br = document.createElement('br');
		d.appendChild(t);
	    d.appendChild(br);
		if (!found) {
			document.getElementsByTagName('body')[0].appendChild(d);
		}
	},
	profile:function(){},
	profileEnd:function(){},
	time:function(sTimerId){
		this.timerName = sTimerId!==undefined ? sTimerId : '';
		this.startTime = new Date().getTime();
	},
	timeEnd:function(){
		this.endTime = new Date().getTime();
		this.log('profileEnd('+this.timerName+') :: '+(this.endTime-this.startTime)+' msec');
	}
}

if (!console && DBG_CONSOLE_ENABLED)
{
	var console = DBGConsole;
}


dom.addEvent(window,'load',function(){ AppUI.initialize(); });