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

var aimsXMLPresent=true;
 
var drawOVExtentBox=false;
/*
***************************************************************************************

Functions for sending XML requests and XML reponses

***************************************************************************************
*/

// global variables
	// change these in aimsCustom.js to send XML response to custom function.
	// use numbers >= 1000
var selectXMLMode = 6;
var identifyXMLMode = 7;
var queryXMLMode = 8;
var findXMLMode = 14;
var hyperlinkXMLMode = 15;

// common dynamic variables
var XMLMode = 1;
var okToSend = true;

var xHalf = xDistance/2;
var yHalf = yDistance/2;

// starting position to start parse scan of XML string
var xmlStartPos = 0;
// ending position to start parse scan of XML string
var xmlEndPos = 0;

var theImageType = "PNG";

// title of the post form. . . should match both titles from jsForm.htm and header.htm
var formTitle = "Default Form";
var formExists = false;
// time out for check of existence of post form. . . 1 second = 1000;
var formTimeOut = 7000;

var pastStart=false;
if (hasOVMap != true) pastStart = true;

// new from ArcIMS 3.1 the base servlet connector URL
var connectorURL = "http://" + hostName + "/servlet/com.esri.esrimap.Esrimap?ServiceName=redirect";


// send in XML request and get XML response - uses helper applet
function sendToServer(URLString,XMLRequest,theType) {
	
	if (parent.PostFrame.document.forms[0]!=null) {
		if (okToSend) {
			XMLMode = theType;
			if (XMLMode==1) showRetrieveMap();
			//theForm = parent.AppletFrame.document.forms[0];
			//debugOn=2
			if (debugOn>2) alert("ServiceName: " + URLString + "\nXMLRequest:\n " + XMLRequest);
			okToSend = false;
				var theForm = parent.PostFrame.document.forms[0];
				
				/*new section from ArcIMS 3.1 scripts*/
				//URLString = URLString + cVersion;
				var requestURL = URLString;
				if (theForm.RedirectURL!=null) 
				{
					if (isNotSameHostInURL(URLString, hostName)) 
					{
					    requestURL = connectorURL;
					    theForm.RedirectURL.value = URLString;		
					} 
					else 
					{
					    theForm.RedirectURL.value = "";
					}		
				}
				/*new section from ArcIMS 3.1 scripts--end*/
								
				
				formTitle = parent.PostFrame.document.title;
				//formExists = (theForm.FormExists.value=="Yes");
				//alert(URLString);
				//theForm.action=URLString + "&Form=True&Encode=True";
				//new from ArcIMS 3.1
				theForm.action=requestURL + "&Form=True&Encode=True";
				theForm.ArcXMLRequest.value=XMLRequest;
				//alert("ServiceName: " + theForm.action + "\nXMLRequest:\n " + theForm.xmlRequest.value);
				theForm.HeaderFile.value = headerFilePath;
				theForm.FooterFile.value = footerFilePath;
				//theForm.FormExists.value ="Working";
				theForm.submit();
				//window.setTimeout("checkForm();",formTimeOut);
				
		} else {
			alert("Response from previous request(s) not received.");
			hideRetrieveMap();
			hideRetrieveData();
		}
	} else {
		alert("Form for posting request not found. Unable to communicate with server.");
			hideRetrieveMap();
			hideRetrieveData();
	}
		
}

// send custom XML request. . . set up custom response handler
function sendCustomToServer(XMLRequest, theFunction, theType) {
	var theForm = parent.PostFrame.document.forms[0];
	theForm.JavaScriptFunction.value = theFunction;
	sendToServer(imsQueryURL,XMLRequest,theType)
}


function checkForm() {
	var theTitle = parent.PostFrame.document.title;
	if (parent.PostFrame.document.theForm==null) {
			alert("Server could not create proper Form for response transport. Check location of form elements.");
			hideRetrieveMap();
			hideRetrieveData();
	}
}

// send the created xml request to map server
function sendMapXML() {
	// ask for the Main map
	//window.onerror=clearError;
	beforeMapRefresh();
	//window.onerror=resetError;
	showRetrieveMap();
	var theText = writeXML();
	if (debugOn==2) alert("Sending:\n\n" + theText);
	
	//alert(theText);
	sendToServer(imsURL,theText,1);

}

