// aimsClick.js
/*
*  JavaScript template file for ArcIMS HTML Viewer
*		dependent on aimsXML.js, ArcIMSparam.js, aimsCommon.js, aimsMap.js,
*		aimsLayers.js, aimsDHTML.js
*		aimsNavigation.js
*/

aimsClickPresent=true;

var onOVArea = false;




//DL perimeter measure variables for polygon area
//---------------------------------------------------
  var totalPerimMeasure = 0;
  var currentPerimMeasure = 0;
  var lastPerimTotMeasure = 0;

//DL polygon area variables
//-----------------------------
var clickPolyAreaCount = 0;
var clickPolyAreaX = new Array();
var clickPolyAreaY = new Array();
var clickPerimMeasure = new Array();

// Global vars to save mouse position
var mouseX=0;
var mouseY=0;
var x1=0;
var y1=0;
var x2=0;
var y2=0;
var zleft=0;
var zright=0;
var ztop=0;
var zbottom=0;

var totalMeasure=0;
var currentMeasure=0;
var lastTotMeasure=0;

// variables for interactive clicks
var clickCount = 0;
var	clickPointX = new Array();
var clickPointY = new Array();
var clickMeasure = new Array();
	// type - 1=Measure; 2=SelectLine ; 3=SelectPolygon
var clickType = 1;

var shapeSelectBuffer = false;

var panning=false;
var zooming=false;
var selectBox=false;
var blankImage = "images/map.gif";

var leftButton =1;
var rightButton = 2;
if (isNav) {
	leftButton = 1;
	rightButton = 3;
}


/*  *****************************************************
*	Point click functions
* 	used by Measure and Select by Line/Polygon
*	*****************************************************
*/

// put a point at click and add to clickCount
function clickAddPoint() {
	var theX = mouseX;
	var theY = mouseY;
	getMapXY(theX,theY);
	clickPointX[clickCount]=mapX;
	clickPointY[clickCount]=mapY;
	clickCount += 1;
	selectCount=0;
	totalMeasure = totalMeasure + currentMeasure;
		//var u = Math.pow(10,numDecimals);
		//if (totalMeasure!=0) totalMeasure = parseInt(totalMeasure*u+0.5)/u;

	clickMeasure[clickCount]=totalMeasure;
	legendTemp=legendVisible;
	legendVisible=false;
	var theString = writeXML();
	var theNum = 99;
	sendToServer(imsURL,theString,theNum);

}

// zero out all clicks in clickCount
function resetClick() {
	var c1 = clickCount;
	clickCount=0;
	clickPointX.length=1;
	clickPointY.length=1;
	currentMeasure=0;
	totalMeasure=0;
	lastTotMeasure=0;
	clickMeasure.length=1;
	selectCount=0;
	
	legendTemp=legendVisible;
	legendVisible=false;
	var theString = writeXML();
	var theNum = 99;
		//showRetrieveMap();
	sendToServer(imsURL,theString,theNum);
		
	if (toolMode==20) updateMeasureBox();

}	

// remove last click from clickCount
function deleteClick() {
	var c1 = clickCount;
	clickCount=clickCount-1;
	selectCount=0;
	if (clickCount<0) clickCount=0;
	if (clickCount>0) {
		totalMeasure = clickMeasure[clickCount]
		clickPointX.length=clickCount;
		clickPointY.length=clickCount;
		clickMeasure.length=clickCount;
		
	} else {
		totalMeasure=0;
		clickMeasure[0]=0;
	}
	currentMeasure=0;
	if (c1>0) {
		legendTemp=legendVisible;
		legendVisible=false;
		var theString = writeXML();
		var theNum = 99;
		sendToServer(imsURL,theString,theNum);
	}
	
}


