[(#REM)
/*******************************************************************************\
 * BIODIV, plugin et squelette pour SPIP - https://www.spip.net/               *
 *         dédié à la gestion d'observations naturalistes                      *
 *                                                                             *
 *         Copyright (C) 2008-2024 Renaud LAURETTE                             *
 *                                                                             *
 * BIODIV a été développé initialement pour le projet Biodiv.Balma de l'APCVEB *
 * (Association de Protection du Cadre de Vie et de l'Environnement balmanais) * 
 *     voir Biodiv.Balma : https://balma.biodiv.fr/                            *
 *     voir APCVEB : https://apcveb.fr/                                        *
 *                                                                             *
 *  Ce programme est un logiciel libre distribué sous licence GNU/GPL.         *
 *  Pour plus de détails voir les fichier COPYING.txt et LICENCE-BIODIV.md     *
\*******************************************************************************/
][(#HTTP_HEADER{Content-type: text/csv[;charset=(#CHARSET)]})][(#HTTP_HEADER{Content-Disposition: attachment; filename=observations-#ENV{regne}-lieu.csv})]#CACHE{0}[
  (#SET{confidentialite,#LISTE{rien}})
][(#AUTORISER{exporter,observation}|oui)[(#SET{confidentialite,#LISTE{non}})
]][(#AUTORISER{debusquer,observation}|oui)[(#SET{confidentialite,#LISTE{oui,non,inconnu}})
]][(#REM)  
  	Le 'perimetre' est un fichier geojson (ou lieu) contenant la description du lieu.
  	On charge les limites de la bounding box. 	
  ][
  	(#SET{bbox,[(#ENV{perimetre}|bounding_box)]})][
  	(#SET{maxlat,[(#GET{bbox}|table_valeur{maxlat})]})][
  	(#SET{minlat,[(#GET{bbox}|table_valeur{minlat})]})][
  	(#SET{maxlng,[(#GET{bbox}|table_valeur{maxlng})]})][
  	(#SET{minlng,[(#GET{bbox}|table_valeur{minlng})]})
  ][(#REM)
  	Avec la bounding box, on peut récupérer les observations
  	puis les filtrer selon le polygone du lieu.	
][(#SET{obsl, #ARRAY})
]"Obs";"Sujet";"Date";"Titre";"id_espece";"Identification";"CD_REF";"CD_NOM";"Quantite";"Denombrement";"Latitude";"Longitude";"Confidentiel";"Adresse";"Commune";"INSEE";"Observateur";
<BOUCLE_esp(TAXREFS) {regne}>[(#REM)
]<BOUCLE_observ(BIODIV_OBSERVATIONS) 
	{id_source=1} {type_obs=espece}
	{date_obs >= #ENV{de}}{date_obs <= #ENV{a}}
	{id_espece=#ID_ESPECE} 
	{discret IN #GET{confidentialite}} 
	{lat <= #GET{maxlat} }
    {lat >= #GET{minlat} }
    {lng <= #GET{maxlng} } 
    {lng >= #GET{minlng} }
    >[(#SET{obsl,[(#GET{obsl}|push{#ARRAY{id,#ID_OBSERVATION,lat,#LAT,lng,#LNG}})]})][(#REM)
]</BOUCLE_observ>[(#REM)
]</BOUCLE_esp>[(#SET{obsok,[(#GET{obsl}|lieu_polygonal{[(#ENV{perimetre})]})]})
]<BOUCLE_obs2(BIODIV_OBSERVATIONS) {id_observation IN #GET{obsok}}{par id_observation}>
#ID_OBSERVATION;#ID_SUJET;"[(#DATE_OBS|affdate{'d/m/Y'})]";"[(#TITRE|textebrut|replace{\"})]";#ID_ESPECE;<BOUCLE_tx(TAXREFS) {id_espece=#ID_ESPECE} {par creation} {inverse} {0,1}>"[(#NOM|textebrut|replace{\"})]";#CD_REF;#ID_TAXREF;</BOUCLE_tx>#QUANTITE;"[(#DENOMBREMENT|textebrut|replace{\"})]";#LAT;#LNG;"#DISCRET";"[(#ADRESSE|textebrut|replace{\"})]";"[(#COMMUNE|textebrut|replace{\"})]";[(#INSEE)];"[(#MODELE{observation_auteur}{id_observation=#ID_OBSERVATION}|textebrut|replace{\"})]";</BOUCLE_obs2>