// process the response xml
function processXML(theReplyIn) {
	//if (useJava) {
	//	var theReply = theReplyIn;
	//} else {
		theReplyIn = replacePlus(theReplyIn);
		var theReply = unescape(theReplyIn);
	//}
	okToSend = true;
	if (debugOn>2) alert("XMLResponse:\n " + theReply);
	var theError = getXMLErrorMessage(theReply);
	//if (theError!="") {
		//alert(theError);
	//} else {
	switch(XMLMode) {
		case 1:
			//alert ("Received:\n\n" + theReply);
			var theURL = "";
			theURL = getURL(theReply);
			
			//alert(theURL);
			if (theURL != "") {
				getXYs(theReply);
				document.theImage.src = theURL;
				
				afterMapRefresh();
				//window.onerror=resetError;
				if (toolMode==3) {
					moveLayer("theMap",hspc,vspc);
					clipLayer("theMap",0,0,iWidth,iHeight);
					window.setTimeout('showLayer("theMap");',1000);
					if (hasLayer("theMapClicks")) {
						moveLayer("theMapClicks",hspc,vspc);
						clipLayer("theMapClicks",0,0,iWidth,iHeight);
				
					}
				}
				
			}
			else {
				
				if (debugOn>0) {
					alert("Unable to display Map image\nDebug On\n" + theReply);
				} else {
					alert("Unable to display MapService\nServer returned:" + theError);
				}
			}
			if (toolMode==20) {
				updateMeasureBox();
			}
			if (legendVisible) {
				showLegend();
			}
			if (!noOverlay) {
				if (aimsClickPresent) {
					if (clickCount>0) {
						theText = writeOverlayXML();
						showRetrieveMap();
						sendToServer(imsURL,theText,901);
					}
				}
			}
			
			if (hasOVMap) {
				if (ovIsVisible) {
				// ask for the overview
					if (!pastStart) {
						
						theText = writeOVXML();
						//pastStart=true;
						sendToServer(imsOVURL,theText,2);
					} else {
						putExtentOnOVMap();
						hideRetrieveMap();
					}
				} else {
					if (!pastStart) {
						theText = writeOVXML();
						sendToServer(imsOVURL,theText,2);
					} else {
						hideRetrieveMap();
					}
				
				}
			} else {
				hideRetrieveMap();
			}
			if (aimsBufferPresent) 
			{
			   if (getBufferedData) 
			   {
			      var buffString = writeGetBufferedData();
			      if (buffString!="") 
			      {
				  sendToServer(imsQueryURL,buffString,11);
			       } 
			       else 
			       {
				   //alert(msgList[15]);
			       }
			       getBufferedData=false;
			   } 
			}
			
			break

		case 2:
			// just put up an overview map
			var theURL = "";
			theURL = getURL(theReply);
			if (!pastStart) {
				getOVXYs(theReply);
				pastStart=true;
			}
			//alert(theURL);
			if (theURL != "") {
				ovImageVar.src = theURL; 
			}
			else {
			
				if (debugOn>0) {
					alert("Unable to display Reference Map image\nDebug On\n" + theReply);
				} else {
					alert("Unable to display Reference Map MapService\nServer returned: " + theError);
				}
				
			}
			
			hideRetrieveMap();
			
			break

		case 3:
			//  just get full extent - service info
			//alert("processXML()[3]\n" + theReply);
			if (getLimitExtent) {
				getXYs(theReply);
				fullLeft = left;
				fullRight = right;
				fullTop = top;
				fullBottom = bottom;
				fullOVLeft = left;
				fullOVRight = right;
				fullOVTop = top;
				fullOVBottom = bottom;
				limitLeft = left;
				limitRight = right;
				limitTop = top;
				limitBottom = bottom;
			} else {
				fullLeft = limitLeft;
				fullRight = limitRight;
				fullTop = limitTop;
				fullBottom = limitBottom;
				fullOVLeft = limitLeft;
				fullOVRight = limitRight;
				fullOVTop = limitTop;
				fullOVBottom = limitBottom;
				
			}
			fullWidth = Math.abs(fullRight - fullLeft);
			fullHeight = Math.abs(fullTop - fullBottom);
			fullOVWidth = Math.abs(fullOVRight - fullOVLeft);
			fullOVHeight = Math.abs(fullOVTop - fullOVBottom);
			theString = '<ARCXML VERSION="1.0.1">\n<REQUEST>\n<GET_SERVICE_INFO />\n';
			theString += '</REQUEST>\n</ARCXML>';
			// get list of geocoding layers
			if((aimsGeocodePresent) && ((useGeocode) || (useReverseGeocode))) {
				theString = '<ARCXML VERSION="1.0.1">\n<REQUEST>\n<GET_SERVICE_INFO  renderer="false" />\n';
				theString += '</REQUEST>\n</ARCXML>';
				sendToServer(imsGeocodeURL,theString,25);
			} else {
				theString = '<ARCXML VERSION="1.0.1">\n<REQUEST>\n<GET_SERVICE_INFO  renderer="false" extensions="true" />\n';
				theString += '</REQUEST>\n</ARCXML>';
				sendToServer(imsURL,theString,4);
				useGeocode=false;
				useReverseGeocode=false;
			}
			
			break

		case 4:
			// get service info - extent, layers
			//alert("processXML()[4]\n" + theReply);
			processStartExtent(theReply);
			
			break

		case 5:
			// get a list of ImageServices
			//alert("processXML()[5]\n" + theReply);
			processCatalog(theReply);
			
			break

		case 6:
			// get select response
			displayAttributeData(theReply);
			
			break

		case 7:
			// get identify response
			//alert(theReply);
			displayIdentifyData(theReply);
			//showIdentifyInfo(theReply);
			break

		case 8:
			// get query response
			
			//alert("processXML()[8]\nQuery XML Response:\n" + theReply);
			//showHighlightFeature(theReply);
			displayAttributeData(theReply);
			
			break

		case 9:
			// get geocode response
			processGeocode(theReply);
			
			break

		case 10:
			// get reverse geocode response
			processReverseGeocode(theReply);
			
			break

		case 11:
			// get buffer response
			displayBufferedData(theReply);
			break

		case 12:
			// get proximity response
			processProx(theReply);
			
			break

		case 13:
			// get route response
			processRoute(theReply);
			
			break

		case 15:
			// get hyperlink response
			parseHyperLink(theReply);
			
			break

		case 14:
			// get find response
			//alert(theReply);
			displayAttributeData(theReply);
			
			break	

		case 25:
			// get geocoding layers
			parseGeocodeLayers(theReply);
			// get layers for display
			var theString = '<ARCXML VERSION="1.0.1">\n<REQUEST>\n<GET_SERVICE_INFO  renderer="false" extensions="true" />\n';
			theString += '</REQUEST>\n</ARCXML>';
			sendToServer(imsURL,theString,4);
			
			break

		case 26:
			// get geocoding layers
			if (parseGeocodeParams(theReply,GCLayers[GCActiveLayer])) {
				var theAddressForm = appDir + "addmatch.htm";
				if ((useExternalWindow) || (!useTextFrame)) {
					var Win1 = window.open(theAddressForm,"GeocodeWindow","width=575,height=150,scrollbars=yes,resizable=yes");
				} else {
					parent.TextFrame.document.location= theAddressForm;
				}
			} else {
				if (debugOn>0) {
					alert("Unable to set parameters\nDebug On\n" + theReply);
					if (parent.TextFrame!=null) parent.TextFrame.document.location= appDir + "blank.htm";
				} else {
					alert("Unable to set parameters");
					if (parent.TextFrame!=null) parent.TextFrame.document.location= appDir + "blank.htm";
				}
			}
			
			break

		case 27:
			// get geocoding results
			parseGeocodeResults(theReply);
			
			break

		case 30:
			// get list of Fields for Active Layer
			parseFieldResponse(theReply);
			var theText = writeFieldSample();
			sendToServer(imsQueryURL,theText,40);
			
			break

		case 31:
			// get the layer's exent
			parseLayerExtent(theReply);
			
			break

		case 35:
			// get list of Fields for Active Layer
			parseFieldResponse(theReply);
			var theText = writeFieldSample();
			sendToServer(imsQueryURL,theText,45);
			
			break

		case 36:
			// get list of Fields for Active Layer. . . no samples
			parseFieldResponse(theReply);
			
			break

		case 40:
			// get list of sample field values
			parseFieldSamples(theReply);
			writeQueryForm();
			
			break

		case 45:
			// get list of initial sample field values
			parseFieldSamples(theReply);
			sendMapXML();	
			
			break

		case 50:
			// get layer ID/shape fields
			parseQueryFields(theReply);
			
			break

		case 55:
			// get layer storedqueries
			//alert("55\n" + theReply);
			parseStoredQueries(theReply);
			
			break

		case 70:
			// get layer field for submission to external db
			parseIDFieldData(theReply);	
			
			break

		case 98:
			// just put up a map with legend
			var theURL = "";
			theURL = getURL(theReply);
			if (theURL != "") {
				document.theImage.src = theURL;
			}
			//else {
			//	alert(theReply + "\nUnable to display Map image");
			//}
			
			if (legendVisible) {
				showLegend();
				drawLegendOnly=false;
			}
			hideRetrieveMap();
			
			break

		case 99:
			// just put up a map
			var theURL = "";
			legendVisible=legendTemp;
			theURL = getURL(theReply);
			if (theURL != "") {
				document.theImage.src = theURL;
				if (!noOverlay) {
					if (clickCount>0) {
						theText = writeOverlayXML();
						showRetrieveMap();
						sendToServer(imsURL,theText,901);
					} else {
						if (hasLayer("theMapClicks")) {
							document.theClickImage.src = blankImage;
						}
					}
				}
			}
			else {
				alert(theReply + "\nUnable to display Map image");
			}
			hideRetrieveMap();
			
			break

		case 101:
			// print - get Map image
			printMapURL = getURL(theReply);
			printLegURL = getLegendURL(theReply);
			if (hasOVMap) {
				getPrintOV();
			} else {
				//writePrintPage();
				getPrintLegend();
			}
			
			break

		case 102:
			// print - get OV image
			printOVURL = getURL(theReply);
			legendImage = printLegURL
			getPrintLegend();
			
			break

		case 103:
			// print - get Legend image
			
			hideRetrieveMap();
			writePrintPage();
			

		case 201:
			// identify. . . get_features
			//alert(theReply);
			parseFields(theReply);
			
			break

		case 900:
			// just make a map
			var theURL = "";
			theURL = getURL(theReply);
			if (theURL != "") {
				getXYs(theReply);
				document.theImage.src = theURL;
				mapPath = theImagePath;
				mapURL = theImageURLPath;
				mapService = theServiceName;
			}
			
			break

		case 901:
			// just make a map
			var theURL = "";
			theURL = getURL(theReply);
			if (theURL != "") {
				if (!noOverlay) 
					document.theClickImage.src = theURL;
				if (toolMode==3) {
					if (hasLayer("theMapClicks")) {
						clipLayer("theMapClicks",0,0,iWidth,iHeight);
						moveLayer("theMapClicks",hspc,vspc);
						window.setTimeout('showLayer("theMapClicks");',1000);
				
					}
				}
				
			} else {
				alert("Unable to get image for click positions.");
			}
			hideRetrieveMap();
			
			break

		case 902:
			// just put up an overview map
			var theURL = "";
			theURL = getURL(theReply);
			//alert(theURL);
			if (theURL != "") {
				document.ovImage2.src = theURL; 
			}
			var tempLeft = fullLeft;
			var tempRight = fullRight;
			var tempTop = fullTop;
			var tempBottom = fullBottom;
			getOVXYs(theReply);
			ovMapLeft = fullLeft;
			ovMapRight = fullRight;
			ovMapTop = fullTop;
			ovMapBottom = fullBottom;
			fullLeft = tempLeft;
			fullRight = tempRight;
			fullTop = tempTop;
			fullBottom = tempBottom;
			
			//showLayer("ovLayer2");
			//showLayer("ovShadow2");
			
			break

		case 999:
			// get a blank map to get modified limit extents according image proportions
			var tempLeft = left;
			var tempRight = right;
			var tempTop = top;
			var tempBottom = bottom;
			getXYs(theReply)
			imageLimitLeft=left;
			imageLimitRight=right;
			imageLimitTop=top
			imageLimitBottom=bottom;
			left = tempLeft;
			right = tempRight;
			top = tempTop;
			bottom = tempBottom;
			sendMapXML();
			
			break

		default:
			// send any responses to custom requests off to the custom handler
				// XMLMode >= 1000 are reserved for custom requests/responses
			if (XMLMode >= 1000) {
				useCustomFunction(theReply);	
			} else {
				alert(theReply + "\nUnable to execute response.");
			}
			
		}
	//}
		
	
}