//keep track of currently selected tool, and display it to user
// set the imsMap cursor tool
function clickFunction (toolName) {

	alert(toolName)
	if (hasLayer("measureBox"))
		hideLayer("measureBox");
	switch(toolName) {
	// Zooming functions
	case "zoomin":
		// zoom in mode
		toolMode = 1;
		panning=false;
		selectBox=false;
		if (isIE)	{
			document.all.theTop.style.cursor = "crosshair";
			theCursor = document.all.theTop.style.cursor;
		}
		modeBlurb = modeList[0];
		
		//SHOW HELP IF REQUIRED
		if (parent.MapFrame.showHelp==true)
		{
			parent.TextFrame.location = "help.html#Zoomin";
		}
		
		//if (useTextFrame) parent.TextFrame.document.location= appDir + "text.htm";
		break
	case "zoomout":
		// zoom out mode
		toolMode = 2;
		panning=false;
		selectBox=false;
		if (isIE)	{
			document.all.theTop.style.cursor = "crosshair";
			theCursor = document.all.theTop.style.cursor;
		}
		modeBlurb = modeList[1];

		//SHOW HELP IF REQUIRED
		if (parent.MapFrame.showHelp==true)
		{
			parent.TextFrame.location = "help.html#ZoomOut";
		}
		
		//if (useTextFrame) parent.TextFrame.document.location= appDir + "text.htm";
		break
	case "zoomlast":
		zoomBack();
		panning=false;
		zooming=false;
		selectBox=false;
		break
	case "zoomactive":
		//alert(LayerExtent[ActiveLayerIndex]);
		var q = LayerExtent[ActiveLayerIndex].split("|");
		panning=false;
		zooming=false;
		selectBox=false;
		//zoomToEnvelope(parseFloat(q[0]),parseFloat(q[1]),parseFloat(q[2]),parseFloat(q[3]));
		
		var l = parseFloat(setDecimalString(q[0]));
		var b = parseFloat(setDecimalString(q[1]));
		var r = parseFloat(setDecimalString(q[2]));
		var t = parseFloat(setDecimalString(q[3]));
		var w = r-l;
		var h = t-b;
		// add a bit of a margin around the layer
		var wm = w * (5/100);
		var hm = h * (5/100);
		l = l - wm;
		r = r + wm;
		b = b - hm;
		t = t + hm;
		zoomToEnvelope(l,b,r,t);
		break
	case "fullextent":
		
		//parent.MapFrame.getStartExtent();
		fullExtent();
		break
		
	// Pan functions
	case "pan":
		// pan mode
		toolMode = 3;
		
		zooming=false;
		selectBox=false;
		if (isIE)	{
			document.all.theTop.style.cursor = "move";
			theCursor = document.all.theTop.style.cursor;
		}
		modeBlurb = modeList[2];
		//if (useTextFrame) parent.TextFrame.document.location= appDir + "text.htm";
		
		//SHOW HELP IF REQUIRED
		if (parent.MapFrame.showHelp==true)
		{
			parent.TextFrame.location = "help.html#Pan";
		}

		break

	// Identify-Hyperlink functions
	case "identify":
		// identify mode - layer attributes - requires aimsIdentify.js
		panning=false;
		zooming=false;
		selectBox=false;
		shapeSelectBuffer = false;
		if (canQuery) {
			toolMode = 4;
			
			if (isIE)	{
				document.all.theTop.style.cursor = "crosshair";
				theCursor = document.all.theTop.style.cursor;
			}
			modeBlurb = modeList[3];
		} else {
			alert(msgList[46]);
		}
		//alert("Function Not Implemented");
		
		
		
		showGeocode=false;
		//if (useTextFrame) parent.TextFrame.document.location= appDir + "text.htm";
		hideLayer("measureBox");

		//SHOW HELP IF REQUIRED
		if (parent.MapFrame.showHelp==true)
		{
			parent.TextFrame.location = "help.html#identify";
		}
		
		var theActiveLayerMsg = parent.MapFrame.LayerName[ActiveLayerIndex]
		//alert("The active layer is currently: ''" + theActiveLayerMsg + "''.\n\nPlease choose a different active layer if required")
		alert("Please set the active layer")
		
		break

	case "identifyall":
		// identify drill mode
		panning=false;
		zooming=false;
		selectBox=false;
		shapeSelectBuffer = false;
		toolMode = 5;
		if (canQuery) {
			if (isIE)	{
				document.all.theTop.style.cursor = "crosshair";
				theCursor = document.all.theTop.style.cursor;
			}
			//modeBlurb = modeList[19]; // identify all
			modeBlurb = modeList[20]; // identify visible features
			//modeBlurb = modeList[3]; // identify
		} else {
			alert(msgList[46]);
		}
		//alert("Function Not Implemented");
		showGeocode=false;
		drawSelectBoundary=false;
		if (useTextFrame) parent.TextFrame.document.location= appDir + "text.htm";
		hideLayer("measureBox");
		break
	case "hyperlink":
		// hyperlink mode - requires aimsIdentify.js
		var isOk = false;
		var j=-1;
		panning=false;
		zooming=false;
		selectBox=false;
		shapeSelectBuffer = false;
		toolMode = 15;
		modeBlurb = modeList[9];
		showGeocode=false;
		if (useTextFrame) parent.TextFrame.document.location= appDir + "text.htm";
		hideLayer("measureBox");
		var isOk = checkHyperLinkLayer(ActiveLayerIndex)
		if (isOk) {
			if (canQuery) {
				
				
				if (isIE)	{
					document.all.theTop.style.cursor = "crosshair";
					theCursor = document.all.theTop.style.cursor;
				}
				
			} else {
				alert(msgList[46]);
			}
			//alert("Function Not Implemented");
		} else {
			currentHyperLinkLayer="";
			currentHyperLinkField="";
			alert(msgList[47]);

		}
		break
		
	case "hyperlinkany":
		// hyperlink mode - requires aimsIdentify.js
		var j=-1;
		panning=false;
		zooming=false;
		selectBox=false;
		shapeSelectBuffer = false;
		toolMode = 30;
		modeBlurb = modeList[9];
		showGeocode=false;
		if (useTextFrame) parent.TextFrame.document.location= appDir + "text.htm";
		hideLayer("measureBox");
			if (canQuery) {
				
				
				if (isIE)	{
					document.all.theTop.style.cursor = "crosshair";
					theCursor = document.all.theTop.style.cursor;
				}
				
			} else {
				alert(msgList[46]);
			}
			//alert("Function Not Implemented");
		break
		
	// Measure-Unit function
	case "measure":
	
		//SHOW HELP IF REQUIRED
		if (parent.MapFrame.showHelp==true)
		{
			//parent.TextFrame.location = "help.html#Mes";
		}
	    		
		panning=false;
		zooming=false;
		selectBox=false;
		shapeSelectBuffer = false;
		if (clickCount>0) {
			if (totalMeasure==0) resetClick();
		}
		toolMode = 20;
		if (isIE)	{
			document.all.theTop.style.cursor = "crosshair";
			theCursor = document.all.theTop.style.cursor;
		}
		modeBlurb = modeList[12];
		if (clickType==1) {
			//if (useTextFrame) parent.TextFrame.location= appDir + "measure.htm";
				showLayer("measureBox");
				updateMeasureBox();
		}
		showGeocode=false;
		break
		
	case "setunits":
		if (useTextFrame) {
			parent.TextFrame.location = "setUnits.htm";
		} else {
			window.open((appDir + "setUnits.htm"),"OptionWindow","width=575,height=120,scrollbars=yes,resizable=yes");
		}
		break
		
	// Graphic Selection functions
	case "shape":
		panning=false;
		zooming=false;
		selectBox=false;
		shapeSelectBuffer = false;
		toolMode = 21;
		if (isIE)	{
			document.all.theTop.style.cursor = "crosshair";
			theCursor = document.all.theTop.style.cursor;
		}

		modeBlurb = modeList[13];
	
		showGeocode=false;

		hideLayer("measureBox");
		break
		
	case "selectbox":
		panning=false;
		zooming=false;
		// select mode - requires aimsSelect.js
		if (canQuery) {
			toolMode = 10;
			queryTool=0;
			clickCount=0;
			showBuffer=false;
			if (isIE)	{
				document.all.theTop.style.cursor = "crosshair";
				theCursor = document.all.theTop.style.cursor;
			}

			modeBlurb = modeList[4];
		} else {
			alert(msgList[46]);
		}
		//alert("Function Not Implemented");
		showGeocode=false;
		if (useTextFrame) parent.TextFrame.document.location= appDir + "text.htm";
		hideLayer("measureBox");
		break
		
	case "selectpoint":
		panning=false;
		zooming=false;
		shapeSelectBuffer = false;
		// select mode - requires aimsSelect.js
		if (canQuery) {
			toolMode = 11;
			queryTool=0;
			clickCount=0;
			 resetClick();
			if (isIE)	{
				document.all.theTop.style.cursor = "hand";
				theCursor = document.all.theTop.style.cursor;
			}

			modeBlurb = modeList[5];
		} else {
			alert(msgList[46]);
		}
		//alert("Function Not Implemented");
		showGeocode=false;
		showBuffer=false;
		hideLayer("measureBox");
		break
		
	case "selectline":
		panning=false;
		zooming=false;
		shapeSelectBuffer = false;
		// select mode - requires aimsSelect.js
		if (canQuery) {
			toolMode = 12;
			queryTool=0;
			if (isIE)	{
				document.all.theTop.style.cursor = "crosshair";
				theCursor = document.all.theTop.style.cursor;
			}
			hideLayer("measureBox");
			if (useTextFrame) {
				parent.TextFrame.document.location= appDir + "selectline.htm";
			} else {
				Win1 = open("selectline.htm","QueryWindow","width=575,height=150,scrollbars=yes,resizable=yes");
			}
			modeBlurb = modeList[6];
		} else {
			alert(msgList[46]);
		}
		//alert("Function Not Implemented");
		showGeocode=false;
		showBuffer=false;
		break
		
	case "selectpoly":
		panning=false;
		zooming=false;
		shapeSelectBuffer = false;
		// select mode - requires aimsSelect.js
		if (canQuery) {
			toolMode = 13;
			queryTool=0;
			if (isIE)	{
				document.all.theTop.style.cursor = "crosshair";
				theCursor = document.all.theTop.style.cursor;
			}
			hideLayer("measureBox");
			if (useTextFrame) {
				parent.TextFrame.document.location= appDir + "selectpoly.htm";
			} else {
				Win1 = open("selectpoly.htm","QueryWindow","width=575,height=150,scrollbars=yes,resizable=yes");
			}
			modeBlurb = modeList[7];
		} else {
			alert(msgList[46]);
		}
		//alert("Function Not Implemented");
		showGeocode=false;
		showBuffer=false;
		break
		
	case "selectshape":
		panning=false;
		zooming=false;
		shapeSelectBuffer = false;
		// select mode - requires aimsSelect.js
		if (canQuery) {
			toolMode = 16;
			queryTool=0;
			if (isIE)	{
				document.all.theTop.style.cursor = "crosshair";
				theCursor = document.all.theTop.style.cursor;
			}
			hideLayer("measureBox");
			if (useTextFrame) {
				parent.TextFrame.document.location= appDir + "select.htm";
			} else {
				Win1 = open("select.htm","QueryWindow","width=575,height=150,scrollbars=yes,resizable=yes");
			}
			modeBlurb = modeList[8];
		} else {
			alert(msgList[46]);
		}
		//alert("Function Not Implemented");
		showGeocode=false;
		showBuffer=false;
		break
	///*	
	case "buffershape":
		panning=false;
		zooming=false;
		
		// interactive shape buffer - not implemented
		if (canQuery) {
			toolMode = 17;
			//toolMode = 16;
			queryTool=0;
			shapeSelectBuffer = true;
			if (isIE)	{
				document.all.theTop.style.cursor = "crosshair";
				theCursor = document.all.theTop.style.cursor;
			}
			hideLayer("measureBox");
			if (useTextFrame) {
				parent.TextFrame.document.location= appDir + "shapeBuffer.htm";
			} else {
				Win1 = open("shapeBuffer.htm","QueryWindow","width=575,height=150,scrollbars=yes,resizable=yes");
			}
			modeBlurb = modeList[11];
		} else {
			alert(msgList[46]);
		}
		//alert("Function Not Implemented");
		showGeocode=false;
		showBuffer=false;
		break
		//*/
	// Geocode Function
	case "geocode":
		panning=false;
		zooming=false;
		selectBox=false;
		shapeSelectBuffer = false;
		// geocode mode - requires aimsGeocode.js
		hideLayer("measureBox");
		modeBlurb = modeList[14];
		setupGeocode();
		//parent.TextFrame.document.location= appDir + "addmatch.htm";
		break

	// Query - Search - Find functions
	//if ((toolName=="attributesel") || (toolName=="query")) {
	case "query":
		// query mode - requires aimsQuery.js
		panning=false;
		zooming=false;
		selectBox=false;
		shapeSelectBuffer = false;
		queryStartRecord=1;
		//toolMode=
		queryTool=51;
		
		if (isIE)	
		{
			document.all.theTop.style.cursor = "auto";
			theCursor = document.all.theTop.style.cursor;
		}
		
		if (canQuery) {	
			LayerFields.length=1;
			LayerFieldType.length=1;
			LayerFieldCount=0;
			toolMode=8;
			modeBlurb=modeList[15];
			
			fieldIndex=0;
			setQueryString="";
			hideLayer("measureBox");
			queryForm();
		} else {
			alert(msgList[46]);
		}
		showGeocode=false;
		showBuffer=false;
		break
		
	case "storedquery":
		// storedquery mode - requires aimsQuery.js
		panning=false;
		zooming=false;
		selectBox=false;
		shapeSelectBuffer = false;
		queryStartRecord=1;
		queryTool=1;
		toolMode=51;
		modeBlurb="Search";
		if (canQuery) {	
			toolMode=51;
			modeBlurb=modeList[16];
			fieldIndex=0;
			setQueryString="";
			hideLayer("measureBox");
			getStoredQueries();
		} else {
			alert(msgList[46]);
		}
		showGeocode=false;
		showBuffer=false;
		break
		
	//Find tool
	case "find":
		//find
		toolMode=9;
		panning=false;
		zooming=false;
		selectBox=false;
		shapeSelectBuffer = false;
		queryStartRecord=1;
		queryTool=1;
		
		if (isIE)	
		{
			document.all.theTop.style.cursor = "auto";
			theCursor = document.all.theTop.style.cursor;
		}

		if (canQuery) {	
			LayerFields.length=1;
			LayerFieldType.length=1;
			LayerFieldCount=0;
			
			fieldIndex=0;
			setQueryString="";
			hideLayer("measureBox");
			modeBlurb = modeList[17];
			findForm();

		} else {
			alert(msgList[46]);
		}
		showGeocode=false;
		showBuffer=false;
		break

case "Addresspoint":
		toolMode=9;
		panning=false;
		zooming=false;
		selectBox=false;
		shapeSelectBuffer = false;
		queryStartRecord=1;
		queryTool=1;

		if (isIE)	
		{
			document.all.theTop.style.cursor = "auto";
			theCursor = document.all.theTop.style.cursor;
		}

		if (canQuery) {	
			LayerFields.length=1;
			LayerFieldType.length=1;
			LayerFieldCount=0;
			
			fieldIndex=0;
			setQueryString="";
			hideLayer("measureBox");
			modeBlurb = "Addresspoint";
			
			findAddresspoint();
		} else {
			alert(msgList[46]);
		}
		showGeocode=false;
		showBuffer=false;
		break

	//NZ search
	case "find_NZ":
		toolMode=9;
		panning=false;
		zooming=false;
		selectBox=false;
		shapeSelectBuffer = false;
		queryStartRecord=1;
		queryTool=1;

		if (isIE)	
		{
			document.all.theTop.style.cursor = "auto";
			theCursor = document.all.theTop.style.cursor;
		}

		if (canQuery) {	
			LayerFields.length=1;
			LayerFieldType.length=1;
			LayerFieldCount=0;
			
			fieldIndex=0;
			setQueryString="";
			hideLayer("measureBox");
			modeBlurb = "NZ search";
			
			findTheNZ();
		} else {
			alert(msgList[46]);
		}
		showGeocode=false;
		showBuffer=false;
		break

	//TOWN CENTRE SEARCH
	case "Settlements":
		
		//find
		toolMode=9;
		panning=false;
		zooming=false;
		selectBox=false;
		queryStartRecord=0;
		queryTool=1;

		if (isIE)	
		{
			document.all.theTop.style.cursor = "auto";
			theCursor = document.all.theTop.style.cursor;
		}

		if (canQuery) {	
			LayerFields.length=1;
			LayerFieldType.length=1;
			LayerFieldCount=0;
			
			fieldIndex=0;
			setQueryString="";
			hideLayer("measureBox");
			modeBlurb = "Town centre search";
			
			var i = getLayerIndexPosn("Settlements")
			
			setActiveLayer(i)
			findTown();
		} else {
			alert("Cannot query Service\nIdentify, Select, and Query functions are disabled.");
		}
		showGeocode=false;
		showBuffer=false;
		break	

	case "clearsel":
		 clearSelection();
		 break		 

	//STREET SEARCH
	case "Streets":
		toolMode=9;
		panning=false;
		zooming=false;
		selectBox=false;
		queryStartRecord=0;
		queryTool=1;

		if (isIE)	
		{
			document.all.theTop.style.cursor = "auto";
			theCursor = document.all.theTop.style.cursor;
		}

		if (canQuery) {	
			LayerFields.length=1;
			LayerFieldType.length=1;
			LayerFieldCount=0;
			
			fieldIndex=0;
			setQueryString="";
			hideLayer("measureBox");
			modeBlurb = "Street name search";
			findStreet();
		} else {
			alert("Cannot query Service\nIdentify, Select, and Query functions are disabled.");
		}
		showGeocode=false;
		showBuffer=false;
		break
	case "clearsel":
		 clearSelection();
		 break

	// POSTCODE
	case "Postcodes":
		toolMode=9;
		panning=false;
		zooming=false;
		selectBox=false;
		queryStartRecord=0;
		queryTool=1;

		if (isIE)	
		{
			document.all.theTop.style.cursor = "auto";
			theCursor = document.all.theTop.style.cursor;
		}

		if (canQuery) {	
			LayerFields.length=1;
			LayerFieldType.length=1;
			LayerFieldCount=0;
			
			fieldIndex=0;
			setQueryString="";
			hideLayer("measureBox");
			modeBlurb = "Postcode search";
			findPcode();
		} else {
			alert("Cannot query Service\nIdentify, Select, and Query functions are disabled.");
		}
		showGeocode=false;
		showBuffer=false;
		break
		 
	// Buffer function
	case "buffer":
		//buffer - requires aimsBuffer.js
		if (useBuffer) {
			if (checkSelected()) {
				toolMode = 25;
				shapeSelectBuffer = false;
				modeBlurb = modeList[18];
				writeBufferForm();	
			} else {
				showBuffer=false;
				alert(msgList[48]);
			}
		} else {
			alert(msgList[49]);
		}
		break
		
	case "options":
		writeOptionForm();
		break
		
	// Print function	
	case "print":
		 printIt();
		 break
		 

case "load":
		modeBlurb = "Load Map Theme";
		mapStart();
		//loadMapForm();
		break


	// custom modes
	case "dbidentify":
		panning=false;
		zooming=false;
		selectBox=false;
		shapeSelectBuffer = false;
		// identify mode - requires custom db query - not in basic
		if (canQuery) {
			toolMode = 40;
			if (isIE)	{
				document.all.theTop.style.cursor = "hand";
				theCursor = document.all.theTop.style.cursor;
			}

			modeBlurb = modeList[3];
		} else {
			alert(msgList[46]);
		}
		//alert("Function Not Implemented");
		
		showGeocode=false;
		if (useTextFrame) parent.TextFrame.document.location= appDir + "text.htm";
		hideLayer("measureBox");
		break
		
		
	case "extract":
		 extractIt();
		 break
		 
	case "legend":
		if (aimsLegendPresent) {
			if (imsURL!="") {
				if (hasTOC) {
					if (legendVisible) {
						
						legendVisible=false;
						parent.TOCFrame.document.location=appDir+"toc.htm";
					} else {
						//CLOSE ALL FOLDERS
						closeAllFolders()

						legendVisible=true;
						getLegend();
					}
				} else {
					legendVisible=true;
					getLegend();
				}
			} else {
				alert(msgList[45]);
			}
		} else {
			alert(msgList[50]);
		}
		break
		
	case "layerlist":
		// put LayerList in separate window
		writeLayerListForm();
		break


		//DL - Start Polygon Area tool
		//--------------------------------
		  case "polyarea":
			if (isIE)	
			{
				document.all.theTop.style.cursor = "crosshair";
				theCursor = document.all.theTop.style.cursor;
			}
			
		   panning = false;
		   zooming = false;
		   selectBox = false;

		 //If a polygon has been completed then flag is true
		 //Start a new polygon with the next mouse click...
		 //Maddog reset function is located in aimsSelect
		 //----------------------------------------------
		   if (showPolyArea) resetPolyAreaClick();
		   hideLayer("measureBox");

		 //Update numbers in the green status box
		 //--------------------------------------
		   updatePerimeterBox();
			
		   toolMode = 1001;
		   modeBlurb = "Calculate area";

		   if (useTextFrame)
		   {
			parent.TextFrame.document.location= appDir + "PolygonArea.htm";
		   }
		   else
		   {
			Win1 = open("PolygonArea.htm","QueryWindow","width = 575,height = 150,scrollbars = yes,resizable = yes");
		   }
			 
		   break
	//******************** ArtWork ****************************************************
	case "artwork":
		panning=false;
		zooming=false;
		shapeSelectBuffer = false;
		// select mode - requires aimsSelect.js
		if (canQuery) {
			toolMode = 1010; //Artwork toolmode
			queryTool=0;
			if (isIE)	{
				document.all.theTop.style.cursor = "crosshair";
				theCursor = document.all.theTop.style.cursor;
			}
			hideLayer("measureBox");
			if (useTextFrame) {
				parent.TextFrame.document.location= appDir + "addArtwork.html";
			} else {
				Win1 = open("select.htm","QueryWindow","width=575,height=150,scrollbars=yes,resizable=yes");
			}
			modeBlurb = "Drawing (" + parent.MapFrame.activeArtWorkTool + ")";
		} else {
			alert(msgList[46]);
		}
		//alert("Function Not Implemented");
		showGeocode=false;
		showBuffer=false;
		break
	//******************** ArtWork ****************************************************

	default:
		alert(msgList[51]);
	}
	modeName=modeBlurb;
	if (useModeFrame) {
		writeModeFrame(modeBlurb);
	} else if ((drawFloatingMode) && (modeLayerOn)) {
		writeModeLayers(modeBlurb);
	} else if ((modeRefreshMap) && (drawModeOnMap)) {
		//var theString = writeXML();
		sendMapXML();
	}
}




