[(#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)]})][(#CACHE{0})][(#HTTP_HEADER{Content-Disposition: attachment; filename=#ENV{filename}.csv})][
  (#REM)  
  	Le 'perimetre' est un fichier temporaire geojson 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}) ][
    (#SET{confidentialite,#LISTE{rien}}) ][
    (#AUTORISER{exporter,observation}|oui)[(#SET{confidentialite,#LISTE{non}})] ][
    (#AUTORISER{debusquer,observation}|oui)[(#SET{confidentialite,#LISTE{oui,non,inconnu}})]
  ]<BOUCLE_obs2(BIODIV_OBSERVATIONS) 
        {discret IN #GET{confidentialite}}
        {lat <= #GET{maxlat} }
        {lat >= #GET{minlat} }
        {lng <= #GET{maxlng} } 
        {lng >= #GET{minlng} }
        >[(#REM)
    #ID_OBSERVATION dans la bbox
  ][(#SET{obsl,[(#GET{obsl}|push{#ARRAY{id,#ID_OBSERVATION,lat,#LAT,lng,#LNG}})]})
  ]</BOUCLE_obs2>[
  (#SET{obsok,[(#GET{obsl}|lieu_polygonal{[(#ENV{perimetre})]})]})
]"ObsId";"Sujet";"Date";"Titre";"TypeObs";"Espèce";"id_espece";"Identification";"Rubrique";"CD_REF";"Règne";"Group1";"Group2";"Quantité";"Latitude";"Longitude";"Confidentiel";"Adresse";"Commune";"INSEE";"Observateur";
<BOUCLE_observ(BIODIV_OBSERVATIONS) {id_observation IN #GET{obsok}} {par id_observation}>
"#ID_OBSERVATION";"#ID_SUJET";"[(#DATE_OBS|affdate{'d/m/Y'})]";"[(#TITRE|textebrut|replace{\"})]";"[(#TYPE_OBS|textebrut|replace{\"})]";"[(#ESPECE|textebrut|replace{\"})]";"#ID_ESPECE";<BOUCLE_ae(ARTICLES) {id_article=#ID_ESPECE}>"[(#TITRE|textebrut|replace{\"})]";"[(#INFO_TITRE{rubrique,#ID_RUBRIQUE}|textebrut|replace{\"})]";</BOUCLE_ae>"";"";<//B_ae><BOUCLE_tx(TAXREFS) {id_espece=#ID_ESPECE}{par creation} {inverse} {0,1}>"#CD_REF";"#REGNE";"#GROUP1";"#GROUP2";</BOUCLE_tx>"";"";"";"";<//B_tx>"#QUANTITE";#LAT;#LNG;"#DISCRET";"[(#ADRESSE|textebrut|replace{\"})]";"[(#COMMUNE|textebrut|replace{\"})]";[(#INSEE)];"[(#MODELE{observation_auteur}{id_observation=#ID_OBSERVATION}|textebrut|replace{\"})]";</BOUCLE_observ>