// write out a blank map. . . to get image extents from limit extents
function writeBlankMapXML() {
	var theString = '<ARCXML VERSION="1.0.1">\n<REQUEST>\n<GET_IMAGE>\n<PROPERTIES>\n<ENVELOPE minx="' + limitLeft + '" miny="' + limitBottom + '" maxx="' + limitRight + '" maxy="' + limitTop + '" />\n';
	theString += '<IMAGESIZE height="' + iHeight + '" width="' + iWidth + '" />\n';
	var visString = "";
	// tell the server which layers are to be visible
	if (aimsLayersPresent) {
		theString += '<LAYERLIST >\n';
		for (var i=0;i<layerCount;i++) {
			theString += '<LAYERDEF name="' + LayerName[i] + '" visible="false" />\n';
			
		}
		theString += '</LAYERLIST>\n';
	}
	theString += '</PROPERTIES>\n';
	theString += '</GET_IMAGE>\n</REQUEST>\n</ARCXML>';
	//alert(theString);
	sendToServer(imsURL,theString,999);

}

// prepare the request in xml format for Main Map
function writeXML() {
	//var theString = '<ARCXML VERSION="1.0.1">\n<REQUEST>\n<GET_IMAGE>\n<PROPERTIES>\n<ENVIRONMENT><SEPARATOR cs=" " ts=";"/></ENVIRONMENT>\n<ENVELOPE minx="' + left + '" miny="' + bottom + '" maxx="' + right + '" maxy="' + top + '" />\n';
	var theString = '<ARCXML VERSION="1.1">\n<REQUEST>\n<GET_IMAGE>\n<PROPERTIES>\n<ENVIRONMENT><SEPARATORS cs="," ts=","/></ENVIRONMENT>\n<ENVELOPE minx="' + left + '" miny="' + bottom + '" maxx="' + right + '" maxy="' + top + '" />\n';
	theString += '<IMAGESIZE height="' + iHeight + '" width="' + iWidth + '" />\n';
	var visString = "";
	if (aimsLayersPresent) {
		// tell the server which layers are to be visible
		if (toggleVisible) {
			theString += '<LAYERLIST >\n';
			for (var i=0;i<layerCount;i++) {
				if (LayerVisible[i]==1) {
					theString += '<LAYERDEF id="' + LayerID[i] + '" visible="true" ';
					if (aimsClassRenderPresent) {
						theString += addSpecialRenderToMap(i);
						//if (LayerRenderString[i]!="") {
							// add custom rendering for this request
							//theString += 'type="' + LayerType[i] + '">\n' + LayerRenderString[i] + '\n</LAYERDEF>\n';
					} else {
						theString += '/>\n';
					}
					
				}
				else {
					//visString = "false";
					theString += '<LAYERDEF id="' + LayerID[i] + '" visible="false" />\n';
				}
				//theString += '<LAYERDEF name="' + LayerName[i] + '" visible="' + visString + '" />\n';
				
			}
			theString += '</LAYERLIST>\n';
		}
	}
	
	// map background color
	if (mapBackColor!="") {
		theString += '<BACKGROUND color="' + mapBackColor + '" />\n\n';
	}
	if (aimsLegendPresent) {
		// create a legend image
		if (legendVisible) theString += addLegendToMap();
	}
	
	theString += '</PROPERTIES>\n';
	
	// buffer
	if (aimsBufferPresent) {
		if (showBuffer) theString += addBufferToMap();
	}
	
	// select
	if (aimsSelectPresent) {
		theString += addSelectToMap();
	}	
	
	// any custom stuff to fit here
	if (aimsCustomPresent) theString += addCustomToMap1();
	
	// geocoding or point with label
	if (showGeocode) {
		// draw the point . . . also used to display any point with a label on map
		theString += '<LAYER type="ACETATE" name="GeoCode1">\n';
		theString += '<OBJECT units="DATABASE">\n<POINT coord="' + geocodeX + ',' + geocodeY + '">\n';
		theString += '<SIMPLEMARKERSYMBOL  type="Circle"  color="' + geocodePointColor + '" size="' + geocodePointSize +'" />\n</POINT></OBJECT>\n';
		if (geocodeLabel!="") {
			theString += '<OBJECT units="DATABASE">\n<TEXT coord="' + geocodeX + ',' + geocodeY + '" label="' + geocodeLabel + '">\n';
			theString += '<TEXTMARKERSYMBOL fontcolor="' + geocodePointColor + '" size="12" shadow="64,64,64" glowing="255,255,0" halignment="RIGHT" valignment="TOP" /></TEXT></OBJECT>\n';
		}
		theString += '</LAYER>\n';
		
	}
	
	if ((aimsClickPresent) && (noOverlay)) {
		// clickpoints 
		if (clickCount>0) {
			// draw click points and lines between them on map
			var clickColor = selectColor;
			if (clickType==1) clickColor = clickMarkerColor;
			theString += '<LAYER type="ACETATE" name="allTheClicks">\n';
			if (clickCount>1) {
				theString += '<OBJECT units="DATABASE">\n<LINE coords="' + clickPointX[0] + " " + clickPointY[0];
				for (var i=1;i<clickCount;i++) {
					theString += ";"  + clickPointX[i] + " " + clickPointY[i]; 
				}
				theString += '" >\n';
				theString += '<SIMPLELINESYMBOL type="SOLID" color="' + clickMarkerColor;
				theString += '" width="3" />\n</LINE>\n</OBJECT>\n'; 
				theString += '<OBJECT units="DATABASE">\n<LINE coords="' + clickPointX[0] + " " + clickPointY[0];
				for (var i=1;i<clickCount;i++) {
					theString += ";"  + clickPointX[i] + " " + clickPointY[i]; 
				}
				theString += '" >\n';
				theString += '<SIMPLELINESYMBOL type="SOLID" color="255,255,255" width="1" />\n</LINE>\n</OBJECT>\n'; 
	 		}
			for (var i=0;i<clickCount;i++) {
				theString += '<OBJECT units="DATABASE">\n<POINT coord="' + clickPointX[i] + ' ' + clickPointY[i] + '">\n';
				theString += '<SIMPLEMARKERSYMBOL  type="' + clickMarkerType + '"';
				theString += ' color="' + clickMarkerColor + '" size="' + clickMarkerSize + '" />\n</POINT>\n</OBJECT>\n';
			}
			theString += '</LAYER>\n';
		}
	}
	
	
	// any custom stuff to fit here
	if (aimsCustomPresent) theString += addCustomToMap2();

	if (drawCopyright) {
		// draw text on the map
		theString += '<LAYER type="ACETATE" name="theCopyright">\n';		
		theString += '<OBJECT units="PIXEL">\n<TEXT coord="' + CopyrightCoords + '" label="' + CopyrightText + '">\n';
		theString += '<TEXTMARKERSYMBOL style="' + CopyrightStyle + '" fontsize="' + CopyrightSize + '" ';
		theString += 'font="' + CopyrightFont + '" fontcolor="' + CopyrightColor + '" antialiasing="True" ';
		if (CopyrightBackground.toUpperCase()=="TRUE") theString += 'background="' + CopyrightBackground + '" backcolor="' + CopyrightBGColor + '" ';
		theString += 'shadow="32,32,32" overlap="false" ';
		if (CopyrightGlow.toUpperCase()=="TRUE") theString += ' glowing="' + CopyrightGlowColor + '" ';
		theString += '/>\n</TEXT>\n</OBJECT>\n';
		theString += '</LAYER>\n';
	}
	if (drawNorthArrow) {
		// draw a north arrow
		theString += '<LAYER type="ACETATE" name="theNorthArrow">\n';
		theString += '<OBJECT units="PIXEL">\n<NORTHARROW type="' + NorthArrowType + '" size="' + NorthArrowSize + '" coord="' + NorthArrowCoords + '" shadow="32,32,32" ';
		theString += 'angle="' + NorthArrowAngle + '" antialiasing="True" overlap="False" />\n</OBJECT>\n';
		theString += '</LAYER>\n';
	}
	if (drawScaleBar) {
		// draw a scale bar
		//var sbDistance = getScaleBarDistance();
		ScaleBarPrecision = numDecimals;
		theString += '<LAYER type="ACETATE" name="theScaleBar">\n';
		theString += '<OBJECT units="PIXEL">\n';
		theString += '<SCALEBAR coord="' + parseInt(iWidth * 0.60) + ' 2" outline="' + ScaleBarBackColor + '" ';
		theString += 'font="' + ScaleBarFont + '" fontcolor="' + ScaleBarFontColor + '" style="' + ScaleBarStyle + '" barcolor="' + ScaleBarColor + '" ';
		theString += 'mapunits="' + MapUnits + '" scaleunits="' + ScaleBarUnits + '" antialiasing="True" ';
		theString += 'precision="' + ScaleBarPrecision + '" ';
		theString += 'screenlength="' + parseInt(iWidth * 0.25) + '" ';
		//theString += 'distance="' + sbDistance + '" ';
		theString += 'fontsize="' + ScaleBarSize + '" barwidth="' + ScaleBarWidth + '" overlap="False"  />\n</OBJECT>\n';
		theString += '</LAYER>\n';	
	}
	
	// any custom stuff to fit here
	if (aimsCustomPresent) theString += addCustomToMap3();

	if (drawModeOnMap) {
		// draw the current mode on the map
		theString += '<LAYER type="ACETATE" name="theMode">\n';
		theString += '<OBJECT units="PIXEL">\n<TEXT coord="5,' + (iHeight-10) + '" label="' + modeBlurb + '">\n';
		theString += '<TEXTMARKERSYMBOL style="BOLD" fontsize="12" font="ARIAL" fontcolor="' + modeMapColor + '" background="TRUE" backcolor="255,255,255"  threed="TRUE" glowing="TRUE" glowcolor="' + modeMapGlow + '" />\n</TEXT>\n</OBJECT>';
	
	}
	
	// any custom stuff to be drawn on top of everything
	if (aimsCustomPresent) theString += addCustomToMap4();

	theString += '</GET_IMAGE>\n</REQUEST>\n</ARCXML>';
	//alert(theString);
	return theString;
}

