Subversion Repositories eFlore/Applications.del

Rev

Rev 1800 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1490 raphael 1
<?php
2
/**
3
 * DEL (Détermination en ligne [Pictoflora/Identiplante]) Toolkit
4
 * Quelques fonctions utiles, utilisées et/ou utilisables aussi bien par images/*, observations/*
5
 * et probablement d'autres, comme determination/*.
6
 *
7
 * Les domaines des fonctions tournent autour de 4 aspects:
8
 * - gestions des paramètres d'entrée utilisateurs, valeurs par défaut et sanitization
9
 * - génération de SQL
10
 * - processing de tableau de pattern d'utilisation SQL assez commun
11
 * - formattage basique de sortie (JSON)
12
 * + quelques helpers basiques
13
 *
14
 * @category	php 5.2
15
 * @package		del
16
 * @author		Raphaël Droz <raphael@tela-botanica.org>
17
 * @copyright	Copyright (c) 2013 Tela Botanica (accueil@tela-botanica.org)
18
 * @license	http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL
19
 * @license	http://www.gnu.org/licenses/gpl.html Licence GNU-GPL
20
 */
21
 
22
 
23
define('_LISTE_OBS_MAX_RESULT_LIMIT', 1000);
24
define('_LISTE_OBS_MAX_ID_OBS', 10e7);
25
// SELECT MAX(num_taxonomique) FROM bdtfx_v2_00;
26
define('_LISTE_OBS_MAX_BDTFX_NT', 1000000); // 44378 + 1000
27
// SELECT MAX(num_nom) FROM bdtfx_v2_00;
28
define('_LISTE_OBS_MAX_BDTFX_NN', 1000000); // 120816 + 10000
29
 
