From 04852c9dc86c1238c855eec721ee61a50d24b435 Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Tue, 2 May 2006 03:30:34 +0000
Subject: [PATCH] dhtml modal popups.

---
 www/extras/js/modal/modal.js | 339 +++++++++++++++++++++++++++++++++++
 1 file changed, 339 insertions(+)
 create mode 100644 www/extras/js/modal/modal.js

diff --git a/www/extras/js/modal/modal.js b/www/extras/js/modal/modal.js
new file mode 100644
index 000000000..5714560cf
--- /dev/null
+++ b/www/extras/js/modal/modal.js
@@ -0,0 +1,339 @@
+/**
+ * COMMON DHTML FUNCTIONS
+ * These are handy functions I use all the time.
+ *
+ * By Seth Banks (webmaster at subimage dot com)
+ * http://www.subimage.com/
+ *
+ * Up to date code can be found at http://www.subimage.com/dhtml/
+ *
+ * This code is free for you to use anywhere, just keep this comment block.
+ */
+
+/**
+ * X-browser event handler attachment and detachment
+ * TH: Switched first true to false per http://www.onlinetools.org/articles/unobtrusivejavascript/chapter4.html
+ *
+ * @argument obj - the object to attach event to
+ * @argument evType - name of the event - DONT ADD "on", pass only "mouseover", etc
+ * @argument fn - function to call
+ */
+function addEvent(obj, evType, fn){
+ if (obj.addEventListener){
+    obj.addEventListener(evType, fn, false);
+    return true;
+ } else if (obj.attachEvent){
+    var r = obj.attachEvent("on"+evType, fn);
+    return r;
+ } else {
+    return false;
+ }
+}
+function removeEvent(obj, evType, fn, useCapture){
+  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");
+  }
+}
+
+/**
+ * Code below taken from - http://www.evolt.org/article/document_body_doctype_switching_and_more/17/30655/
+ *
+ * Modified 4/22/04 to work with Opera/Moz (by webmaster at subimage dot com)
+ *
+ * Gets the full width/height because it's different for most browsers.
+ */
+function getViewportHeight() {
+	if (window.innerHeight!=window.undefined) return window.innerHeight;
+	if (document.compatMode=='CSS1Compat') return document.documentElement.clientHeight;
+	if (document.body) return document.body.clientHeight; 
+	return window.undefined; 
+}
+function getViewportWidth() {
+	if (window.innerWidth!=window.undefined) return window.innerWidth; 
+	if (document.compatMode=='CSS1Compat') return document.documentElement.clientWidth; 
+	if (document.body) return document.body.clientWidth; 
+	return window.undefined; 
+}
+
+
+
+/**
+ * POPUP WINDOW CODE v1.1
+ * Used for displaying DHTML only popups instead of using buggy modal windows.
+ *
+ * By Seth Banks (webmaster at subimage dot com)
+ * http://www.subimage.com/
+ *
+ * Contributions by Eric Angel (tab index code) and Scott (hiding/showing selects for IE users)
+ *
+ * Up to date code can be found at http://www.subimage.com/dhtml/subModal
+ *
+ * This code is free for you to use anywhere, just keep this comment block.
+ */
+
+// Popup code
+var gPopupMask = null;
+var gPopupContainer = null;
+var gPopFrame = null;
+var gReturnFunc;
+var gPopupIsShown = false;
+
+var gHideSelects = false;
+
+
+var gTabIndexes = new Array();
+// Pre-defined list of tags we want to disable/enable tabbing into
+var gTabbableTags = new Array("A","BUTTON","TEXTAREA","INPUT","IFRAME");	
+
+// If using Mozilla or Firefox, use Tab-key trap.
+if (!document.all) {
+	document.onkeypress = keyDownHandler;
+}
+
+
+
+/**
+ * Initializes popup code on load.	
+ */
+function initPopUp(closeImage) {
+	// Add the HTML to the body
+	body = document.getElementsByTagName('body')[0];
+	popmask = document.createElement('div');
+	popmask.id = 'popupMask';
+	popcont = document.createElement('div');
+	popcont.id = 'popupContainer';
+	popcont.innerHTML = '' +
+		'<div id="popupInner">' +
+			'<div id="popupTitleBar">' +
+				'<div id="popupTitle"></div>' +
+				'<div id="popupControls">' +
+					'<img src="'+closeImage+'" onclick="hidePopWin(false);" />' +
+				'</div>' +
+			'</div>' +
+			'<div id="popupFrame"></div>' +
+		'</div>';
+	body.appendChild(popmask);
+	body.appendChild(popcont);
+	
+	gPopupMask = document.getElementById("popupMask");
+	gPopupContainer = document.getElementById("popupContainer");
+	gPopFrame = document.getElementById("popupFrame");	
+	
+	// check to see if this is IE version 6 or lower. hide select boxes if so
+	// maybe they'll fix this in version 7?
+	var brsVersion = parseInt(window.navigator.appVersion.charAt(0), 10);
+	if (brsVersion <= 6 && window.navigator.userAgent.indexOf("MSIE") > -1) {
+		gHideSelects = true;
+	}
+	
+	// Add onclick handlers to 'a' elements of class submodal or submodal-width-height
+	var elms = document.getElementsByTagName('a');
+	for (i = 0; i < elms.length; i++) {
+		if (elms[i].className.indexOf("submodal") == 0) { 
+			// var onclick = 'function (){showPopWin(\''+elms[i].href+'\','+width+', '+height+', null);return false;};';
+			// elms[i].onclick = eval(onclick);
+			elms[i].onclick = function(){
+				// default width and height
+				var width = 400;
+				var height = 200;
+				// Parse out optional width and height from className
+				params = this.className.split('-');
+				if (params.length == 3) {
+					width = parseInt(params[1]);
+					height = parseInt(params[2]);
+				}
+				showPopWin(this.href,width,height,null); return false;
+			}
+		}
+	}
+}
+
+
+ /**
+	* @argument width - int in pixels
+	* @argument height - int in pixels
+	* @argument url - url to display
+	* @argument returnFunc - function to call when returning true from the window.
+	*/
+
+function showPopWin(url, width, height, returnFunc) {
+	gPopupIsShown = true;
+	disableTabIndexes();
+	gPopupMask.style.display = "block";
+	gPopupContainer.style.display = "block";
+	// calculate where to place the window on screen
+	centerPopWin(width, height);
+	
+	var titleBarHeight = parseInt(document.getElementById("popupTitleBar").offsetHeight, 10);
+	
+	gPopupContainer.style.width = width + "px";
+	gPopupContainer.style.height = (height+titleBarHeight) + "px";
+	// need to set the width of the iframe to the title bar width because of the dropshadow
+	// some oddness was occuring and causing the frame to poke outside the border in IE6
+	gPopFrame.style.width = parseInt(document.getElementById("popupTitleBar").offsetWidth, 10) + "px";
+	gPopFrame.style.height = (height) + "px";
+	
+	// set the url
+	
+	var popupFiller = AjaxRequest.get(
+		{
+			'url':url
+			,'onSuccess':function(req){
+				gPopFrame.innerHTML = req.responseText;
+			}
+		}
+	);
+
+	gReturnFunc = returnFunc;
+	// for IE
+	if (gHideSelects == true) {
+		hideSelectBoxes();
+	}
+	
+	window.setTimeout("setPopTitle();", 600);
+}
+
+//
+var gi = 0;
+function centerPopWin(width, height) {
+	if (gPopupIsShown == true) {
+		if (width == null || isNaN(width)) {
+			width = gPopupContainer.offsetWidth;
+		}
+		if (height == null) {
+			height = gPopupContainer.offsetHeight;
+		}
+		
+		var fullHeight = getViewportHeight();
+		var fullWidth = getViewportWidth();
+		
+		var theBody = document.documentElement;
+		
+		var scTop = parseInt(theBody.scrollTop,10);
+		var scLeft = parseInt(theBody.scrollLeft,10);
+		
+		gPopupMask.style.height = fullHeight + "px";
+		gPopupMask.style.width = fullWidth + "px";
+		gPopupMask.style.top = scTop + "px";
+		gPopupMask.style.left = scLeft + "px";
+		
+		window.status = gPopupMask.style.top + " " + gPopupMask.style.left + " " + gi++;
+		
+		var titleBarHeight = parseInt(document.getElementById("popupTitleBar").offsetHeight, 10);
+		
+		gPopupContainer.style.top = (scTop + ((fullHeight - (height+titleBarHeight)) / 2)) + "px";
+		gPopupContainer.style.left =  (scLeft + ((fullWidth - width) / 2)) + "px";
+		//alert(fullWidth + " " + width + " " + gPopupContainer.style.left);
+	}
+}
+addEvent(window, "resize", centerPopWin);
+//addEvent(window, "scroll", centerPopWin);
+window.onscroll = centerPopWin;
+
+/**
+ * @argument callReturnFunc - bool - determines if we call the return function specified
+ * @argument returnVal - anything - return value 
+ */
+function hidePopWin(callReturnFunc) {
+	gPopupIsShown = false;
+	restoreTabIndexes();
+	if (gPopupMask == null) {
+		return;
+	}
+	gPopupMask.style.display = "none";
+	gPopupContainer.style.display = "none";
+//	if (callReturnFunc == true && gReturnFunc != null) {
+//		gReturnFunc(window.frames["popupFrame"].returnVal);
+//	}
+//	gPopFrame.src = 'loading.html';
+	// display all select boxes
+	if (gHideSelects == true) {
+		displaySelectBoxes();
+	}
+}
+
+/**
+ * Sets the popup title based on the title of the html document it contains.
+ * Uses a timeout to keep checking until the title is valid.
+ */
+function setPopTitle() {
+	if (window.frames["popupFrame"].document.title == null) {
+		window.setTimeout("setPopTitle();", 10);
+	} else {
+		document.getElementById("popupTitle").innerHTML = window.frames["popupFrame"].document.title;
+	}
+}
+
+// Tab key trap. iff popup is shown and key was [TAB], suppress it.
+// @argument e - event - keyboard event that caused this function to be called.
+function keyDownHandler(e) {
+    if (gPopupIsShown && e.keyCode == 9)  return false;
+}
+
+// For IE.  Go through predefined tags and disable tabbing into them.
+function disableTabIndexes() {
+	if (document.all) {
+		var i = 0;
+		for (var j = 0; j < gTabbableTags.length; j++) {
+			var tagElements = document.getElementsByTagName(gTabbableTags[j]);
+			for (var k = 0 ; k < tagElements.length; k++) {
+				gTabIndexes[i] = tagElements[k].tabIndex;
+				tagElements[k].tabIndex="-1";
+				i++;
+			}
+		}
+	}
+}
+
+// For IE. Restore tab-indexes.
+function restoreTabIndexes() {
+	if (document.all) {
+		var i = 0;
+		for (var j = 0; j < gTabbableTags.length; j++) {
+			var tagElements = document.getElementsByTagName(gTabbableTags[j]);
+			for (var k = 0 ; k < tagElements.length; k++) {
+				tagElements[k].tabIndex = gTabIndexes[i];
+				tagElements[k].tabEnabled = true;
+				i++;
+			}
+		}
+	}
+}
+
+
+/**
+* Hides all drop down form select boxes on the screen so they do not appear above the mask layer.
+* IE has a problem with wanted select form tags to always be the topmost z-index or layer
+*
+* Thanks for the code Scott!
+*/
+function hideSelectBoxes() {
+	for(var i = 0; i < document.forms.length; i++) {
+		for(var e = 0; e < document.forms[i].length; e++){
+			if(document.forms[i].elements[e].tagName == "SELECT") {
+				document.forms[i].elements[e].style.visibility="hidden";
+			}
+		}
+	}
+}
+
+/**
+* Makes all drop down form select boxes on the screen visible so they do not reappear after the dialog is closed.
+* IE has a problem with wanted select form tags to always be the topmost z-index or layer
+*/
+function displaySelectBoxes() {
+	for(var i = 0; i < document.forms.length; i++) {
+		for(var e = 0; e < document.forms[i].length; e++){
+			if(document.forms[i].elements[e].tagName == "SELECT") {
+			document.forms[i].elements[e].style.visibility="visible";
+			}
+		}
+	}
+}
+