// prepare the request in xml format for overview map
function writeOVXML() {
	var extentRatio = xDistance/fullWidth;
	var midX = left + xHalf;
	var midY = bottom + yHalf;
	var theString = '<ARCXML VERSION="1.0.1">\n<REQUEST>\n<GET_IMAGE><PROPERTIES>\n<ENVIRONMENT><SEPARATORS cs="," ts=","/></ENVIRONMENT>\n<ENVELOPE minx="' + fullOVLeft + '" miny="' + fullOVBottom + '" maxx="' + fullOVRight + '" maxy="' + fullOVTop + '" />\n';
	theString += '<IMAGESIZE height="' + i2Height + '" width="' + i2Width + '" />\n';
	if ((toggleOVVisible) && (imsURL==imsOVURL)) {
		theString += '<LAYERLIST >\n';
		for (var i=0;i<layerCount;i++) {
			if (LayerVisible[i]==1) {
				visString = "true";
			}
			else {
				visString = "false";
			}
			theString += '<LAYERDEF name="' + LayerName[i] + '" visible="' + visString + '" />\n';
			
		}
		theString += '</LAYERLIST>\n';
	}
	if (mapBackColor!="") {
		theString += '<BACKGROUND color="' + mapBackColor + '" />\n';
	}
	
	theString += '</PROPERTIES>\n';
	if (drawOVExtentBox) {
		theString += '<LAYER type="ACETATE" name="ACETATE">\n';
		if (extentRatio<0.01) {
			theString += '<OBJECT units="DATABASE">\n<POINT coord="' + midX + ',' + midY + '">\n';
			theString += '<SIMPLEMARKERSYMBOL  type="Square" color="' + ovBoxColor + '" size="4" />\n</POINT></OBJECT>\n';
		} else {
			theString += '<OBJECT units="DATABASE">\n<LINE coords="' + left + ',' + bottom + ',' + left + ',' + top + ',';
			theString += right + ',' + top + ',' + right + ',' + bottom + ',' + left + ',' + bottom + '">\n';
			theString += '<SIMPLELINESYMBOL type="SOLID" color="' + ovBoxColor + '" width="3" />\n</LINE></OBJECT>\n';
		}
		theString += '</LAYER>\n';
	}
	theString += '</GET_IMAGE>\n</REQUEST>\n</ARCXML>';
	//alert(theString);
	return theString;
}

