// Call to an AJAX procedure that returns a Json string
sZone is string
sZone = AJAXExecute(ajaxStraightCall, ServerProcReturnJsonData, "Eiffel Towel")

// Transforms the received JSon buffer into object
EXTERN JSON // Informs the compiler not to trigger any error on JSON.xxxx (JavaScript object)
stZone is object dynamic = JSON.parse(sZone)

// Analyze the result
IF NOT stZone.bFound THEN
	Info("Zone not found", stZone.sErrorMessage)
ELSE
	// The points to display
	APosition is geoPosition
	FOR n = 1 _TO_ stZone.aaCoordinates..Count
		APosition.Latitude = stZone.aaCoordinates[n].rLatitude 
		APosition.Longitude = stZone.aaCoordinates[n].rLongitude
		MapAddMarker(MAP_Plan, APosition)
	END
	// The center of the map
	APosition.Latitude = stZone.stCenter.rLatitude
	APosition.Longitude = stZone.stCenter.rLongitude
	MapDisplayPosition(MAP_Plan, APosition)
	// The zoom
	MAP_Plan..Zoom = stZone.nZoom
	ToastDisplay("Zone " + stZone.sZoneName + " displayed")
END

// ------------------------------------ 
// --Server procedure ServerProcReturnJsonData 
// ------------------------------------
PROCEDURE ServerProcReturnJsonData(...
	sParameterZoneName is string <useful="Name of the zone for which to get the coordinates">)

// Structure to store a point
st_MapPoint is Structure
	rLatitude is real
	rLongitude is real
END
// Structure to return to the page
st_DataForBrowserCode is Structure
	sZoneName is string 
	// To manage the error cases
	bFound is boolean
	sErrorMessage is string
	// Center of the map and zoom
	stCenter is st_MapPoint 
	nZoom is int
	// Other points
	aaCoordinates is array of st_MapPoint
END
// Variable to store what must be sent to the page
stResForPage is st_DataForBrowserCode
// Variable for the coordinates of a point
stAPoint is st_MapPoint

// Name of the zone
stResForPage.sZoneName = sParameterZoneName
 

// The zone could be found in a database:
//	IF not HReadSeekFirst(Zone, ZoneName, sParameterZoneName) THEN
//		stResForPage.bFound = False
//		stResForPage.sErrorMessage = "Zone not found"
//	ELSE
//		stResForPage.bFound = True
//		// then, read the informations of the zone
//		// etc.
//	END

// Return hard-coded data
stResForPage.bFound = True


// Add a point
stPoint.rLatitude = 48.860501
stAPoint.rLongitude = 2.295683
ArrayAdd(stResForPage.aaCoordinates, stAPoint)

// Add another point
stPoint.rLatitude = 48.859352
stAPoint.rLongitude = 2.297374
ArrayAdd(stResForPage.aaCoordinates, stAPoint)

// Add another point
stPoint.rLatitude = 48.856397
stAPoint.rLongitude = 2.293040
ArrayAdd(stResForPage.aaCoordinates, stAPoint)

// Add another point
stPoint.rLatitude = 48.857478 
stAPoint.rLongitude = 2.291176
ArrayAdd(stResForPage.aaCoordinates, stAPoint)
// etc...

// Center of the map
stResForPage.stCenter.rLatitude = 48.858288
stResForPage.stCenter.rLongitude = 2.294453
// Zoom of the map
stResForPage.nZoom = 15

// Serializes the data to transmit to the page in JSON
bufJson is Buffer
Serialize(stResForPage, bufJson, psdJSON)

RETURN bufJson