//DL - Update measureBox layer for polyarea
//---------------------------------------------
  function updatePerimeterBox()
  {
   if ((parent.MapFrame.ns4up) || (parent.MapFrame.ns6up))
   {
    //var theForm = document.layers["perimeterBox"].document.forms[0];
	//alert("a")
   }
   else
   {
	//alert("b")
  //var theForm = document.perimeterBox.forms[0];
    var theForm = document.forms[0];
   }
   
   //parent.MapFrame.thePerimTotal.value = totalPerimMeasure + " " + ScaleBarUnits;
  // parent.MapFrame.thePerimSegment.value = currentPerimMeasure + " " + ScaleBarUnits;
   
   //showLayer("perimeterBox");
  }


//DL - Put a point at click and add to clickCount
//------------------------------------------
  function clickAddPolyAreaPoint()
  {
   var theX = mouseX;
   var theY = mouseY;

   getMapXY(theX,theY);
   
   clickPolyAreaX[clickPolyAreaCount] = mapX;
   clickPolyAreaY[clickPolyAreaCount] = mapY;
   clickPolyAreaCount += 1;

 //Reset to zero - if polygon click occurs over a selected polygon then
 //polygon shape has potential to be highlighted with selection color
 //(See addSelectToMap() in aimsSelect.js)
 //---------------------------------------   
   selectCount = 0;

   totalPerimMeasure = totalPerimMeasure + currentPerimMeasure;
   
   var u = Math.pow(10,numDecimals);
   
   if (totalPerimMeasure != 0) totalPerimMeasure = parseInt(totalPerimMeasure * u + 0.5)/u;

   clickPerimMeasure[clickPolyAreaCount] = totalPerimMeasure;

	parent.MapFrame.noOverlay = true
   if (parent.MapFrame.noOverlay)
   {

	legendTemp = legendVisible;
    legendVisible = false;
    
	var theString = writeXML();
	
	var theNum = 99;
   }
   else
   {
    
	//The writeOverlayXML function is missing !!!!!
	var theString = writeXML();
    var theNum = 901;
   }

 //Show the spinning globe
 //-----------------------
   showRetrieveMap();

   sendToServer(imsURL,theString,theNum);
  }