// get the map extents from xml reply
function getXYs(theString) {
	var tempStr = "";
	var smallStr = "";
	var startpos = 0;
	var endpos = 0;
	var theReply = theString
	var theXYs =  getEnvelopeXYs(theString, 0)
	left = theXYs[0];
	bottom = theXYs[1];
	right = theXYs[2];
	top = theXYs[3];
	/*
	// left
	 tempStr = getInsideString(theString,'MINX="',dQuote,0,0,false);
	 if (tempStr!="") left = parseFloat(tempStr);
	// bottom
	 tempStr = getInsideString(theString,'MINY="',dQuote,0,0,false);
	 if (tempStr!="") bottom = parseFloat(tempStr);
	// right
	 tempStr = getInsideString(theString,'MAXX="',dQuote,0,0,false);
	 if (tempStr!="") right = parseFloat(tempStr);
	// top
	 tempStr = getInsideString(theString,'MAXY="',dQuote,0,0,false);
	 if (tempStr!="") top = parseFloat(tempStr);
	 */
	xDistance = Math.abs(right-left);
	yDistance = Math.abs(top-bottom);
	xHalf = xDistance / 2;
	yHalf = yDistance / 2;
	panX = xDistance * panFactor;
	panY = yDistance * panFactor;
	var sFactor = xDistance / iWidth
	if (aimsLayersPresent) {
		if (sFactor!=mapScaleFactor) {
			mapScaleFactor = sFactor;
			//bufferSmoothEdges = mapScaleFactor;
			if ((hasTOC) && (!legendVisible)) parent.TOCFrame.document.location = appDir + "toc.htm";
			if (aimsLayersPresent) {
				if (LayerListOpen) writeLayerListForm();
			}
			
		} 
	}
}