30
class DelTk {
1590 jpm 31
	static $parametres_autorises = array(
32
		'masque', 'masque.famille', 'masque.nn', 'masque.referentiel', // taxon
33
		'masque.genre', 'masque.espece', 'masque.ns', // nom_sel
34
		'masque.commune', 'masque.departement', 'masque.id_zone_geo', // loc
35
		'masque.auteur', 'masque.date', 'masque.tag', 'masque.type', // autres
36
		// tri, offset
37
		'navigation.depart', 'navigation.limite',
38
		'tri', 'ordre', // TODO: 'total=[yes]', 'fields=[x,y,...]'
39
		// TODO: masque.annee, masque.insee (!= departement)
40
	);
1490 raphael 41
 
1590 jpm 42
	static $default_params = array(
43
		'navigation.depart' => 0, 'navigation.limite' => 10,
44
		'tri' => 'date_transmission', 'ordre' => 'desc');
1490 raphael 45
 
1590 jpm 46
	/**
47
	 * Construit un (vulgaire) abstract syntax tree:
48
	 * "AND" => [ "tag1", "tag2" ]
49
	 * Idéalement (avec un parser simple comme proposé par http://hoa-project.net/Literature/Hack/Compiler.html#Langage_PP)
50
	 * nous aurions:
51
	 * "AND" => [ "tag1", "tag2", "OR" => [ "tag3", "tag4" ] ]
52
	 *
53
	 * Ici nous devons traiter les cas suivants:
54
	 * tags séparés par des "ET/AND OU/OR", séparés par des espaces ou des virgules.
55
	 * Mais la chaîne peut aussi avoir été issue du "masque général" (la barre de recherche générique).
56
	 * ce qui implique des comportement par défaut différents afin de préserver la compatibilité.
57
	 *
58
	 * Théorie:
59
	 * 1) tags passés par "champ tag":
60
	 * - support du ET/OU, et explode par virgule.
61
	 * - si pas d'opérande détectée: "OU"
62
	 *
63
	 * 2) tags passés par "recherche générale":
64
	 * - support du ET/OU, et explode par whitespace.
65
	 * - si pas d'opérande détectée: "ET"
66
	 *
67
	 * La présence de $additional_sep s'explique car ET/OU sous-entendent une séparation par des espaces.
68
	 * Mais ce n'est pas toujours pertinent car: 1) la compatibilité suggère de considérer parfois
69
	 * la virgule comme séparateur et 2) les tags *peuvent* contenir des espaces. Par conséquent:
70
	 * * a,b,c => "a" $default_op "b" $default_op "c"
71
	 * * a,b AND c => "a" AND "b" AND "c"
72
	 * * a OR b AND c,d => "a" AND "b" AND "c" AND "d"
73
	 * C'est à dire par ordre décroissant de priorité:
74
	 * 1) opérande contenu dans la chaîne
75
	 * 2) opérande par défaut
76
	 * 3) les séparateurs présents sont substitués par l'opérande déterminée par 1) ou 2)
77
	 *
78
	 * // TODO: support des parenthèses, imbrications & co: "(", ")"
79
	 * // http://codehackit.blogspot.fr/2011/08/expression-parser-in-php.html
80
	 * // http://blog.angeloff.name/post/2012/08/05/php-recursive-patterns/
81
	 *
82
	 * @param $str: la chaîne à "parser"
83
	 * @param $default_op: "AND" ou "OR"
84
	 * @param $additional_sep: séparateur de mots:
85
	 */
86
	static function buildTagsAST($str = NULL, $default_op, $additional_sep = ',') {
87
		if(!$str) return;
88
		$words = preg_split('/ (OR|AND|ET|OU) /', $str, -1, PREG_SPLIT_NO_EMPTY);
1490 raphael 89
 
1590 jpm 90
		if(preg_match('/\b(ET|AND)\b/', $str)) $op = 'AND';
91
		elseif(preg_match('/\b(OU|OR)\b/', $str)) $op = 'OR';
92
		else $op = $default_op;
1490 raphael 93
 
1590 jpm 94
		if ($additional_sep) {
95
			array_walk($words,
96
				create_function('&$v, $k, $sep', '$v = preg_split("/".$sep."/", $v, -1, PREG_SPLIT_NO_EMPTY);'),
97
				$additional_sep);
98
		}
99
		$words = DelTk::array_flatten($words);
100
		$words = array_map('trim', $words);
1800 mathias 101
 
102
		$ret = array($op => array_filter($words));
103
		return $ret;
1490 raphael 104
	}
105
 
106
 
1590 jpm 107
	static function array_flatten($arr) {
108
		$arr = array_values($arr);
109
		while (list($k,$v)=each($arr)) {
110
			if (is_array($v)) {
111
				array_splice($arr,$k,1,$v);
112
				next($arr);
113
			}
114
		}
115
		return $arr;
1490 raphael 116
	}
117
 
1590 jpm 118
	/**
119
	 * Supprime l'index du tableau des paramètres si sa valeur ne correspond pas
120
	 * au spectre passé par $values.
121
	 */
122
	static function unsetIfInvalid(&$var, $index, $values) {
123
		if (array_key_exists($index, $var)) {
124
			if (!in_array($var[$index], $values)) {
125
				unset($var[$index]);
126
			} else {
127
				return $var[$index];
128
			}
129
		}
130
		return null;
1490 raphael 131
	}
132
 
1590 jpm 133
	/**
134
	 * Filtre et valide les paramètres reconnus. Effectue *toute* la sanitization *sauf* l'escape-string
135
	 * Cette fonction est appelée:
136
	 * - une fois sur les champs de recherche avancées
137
	 * - une fois sur le masque général si celui-ci à été spécifié. Dans ce cas,
138
	 * la chaîne générale saisie est utilisée comme valeur pour chacun des champs particuliers
139
	 * avec les traitements particuliers qui s'imposent
140
	 * Par exemple: si l'on cherche "Languedoc", cela impliquera:
141
	 * WHERE (nom_sel like "Languedoc" OR nom_ret ... OR ...) mais pas masque.date ou masque.departement
142
	 * qui s'assure d'un pattern particulier
143
	 */
144
	static function requestFilterParams(Array $params, $parametres_autorises = null, Conteneur $c = null /* pour la récup des départements */ ) {
145
		if ($parametres_autorises) { // filtrage de toute clef inconnue
146
			$params = array_intersect_key($params, array_flip($parametres_autorises));
147
		}
1490 raphael 148
 
1590 jpm 149
		$p['tri'] = DelTK::unsetIfInvalid($params, 'tri', array('date_observation'));
150
		$p['ordre'] = DelTK::unsetIfInvalid($params, 'ordre', array('asc','desc'));
1688 mathias 151
		$p['masque.referentiel'] = DelTK::unsetIfInvalid($params, 'masque.referentiel', array('bdtfx','bdtxa','isfan','apd'));
1490 raphael 152
 
1590 jpm 153
		// TODO: use filter_input(INPUT_GET);
154
		// renvoie FALSE ou NULL si absent ou invalide
155
		$p['navigation.limite'] = filter_var(@$params['navigation.limite'],
156
			FILTER_VALIDATE_INT,
157
			array('options' => array(
158
				'default' => null,
159
				'min_range' => 1,
160
				'max_range' => _LISTE_OBS_MAX_RESULT_LIMIT)));
161
		$p['navigation.depart'] = filter_var(@$params['navigation.depart'],
162
			FILTER_VALIDATE_INT,
163
			array('options' => array(
164
				'default' => null,
165
				'min_range' => 0,
166
				'max_range' => _LISTE_OBS_MAX_ID_OBS)));
167
		if (isset($params['masque.departement'])) {
168
			// STRING: 0 -> 95, 971 -> 976, 2A + 2B (./services/configurations/config_departements_bruts.ini)
169
			// accept leading 0 ?
170
			// TODO; filter patterns like 555.
1594 aurelien 171
			if (preg_match(';^(\d{2}|\d{3}|2a|2b)$;i', $params['masque.departement']) != 0) {
172
				if(is_numeric($params['masque.departement'])) {
173
					$p['masque.departement'] = str_pad($params['masque.departement'], 5, '_');
174
				} else {
175
					$p['masque.departement'] = $params['masque.departement'];
176
				}
177
			} else {
178
				$dpt_chaine = strtolower(str_replace(' ','-',iconv("UTF-8", "ASCII//TRANSLIT", $params['masque.departement'])));
179
				$c->chargerConfiguration('config_departements_bruts.ini');
1646 aurelien 180
				$dpt_numero = $c->getParametre($dpt_chaine);
181
				if($dpt_numero != null && $dpt_numero != "") {
182
					$p['masque.departement'] = str_pad($dpt_numero, 5, '_');
183
				}
1590 jpm 184
			}
185
		}
1490 raphael 186
 
1590 jpm 187
		if (isset($params['masque.date'])) {
188
			// une année, TODO: masque.annee
189
			if (is_numeric($params['masque.date'])) {
190
				$p['masque.date'] = $params['masque.date'];
191
			} elseif(strpos($params['masque.date'], '/' !== false) && ($x = strtotime(str_replace('/','-',$params['masque.date'])))) {
192
				$p['masque.date'] = $x;
193
			} elseif(strpos($params['masque.date'], '-' !== false) && ($x = strtotime($params['masque.date'])) ) {
194
				$p['masque.date'] = $x;
195
			}
196
		}
1490 raphael 197
 
1590 jpm 198
		$p['masque.nn'] = filter_var(@$params['masque.nn'],
199
			FILTER_VALIDATE_INT,
200
			array('options' => array(
201
				'default' => null,
202
				'min_range' => 0,
203
				'max_range' => _LISTE_OBS_MAX_BDTFX_NN)));
1490 raphael 204
 
1590 jpm 205
		$p['masque.nt'] = filter_var(@$params['masque.nt'],
206
			FILTER_VALIDATE_INT,
207
			array('options' => array(
208
				'default' => NULL,
209
				'min_range' => 0,
210
				'max_range' => _LISTE_OBS_MAX_BDTFX_NT)));
1490 raphael 211
 
1590 jpm 212
		if (isset($params['masque.ns'])) {
213
			$p['masque.ns'] = trim($params['masque.ns']);
214
		}
1490 raphael 215
 
1590 jpm 216
		if (isset($params['masque.famille'])) {
217
			// mysql -N<<<"SELECT DISTINCT famille FROM bdtfx_v1_02;"|sed -r "s/(.)/\1\n/g"|sort -u|tr -d "\n"
1591 jpm 218
			$familleTranslit = iconv("UTF-8", "ASCII//TRANSLIT",$params['masque.famille']);
1590 jpm 219
			$p['masque.famille'] = preg_replace('/[^a-zA-Z %_]/', '', $familleTranslit);
220
		}
1490 raphael 221
 
1590 jpm 222
		// masque.genre est un alias pour masque.ns (nom_sel), mais permet de rajouter une clause supplémentaire
223
		// sur nom_sel. Précédemment: WHERE nom_sel LIKE '%<masque.genre>% %'.
224
		// Désormais masque.genre doit être intégralement spécifié, les caractères '%' et '_' seront interprétés.
225
		// Attention toutefois car la table del_observation intègre des nom_sel contenant '_'
226
		if (isset($params['masque.genre'])) {
227
			$p['masque.genre'] = trim($params['masque.genre']);
228
		}
229
		if (isset($params['masque.ns'])) {
230
			$p['masque.ns'] = trim($params['masque.ns']);
231
		}
232
		// masque.espece n'était pas déclaré dans la "where" mais utilisé via config + switch//default
233
		if (isset($params['masque.espece'])) {
234
			$p['masque.espece'] = trim($params['masque.espece']);
235
		}
1490 raphael 236
 
1590 jpm 237
		// idem pour id_zone_geo qui mappait à ce_zone_geo:
238
		if (isset($params['masque.id_zone_geo']) && preg_match(';^(INSEE-C:\d{5}|\d{2})$;', $params['masque.id_zone_geo'])) {
239
			$p['masque.id_zone_geo'] = $params['masque.id_zone_geo'];
240
		}
1490 raphael 241
 
1590 jpm 242
		// masque.commune (zone_geo)
243
		// TODO: que faire avec des '%' en INPUT ?
244
		// Le masque doit *permettre* une regexp et non l'imposer. Charge au client de faire son travail
245
		if (isset($params['masque.commune'])) {
246
			$p['masque.commune'] = str_replace(array('-',' '), '_', $params['masque.commune']);
247
		}
1490 raphael 248
 
1590 jpm 249
		// masque.auteur: peut-être un id, un courriel, ou un nom ou prénom, ...
250
		if (isset($params['masque.auteur'])) {
251
			$p['masque.auteur'] = trim($params['masque.auteur']);
252
		}
253
		// sera trimmé plus tard, cf sqlAddConstraint
254
		if (isset($params['masque'])) {
255
			$p['masque'] = trim($params['masque']);
256
		}
1490 raphael 257
 
1590 jpm 258
		// masque.tag, idem que pour masque.genre et masque.commune
259
		if (isset($params['masque.tag'])) {
260
			$x = explode(',',$params['masque.tag']);
261
			$x = array_map('trim', $x);
262
			$p['masque.tag'] = implode('|', array_filter($x));
263
		}
1490 raphael 264
 
1590 jpm 265
		// masque.type: ['adeterminer', 'aconfirmer', 'endiscussion', 'validees']
266
		if(isset($params['masque.type'])) {
267
			$p['masque.type'] = array_flip(array_intersect(array_filter(explode(';', $params['masque.type'])),
268
				array('adeterminer', 'aconfirmer', 'endiscussion', 'validees')));
269
		}
1490 raphael 270
 
1590 jpm 271
		// TODO: masque (général)
272
		// on filtre les NULL, FALSE et '', mais pas les 0, d'où le callback()
273
		// TODO: PHP-5.3
274
		return array_filter($p, create_function('$a','return !in_array($a, array("",false,null),true);'));
1494 raphael 275
	}
1490 raphael 276
 
1590 jpm 277
	// SQL helpers
1490 raphael 278
 
1590 jpm 279
	/**
280
	 * Lorsque l'on concatène des champs, un seul NULL prend le dessus,
281
	 * Il faut donc utiliser la syntaxe IFNULL(%s, "").
282
	 * (Cette fonction effectue aussi l'implode() "final"
283
	 */
284
	static function sqlAddIfNullPourConcat($tab) {
285
		// XXX: PHP-5.3
286
		return implode(',',array_map(create_function('$a', 'return "IFNULL($a, \"\")";'), $tab));
1494 raphael 287
	}
1490 raphael 288
 
1590 jpm 289
	/**
290
	 * Converti un tableau associatif et un préfix optionnel en une chaîne de champs adéquate
291
	 * à un SELECT MySQL.
292
	 * $select (optionnel) restreint les champs mappés aux valeurs de $select.
293
	 * Si $select n'est pas fourni, toutes les clefs présentes dans $map seront présentes dans
294
	 * le SELECT en sortie
295
	 */
296
	static function sqlFieldsToAlias($map, $select = NULL, $prefix = NULL) {
297
		if ($select) {
298
			$arr = array_intersect_key($map, array_flip($select));
299
		} else {
300
			$arr = $map;
301
		}
302
		$keys = array_keys($arr);
1490 raphael 303
 
1590 jpm 304
		if ($prefix) {
305
			array_walk($keys, create_function('&$val, $k, $prefix', '$val = sprintf("%s.`%s`", $prefix, $val);'), $prefix);
306
		} else {
307
			array_walk($keys, create_function('&$val, $k', '$val = sprintf("`%s`", $val);'));
308
		}
1490 raphael 309
 
1590 jpm 310
		return implode(', ', array_map(create_function('$v, $k', 'return sprintf("%s AS `%s`", $k, $v);'), $arr, $keys));
311
	}
1490 raphael 312
 
1590 jpm 313
	/**
314
	 * Retourne une clause where du style:
315
	 * CONCAT(IF(du.prenom IS NULL, "", du.prenom), [...] vdi.i_nomutilisateur) REGEXP 'xxx'
316
	 * Note; i_(nom|prenom_utilisateur), alias pour cel_images.(nom|prenom), n'est pas traité
317
	 * car cette information est redondante dans cel_image et devrait être supprimée.
318
	 */
319
	static function addAuteursConstraint($val, $db, &$where) {
320
		@list($a, $b) = explode(' ', $val, 2);
321
		// un seul terme
322
		$champs_n = array('du.prenom', // info user authentifié de l'obs depuis l'annuaire
323
			'vdi.prenom_utilisateur', // info user anonyme de l'obs
324
			/* 'vdi.i_prenom_utilisateur' */ ); // info user anonyme de l'image
325
		$champs_p = array('du.nom', // idem pour le nom
326
			'vdi.nom_utilisateur',
327
			/* 'vdi.i_nom_utilisateur' */ );
1490 raphael 328
 
1590 jpm 329
		/*
330
		  Note: pour l'heure, étant donnés:
331
		  - les CONVERT() de la VIEW del_utilisateur
332
		  - DEFAULT CHARSET=latin1 pour tela_prod_v4.annuaire_tela
333
		  - DEFAULT CHARSET=utf8 pour tb_cel.cel_obs
334
		  et l'âge du capitaine...
335
		  - REGEXP est case-sensitive, et collate les caractères accentués
336
		  - LIKE est case-insensitive, et collate les caractères accentués
337
		*/
338
		if (! $b) {
339
			$where[] = sprintf('CONCAT(%s,%s) LIKE %s',
340
				DelTk::sqlAddIfNullPourConcat($champs_n),
341
				DelTk::sqlAddIfNullPourConcat($champs_p),
342
				$db->proteger("%".$val."%"));
343
		} else {
344
			$where[] = sprintf('(CONCAT(%1$s,%2$s) LIKE %3$s AND CONCAT(%1$s,%2$s) LIKE %4$s)',
345
				DelTk::sqlAddIfNullPourConcat($champs_n),
346
				DelTk::sqlAddIfNullPourConcat($champs_p),
347
				$db->proteger("%" . $a . "%"), $db->proteger("%" . $b . "%"));
348
		}
1490 raphael 349
	}
350
 
1590 jpm 351
	/**
352
	 * - Rempli le tableau des contraintes "where" et "join" nécessaire
353
	 * à la *recherche* des observations demandées ($req) utilisées par self::getIdObs()
354
	 *
355
	 * Attention, cela signifie que toutes les tables ne sont pas *forcément*
356
	 * join'ées, par exemple si aucune contrainte ne le nécessite.
357
	 * $req tel qu'il est rempli ici est utile pour récupéré la seule liste des
358
	 * id d'observation qui match.
359
	 * Pour la récupération effective de "toutes" les données correspondante, il faut
360
	 * réinitialiser $req["join"] afin d'y ajouter toutes les autres tables.
361
	 *
362
	 * Note: toujours rajouter les préfixes de table (vdi,du,doi ou di), en fonction de ce que défini
363
	 * les JOIN qui sont utilisés.
364
	 * le préfix de v_del_image est "vdi" (cf: "FROM" de self::getIdObs())
365
	 * le préfix de del_utilisateur sur id_utilisateur = vdi.ce_utilisateur est "du"
366
	 *
367
	 * @param $p les paramètres (notamment de masque) passés par l'URL et déjà traités/filtrés (sauf quotes)
368
	 * @param $req le tableau, passé par référence représentant les composants de la requête à bâtir
369
	 */
370
	static function sqlAddConstraint($p, $db, &$req) {
371
		if (!empty($p['masque.auteur'])) {
372
			// id du poster de l'obs
373
			$req['join'][] = 'LEFT JOIN del_utilisateur AS du ON du.id_utilisateur = vdi.ce_utilisateur';
374
			// id du poster de l'image... NON, c'est le même que le posteur de l'obs
375
			// Cette jointure de table est ignoré ci-dessous pour les recherches d'auteurs
376
			// $req['join'][] = 'LEFT JOIN del_utilisateur AS dui ON dui.id_utilisateur = vdi.i_ce_utilisateur';
1490 raphael 377
 
1590 jpm 378
			if (is_numeric($p['masque.auteur'])) {
1594 aurelien 379
				$req['where'][] = sprintf('(du.id_utilisateur = %1$d OR vdi.ce_utilisateur = %1$d)', $p['masque.auteur']);
1590 jpm 380
			} elseif(preg_match(';^.{5,}@[a-z0-9-.]{5,}$;i', $p['masque.auteur'])) {
1846 mathias 381
				$req['where'][] = sprintf('(du.courriel LIKE %1$s OR vdi.courriel_utilisateur LIKE %1$s )',
1590 jpm 382
					$db->proteger($p['masque.auteur'] . '%'));
383
			} else {
384
				DelTk::addAuteursConstraint($p['masque.auteur'], $db, $req['where']);
385
			}
386
		}
1490 raphael 387
 
1590 jpm 388
		if (!empty($p['masque.date'])) {
389
			if(is_integer($p['masque.date']) && $p['masque.date'] < 2030 && $p['masque.date'] > 1600) {
390
				$req['where'][] = sprintf("YEAR(vdi.date_observation) = %d", $p['masque.date']);
391
			} else {
392
				$req['where'][] = sprintf("DATE_FORMAT(vdi.date_observation, '%%Y-%%m-%%d') = %s",
393
					$db->proteger(strftime('%Y-%m-%d', $p['masque.date'])));
394
			}
395
		}
1490 raphael 396
 
1590 jpm 397
		// TODO: avoir des champs d'entrée distinct
398
		if (!empty($p['masque.departement'])) {
1594 aurelien 399
			$req['where'][] = sprintf("vdi.ce_zone_geo LIKE %s", $db->proteger('INSEE-C:'.$p['masque.departement']));
1590 jpm 400
		}
401
		if (!empty($p['masque.id_zone_geo'])) {
402
			$req['where'][] = sprintf("vdi.ce_zone_geo = %s", $db->proteger($p['masque.id_zone_geo']));
403
		}
404
		if (!empty($p['masque.genre'])) {
405
			$req['where'][] = 'vdi.nom_sel LIKE '.$db->proteger('%' . $p['masque.genre'].'% %');
406
		}
407
		if (!empty($p['masque.famille'])) {
408
			$req['where'][] = 'vdi.famille = '.$db->proteger($p['masque.famille']);
409
		}
410
		if (!empty($p['masque.ns'])) {
411
			$req['where'][] = 'vdi.nom_sel LIKE '.$db->proteger($p['masque.ns'].'%');
412
		}
413
		if (!empty($p['masque.nn'])) {
414
			$req['where'][] = sprintf('(vdi.nom_sel_nn = %1$d OR vdi.nom_ret_nn = %1$d)', $p['masque.nn']);
415
		}
416
		if (!empty($p['masque.referentiel'])) {
417
			$req['where'][] = sprintf('vdi.nom_referentiel LIKE %s', $db->proteger($p['masque.referentiel'].'%'));
418
		}
419
		if (!empty($p['masque.commune'])) {
420
			$req['where'][] = 'vdi.zone_geo LIKE '.$db->proteger($p['masque.commune'].'%');
421
		}
1494 raphael 422
	}
1490 raphael 423
 
424
 
425
 
1590 jpm 426
	// formatage de réponse HTTP
427
	static function makeJSONHeader($total, $params, $url_service) {
428
		$prev_url = $next_url = NULL;
429
		$url_service_sans_slash = (substr($url_service, -1) == '/') ? substr($url_service, 0, -1) : $url_service;
1490 raphael 430
 
1590 jpm 431
		// aplatissons les params! - une seule couche cela dit, après débrouillez-vous
432
		$params_a_plat = $params;
433
		foreach ($params_a_plat as $cle_plate => $pap) {
434
			if (is_array($pap)) {
435
				$params_a_plat[$cle_plate] = implode(array_keys($pap), ',');
436
			}
437
		}
1490 raphael 438
 
1590 jpm 439
		$next_offset = $params['navigation.depart'] + $params['navigation.limite'];
440
		if ($next_offset < $total) {
441
			$next_url = $url_service_sans_slash.'?'.
442
				http_build_query(array_merge($params_a_plat, array('navigation.depart' => $next_offset)));
443
		}
1490 raphael 444
 
1590 jpm 445
		$prev_offset = $params['navigation.depart'] - $params['navigation.limite'];
446
		if ($prev_offset >= 0) {
447
			$prev_url = $url_service_sans_slash.'?'.
448
				http_build_query(array_merge($params_a_plat, array('navigation.depart' => $prev_offset)));
449
		}
1490 raphael 450
 
1590 jpm 451
		return array(
452
			'masque' => http_build_query(array_diff_key($params, array_flip(array('navigation.depart', 'navigation.limite')))),
453
			'total' => $total,
454
			'depart' => $params['navigation.depart'],
455
			'limite' => $params['navigation.limite'],
456
			'href.precedent' => $prev_url,
457
			'href.suivant' => $next_url
458
		);
1494 raphael 459
	}
460
}