Subversion Repositories eFlore/Applications.cel

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1374 aurelien 1
<?php
2
/**
3
* Service fournissant des informations concernant le CEL au format RSS1, RSS2 ou ATOM.
4
* Encodage en entrée : utf8
5
* Encodage en sortie : utf8
6
* Format du service :
7
* /CelWidgetExport/format
8
* /CelWidgetExport/csv
9
*
10
* Les paramêtres :
11
*  - "start" indique le numéro du premier item à afficher
12
*  - "limit" nombre d'items à afficher
13
*
14
* @author Aurélien Peronnet <aurelien@tela-botanica.org>
15
* @license GPL v3 <http://www.gnu.org/licenses/gpl.txt>
16
* @license CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
17
* @version $Id$
18
* @copyright 2012
19
*/
20
class CelWidgetExport extends Cel {
21
 
1408 aurelien 22
	private $nom_fichier_export = 'cel_export';
1374 aurelien 23
	private $champs_a_exclure = array('ce_utilisateur' => 'ce_utilisateur',
24
		'courriel_utilisateur' => 'courriel_utilisateur',
25
		'transmission' => 'transmission');
26
	private $correspondance_champs = array(
27
		'id_observation' => 'Identifiant Observation',
28
		'ordre' => 'Ordre Observation',
29
		'prenom_utilisateur' => 'Prénom',
30
		'nom_utilisateur' => 'Nom',
31
		'nom_sel' => 'Nom Sélectionné',
32
		'nom_sel_nn' => 'Numéro Nomenclatural Nom Selectionné',
33
		'nom_ret' => 'Nom Retenu',
34
		'nom_ret_nn' => 'Numéro Nomenclatural Nom Retenu',
35
		'nt' => 'Numéro Taxonomique',
36
		'famille' => 'Famille',
37
		'nom_referentiel' => 'Référentiel Taxonomique',
38
		'ce_zone_geo' => 'Code Insee',
39
		'zone_geo' => 'Commune',
40
		'lieudit' => 'Lieu-Dit',
41
		'station' => 'Station',
42
		'milieu' => 'Milieu',
43
		'latitude' => 'Latitude',
44
		'longitude' => 'Longitude',
45
		'geodatum' => 'Référentiel Géographique',
46
		'date_observation' => 'Date Observation',
47
		'mots_cles_texte' => 'Mots Clés',
48
		'commentaire' => 'Commentaires',
49
		'date_creation' => 'Date Création',
50
		'date_modification' => 'Date Modification',
51
		'date_transmission' => 'Date Transmission'
52
		);
1376 aurelien 53
	private $parametres_autorises = array(
54
		'utilisateur' => 'courriel_utilisateur',
55
		'commune' => 'zone_geo',
56
		'dept' => 'departement',
57
		'projet' => 'mots_cles',
1379 aurelien 58
		'num_taxon' => 'nt',
1378 aurelien 59
		'date_debut' => 'date_debut',
1387 aurelien 60
		'date_fin' => 'date_fin',
61
		'taxon' => 'taxon'
1376 aurelien 62
	);
1402 aurelien 63
 
64
	private $format = 'csv';
1374 aurelien 65
 
66
	/**
67
	 * Méthode appelée avec une requête de type GET.
68
	 */
69
	public function getElement($params = array()) {
70
 
1376 aurelien 71
		$criteres = $this->traiterParametres($_GET);
1402 aurelien 72
 
1374 aurelien 73
		// Seulement les observation publiques
74
		$criteres['transmission'] = 1;
75
		$chercheur_observations = new RechercheObservation($this->config);
76
 
1379 aurelien 77
		$numero_page = isset($criteres['debut']) ? $criteres['debut'] : 0;
78
		$limite = isset($criteres['limite']) ? $criteres['limite'] : 0;
1374 aurelien 79
 
80
		unset($criteres['limite']);
81
		unset($criteres['debut']);
82
 
83
		$observations = $chercheur_observations->rechercherObservations(null, $criteres, $numero_page, $limite);
1429 aurelien 84
		//echo count($observations);exit;
1402 aurelien 85
		switch($this->format) {
86
			case 'csv':
87
				$csv = $this->convertirEnCsv($observations);
88
				$this->envoyerCsv($csv);
89
			break;
90
			case 'xls':
91
				$xls = $this->convertirEnXls($observations);
92
				$this->envoyerXls($xls);
93
			break;
94
			default:
95
		}
1374 aurelien 96
	}
97
 
1376 aurelien 98
	protected function traiterParametres(Array $parametres) {
99
		$parametres_traites = array();
1402 aurelien 100
		$this->format = (isset($parametres['format']) && $parametres['format'] != '') ? $parametres['format'] : $this->format;
1376 aurelien 101
		foreach($parametres as $cle => $valeur) {
102
			if(trim($valeur) != '' && isset($this->parametres_autorises[$cle])) {
103
				$parametres_traites[$this->parametres_autorises[$cle]] = $valeur;
104
			}
105
		}
106
		return $parametres_traites;
107
	}
108
 
1374 aurelien 109
	private function envoyerCsv($csv) {
110
		header('Content-Type: text/csv; charset=UTF-8');
1408 aurelien 111
		header('Content-Disposition: attachment;filename='.$this->nom_fichier_export.'.csv');
1374 aurelien 112
		echo $csv;
1376 aurelien 113
		exit;
1374 aurelien 114
	}
115
 
1402 aurelien 116
	private function envoyerXls($workbook) {
117
		$workbook->close();
118
		exit;
119
	}
120
 
1374 aurelien 121
	private function convertirEnCsv($data)
122
	{
123
		$chemin_temp = "php://temp";
124
		$outstream = fopen($chemin_temp, 'r+');
125
		$intitule_champs = array();
126
		foreach($data as $ligne) {
1429 aurelien 127
			$ligne = $this->filtrerDonneesSensibles($ligne);
1374 aurelien 128
			$ligne = array_diff_key($ligne, $this->champs_a_exclure);
129
			if(empty($intitule_champs)) {
130
				$intitule_champs = $this->creerEntetesChamps($ligne);
131
				fputcsv($outstream, $intitule_champs, ',', '"');
132
			}
133
			fputcsv($outstream, $ligne, ',', '"');
134
		}
135
		rewind($outstream);
136
		$csv = stream_get_contents($outstream);
137
		fclose($outstream);
138
		return $csv;
139
	}
140
 
1402 aurelien 141
	private function convertirEnXls($data) {
142
		$this->extendSpreadsheetProductor = new SpreadsheetProductor();
143
		$this->extendSpreadsheetProductor->initSpreadsheet();
144
 
145
		$workbook = new Spreadsheet_Excel_Writer();
146
 
147
		$worksheet = $workbook->addWorksheet('Liste');
1408 aurelien 148
		$workbook->send($this->nom_fichier_export.'.xls');
1402 aurelien 149
 
150
		$nb_lignes = 1;
151
 
152
		foreach($data as $ligne) {
1429 aurelien 153
			$ligne = $this->filtrerDonneesSensibles($ligne);
1402 aurelien 154
			$ligne = array_diff_key($ligne, $this->champs_a_exclure);
155
			if(empty($intitule_champs)) {
156
				$intitule_champs = $this->creerEntetesChamps($ligne);
157
				$indice = 0;
158
				foreach ($intitule_champs as $intitule) {
1465 aurelien 159
					$colonne = $intitule_champs[$indice];
160
					$colonne = mb_convert_encoding($colonne, 'ISO-8859-15', 'UTF-8');
161
					$worksheet->write(0,$indice,$colonne);
1402 aurelien 162
					$indice++;
163
				}
164
			}
165
			$indice = 0;
166
			foreach($ligne as $champ) {
1465 aurelien 167
				$champ = mb_convert_encoding($champ, 'ISO-8859-15', 'UTF-8');
1402 aurelien 168
				$worksheet->write($nb_lignes,$indice,$champ);
169
				$indice++;
170
			}
171
			$nb_lignes++;
172
		}
173
		return $workbook;
174
	}
175
 
1374 aurelien 176
	private function creerEntetesChamps($noms_colonnes) {
177
		$champs_presents = array_intersect_key($this->correspondance_champs, $noms_colonnes);
178
		return array_values($champs_presents);
179
	}
1401 aurelien 180
 
1429 aurelien 181
	private function filtrerDonneesSensibles($ligne) {
182
		if(stripos($ligne['mots_cles_texte'], 'sensible') !== false) {
183
			$ligne['latitude'] = '';
184
			$ligne['longitude'] = '';
185
		}
186
		return $ligne;
187
	}
188
 
1401 aurelien 189
	private function nettoyerChaine($chaine) {
190
		$chaine = str_replace("\n",' ',$chaine);
191
		$chaine = str_replace("\t",'',$chaine);
192
		return $chaine;
193
	}
1374 aurelien 194
}
195
?>