// get the map extents from xml reply
function getOVXYs(theString) {
	var tempStr = "";
	var smallStr = "";
	var startpos = 0;
	var endpos = 0;
	var theXYs =  getEnvelopeXYs(theString, 0)
	fullOVLeft = theXYs[0];
	fullOVBottom = theXYs[1];
	fullOVRight = theXYs[2];
	fullOVTop = theXYs[3];
	/*
	var theReply = theString.toUpperCase();
	// left
	 tempStr = getInsideString(theString,'MINX="',dQuote,0,0,false);
	 if (tempStr!="") fullOVLeft = parseFloat(tempStr);
	// bottom
	 tempStr = getInsideString(theString,'MINY="',dQuote,0,0,false);
	 if (tempStr!="") fullOVBottom = parseFloat(tempStr);
	// right
	 tempStr = getInsideString(theString,'MAXX="',dQuote,0,0,false);
	 if (tempStr!="") fullOVRight = parseFloat(tempStr);
	// top
	 tempStr = getInsideString(theString,'MAXY="',dQuote,0,0,false);
	 if (tempStr!="") fullOVTop = parseFloat(tempStr);
	*/ 
	//if (getLimitExtent) {
	//	fullWidth = Math.abs(fullRight-fullLeft);
	//	fullHeight = Math.abs(fullTop-fullBottom);
	//}
	fullOVWidth = Math.abs(fullOVRight - fullOVLeft);
	fullOVHeight = Math.abs(fullOVTop - fullOVBottom);
	//alert("Left:" + fullLeft + "\nTop:" + fullTop + "\nRight:" + fullRight + "\nBottom:" + fullBottom);
}

