/**
For purposes of starting to impose a little order, below is a list of DOM modifications:
All form elements with labels link back to them.
All form labels gain an extra empty text node for error text.
window.onload is overridden
All text areas with a maximum length must set it in the variable textLengthLimit  (name picked to avoid collisions)
textarea onchange is currently set to inputCount function if textLengthLimit is set.
**/
if (window.IE===undefined) IE = false;
function _ID(id) {return document.getElementById(id);}
function _NODE(s) {return document.createElement(s); }
var TRIM = new RegExp('^\\s*|\\s*$','g');
var LINNL = new RegExp('([^\r])\n','g');
var LINNL2 = new RegExp('\n\n','g');
var LINNL3 = new RegExp('^\n');
var MACNL = new RegExp('\r([^\n])','g');
var MACNL2 = new RegExp('\r\r','g');
var MACNL3 = new RegExp('\r$');

// this deliberately does not play nice with any existing onload.
window.onload = function() // global window onload
{
    var a = document.getElementsByTagName("a");
    for(var i=0;i<a.length;i++)
        if(hasClass(a[i],"new_window"))
            a[i].onclick = openNew;
    if(opener && !opener.closed)
    {
	    var c = document.getElementsByTagName("button");
	    for(var i=0;i<c.length;i++)
	        if(c[i].name=='cancel_button')
	            c[i].onclick = function(){window.close();return false;}
	}	
    
    if (window.pageWindowOnload) // might be better to just use addEventListener, but I wanted standard locations and ability to override
        pageWindowOnload();
    if (window.pageFormInit)
        pageFormInit();
    globalFormInit();
    /*if (IE)
        fixupIE();*/
}

function openNew()  // _blank + (new Date()).getTime() if unique wanted
{	
	var winName;
	var win;
	if (this.className && (winName = this.className.match(/popup_(\S+)/)).length==2)
		win = window.open(this.href,winName[1],'height=600,width=700,scrollbars=yes,resizable=yes');
	else
	    win = window.open(this.href,"_blank")  // ... or, as noted. "_blank"+(+new Date)

	return !!!win;
}

function globalFormInit()
{
    // link all form elements back to their labels for javascript errors
    var l = document.getElementsByTagName("label");
    var eid;
    var e;
    var t;
    for(var i=0;i<l.length;i++)
    {
        if (l[i].htmlFor)  // used getAttribute originally. which of course is broken in IE. shocking.
        {
            e = _ID(l[i].htmlFor);
            if (!e) { alert("Invalid and non-508 HTML - the label with the value of: "+l[i].htmlFor+" does not match any element on the page"); continue; }
            if (e.getAttribute("maxlength") && !e.disableMaxLengthDisplay)
                e.textLengthLimit = parseInt(e.getAttribute("maxlength"),10);

			// IE8 has this issue too. 
            //if (IE && e.textLengthLimit > 1000000) // IE is kind of an idiot about this, looks like it sets it to some maxint value, but not going to take its word for it
            if (e.textLengthLimit > 1000000)
                e.textLengthLimit = null;

            t = document.createTextNode("");
            e.errorText = l[i].appendChild(t);
            e.labelRef = l[i];
            if (e.textLengthLimit!==undefined)
                if (e.nodeName.toLowerCase()=='textarea')
                    e.onkeyup = inputCount;

            // used to start lines with * to require them - could possibly handle both
            if (l[i].firstChild.data.charAt(0)=="*" && e.isRequired===undefined)
                e.isRequired = true;
            else if (l[i].firstChild.data.indexOf("(required)")!=-1 && e.isRequired===undefined)
            {
                l[i].firstChild.data = l[i].firstChild.data.replace(/\s*\(required\)/,'');
                e.isRequired = true;
            }

            if (e.isRequired)  // set HTML5 required based on form validation required
            {
                e.required = true;
                e.mozErrorMessage = "This field is required";
            }

            setErrorDefault(e);
        }
    }
}
function getXHR()
{
	var xhr;
	try { xhr=new XMLHttpRequest(); } // necessary due to IE7 not responding properly to an XMLHttpRequest defined check
	catch (e)
	{
		try { xhr=new ActiveXObject("Msxml2.XMLHTTP"); } 
		catch (e)
		{
			try { xhr=new ActiveXObject("Microsoft.XMLHTTP"); } 
			catch (e) { xhr = false; }                                                                                                                      
		}
	}
	return xhr;
}


function removeClass(e,c)
{
	if(!e) return;
    if (e.classList) 
        e.classList.remove(c);
    else
    {
        if (!e.className) return;
        e.className = e.className.replace(new RegExp("(^|\\s+)"+c),'');
    }
}
function addClass(e,c)
{
	if(!e) return;
    if (e.classList) 
        e.classList.add(c);
    else
    {
        if (!e.className)
            e.className = c;
        else if (!hasClass(e,c))
            e.className += " "+c;
    }
}