//DL - Removes last point entered in PolyArea
//--------------------------------------------------------
  function deletePolyAreaClick()
  {
   var c1 = clickPolyAreaCount;
   clickPolyAreaCount = clickPolyAreaCount - 1;

 //Reset to zero - if polygon click occurs over a selected polygon then
 //polygon shape has potential to be highlighted with selection color
 //(See addSelectToMap() in aimsSelect.js)
 //---------------------------------------
   selectCount = 0;

   if (clickPolyAreaCount < 0) clickPolyAreaCount = 0;
   
   if (clickPolyAreaCount > 0)
   {
    totalPerimMeasure = clickPerimMeasure[clickPolyAreaCount]
    clickPolyAreaX.length = clickPolyAreaCount;
    clickPolyAreaY.length = clickPolyAreaCount;
    clickPerimMeasure.length = clickPolyAreaCount;
   }
   
   else
   
   {
    totalPerimMeasure = 0;
    clickPerimMeasure[0] = 0;
   }
   
   currentPerimMeasure = 0;

   if (c1 > 0)
   {
    if (noOverlay)
    {
     legendTemp = legendVisible;
     legendVisible = false;
     var theString = writeXML();
     var theNum = 99;
    }
    else
    {
	//The writeOverlayXML function is missing !!!!!
     var theString = writeXML();
     var theNum = 901;
    }

  //Show the spinning globe
  //-----------------------
    showRetrieveMap();
    
    sendToServer(imsURL,theString,theNum);
    
   }
   
  }