// get URL
function getURL(theReply) {
	var theURL = "";
	var startpos = 0;
	var endpos = 0;

	var pos = theReply.indexOf("OUTPUT");
	if (pos != -1) {
		theURL = getInsideString(theReply,'url="',dQuote,pos,0,false);
		if (theURL!="") {
				endpos = theURL.lastIndexOf("/");
				theImageURLPath = theURL.substring(0,(endpos+1));
				startpos = theURL.lastIndexOf(".");
				var theType = theURL.substring(startpos+1,theURL.length);
				//alert("Image type: " + theType);
				if (theType.toUpperCase()=="GIF") {
					theImageType = "GIF";
				} else {
					theImageType = "PNG";
				}
				if (theType.toUpperCase()=="JPG") {
					noOverlay = true;
				}
				startpos = theReply.indexOf("file=",pos);
				if (startpos != -1) {
					startpos += 6;
					endpos = theReply.indexOf(dQuote,startpos);
					thePath = theReply.substring(startpos,endpos);
					endpos = thePath.lastIndexOf("\\");
					
					theImagePath = thePath.substring(0,(endpos+1));
					startpos = endpos + 1;
					endpos = thePath.indexOf("_",startpos);
					theServiceName = thePath.substring(startpos,endpos);
				}
		}
	}
	legendImage = getLegendURL(theReply);
	return theURL;

}


