Subversion Repositories eFlore/Projets.eflore-projets

Rev

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

Rev Author Line No. Line
255 jpm 1 
<?php
2 
// declare(encoding='UTF-8');
3 
/**
4 
* Gère le sous-service Taxons de Cartes.
5 
*
6 
* @see http://www.tela-botanica.org/wikini/eflore/wakka.php?wiki=EfloreApi01Cartes
7 
*
8 
* @package eFlore/services
9 
* @author Jean-Pascal MILCENT <jpm@tela-botanica.org>
10 
* @license GPL v3 <http://www.gnu.org/licenses/gpl.txt>
11 
* @license CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
12 
* @version 1.0
13 
* @copyright 1999-2012 Tela Botanica (accueil@tela-botanica.org)
14 
*/
15 
// TODO : Config et Outils sont des classes statiques qui doivent poser des pb pour les tests...
16 
class TaxonsCartes {
17 
 
18 
	private $parametres = array();
19 
	private $ressources = array();
20 
 
260 jpm 21 
	const CODE_REFTAX_DEFAUT = 'bdtfx';
255 jpm 22 
	const TYPE_ID_DEFAUT = 'nn';
23 
	const CARTE_DEFAUT = 'france_02';
268 jpm 24 
	const FORMAT_DEFAUT = '587x550';
260 jpm 25 
	const VERSION_DEFAUT = '+';
255 jpm 26 
	const MIME_SVG = 'image/svg+xml';
27 
	const MIME_PNG = 'image/png';
28 
	const PRESENCE_CHOROLOGIE = '1';
29 
 
30 
	private $config = array();
268 jpm 31 
	private $convertisseur = '';
255 jpm 32 
	private $cheminCartesBase = '';
260 jpm 33 
	private $formatsSupportes = array(self::MIME_SVG, self::MIME_PNG);
34 
	private $reftaxSupportes = array(self::CODE_REFTAX_DEFAUT);
255 jpm 35 
	private $UrlNavigation = null;
36 
	private $taxonsDemandes = array();
37 
	private $imgLargeur = 0;
38 
	private $imgHauteur = 0;
39 
	private $tableMeta = '';
40 
	private $tableOntologie = '';
41 
	private $tableChorodep = '';
42 
	private $metadonnees = '';
43 
	private $ontologies = '';
44 
	private $priorites = '';
45 
	private $version = '';
46 
	private $legende = array();
47 
	private $donnees = array();
48 
 
49 
 
50 
	public function __construct(Conteneur $conteneur) {
51 
		$this->Bdd = $conteneur->getBdd();
52 
		$this->tableOntologie = $conteneur->getParametre('bdd_table_ontologies');
53 
		$this->config = $conteneur->getParametre('Cartes');
268 jpm 54 
		$this->convertisseur = $this->config['convertisseur'];
255 jpm 55 
		$this->tableMeta = $conteneur->getParametre('bdd_table_meta');
56 
		$this->tableOntologie = $conteneur->getParametre('bdd_table_ontologies');
57 
		$this->cheminCartesBase = $this->config['chemin'];
797 raphael 58 
		$cacheOptions = array('mise_en_cache' => $this->config['cache_miseEnCache'],
59 
					'stockage_chemin' => $this->config['cache_stockageChemin'],
60 
					'duree_de_vie' => $this->config['cache_dureeDeVie']);
255 jpm 61 
		$this->cache = $conteneur->getCacheSimple($cacheOptions);
62 
	}
63 
 
64 
	public function consulter($ressources, $parametres) {
65 
		$this->parametres = $parametres;
66 
		$this->ressources = $ressources;
67 
 
68 
		$this->definirValeurParDefautDesParametres();
69 
		$this->verifierParametres();
70 
 
71 
		$resultat = $this->obtenirResultat();
72 
 
73 
		return $resultat;
74 
	}
75 
 
76 
	private function definirValeurParDefautDesParametres() {
77 
		if (isset($this->parametres['retour']) == false) {
78 
			$this->parametres['retour'] = self::MIME_SVG;
79 
		}
80 
		if (isset($this->parametres['retour.format']) == false) {
81 
			$this->parametres['retour.format'] = self::FORMAT_DEFAUT;
82 
		}
260 jpm 83 
		if (isset($this->parametres['version.projet']) == false) {
84 
			$this->parametres['version.projet'] = self::VERSION_DEFAUT;
85 
		}
255 jpm 86 
	}
87 
 
88 
	private function verifierParametres() {
89 
		$erreurs = array();
90 
 
91 
		if (isset($this->parametres['retour']) == false) {
92 
			$erreurs[] = "Le paramètre type de retour 'retour' est obligatoire.";
93 
		}
94 
		if ($this->verifierValeurParametreRetour() == false) {
95 
			$erreurs[] = "Le type de retour '{$this->parametres['retour']}' n'est pas supporté.";
96 
		}
97 
		if (isset($this->parametres['retour.format']) == false) {
98 
			$erreurs[] = "Le paramètre de format de retour 'retour.format' est obligatoire.";
99 
		}
100 
		if ($this->verifierValeurParametreFormat() == false) {
101 
			$erreurs[] = "Le type de format '{$this->parametres['retour.format']}' n'est pas supporté.".
260 jpm 102 
				"Veuillez indiquer un nombre entier correspondant à la largeur désirée pour la carte.";
255 jpm 103 
		}
260 jpm 104 
		if ($this->verifierValeurParametreVersionProjet() == false) {
105 
			$erreurs[] = "Le format de version.projet '{$this->parametres['version.projet']}' n'est pas supporté.".
106 
				"Veuillez indiquer le code '+' (=dernière version) ou une année sur 4 chiffres séparé d'un mois ".
107 
				"sur deux chiffres par un point. Ex. : 2012.01";
108 
		}
255 jpm 109 
 
110 
		if (count($erreurs) > 0) {
111 
			$message = implode('<br />', $erreurs);
112 
			$code = RestServeur::HTTP_CODE_MAUVAISE_REQUETE;
113 
			throw new Exception($message, $code);
114 
		}
115 
	}
116 
 
117 
	private function verifierValeurParametreRetour() {
260 jpm 118 
		return in_array($this->parametres['retour'], $this->formatsSupportes);
255 jpm 119 
	}
120 
 
121 
	private function verifierValeurParametreFormat() {
122 
		if ($ok = preg_match('/^([0-9]+)$/', $this->parametres['retour.format'], $match)) {
123 
			$this->imgLargeur = $match[1];
124 
		} else if ($ok = preg_match('/^([0-9]+)x([0-9]+)$/', $this->parametres['retour.format'], $match)) {
125 
			$this->imgLargeur = $match[1];
126 
			$this->imgHauteur = $match[2];
127 
		}
128 
		return $ok;
129 
	}
260 jpm 130 
	private function verifierValeurParametreVersionProjet() {
131 
		$ok = (preg_match('/^(?:[+]|[0-9]{4}\.[0-9]{2})$/', $this->parametres['version.projet']) == 0) ? false : true;
132 
		return $ok;
133 
	}
255 jpm 134 
 
135 
	private function obtenirResultat() {
136 
		$this->analyserIdentifiants();
260 jpm 137 
		$this->verifierIdentifiants();
255 jpm 138 
 
260 jpm 139 
		$this->chargerMetadonnees();
140 
		$this->definirVersion();
141 
		$this->tableChorodep = 'chorodep_v'.str_replace('.', '_', $this->version);
142 
		$this->chargerOntologies();
143 
		$this->chargerLegende();
144 
		$this->chargerPrioritesLegende();
255 jpm 145 
		$this->chargerDonnees();
146 
		$svg = $this->genererSVG();
147 
		$img = ($this->parametres['retour'] == self::MIME_PNG) ? $this->convertirEnPNG($svg) : $svg;
148 
 
149 
		$resultat = new ResultatService();
150 
		$resultat->corps = $img;
151 
		$resultat->mime = $this->parametres['retour'];
152 
 
153 
		return $resultat;
154 
	}
155 
 
156 
	private function analyserIdentifiants() {
157 
		$ids = $this->ressources[0];
158 
		if (preg_match('/^[0-9]+$/', $ids)) {
159 
			$this->taxonsDemandes[self::CODE_REFTAX_DEFAUT]['nn'][] = $ids;
160 
		} else {
161 
			// ceci contient potentiellement des formes ref_tax1.nn:1,2;ref_tax2.nt:3,4
162 
			$projetsListeEtNumNoms = explode(';', $ids);
163 
			if (count($projetsListeEtNumNoms) > 0) {
164 
				foreach ($projetsListeEtNumNoms as $projetEtNumNoms) {
165 
					$projetEtNumNoms = (strpos($projetEtNumNoms, ':')) ? $projetEtNumNoms : self::CODE_REFTAX_DEFAUT.'.nn:'.$projetEtNumNoms;
166 
					list($projetEtType, $numNoms) = explode(':', $projetEtNumNoms);
260 jpm 167 
 
168 
					$projetEtType = (strpos($projetEtType, '.')) ? $projetEtType : self::CODE_REFTAX_DEFAUT.'.'.$projetEtType;
255 jpm 169 
					list($projet, $type) = explode('.', $projetEtType);
260 jpm 170 
 
255 jpm 171 
					$this->taxonsDemandes[$projet][$type] = explode(',', $numNoms);
172 
				}
173 
			}
174 
		}
175 
	}
176 
 
260 jpm 177 
	private function verifierIdentifiants() {
178 
		foreach (array_keys($this->taxonsDemandes) as $reftax) {
179 
			$ok = in_array($reftax, $this->reftaxSupportes);
180 
			if ($ok == false) {
181 
				$message = "Le reférentiel taxonomique '$reftax' n'est pas pris en compte par ce projet.";
182 
				$code = RestServeur::HTTP_CODE_MAUVAISE_REQUETE;
183 
				throw new Exception($message, $code);
184 
			}
185 
		}
186 
	}
187 
 
188 
	private function chargerMetadonnees() {
255 jpm 189 
		$requete = 'SELECT * '.
260 jpm 190 
			"FROM {$this->tableMeta} ".
191 
			"ORDER BY date_creation DESC ";
192 
		$resultats = $this->Bdd->recupererTous($requete);
255 jpm 193 
 
194 
		if (!is_array($resultats) || count($resultats) <= 0) {
260 jpm 195 
			$message = "Les méta-données n'ont pu être chargée pour la ressource demandée";
255 jpm 196 
			$code = RestServeur::HTTP_CODE_RESSOURCE_INTROUVABLE;
197 
			throw new Exception($message, $code);
198 
		}
199 
 
200 
		$this->metadonnees = $resultats;
260 jpm 201 
	}
255 jpm 202 
 
260 jpm 203 
	private function definirVersion() {
204 
		if ($this->parametres['version.projet'] == '+') {
205 
			$this->version = $this->metadonnees[0]['version'];
206 
		} else {
207 
			$this->version = $this->parametres['version.projet'];
208 
		}
255 jpm 209 
	}
210 
 
211 
	private function chargerOntologies() {
212 
		$requete = 'SELECT * '.
260 jpm 213 
			"FROM {$this->tableOntologie} ";
255 jpm 214 
		$resultats = $this->Bdd->recupererTous($requete);
215 
 
216 
		if (!is_array($resultats) || count($resultats) <= 0) {
217 
			$message = "Les données de légende n'ont pu être chargées pour la ressource demandée";
218 
			$code = RestServeur::HTTP_CODE_RESSOURCE_INTROUVABLE;
219 
			throw new Exception($message, $code);
220 
		}
221 
 
222 
		foreach ($resultats as $ontologie) {
223 
			$this->ontologies[$ontologie['id']] = $this->extraireComplementsOntologies($ontologie);
224 
		}
225 
	}
226 
 
227 
 
228 
	private function extraireComplementsOntologies($ontologie) {
229 
		if ($ontologie['complements'] != '') {
230 
			$complements = explode(',', trim($ontologie['complements']));
231 
			foreach ($complements as $complement) {
232 
				list($cle, $val) = explode('=', trim($complement));
233 
				$ontologie[trim($cle)] = trim($val);
234 
			}
235 
		}
236 
		return $ontologie;
237 
	}
238 
 
239 
	private function chargerLegende() {
240 
		foreach ($this->ontologies as $ontologie) {
241 
			if ($ontologie['classe_id'] == self::PRESENCE_CHOROLOGIE) {
242 
				$this->legende[$ontologie['code']] = $ontologie['legende'];
243 
			}
244 
		}
245 
	}
246 
 
247 
	private function chargerPrioritesLegende() {
248 
		foreach ($this->ontologies as $ontologie) {
249 
			if ($ontologie['classe_id'] == self::PRESENCE_CHOROLOGIE && isset($ontologie['priorite'])) {
250 
				$this->priorites[$ontologie['code']] = $ontologie['priorite'];
251 
			}
252 
		}
253 
	}
254 
 
255 
	private function chargerDonnees() {
256 
		$conditions = $this->getConditions();
257 
		$requete = 'SELECT * '.
258 
					"FROM {$this->tableChorodep} ".
259 
		(isset($conditions) ? 'WHERE '.implode(' AND ', $conditions) : '');
260 
		$resultat = $this->Bdd->recupererTous($requete);
261 
		$this->donnees = $resultat;
262 
	}
263 
 
264 
	private function getConditions() {
265 
		$conditions = null;
266 
		if ($nnListe = $this->getListeNumNom()) {
267 
			$conditions[] = "num_nom IN ($nnListe) ";
268 
		}
269 
		if ($ntListe = $this->getListeNumTax()) {
270 
			$conditions[] = "num_tax IN ($ntListe) ";
271 
		}
272 
		return $conditions;
273 
	}
274 
 
275 
	private function getListeNumNom() {
276 
		$nnListe = null;
277 
		$refTax = self::CODE_REFTAX_DEFAUT;
278 
		if (isset($this->taxonsDemandes[$refTax])) {
279 
			$nnProteges = array();
280 
			if (isset($this->taxonsDemandes[$refTax]['nn'])) {
281 
				foreach ($this->taxonsDemandes[$refTax]['nn'] as $nn) {
282 
					$nnProteges[] = $this->Bdd->proteger($nn);
283 
				}
284 
				$nnListe = implode(',', $nnProteges);
285 
			}
286 
		}
287 
		return $nnListe;
288 
	}
289 
 
290 
	private function getListeNumTax() {
291 
		$ntListe = null;
292 
		$refTax = self::CODE_REFTAX_DEFAUT;
293 
		if (isset($this->taxonsDemandes[$refTax])) {
294 
			$ntProteges = array();
295 
			if (isset($this->taxonsDemandes[$refTax]['nt'])) {
296 
				foreach ($this->taxonsDemandes[$refTax]['nt'] as $nt) {
297 
					$ntProteges[] = $this->Bdd->proteger($nt);
298 
				}
299 
				$ntListe = implode(',', $ntProteges);
300 
			}
301 
		}
302 
		return $ntListe;
303 
	}
304 
 
305 
	private function genererSVG() {
306 
		$dom = new DOMDocument('1.0', 'UTF-8');
307 
		$dom->validateOnParse = true;
308 
 
309 
		$fichierCarteSvg = $this->cheminCartesBase.self::CARTE_DEFAUT.'.svg';
310 
		$dom->load($fichierCarteSvg);
311 
 
312 
		$racineElement = $dom->documentElement;
313 
		$racineElement->setAttribute('width', $this->imgLargeur);
273 jpm 314 
		if ($this->imgHauteur != 0) {
315 
			$racineElement->setAttribute('height', $this->imgHauteur);
316 
		}
255 jpm 317 
 
318 
		$css = $this->creerCssCarte();
319 
		$styleElement = $dom->getElementsByTagName('style')->item(0);
320 
		$css = $styleElement->nodeValue.$css;
321 
		$txtCss = $dom->createCDATASection($css);
322 
		$styleElement->nodeValue = '';
323 
		$styleElement->appendChild($txtCss);
324 
 
325 
		$titre = $this->creerTitre();
326 
		$titreCdata = $dom->createCDATASection($titre);
327 
		$titreElement = $dom->getElementsByTagName('title')->item(0);
328 
		$titreElement->nodeValue = '';
329 
		$titreElement->appendChild($titreCdata);
330 
 
331 
		$taxonTitre = $this->creerTitreTaxon();
332 
		$taxonCdata = $dom->createCDATASection($taxonTitre);
333 
		$xpath = new DOMXPath($dom);
334 
		$taxonTitreEl = $xpath->query("//*[@id='titre-taxon']")->item(0);
335 
		$taxonTitreEl->nodeValue = '';
336 
		$taxonTitreEl->setAttribute('title', $taxonTitre);
337 
		$taxonTitreEl->appendChild($taxonCdata);
338 
 
339 
		$svg = $dom->saveXML();
340 
		return $svg;
341 
	}
342 
 
343 
	private function creerCssCarte() {
344 
		$css = '';
345 
		$this->getZonesPriorites();
346 
		$zonesCouleurs = $this->getZonesCouleurs();
347 
		foreach ($zonesCouleurs as $couleur => $zonesClasses) {
348 
			$classes = implode(', ', $zonesClasses);
349 
			$css .= "$classes{\nfill:$couleur;\n}\n";
350 
		}
351 
		return $css;
352 
	}
353 
 
354 
	private function getZonesPriorites() {
355 
		$this->zones = array();
356 
		$zonesPrioritaires = array();
357 
		foreach ($this->donnees as $donnee) {
358 
			foreach ($donnee as $zoneId => $codeLegende) {
359 
				if (preg_match('/^[0-9][0-9ab]$/i', $zoneId)) {
360 
					if (array_key_exists($codeLegende, $this->priorites)) {
361 
						$priorite = $this->priorites[$codeLegende];
362 
						if (array_key_exists($zoneId, $zonesPrioritaires) == false) {
363 
							$zonesPrioritaires[$zoneId] = 0;
364 
						}
365 
						if ($priorite > $zonesPrioritaires[$zoneId]) {
366 
							$zonesPrioritaires[$zoneId] = $priorite;
367 
							$this->zones[$zoneId] = $codeLegende;
368 
						}
369 
					}
370 
				}
371 
			}
372 
		}
373 
	}
374 
 
375 
	private function getZonesCouleurs() {
376 
		$zones = array();
260 jpm 377 
		ksort($this->zones);
255 jpm 378 
		foreach ($this->zones as $zoneId => $codeLegende) {
379 
			if (array_key_exists($codeLegende, $this->legende)) {
380 
				$couleur = $this->legende[$codeLegende];
260 jpm 381 
				$zones[$couleur][] = strtolower('.departement'.sprintf('%02s', $zoneId));
255 jpm 382 
			}
383 
		}
384 
		return $zones;
385 
	}
386 
 
387 
	private function creerTitre() {
355 delphine 388 
		$titre = "Carte en cours d'élaboration";
389 
		if ($this->donnees != array()) {
390 
			$titre .= ' pour '.$this->creerTitreTaxon();
391 
		}
255 jpm 392 
		return $titre;
393 
	}
394 
 
395 
	private function creerTitreTaxon() {
355 delphine 396 
		$titre = '';
255 jpm 397 
		$noms = array();
398 
		foreach ($this->donnees as $donnee) {
399 
			$noms[] = $donnee['nom_sci'];
400 
		}
401 
		$titre = implode(', ', $noms);
402 
		return $titre;
403 
	}
404 
 
405 
	private function convertirEnPNG($svg) {
406 
		$png = null;
268 jpm 407 
		if (isset($this->convertisseur)) {
408 
			if ($this->convertisseur == 'imagick') {
409 
				if (extension_loaded('imagick')) {
410 
					$png = $this->convertirEnPNGAvecImageMagick($svg);
411 
				} else {
677 isa 412 
					$message = "Impossible de générer l'image sur le serveur. Extension ImageMagick abscente.";
268 jpm 413 
					$code = RestServeur::HTTP_CODE_ERREUR;
414 
					throw new Exception($message, $code);
415 
				}
416 
			} else if ($this->convertisseur == 'rsvg') {
417 
				$png = $this->convertirEnPNGAvecRsvg($svg);
418 
			} else {
419 
				$message = "Le convertisseur indiqué '{$this->convertisseur}' ne fait pas parti de la liste ".
420 
					"des convertisseurs disponibles : imagick, rsvg.";
421 
				$code = RestServeur::HTTP_CODE_ERREUR;
422 
				throw new Exception($message, $code);
423 
			}
255 jpm 424 
		} else {
268 jpm 425 
			$message = "Veuillez indiquer le convertisseur de svg à utiliser pour le service.";
255 jpm 426 
			$code = RestServeur::HTTP_CODE_ERREUR;
427 
			throw new Exception($message, $code);
428 
		}
268 jpm 429 
		return $png;
255 jpm 430 
	}
431 
 
432 
	private function convertirEnPNGAvecImageMagick($svg) {
433 
		$convertisseur = new Imagick();
268 jpm 434 
		$convertisseur->setBackgroundColor(new ImagickPixel('transparent'));
255 jpm 435 
		$convertisseur->readImageBlob($svg);
268 jpm 436 
		$convertisseur->setImageFormat('png32');
437 
		$convertisseur->resizeImage($this->imgLargeur, $this->imgHauteur, imagick::FILTER_LANCZOS, 0, true);
255 jpm 438 
		$png = $convertisseur->getImageBlob();
439 
		$convertisseur->clear();
440 
		$convertisseur->destroy();
441 
		return $png;
442 
	}
443 
 
268 jpm 444 
	private function convertirEnPNGAvecRsvg($svg) {
273 jpm 445 
		$idFichier = $this->getIdFichier();
804 raphael 446 
 
447 
		// test répertoire de cache
448 
		if(!is_dir($this->config['cache_stockageChemin'])) {
449 
			mkdir($this->config['cache_stockageChemin'], 0777, true);
450 
		}
451 
		if(!is_dir($this->config['cache_stockageChemin'])) {
452 
			error_log(__FILE__ . ": can't create cache {$this->config['cache_stockageChemin']}");
453 
			return NULL;
454 
		}
455 
 
456 
		// test présence du binaire de conversion (rsvg)
805 raphael 457 
		/*
458 
		  // `which` no possible using safe-mode...
804 raphael 459 
		$i = $s = NULL;
460 
		exec('which rsvg-convert', $s, $i);
461 
		if($i != 0) {
462 
			error_log(__FILE__ . ": no rsvg-convert binary");
463 
			return NULL;
464 
		}
805 raphael 465 
		*/
804 raphael 466 
		// conversion svg => png
797 raphael 467 
		$fichierPng = $this->config['cache_stockageChemin'].$idFichier.'.png';
468 
		$fichierSvg = $this->config['cache_stockageChemin'].$idFichier.'.svg';
268 jpm 469 
		file_put_contents($fichierSvg, $svg);
805 raphael 470 
		$i = $s = NULL;
471 
		$rsvg = exec("rsvg-convert $fichierSvg -d 75 -p 75 -o $fichierPng", $s, $i);
472 
		if($i != 0) {
473 
			error_log(__FILE__ . ": `rsvg-convert $fichierSvg -o $fichierPng` returned $i: " . implode(', ', $s));
474 
			return NULL;
475 
		}
273 jpm 476 
 
268 jpm 477 
		$this->indexerFichierPng($fichierPng);
804 raphael 478 
		return file_get_contents($fichierPng);
268 jpm 479 
	}
480 
 
481 
	private function indexerFichierPng($fichierPng) {
482 
		$img = imagecreatefrompng($fichierPng);
483 
		imagetruecolortopalette($img, false, 32);
719 aurelien 484 
		$blanc = imagecolorallocate($img, 255, 255, 255);
485 
		imagefill($img, 0, 0, $blanc);
268 jpm 486 
		imagepng($img, $fichierPng, 9, PNG_ALL_FILTERS);
487 
	}
488 
 
273 jpm 489 
	private function getIdFichier() {
490 
		$id = '';
491 
		foreach ($this->taxonsDemandes as $reftax => $ids) {
492 
			$id[] = $reftax;
493 
			foreach ($ids as $type => $vals) {
494 
				$id[] = $type;
495 
				$id[] = implode('-', $vals);
496 
			}
497 
		}
498 
		$id = implode('-', $id);
499 
		return $id;
500 
	}
501 
 
255 jpm 502 
	public function getParametreTableau($cle) {
503 
		$tableau = array();
504 
		$parametre = $this->config[$cle];
505 
		if (empty($parametre) === false) {
506 
			$tableauPartiel = explode(',', $parametre);
507 
			$tableauPartiel = array_map('trim', $tableauPartiel);
508 
			foreach ($tableauPartiel as $champ) {
509 
				if (strpos($champ, '=') === false) {
510 
					$tableau[] = trim($champ);
511 
				} else {
512 
					list($cle, $val) = explode('=', $champ);
513 
					$tableau[trim($cle)] = trim($val);
514 
				}
515 
			}
516 
		}
517 
		return $tableau;
518 
	}
519 
}
520 
?>