//DL - Clears current polygon and starts over
//All other acetate layer objects remain on image
//------------------------------------------------
  function restartPolyAreaClick()
  {
 //var c1 = clickPolyAreaCount;

   showPolyArea = false;
      
   clickPolyAreaCount = 0;
   clickPolyAreaX.length = 1;
   clickPolyAreaY.length = 1;
   
   currentPerimMeasure = 0;
   totalPerimMeasure = 0;
   lastPerimTotMeasure = 0;
   clickPerimMeasure.length = 1;
   
 //Reset to zero - if polygon click occurs over a selected polygon then
 //polygon shape has potential to be highlighted with selection color
 //(See addSelectToMap() in aimsSelect.js)
 //---------------------------------------   
   selectCount = 0;
	
   legendTemp = legendVisible;
   legendVisible = false;
   var theString = writeXML();
   var theNum = 99;

 //Show the spinning globe
 //-----------------------
   showRetrieveMap();

   sendToServer(imsURL,theString,theNum);

   if (toolMode == 1001) updatePerimeterBox();
  }	






// check for mouseup
function chkMouseUp(e) { 
	if ((toolMode == 1) && (zooming)) {
			stopZoomBox(e);
		
	}
	if ((toolMode == 2) && (zooming)) {
			stopZoomOutBox(e);
	}
	if ((toolMode == 3) && (panning)) {
			stopPan(e);

	}
	if ((toolMode == 10) && (selectBox)) {
			stopSelectBox(e);
	}
		
	return false;
	
}