function hasClass(e,c)
{
	if(!e) return;
    if (e.classList) return e.classList.contains(c);
    if (!e.className)
        return false;
    if (e.className==c)
        return true;

    return (new RegExp("(^|\\s+)"+c+"(\\s+|$)")).test(e.className);
    //return (new RegExp("(^|\\s+)"+(c.replace(/([.?*+^$[\]\\(){}-])/g, "\\$1"))+"(\\s+|$)")).test(e.className);
}

function toggleClass(e,c)
{
	if(!e) return;
    if (e.classList)
        e.classList.toggle(c);
    else
    {
        if (hasClass(e,c)) removeClass(e,c);
        else addClass(e,c);
    }
}

// does not concatenate child text nodes.
// might be a good idea.
function highlight(n,txt,matchCase) // parent. assumed to be all text node children.
{
	var a = [];
	var str;
	var pos;
	if (!matchCase)
		txt = txt.toUpperCase();
	for(var i=0;i<n.childNodes.length;i++) a.push(n.childNodes[i]);	
	for(var i=0;i<a.length;i++)
	{
		var orig = a[i].data;
		if(orig===undefined) continue; // IE8 bug
		if(!matchCase)
			str = orig.toUpperCase();
		else
			str = orig;
		var pos = str.indexOf(txt);
		var currNode = a[i];
		var prevPos = 0;
		var highlight; // highlight span
		var remain;  // remaining text
		while (pos!=-1) 
		{
			highlight = _NODE("strong");
			highlight.className="highlight";
			highlight.appendChild(document.createTextNode(orig.substr(pos,txt.length)));
			currNode.data = orig.substr(prevPos,pos-prevPos);
			currNode.parentNode.insertBefore(highlight,currNode.nextSibling);
			currNode = document.createTextNode(orig.substr(pos+txt.length));
			highlight.parentNode.insertBefore(currNode,highlight.nextSibling);
			prevPos = pos+txt.length;
			// store original string and just use that for substring? might be faster.			
			pos = str.indexOf(txt,pos+txt.length);
		}
	}
}

function delayedReload(x)
{
  	setTimeout(function() { window.location.reload(true) }, x);
}
function closeRefresh()
{
  if (opener && !opener.closed) 
  	opener.delayedReload(500);

  close();
}

/******************** general form manipulation *******************************/

function inputCount()
{
  txt = dosnl(this.value);

  this.errorText.data = ' ('+txt.length+' of '+this.textLengthLimit+')';
  if(txt.length>this.textLengthLimit) this.errorText.data+='!!!';
}

// can't do as a prototype due to a flaw in IE
function formValue(e)
{
    if(!e) return null;

    if (e.options)
    {
        if (e.selectedIndex==-1)
            return null;
        else
            return e.options[e.selectedIndex].value;
    }
    else if (e.length)
    {
        for(var i=0;i<e.length;i++)
            if(e[i].checked) return e[i].value;
    }
    else if (e.type.toLowerCase()=="checkbox" && !e.checked) // support single select checkboxes
        return null;
    else
        return e.value;
}

function setSelected(s,v,f) // only supports single select
{
    var n = parseInt(v);
    if (s.options)
    {
        for(var i=0;i<s.options.length;i++)
            if (((n||n==0) && n==parseInt(s.options[i].value,10))||s.options[i].value==v)
            {
                s.selectedIndex = i;
				if (f && s.onchange) s.onchange(); // note, this does not notify event listeners...
                return;
            }
    }
    else
        for(var i=0;i<s.length;i++)
            if (((n||n==0) && n==parseInt(s[i].value,10))||s[i].value==v)
                s[i].checked = true;
            else
                s[i].checked = false;

	if (f && s.onchange) s.onchange();
}

// putting this into String prototype didn't work out too well in FF
function dosnl(s) { return s.replace(LINNL,'$1\r\n').replace(LINNL2,'\n\r\n').replace(LINNL3,'\r\n').replace(MACNL,'\r\n$1').replace(MACNL2,'\r\n\r').replace(MACNL3,'\r\n');}

/***************** Prototype extensions **********************/
// this is a partial adaptation of the demoroniser.pl - more can be added if necessary
// define the bad characters
var SMART_DOUBLE_QUOTES    = new RegExp( '[\u201C\u201D]', 'g' );
var SMART_SINGLE_QUOTES    = new RegExp( '[\u2018\u2019]', 'g' );
var SMART_ELLIPSIS = new RegExp('[\u2026\x85]', 'g');
var SMART_DASHES = new RegExp('[\u2013\u2014]', 'g');
var SMART_BULLET = new RegExp('[\u8226\u8227\u8228\x95\u2022]','g');
String.prototype.demoronise = function()
{
   var str = this.toString();
   str = str.replace(SMART_DOUBLE_QUOTES, '"');
   str = str.replace(SMART_SINGLE_QUOTES, '\'');
   str = str.replace(SMART_ELLIPSIS, '...');
   str = str.replace(SMART_DASHES, '--');
   str = str.replace(SMART_BULLET, '*');
   return str;
}
String.prototype.trim = function() { return this.toString().replace(TRIM,''); }

/***************************** Print Preview **************************/
var printPopup; /* popup window, initially loaded with blank page */

