<?php
//Step 1. Set up the web service client.
require 'nusoap/nusoap.php';
$client = new soapclient('http://212.219.37.104/NBNWebServices/ws/WSDL', 'wsdl');
if($client->fault){
echo "FAULT: <p>Code: {$client->faultcode} >br />";
echo "String: {$client->faultstring} </p>";
}


//Step 2. Create a query i.e. the 'Input Parameters'
// set the parameters for the map
$query = '<GridMapRequest
xmlns="http://webservices.searchnbn.net/query"
xmlns:xlink="http://www.w3.org/1999/xlink"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">';
$query = $query.'<TaxonVersionKey>';
$TVK = 'NBNSYS0000005133';
$query = $query.$str2.$TVK.'</TaxonVersionKey>';
$query = $query.'<Resolution>_2km</Resolution>'; //10km
$query = $query.'<GridMapSettings>';
$query = $query.'<Width>300</Width>';
$query = $query.'<Height>300</Height>';
$query = $query.'<Background>OSMap</Background>'; //None
$query = $query.'<ViceCounty>93</ViceCounty>'; //Any 92 is south Aberdeenshire
$query = $query.'<Region>GB</Region>'; //GBIreland
$query = $query.'<FillColour>#FF0000</FillColour>';
$query = $query.'<Grid>None</Grid>'; //Grid_10km
$query = $query.'</GridMapSettings>';
$query = $query.'<Classification>';
$query = $query.'<Band border="#FF0000" fill="#FF0000" from="1900" to="1970" />';
$query = $query.'<Band border="#00FF00" fill="#00FF00" from="1971" to="1995" />';
$query = $query.'<Band border="#0000FF" fill="#0000FF" from="1996" to="2006" />';
$query = $query.'</Classification>';
$query = $query.'</GridMapRequest>';

//Step 3.Send the request.
$response = $client->call('GetGridMap', $query );

//Step 4. Display map and species name.
$Map = $response['Map'];
$Species = $response['Species'];

print '<H2>Grid map for '.$Species['Spp'].' ('.$Species['CommonName'].')</H2>';
print '<div align="center"><img src="'.$Map['Url'].'" /></div>';
echo"<br>";

//Step 5. Display the list of datasets.
print '<TABLE BORDER=3 WIDTH=100% CELLPADDING=2 CELLSPACING=3 BGCOLOR=#FFFFFF>';
print '<tr><td><H2>Data Summary -';
print '</H2></td></tr>';

$DatasetDetails = $response['DatasetSummaryList'];
$MyDatasetSummary = $DatasetDetails['DatasetSummary'];
$CountDatasetSummary = count($MyDatasetSummary);
//now loop though summaries
$i=0;
do
{
$MyDatasetSummarySubset = $MyDatasetSummary[$i];
$MyProviderMetadata = $MyDatasetSummarySubset['ProviderMetadata'];
print '<tr><td bgcolor="#FFFFFF">'.$MyProviderMetadata['DatasetTitle'].'</td>';
print '<td bgcolor="#FFFFFF">'.$MyProviderMetadata['DatasetProvider'].'</td></tr>';
$i++;
}
while ($i<$CountDatasetSummary);

print '</table>';
echo"<br>";

//Step 6. Display NBN logo and terms and conditions.
print '<TABLE BORDER=3 WIDTH=100% CELLPADDING=2 CELLSPACING=3 BGCOLOR=#FFFF99>';
print '<tr>';
print '<td align="left"><a href="'.$response['!termsAndConditions'].'">Gateway terms and conditions</a></td>';
print '<td align="right"><a href="http://www.searchnbn.net"><img
border="0" src="'.$response['!NBNLogo'].'" /></a></td>';
print '</tr>';
print '</table>';
?>