// perform appropriate action with mapTool
function mapTool (e) {

	//Identify
	if (useIdentify)
	{
		setActiveLayer(0)
		queryStartRecord=0;
		linkToNotes = true
		identify(e)
	}
	

	var theButton= 0;
	// get the button pushed... if right, ignore... let browser do the popup... it will anyway
	if (isNav) {
		theButton = e.which;
	} else {
		theButton =window.event.button;
	}	
	if (theButton==leftButton) {
		getImageXY(e);
		if ((mouseX>=0) && (mouseX<iWidth) && (mouseY>=0) && (mouseY<iHeight)) {
			//if ((!isNav) || (!is5up)) {
			if ((hasOVMap) && (ovIsVisible) && (mouseX<i2Width+ovBoxSize) && (mouseY<i2Height) && (ovMapIsLayer)) {
					//alert(mouseX + ", " + mouseY);
					ovMapClick(mouseX,mouseY);
					
					window.status = "On OV Map Area";
				//}
			} else {
				//alert(mouseX + "," + mouseY);
				
				switch(toolMode) {
				case 1:
						startZoomBox(e);
						return false;
						break
					
				case 2:
						startZoomOutBox(e);
						return false;
						break
				case 3:
						startPan(e);
						return false;
						break

				case 4:
					identify(e);
					break
					
				case 5:
					// identify all
					identifyAll(e);
					break
					
				// custom modes
				/*
				case 6:
					// route - requires custom route routine - not in default
					routeClick = routeClick + 1;
					if (routeClick > 2) routeClick = 2;
					setRouteXY()
					writeRoutePage();
					break
				case 7:
					// proximity - requires custom proximity routine - not in default
					proxCount=0;
					proximitySearch(e);
					break
				
				*/
				case 10:
					//select(e);
						startSelectBox(e);
						return false;
						break
				case 11:
					//select point
					if (checkIfActiveLayerAvailable()) {
						select(e);
					}
					break
				case 12:
					//select line
					if (checkIfActiveLayerAvailable()) {
						clickType=2;
						clickAddPoint();
						if (useTextFrame) {
							if (parent.TextFrame.document.title!==modeList[60]) {
								parent.TextFrame.document.location= appDir + "selectline.htm";
							}
						}
					}
					break
				case 13:
					//select polygon
					if (checkIfActiveLayerAvailable()) {
						clickType=3;
						clickAddPoint();
						if (useTextFrame) {
							if (parent.TextFrame.document.title!==modeList[7]) {
								parent.TextFrame.document.location= appDir + "selectpoly.htm";
							}
						}
					}
					break
				case 15:
					// hyperlink
					hyperLink(e);
					break
				case 16:
					//select shape
					if (checkIfActiveLayerAvailable()) {
						clickType=2;
						clickAddPoint();
						if (useTextFrame) {
							if (parent.TextFrame.document.title!==modeList[8]) {
								parent.TextFrame.document.location= appDir + "select.htm";
							}
						}
					}
					break
					///* 
				case 17:
					//buffer shape - 
					if (checkIfActiveLayerAvailable()) {
						clickType=2;
						clickAddPoint();
						if (useTextFrame) {
							if (parent.TextFrame.document.title!=modeList[11]) {
								parent.TextFrame.document.location= appDir + "shapeBuffer.htm";
							}
						}
					}
					break
					//*/
				case 20:
					// measure
					clickType=1;
					clickAddPoint();
					break
				case 21:
					// shape
					clickType=4;
					clickAddPoint();
					break
				case 30:
					// hyperlink
					hyperLinkAny(e);
					break
				case 40:
					// db identify - requires custom db query - not in default
					if (aimsDBPresent) {
						matchDBLinkLayer(dbLinkLayer);
						dbIdentify(e);
					}
					break

				//******************** ArtWork ****************************************************
				case 1010:
					//ArtWork
					if (parent.MapFrame.activeArtWorkTool != "")
					{
						//Add the x and y coords of the click to the relevent arrays, depending upon 
						//the active artwork tool ...
						addClickToMap();
					}
					else
					{
						alert("Please choose a shape to draw on the map.")
						return
					}
					break
				//******************** ArtWork ****************************************************

				//DL - Polygon area event handler
				//-----------------------------------
				case 1001:
					clickAddPolyAreaPoint();
					 break


				default:
					if (toolMode>=1000) {
						customMapTool(e);
					}
				}
			}
		}
	}
}

// update measureBox layer
function updateMeasureBox() {
	if (isNav4) {
		var theForm = document.layers["measureBox"].document.forms[0];
	} else {
		//var theForm = document.measureBox.forms[0];
		var theForm = document.forms[0];
	}
	var j = 1;
	for (var i=0;i<sUnitList.length;i++) {
		if (ScaleBarUnits==sUnitList[i]) j=i;
	}
		var u = Math.pow(10,numDecimals);
		var tMeas = 0;
		if (totalMeasure!=0) tMeas = parseInt(totalMeasure*u+0.5)/u;
	theForm.theMeasTotal.value = tMeas + " " + unitList[j];
	theForm.theMeasSegment.value = currentMeasure + " " + unitList[j];
	showLayer("measureBox");

}