function applyPrint()
{
    var c; // new stylesheet
    var h; // head node
    var l; // nodelist of links
    var a = []; // various stuff we're wiping
    var j;
    var x;
// Safari/Chrome/Webkit bug in import of CDATA
// https://bugs.webkit.org/show_bug.cgi?id=35130
// REMOVE THIS WHEN FIXED
try
{
    x  = printPopup.document.importNode(document.documentElement,true);
}
catch(e) {}
//    if(!printPopup.document.importNode) // IE which has its own weird rules
	if(!x)
    {
    	printPopup.getComputedStyle = window.getComputedStyle;

    	// call the HTML5 fixup again. 
        //(function(){if(!/*@cc_on!@*/0)return;var e = "abbr,article,aside,audio,bb,canvas,datagrid,datalist,details,dialog,eventsource,figure,footer,header,mark,menu,meter,nav,output,progress,section,time,video".split(','),i=e.length;while (i--){printPopup.document.createElement(e[i])}})();
        printPopup.document.body.innerHTML = document.body.innerHTML;
        
        h = printPopup.document.getElementsByTagName('head')[0];
        l = document.getElementsByTagName('link');
        for (j=0;j<l.length;j++)
        {
            if (l[j].media=='print')
            {
                c = printPopup.document.createElement('link');
                c.type='text/css';
                c.rel='stylesheet';
                c.href=l[j].href;
                h.appendChild(c);
            }
        }
        l = document.getElementsByTagName('style');
        for (j=0;j<l.length;j++)
        { 
            //if (!l[j].media || l[j].media=='print')
            if (l[j].media=='print')
            {
                c = printPopup.document.createElement('style');
                c.type='text/css';
                c.innerHTML = l[j].innerHTML;  // is IE. whatever.
                h.appendChild(c);
            }
        }
    }
    else
    {
//        var x  = printPopup.document.importNode(document.documentElement,true);
        var n  = printPopup.document.documentElement;
        var np = n.parentNode;
        np.removeChild(n);  /* using replaceChild is sometimes buggy when replacing entire doc */
        np.appendChild(x);


        l = printPopup.document.getElementsByTagName('link');
        for (j=0;j!=l.length;j++)
            a.push(l[j]);
        for(j=0;j!=a.length;j++)
        {
            if(a[j].media=='screen')
                a[j].parentNode.removeChild(a[j])
            else if(a[j].media=='print')
            {
                a[j].removeAttribute('media');
                t = a[j].parentNode;
                t.removeChild(a[j]);
                t.appendChild(a[j]);
            }
        }
    }
    var e = printPopup.document.getElementsByTagName("a");
    a.length = 0;
    for (j=0;j!=e.length;j++)
    	if(!hasClass(e[j],"button"))
	        a.push(e[j]);
try
{
    for(j=0;j!=a.length;j++)
    {
        while(a[j].childNodes.length)
            a[j].parentNode.insertBefore(a[j].firstChild,a[j]);
        a[j].parentNode.removeChild(a[j]);
    }
    
    a.length = 0;
    
    printPopup.chkStyled = setInterval(function() 
    		{ 
try
{
    			checkStyled(printPopup.document.getElementById("footer"), function()
    					{
    						var e;var j;var a = [];
    						e = printPopup.document.body.getElementsByTagName("*");
    						for(j=0;j<e.length;j++) a.push(e[j]);
    						for(j=0;j<a.length;j++)
    							if(a[j] && a[j].parentNode && /none/.test(printPopup.getComputedStyle(a[j],null).getPropertyValue("display")))
    								a[j].parentNode.removeChild(a[j]);
    					});
}
catch(e) { } // more IE fail
    		},50);

    printPopup.document.title = document.title;
}
catch(e) { } // Stupidity to swallow stupid IE error that means nothing at all because IE has a broken permissions model.
/*    chk = setInterval(function() { checkLoaded('print_preview',function() { printPopup.print(); }) },1000);*/
}

/* check for existence of element on popup, then invoke callback.
Needed since onload cannot be reliably used */
function checkLoaded(name,callback)
{
    //if(printPopup && printPopup.document && printPopup.body)
    if(printPopup.document.getElementById(name))
    {
        clearInterval(printPopup.chkLoad);
        callback();
    }
}
// Checks that the new stylesheets have been applied to the popup
function checkStyled(elem, callback)
{
    if(/none/.test(printPopup.getComputedStyle(elem,null).getPropertyValue("display")))
    {
        clearInterval(printPopup.chkStyled);
        callback();
    }

}

function printPreview()
{
    printPopup = window.open('','printable','width=850,height=768,resizable=yes,scrollbars=yes,menubar=yes');
    printPopup.document.write('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"><html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en"><head><title>loading</title><meta http-equiv="Content-Type" content="application/xhtml+xml; charset=utf-8" /></head><body><div id="blank" /></body></html>');
    printPopup.document.close();
    // This is probably no longer needed now that it is written in JS
    printPopup.chkLoad = setInterval(function() { checkLoaded('blank', applyPrint) },50);
}

/***************************** End Print Preview **************************/