// getLegendURL
function getLegendURL(theReply) {
	var theURL = "";
	var startpos = 0;
	var endpos = 0;
	var pos = theReply.indexOf("LEGEND");
	//alert(pos);
	if (pos != -1) {
		theURL = getInsideString(theReply,'url="',dQuote,pos,0,false);
	}
	//alert("Legend:" + theURL);
	return theURL;

}

// just make a map with URL and  extent
function justGetMap(theURL, extentLeft, extentTop, extentRight, extentBottom, getOVMap) {
	//var tempLeft = left;
	//var tempTop = top;
	//var tempRight = right;
	//var tempBottom = bottom
	var mode = 900;
	if (getOVMap) mode = 1;
	if (extentLeft!="") left = extentLeft;
	if (extentTop!="") top = extentTop
	if (extentRight!="") right = extentRight;
	if (extentBottom!="") bottom = extentBottom;
	var theText = writeXML();
	if (debugOn==2) alert("Sending:\n\n" + theText);	
	sendToServer(theURL,theText,mode);
	
}

// replace +  in string with space to allow parsing of unescaped xml response
function replacePlus(inText) {
	var pos=9;
	while (pos != -1) {
		pos = inText.indexOf('+');
		if (pos!=-1) {
			var lastpos = inText.length;
			var midend = pos;
			var midstart = pos + 1;
			var leftSide = inText.substring(0,midend);
			var rightSide = inText.substring(midstart,lastpos);
			inText = leftSide + " " + rightSide;
		}
	}
	return inText;
}

// get the substring between beforeString and afterString, starting at startpos
// 		must be found before limitpos (0 for no limit) 
// 		caseSensitive = true or false
function getInsideString(inString,beforeString,afterString,startpos,limitpos,caseSensitive) {
	var returnString = "";
	var ucInString = inString;
	var ucBefore = beforeString;
	var ucAfter = afterString;
	if (limitpos==0) limitpos = inString.length;
	if (!caseSensitive) {
		ucInString = inString.toUpperCase();
		ucBefore = beforeString.toUpperCase();;
		ucAfter = afterString.toUpperCase();;
	}
	pos = ucInString.indexOf(ucBefore,startpos);
	//alert(startpos);
	if ((pos != -1) && (pos<limitpos)) {
		pos = pos + ucBefore.length;
		var endpos = ucInString.indexOf(ucAfter,pos);
		returnString = inString.substring(pos,endpos);
	}	
	
	return returnString;
}

// get min and max x,y's from xml stream . . . return an array with values
function getEnvelopeXYs(theString, startpos) {
	var theEnvelope = new Array();
	theString = theString.toUpperCase();
	var pos = theString.indexOf("ENVELOPE",startpos);
	if (pos!=-1) {
		pos = pos + 8;
		startpos = theString.indexOf("MINX=",pos);
		startpos += 6;
		var endpos = theString.indexOf(dQuote,startpos);
		theEnvelope[0] = parseFloat(theString.substring(startpos,endpos)); 
		startpos = theString.indexOf("MINY=",pos);
		startpos += 6;
		endpos = theString.indexOf(dQuote,startpos);
		theEnvelope[1] = parseFloat(theString.substring(startpos,endpos)); 
		startpos = theString.indexOf("MAXX=",pos);
		startpos += 6;
		endpos = theString.indexOf(dQuote,startpos);
		theEnvelope[2] = parseFloat(theString.substring(startpos,endpos)); 
		startpos = theString.indexOf("MAXY=",pos);
		startpos += 6;
		endpos = theString.indexOf(dQuote,startpos);
		theEnvelope[3] = parseFloat(theString.substring(startpos,endpos)); 
		xmlEndPos = endpos;
	}
	return theEnvelope;

}

// check if there is an error message in the response
function getXMLErrorMessage(theString) {
	var pos1 = 0;
	var pos2 = 0;
	var pos3 = 0;
	theError = "";
	pos3 = theString.indexOf("<ERROR");
	if (pos3!=-1) {
		pos1 = theString.indexOf(">",pos3);
		pos1 += 1;
		pos2 = theString.indexOf("</ERROR");
		theError = theString.substring(pos1,pos2)
	}
	return theError;

}

// check if theURL has different host from theHost
function isNotSameHostInURL(theURL, theHost) {
	var startpos = theURL.indexOf("//");
	if (startpos==-1) {
		startpos = 0;
	} else {
		startpos = startpos + 2;
	}
	var endpos = theURL.indexOf("/",startpos);
	if (endpos==-1) endpos = theURL.length;
	var thisHost = theURL.substring(startpos,endpos);
	if (thisHost==theHost) {
		return false;
	} else {
		return true;
	}
}