Subversion Repositories eFlore/Applications.cel

Rev

Rev 2043 | Rev 2046 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2043 Rev 2045
1
<?php
1
<?php
2
/**
2
/**
3
* @package   jrest
3
* @package   jrest
4
* @author    Aurélien Peronnet <aurelien@tela-botania.org>
4
* @author    Aurélien Peronnet <aurelien@tela-botania.org>
5
* @copyright 2010, 2013 Tela-Botanica
5
* @copyright 2010, 2013 Tela-Botanica
6
* @license   http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL
6
* @license   http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL
7
*
7
*
8
* Librairie de liaison d'images et d'observation à des mots clés en utilisant la méthode
8
* Librairie de liaison d'images et d'observation à des mots clés en utilisant la méthode
9
* path enumeration
9
* path enumeration
10
*/
10
*/
11
 
11
 
12
class GestionMotsClesChemin {
12
class GestionMotsClesChemin {
13
	
13
	
14
	private $config;
14
	private $config;
15
	private $mode;
15
	private $mode;
16
	
16
	
17
	private $table_liaison;
17
	private $table_liaison;
18
	private $table_mots_cles;
18
	private $table_mots_cles;
19
	
19
	
20
	//TODO: trigger pour les tables liaisons
20
	//TODO: trigger pour les tables liaisons
21
	
21
	
22
	public function GestionMotsClesChemin($config, $mode = 'obs') {
22
	public function GestionMotsClesChemin($config, $mode = 'obs') {
23
		$this->config = $config;
23
		$this->config = $config;
24
		//TODO: switch suivant mode
24
		//TODO: switch suivant mode
25
		$this->mode = $mode;
25
		$this->mode = $mode;
26
		
26
		
27
		if($mode == 'obs') {
27
		if($mode == 'obs') {
28
			$this->table_liaison = 'cel_mots_cles_obs_liaison';
28
			$this->table_liaison = 'cel_mots_cles_obs_liaison';
29
			$this->table_mots_cles = 'cel_arbre_mots_cles_obs';
29
			$this->table_mots_cles = 'cel_arbre_mots_cles_obs';
30
		} else {
30
		} else {
31
			$this->table_liaison = 'cel_mots_cles_images_liaison';
31
			$this->table_liaison = 'cel_mots_cles_images_liaison';
32
			$this->table_mots_cles = 'cel_arbre_mots_cles_images';
32
			$this->table_mots_cles = 'cel_arbre_mots_cles_images';
33
		}
33
		}
34
	}
34
	}
35
		
35
		
36
	public function construireRequeteOr($mots_cles) {
36
	public function construireRequeteOr($mots_cles) {
37
		return $this->construireRequete($mots_cles, 'OR');
37
		return $this->construireRequete($mots_cles, 'OR');
38
	}
38
	}
39
	
39
	
40
	public function construireRequeteCheminOr($mots_cles) {
40
	public function construireRequeteCheminOr($mots_cles) {
41
		return $this->construireRequeteChemin($mots_cles, 'OR');
41
		return $this->construireRequeteChemin($mots_cles, 'OR');
42
	}
42
	}
43
	
43
	
44
	public function construireRequeteAnd($mots_cles) {
44
	public function construireRequeteAnd($mots_cles) {
45
		return $this->construireRequete($mots_cles, 'AND');
45
		return $this->construireRequete($mots_cles, 'AND');
46
	}
46
	}
47
	
47
	
48
	public function construireRequeteCheminAnd($mots_cles) {
48
	public function construireRequeteCheminAnd($mots_cles) {
49
		return $this->construireRequeteChemin($mots_cles, 'AND');
49
		return $this->construireRequeteChemin($mots_cles, 'AND');
50
	}
50
	}
51
	
51
	
52
	public function construireRequete($mots_cles, $operateur = 'AND') {
52
	public function construireRequete($mots_cles, $operateur = 'AND') {
53
		$criteres = array();
53
		$criteres = array();
54
		$premier = array_pop($mots_cles);
54
		$premier = array_pop($mots_cles);
55
		$requete = "SELECT * FROM ".$this->table_liaison." lmc ".
55
		$requete = "SELECT * FROM ".$this->table_liaison." lmc ".
56
		           "INNER JOIN ".$this->table_mots_cles." mc ".
56
		           "INNER JOIN ".$this->table_mots_cles." mc ".
57
		           "ON mc.tag = ".Cel::db()->proteger($premier)." AND lmc.id_mot_cle = mc.id_mot_cle ";
57
		           "ON mc.tag = ".Cel::db()->proteger($premier)." AND lmc.id_mot_cle = mc.id_mot_cle ";
58
		foreach ($mots_cles as $mot_cle) {
58
		foreach ($mots_cles as $mot_cle) {
59
			$requete .= " ".$operateur." id_element_lie IN (SELECT id_element_lie FROM ".$this->table_liaison." lmc ".
59
			$requete .= " ".$operateur." id_element_lie IN (SELECT id_element_lie FROM ".$this->table_liaison." lmc ".
60
							"INNER JOIN ".$this->table_mots_cles." mc ".
60
							"INNER JOIN ".$this->table_mots_cles." mc ".
61
		           			"ON mc.tag = ".Cel::db()->proteger($mot_cle)." AND lmc.id_mot_cle = mc.id_mot_cle ".
61
		           			"ON mc.tag = ".Cel::db()->proteger($mot_cle)." AND lmc.id_mot_cle = mc.id_mot_cle ".
62
						") ";
62
						") ";
63
		}
63
		}
64
 
64
 
65
		$images = Cel::db()->requeter($requete);
65
		$images = Cel::db()->requeter($requete);
66
		return $images;
66
		return $images;
67
	}
67
	}
68
	
68
	
69
	private function construireRequeteChemin($mots_cles, $operateur = 'AND') {	
69
	private function construireRequeteChemin($mots_cles, $operateur = 'AND') {	
70
		$criteres = array();
70
		$criteres = array();
71
		$premier = array_pop($mots_cles);
71
		$premier = array_pop($mots_cles);
72
		$requete = "SELECT * FROM ".$this->table_liaison." lmc ".
72
		$requete = "SELECT * FROM ".$this->table_liaison." lmc ".
73
		           "INNER JOIN ".$this->table_mots_cles." mc ".
73
		           "INNER JOIN ".$this->table_mots_cles." mc ".
74
		           "ON mc.chemin LIKE ".Cel::db()->proteger('%'.$premier.'%')." AND lmc.id_mot_cle = mc.id_mot_cle ";
74
		           "ON mc.chemin LIKE ".Cel::db()->proteger('%'.$premier.'%')." AND lmc.id_mot_cle = mc.id_mot_cle ";
75
		foreach ($mots_cles as $mot_cle) {
75
		foreach ($mots_cles as $mot_cle) {
76
			$requete .= " ".$operateur." id_element_lie IN (SELECT id_element_lie FROM ".$this->table_liaison." lmc ".
76
			$requete .= " ".$operateur." id_element_lie IN (SELECT id_element_lie FROM ".$this->table_liaison." lmc ".
77
							"INNER JOIN ".$this->table_mots_cles." mc ".
77
							"INNER JOIN ".$this->table_mots_cles." mc ".
78
		           			"ON mc.chemin LIKE ".Cel::db()->proteger('%'.$mot_cle.'%')." AND lmc.id_mot_cle = mc.id_mot_cle ".
78
		           			"ON mc.chemin LIKE ".Cel::db()->proteger('%'.$mot_cle.'%')." AND lmc.id_mot_cle = mc.id_mot_cle ".
79
						") ";
79
						") ";
80
		}
80
		}
81
		
81
		
82
		$images = Cel::db()->requeter($requete);
82
		$images = Cel::db()->requeter($requete);
83
		return $images;
83
		return $images;
84
	}
84
	}
85
	
85
	
86
	public function obtenirArbre($id_utilisateur, $chemin = "/") {
86
	public function obtenirArbre($id_utilisateur, $chemin = "/") {
87
		$requete = "SELECT * FROM ".$this->table_mots_cles." ".
87
		$requete = "SELECT * FROM ".$this->table_mots_cles." ".
88
		"WHERE id_utilisateur = ".Cel::db()->proteger($id_utilisateur)." AND ".
88
		"WHERE id_utilisateur = ".Cel::db()->proteger($id_utilisateur)." AND ".
89
		"chemin LIKE ".Cel::db()->proteger($chemin."%")." ".
89
		"chemin LIKE ".Cel::db()->proteger($chemin."%")." ".
90
		"ORDER BY chemin";
90
		"ORDER BY chemin";
91
		
91
		
92
		$arbre = Cel::db()->requeter($requete.' -- '.__FILE__.':'.__LINE__);	
92
		$arbre = Cel::db()->requeter($requete.' -- '.__FILE__.':'.__LINE__);	
93
		usort($arbre, array('GestionMotsClesChemin', 'comparerProfNoeuds'));
93
		usort($arbre, array('GestionMotsClesChemin', 'comparerProfNoeuds'));
94
		
94
		
95
		return $arbre;
95
		return $arbre;
96
	}
96
	}
97
	
97
	
98
	public function obtenirIdsMotsClesParIdParent($id_utilisateur, $id_mot_cle) {
98
	public function obtenirIdsMotsClesParIdParent($id_utilisateur, $id_mot_cle) {
99
		$requete = "SELECT id_mot_cle FROM ".$this->table_mots_cles." ".
99
		$requete = "SELECT id_mot_cle FROM ".$this->table_mots_cles." ".
100
		            "WHERE chemin LIKE CONCAT(".
100
		            "WHERE chemin LIKE CONCAT(".
101
		            	"(SELECT chemin FROM ".$this->table_mots_cles." ".
101
		            	"(SELECT chemin FROM ".$this->table_mots_cles." ".
102
		            	"WHERE id_mot_cle = ".Cel::db()->proteger($id_mot_cle)."), ".
102
		            	"WHERE id_mot_cle = ".Cel::db()->proteger($id_mot_cle)."), ".
103
		            "'%')";  
103
		            "'%')";  
104
		    
104
		    
105
		$ids_enfants = Cel::db()->executerRequete($requete.' -- '.__FILE__.':'.__LINE__);
105
		$ids_enfants = Cel::db()->executerRequete($requete.' -- '.__FILE__.':'.__LINE__);
106
 
106
 
107
		return $ids_enfants;
107
		return $ids_enfants;
108
	}
108
	}
109
	
109
	
110
	public function insererParChemin($mot_cle, $chemin_parent, $id_utilisateur) {		
110
	public function insererParChemin($mot_cle, $chemin_parent, $id_utilisateur) {		
111
		$chemin_mot_cle = self::getCheminHarmonise($chemin_parent, $mot_cle);
111
		$chemin_mot_cle = self::getCheminHarmonise($chemin_parent, $mot_cle);
112
		
112
		
113
		$requete = "INSERT IGNORE INTO ".$this->table_mots_cles." (chemin, id_utilisateur, tag) ".
113
		$requete = "INSERT IGNORE INTO ".$this->table_mots_cles." (chemin, id_utilisateur, tag) ".
114
		           "VALUES (".
114
		           "VALUES (".
115
		           		Cel::db()->proteger($chemin_mot_cle).", ".
115
		           		Cel::db()->proteger($chemin_mot_cle).", ".
116
						Cel::db()->proteger($id_utilisateur).", ".
116
						Cel::db()->proteger($id_utilisateur).", ".
117
						Cel::db()->proteger($mot_cle)." ".
117
						Cel::db()->proteger($mot_cle)." ".
118
		           ")";
118
		           ")";
119
 
119
 
120
		$insertion = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
120
		$insertion = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
121
		$resultat = false;
121
		$resultat = false;
122
		if($insertion !== false) {
122
		if($insertion !== false) {
123
			$resultat = Cel::db()->obtenirDernierId();
123
			$resultat = Cel::db()->obtenirDernierId();
124
		}
124
		}
125
		
125
		
126
		return $resultat;
126
		return $resultat;
127
	}
127
	}
128
	
128
	
129
	public function insererParIdParent($mot_cle, $id_parent, $id_utilisateur) {	
129
	public function insererParIdParent($mot_cle, $id_parent, $id_utilisateur) {	
130
		$mot_cle_simp = self::simplifier($mot_cle);
130
		$mot_cle_simp = self::simplifier($mot_cle);
131
		
131
		
132
		if($id_parent != "") {
132
		if($id_parent != "") {
133
			$sous_requete_chemin = "(SELECT chemin FROM ".$this->table_mots_cles." ctp ".
133
			$sous_requete_chemin = "(SELECT chemin FROM ".$this->table_mots_cles." ctp ".
134
			                       "WHERE ctp.id_mot_cle = ".Cel::db()->proteger($id_parent).")";
134
			                       "WHERE ctp.id_mot_cle = ".Cel::db()->proteger($id_parent).")";
135
		} else {
135
		} else {
136
			$sous_requete_chemin = Cel::db()->proteger("/");
136
			$sous_requete_chemin = Cel::db()->proteger("/");
137
		}
137
		}
138
		
138
		
139
		$requete = "INSERT INTO ".$this->table_mots_cles."(chemin, id_utilisateur, mot_cle) ".
139
		$requete = "INSERT INTO ".$this->table_mots_cles."(chemin, id_utilisateur, mot_cle) ".
140
		           "VALUES (".
140
		           "VALUES (".
141
						"CONCAT(".$sous_requete_chemin.",".Cel::db()->proteger($mot_cle_simp).",'/'), ".
141
						"CONCAT(".$sous_requete_chemin.",".Cel::db()->proteger($mot_cle_simp).",'/'), ".
142
						Cel::db()->proteger($id_utilisateur).", ".
142
						Cel::db()->proteger($id_utilisateur).", ".
143
						Cel::db()->proteger($mot_cle)." ".
143
						Cel::db()->proteger($mot_cle)." ".
144
		           ")";
144
		           ")";
145
		
145
 
146
		$insertion = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
146
		$insertion = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
147
		
147
		
148
		if($insertion !== false) {
148
		if($insertion !== false) {
149
			$resultat = Cel::db()->obtenirDernierId();
149
			$resultat = Cel::db()->obtenirDernierId();
150
		}
150
		}
151
		
151
		
152
		return $resultat;
152
		return $resultat;
153
	}
153
	}
154
	
154
	
155
	public function lierParId($id_mot_cle, $id_element_lie) {
155
	public function lierParId($id_mot_cle, $id_element_lie) {
156
				
156
				
157
		$requete = "INSERT INTO ".$this->table_liaison." (id_element_lie, id_mot_cle) ".
157
		$requete = "INSERT INTO ".$this->table_liaison." (id_element_lie, id_mot_cle) ".
158
					"VALUES (".
158
					"VALUES (".
159
				   		Cel::db()->proteger($id_element_lie).", ".
159
				   		Cel::db()->proteger($id_element_lie).", ".
160
				   		Cel::db()->proteger($id_mot_cle)." ".
160
				   		Cel::db()->proteger($id_mot_cle)." ".
161
				   	") ".
161
				   	") ".
162
					"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ";
162
					"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ";
163
		
163
		
164
		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
164
		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
165
		
165
		
166
		return $liaison;
166
		return $liaison;
167
	}
167
	}
168
	
168
	
169
	public function lierParChemin($chemin, $id_element_lie, $id_utilisateur) {
169
	public function lierParChemin($chemin, $id_element_lie, $id_utilisateur) {
170
 
170
 
171
		$sous_requete_chemin = '(SELECT id_mot_cle FROM '.$this->table_mots_cles.' '.
171
		$sous_requete_chemin = '(SELECT id_mot_cle FROM '.$this->table_mots_cles.' '.
172
								'WHERE chemin = '.Cel::db()->proteger(self::harmoniserChemin($chemin)).' '.
172
								'WHERE chemin = '.Cel::db()->proteger(self::harmoniserChemin($chemin)).' '.
173
								'AND id_utilisateur = '.Cel::db()->proteger($id_utilisateur).' '.
173
								'AND id_utilisateur = '.Cel::db()->proteger($id_utilisateur).' '.
174
								')';
174
								')';
175
		
175
		
176
		$requete = "INSERT INTO ".$this->table_liaison." (id_element_lie, id_mot_cle) ".
176
		$requete = "INSERT INTO ".$this->table_liaison." (id_element_lie, id_mot_cle) ".
177
					"VALUES (".
177
					"VALUES (".
178
						Cel::db()->proteger($id_element_lie).", ".
178
						Cel::db()->proteger($id_element_lie).", ".
179
						$sous_requete_chemin." ".
179
						$sous_requete_chemin." ".
180
				   	") ".
180
				   	") ".
181
					"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ";
181
					"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ";
182
		
182
		
183
		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
183
		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
184
		
184
		
185
		return $liaison;
185
		return $liaison;
186
	}
186
	}
187
	
187
	
188
	public function lierParTableaux($ids_mots_cles, $ids_elements_lies, $id_utilisateur) {
188
	public function lierParTableaux($ids_mots_cles, $ids_elements_lies, $id_utilisateur) {
189
		
-
 
190
		
189
				
191
		foreach($ids_mots_cles as $id_mot_cle) {
190
		foreach($ids_mots_cles as $id_mot_cle) {
192
			foreach($ids_elements_lies as $id_element_lie) {
191
			foreach($ids_elements_lies as $id_element_lie) {
193
				$combinaisons[] = '('.
192
				$combinaisons[] = '('.
194
				                  	Cel::db()->proteger($id_element_lie).', '.
193
				                  	Cel::db()->proteger($id_element_lie).', '.
195
									Cel::db()->proteger($id_mot_cle).	
194
									Cel::db()->proteger($id_mot_cle).	
196
									')';
195
									')';
197
			}
196
			}
198
		} 
197
		} 
199
		
198
		
200
		$requete = "INSERT INTO ".$this->table_liaison." (id_element_lie, id_mot_cle) ".
199
		$requete = "INSERT INTO ".$this->table_liaison." (id_element_lie, id_mot_cle) ".
201
						"VALUES ".
200
						"VALUES ".
202
							implode(',', $combinaisons).' '.
201
							implode(',', $combinaisons).' '.
203
						"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ";
202
						"ON DUPLICATE KEY UPDATE id_element_lie = id_element_lie ";
204
		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
203
		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
205
	
204
	
206
		return $liaison;
205
		return $liaison;
207
	}
206
	}
208
	
207
	
209
	public function supprimerLiaisonsMotsCles($ids_mots_cles, $ids_elements_lies, $id_utilisateur) {
208
	public function supprimerLiaisonsMotsCles($ids_mots_cles, $ids_elements_lies, $id_utilisateur) {
210
		
209
		
211
		$requete = 'DELETE FROM '.$this->table_liaison.' WHERE ';
210
		$requete = 'DELETE FROM '.$this->table_liaison.' WHERE ';
212
		$combinaisons = array();
211
		$combinaisons = array();
213
		foreach($ids_mots_cles as $id_mot_cle) {
212
		foreach($ids_mots_cles as $id_mot_cle) {
214
			foreach($ids_elements_lies as $id_element_lie) {
213
			foreach($ids_elements_lies as $id_element_lie) {
215
				$combinaisons[] = '('.
214
				$combinaisons[] = '('.
216
				                  	'id_element_lie = '.Cel::db()->proteger($id_element_lie).' AND '.
215
				                  	'id_element_lie = '.Cel::db()->proteger($id_element_lie).' AND '.
217
									'id_mot_cle = '.Cel::db()->proteger($id_mot_cle).	
216
									'id_mot_cle = '.Cel::db()->proteger($id_mot_cle).	
218
									')';
217
									')';
219
			}
218
			}
220
		} 
219
		} 
221
		$requete .= implode(' OR ', $combinaisons);
220
		$requete .= implode(' OR ', $combinaisons);
222
		$suppression = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
221
		$suppression = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
223
		
222
		
224
		return $suppression;
223
		return $suppression;
225
	}
224
	}
226
	
225
	
227
	public function supprimerToutesLiaisonsPourIdsElementsLies($ids_elements_lies, $id_utilisateur) {
226
	public function supprimerToutesLiaisonsPourIdsElementsLies($ids_elements_lies, $id_utilisateur) {
228
		
-
 
229
		foreach($ids_elements_lies as &$id_element_lie) {
227
		foreach($ids_elements_lies as &$id_element_lie) {
230
			$id_element_lie = Cel::db()->proteger($id_element_lie);
228
			$id_element_lie = Cel::db()->proteger($id_element_lie);
231
		}
229
		}
232
		$requete = 'DELETE FROM '.$this->table_liaison.' '.
230
		$requete = 'DELETE FROM '.$this->table_liaison.' '.
233
		           'WHERE id_element_lie IN ('.implode(',', $ids_elements_lies).')';
231
		           'WHERE id_element_lie IN ('.implode(',', $ids_elements_lies).')';
234
		
232
		
235
		$suppression = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
233
		$suppression = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
236
		$suppression = ($suppression !== false);
234
		$suppression = ($suppression !== false);
237
		return $suppression;
235
		return $suppression;
238
	}
236
	}
239
	
237
	
240
	public function supprimerToutesLiaisonsIdsMotsCles($ids_mots_cles, $id_utilisateur) {
238
	public function supprimerToutesLiaisonsIdsMotsCles($ids_mots_cles, $id_utilisateur) {
241
		
239
		
242
		if(!empty($ids_mots_cles)) {
240
		if(!empty($ids_mots_cles)) {
243
			$ids_mots_cles_p = array();
241
			$ids_mots_cles_p = array();
244
			foreach($ids_mots_cles as $id_mot_cle) {
242
			foreach($ids_mots_cles as $id_mot_cle) {
245
				$id_mot_cle = Cel::db()->proteger($id_mot_cle);
243
				$id_mot_cle = Cel::db()->proteger($id_mot_cle);
246
			}
244
			}
247
			$requete = 'DELETE FROM '.$this->table_liaison.' '.
245
			$requete = 'DELETE FROM '.$this->table_liaison.' '.
248
					           'WHERE id_mot_cle IN ('.implode(',', $ids_mots_cles).') ';
246
					           'WHERE id_mot_cle IN ('.implode(',', $ids_mots_cles).') ';
249
			
247
			
250
			$suppression = Cel::db()->executerRequeteSimple($requete.' -- '.__FILE__.':'.__LINE__);
248
			$suppression = Cel::db()->executerRequeteSimple($requete.' -- '.__FILE__.':'.__LINE__);
251
			$suppression = ($suppression !== false);
249
			$suppression = ($suppression !== false);
252
		} else {
250
		} else {
253
			$suppression = true;
251
			$suppression = true;
254
		}
252
		}
255
		return $suppression;
253
		return $suppression;
256
	}
254
	}
257
	
255
	
258
	public function renommerMotCle($id_mot_cle, $nouveau_nom) {
256
	public function renommerMotCle($id_mot_cle, $nouveau_nom) {
259
		
257
		
260
		$requete_ancien_chemin = 'SELECT chemin, id_utilisateur FROM '.$this->table_mots_cles.' '.
258
		$requete_ancien_chemin = 'SELECT chemin, id_utilisateur FROM '.$this->table_mots_cles.' '.
261
								  'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle);
259
								  'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle);
262
		$res_ancien_chemin = Cel::db()->requeter($requete_ancien_chemin.' -- '.__FILE__.':'.__LINE__);
260
		$res_ancien_chemin = Cel::db()->requeter($requete_ancien_chemin.' -- '.__FILE__.':'.__LINE__);
263
		
261
		
264
		$ancien_chemin = $res_ancien_chemin[0]['chemin'];
262
		$ancien_chemin = $res_ancien_chemin[0]['chemin'];
265
		$id_utilisateur = $res_ancien_chemin[0]['id_utilisateur'];
263
		$id_utilisateur = $res_ancien_chemin[0]['id_utilisateur'];
266
		
264
		
267
		$tab_chemin = explode('/', $ancien_chemin);
265
		$tab_chemin = explode('/', $ancien_chemin);
268
		
266
		
269
		// le dernier élément du tableau est vide (à cause du / terminal)
267
		// le dernier élément du tableau est vide (à cause du / terminal)
270
		// c'est également le cas pour le premier (à cause du / qui commence le chemin)
268
		// c'est également le cas pour le premier (à cause du / qui commence le chemin)
271
		$tab_chemin[count($tab_chemin) - 2] = $nouveau_nom;
269
		$tab_chemin[count($tab_chemin) - 2] = $nouveau_nom;
272
		$nouveau_chemin = implode('/', $tab_chemin);
270
		$nouveau_chemin = implode('/', $tab_chemin);
273
		
271
		
274
		$requete = 'UPDATE '.$this->table_mots_cles.' '.
272
		$requete = 'UPDATE '.$this->table_mots_cles.' '.
275
		            'SET mot_cle = '.Cel::db()->proteger($nouveau_nom).' '.
273
		            'SET mot_cle = '.Cel::db()->proteger($nouveau_nom).' '.
276
		            'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle).' ';
274
		            'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle).' ';
277
		
275
		
278
		$renommage = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
276
		$renommage = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
279
		
277
		
280
		$this->renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur);
278
		$this->renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur);
-
 
279
		
-
 
280
		$ids_elements_lies = $this->obtenirIdElementsLiesPourIds(array($id_mot_cle));
-
 
281
		foreach($ids_elements_lies as $id_element_lie) {
-
 
282
			self::regenererIndexTexteMotCle($id_element_lie['id_element_lie'], $this->mode);
-
 
283
		}
281
		
284
		
282
		return $renommage;
285
		return $renommage;
283
	}
286
	}
284
	
287
	
285
	public function deplacerMotCle($id_mot_cle, $id_pere, $id_utilisateur) {	
288
	public function deplacerMotCle($id_mot_cle, $id_pere, $id_utilisateur) {	
286
 
289
 
287
		$selection_chemin_pere = 'SELECT chemin FROM '.$this->table_mots_cles.' '.
290
		$selection_chemin_pere = 'SELECT chemin FROM '.$this->table_mots_cles.' '.
288
								 'WHERE id_mot_cle = '.Cel::db()->proteger($id_pere);
291
								 'WHERE id_mot_cle = '.Cel::db()->proteger($id_pere);
289
		
292
		
290
		$chemin_pere = Cel::db()->requeter($selection_chemin_pere.' -- '.__FILE__.':'.__LINE__);
293
		$chemin_pere = Cel::db()->requeter($selection_chemin_pere.' -- '.__FILE__.':'.__LINE__);
291
		$chemin_pere = $chemin_pere[0]['chemin'];
294
		$chemin_pere = $chemin_pere[0]['chemin'];
292
		
295
		
293
		$selection_infos_mot_cle = 'SELECT chemin, mot_cle FROM '.$this->table_mots_cles.' '.
296
		$selection_infos_mot_cle = 'SELECT chemin, mot_cle FROM '.$this->table_mots_cles.' '.
294
										 'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle);
297
										 'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle);
295
		
298
		
296
		$infos_mot_cle = Cel::db()->requeter($selection_infos_mot_cle.' -- '.__FILE__.':'.__LINE__);
299
		$infos_mot_cle = Cel::db()->requeter($selection_infos_mot_cle.' -- '.__FILE__.':'.__LINE__);
297
		$ancien_chemin = $infos_mot_cle[0]['chemin'];
300
		$ancien_chemin = $infos_mot_cle[0]['chemin'];
298
		
301
		
299
		$nouveau_chemin = $chemin_pere.'/'.$infos_mot_cle[0]['mot_cle'];
302
		$nouveau_chemin = $chemin_pere.'/'.$infos_mot_cle[0]['mot_cle'];
300
		
303
		
301
		return $this->renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur);
304
		return $this->renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur);
302
	}
305
	}
303
	
306
	
304
	public function renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur) {
307
	public function renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur) {
305
		
308
		
306
		$ancien_chemin = self::harmoniserChemin($ancien_chemin);
309
		$ancien_chemin = self::harmoniserChemin($ancien_chemin);
307
		$nouveau_chemin = self::harmoniserChemin($nouveau_chemin);
310
		$nouveau_chemin = self::harmoniserChemin($nouveau_chemin);
308
		
311
		
309
		$ancien_chemin_p = Cel::db()->proteger($ancien_chemin);
312
		$ancien_chemin_p = Cel::db()->proteger($ancien_chemin);
310
		$nouveau_chemin_p = Cel::db()->proteger($nouveau_chemin);
313
		$nouveau_chemin_p = Cel::db()->proteger($nouveau_chemin);
311
		
314
		
312
		$condition_chemin = Cel::db()->proteger($ancien_chemin.'%');
315
		$condition_chemin = Cel::db()->proteger($ancien_chemin.'%');
313
		
316
		
314
		$requete = "UPDATE ".$this->table_mots_cles." ".
317
		$requete = "UPDATE ".$this->table_mots_cles." ".
315
						       	   "SET chemin = REPLACE(chemin,".$ancien_chemin_p.", ".$nouveau_chemin_p.") ".                              
318
						       	   "SET chemin = REPLACE(chemin,".$ancien_chemin_p.", ".$nouveau_chemin_p.") ".                              
316
								   "WHERE chemin LIKE ".$condition_chemin." AND ".
319
								   "WHERE chemin LIKE ".$condition_chemin." AND ".
317
						           "id_utilisateur = ".$id_utilisateur." "; 
320
						           "id_utilisateur = ".$id_utilisateur." "; 
318
		
321
		
319
		return Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
322
		return Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
320
	}
323
	}
321
	
324
	
322
	public function supprimerChemin($chemin, $id_utilisateur) {
325
	public function supprimerChemin($chemin, $id_utilisateur) {
323
		// TODO : triggers pour les tables liées ?
326
		// TODO : triggers pour les tables liées ?
324
		$requete = "DELETE FROM ".$this->$table_mots_cles." ".
327
		$requete = "DELETE FROM ".$this->$table_mots_cles." ".
325
                   	"WHERE chemin LIKE ".Cel::db()->proteger($chemin."%")." AND ".
328
                   	"WHERE chemin LIKE ".Cel::db()->proteger($chemin."%")." AND ".
326
                   	"id_utilisateur = ".Cel::db()->proteger($id_utilisateur)." ";   
329
                   	"id_utilisateur = ".Cel::db()->proteger($id_utilisateur)." ";   
327
 
330
 
328
		return Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);			
331
		return Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);			
329
	}
332
	}
330
	
333
	
331
	public function supprimerMotCleParId($id_mot_cle, $id_utilisateur) {
334
	public function supprimerMotCleParId($id_mot_cle, $id_utilisateur) {
332
		//TODO: simplifier cette fonction
335
		//TODO: simplifier cette fonction
333
		
336
		
334
		// suppression des associations du mots clé aux images ou obs, mais aussi des associations de ses enfants
337
		// suppression des associations du mots clé aux images ou obs, mais aussi des associations de ses enfants
335
		// (car ceux-ci seront supprimés aussi dans le processus)
338
		// (car ceux-ci seront supprimés aussi dans le processus)
336
		// même s'il n'a pas d'enfants, le tableau contient au moins l'id du mot clé lui même
339
		// même s'il n'a pas d'enfants, le tableau contient au moins l'id du mot clé lui même
337
		$ids_mot_cle_et_enfants = $this->obtenirIdsMotsClesParIdParent($id_utilisateur, $id_mot_cle);
340
		$ids_mot_cle_et_enfants = $this->obtenirIdsMotsClesParIdParent($id_utilisateur, $id_mot_cle);
338
		
341
		
339
		$print = array();
342
		$print = array();
340
		
343
		
341
		// obtention des ids des éléments liés au mot clé ainsi qu'à ces enfants (afin de pouvoir
344
		// obtention des ids des éléments liés au mot clé ainsi qu'à ces enfants (afin de pouvoir
342
		// régénérer les index texte de mots clés sur les éléments liés
345
		// régénérer les index texte de mots clés sur les éléments liés
343
		$ids_a_delier = array();
346
		$ids_a_delier = array();
344
		foreach($ids_mot_cle_et_enfants as $id) {
347
		foreach($ids_mot_cle_et_enfants as $id) {
345
			$ids_a_delier[] = $id['id_mot_cle'];
348
			$ids_a_delier[] = $id['id_mot_cle'];
346
		}
349
		}
347
		
350
		
348
		$ids_elements_lies = $this->obtenirIdElementsLiesPourIds($ids_a_delier);
351
		$ids_elements_lies = $this->obtenirIdElementsLiesPourIds($ids_a_delier);
349
		$suppression_liaison = $this->supprimerToutesLiaisonsIdsMotsCles($ids_a_delier, $id_utilisateur);
352
		$suppression_liaison = $this->supprimerToutesLiaisonsIdsMotsCles($ids_a_delier, $id_utilisateur);
350
 
353
 
351
		foreach($ids_elements_lies as $id_element_lie) {
354
		foreach($ids_elements_lies as $id_element_lie) {
352
			self::regenererIndexTexteMotCle($id_element_lie['id_element_lie'], $this->mode);
355
			self::regenererIndexTexteMotCle($id_element_lie['id_element_lie'], $this->mode);
353
		}
356
		}
354
		
357
		
355
		// suppression du mot clé proprement dit ainsi que de ses enfants
358
		// suppression du mot clé proprement dit ainsi que de ses enfants
356
		$suppression = $this->supprimerMotCleEtEnfantsParId($id_mot_cle, $id_utilisateur);
359
		$suppression = $this->supprimerMotCleEtEnfantsParId($id_mot_cle, $id_utilisateur);
357
		
360
		
358
		return $suppression && $suppression_liaison;
361
		return $suppression && $suppression_liaison;
359
	}
362
	}
360
	
363
	
361
	public function supprimerMotCleEtEnfantsParId($id_mot_cle, $id_utilisateur) {
364
	public function supprimerMotCleEtEnfantsParId($id_mot_cle, $id_utilisateur) {
362
		
365
		
363
		$selection_chemin = 'SELECT chemin FROM '.$this->table_mots_cles.' '.
366
		$selection_chemin = 'SELECT chemin FROM '.$this->table_mots_cles.' '.
364
										 'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle);
367
										 'WHERE id_mot_cle = '.Cel::db()->proteger($id_mot_cle);
365
		$chemin = Cel::db()->requeter($selection_chemin.' -- '.__FILE__.':'.__LINE__);
368
		$chemin = Cel::db()->requeter($selection_chemin.' -- '.__FILE__.':'.__LINE__);
366
		
369
		
367
		$suppression = true;
370
		$suppression = true;
-
 
371
		// vérification pour empecher la suppression accidentelle de tout l'arbre, cas qui ne devrait arriver
368
		if(!empty($chemin)) {	
372
		if(!empty($chemin) && $chemin != "/") {	
369
			$chemin = $chemin[0]['chemin'];		
373
			$chemin = $chemin[0]['chemin'];		
370
			$requete = "DELETE FROM ".$this->table_mots_cles." WHERE chemin LIKE ".
374
			$requete = "DELETE FROM ".$this->table_mots_cles." WHERE chemin LIKE ".
371
						Cel::db()->proteger($chemin.'%')." ".
375
						Cel::db()->proteger($chemin.'%')." ".
372
			           	"AND id_utilisateur =".Cel::db()->proteger($id_utilisateur);
376
			           	"AND id_utilisateur =".Cel::db()->proteger($id_utilisateur);
-
 
377
			
373
			$suppression = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
378
			$suppression = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
374
		}
379
		}
375
 
380
 
376
		return ($suppression !== false);
381
		return ($suppression !== false);
377
		
382
		
378
	}
383
	}
379
	
384
	
380
	public function obtenirIdElementsLiesPourChemins($chemins) {
385
	public function obtenirIdElementsLiesPourChemins($chemins) {
381
		foreach($chemins as &$chemin) {
386
		foreach($chemins as &$chemin) {
382
			$chemin = Cel::db()->proteger(self::harmoniserChemin($chemin));
387
			$chemin = Cel::db()->proteger(self::harmoniserChemin($chemin));
383
		}
388
		}
384
		
389
		
385
		$requete = 'SELECT id_element_lie FROM '.$this->table_liaison.' cl '.
390
		$requete = 'SELECT id_element_lie FROM '.$this->table_liaison.' cl '.
386
		            'INNER JOIN '.$this->table_mots_cles.' cm '.
391
		            'INNER JOIN '.$this->table_mots_cles.' cm '.
387
		            'ON cm.id_mot_cle = cl.id_mot_cle AND chemin IN ('.implode(',', $chemin).')';
392
		            'ON cm.id_mot_cle = cl.id_mot_cle AND chemin IN ('.implode(',', $chemin).')';
388
		
393
		
389
		$ids_pour_chemin = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
394
		$ids_pour_chemin = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);
390
		
395
		
391
		return $ids_pour_chemin;
396
		return $ids_pour_chemin;
392
	}
397
	}
393
	
398
	
394
	public function obtenirIdElementsLiesPourIds($ids_mots_cles) {
399
	public function obtenirIdElementsLiesPourIds($ids_mots_cles) {
395
		$ids_elements_lies = array();
400
		$ids_elements_lies = array();
396
		if(!empty($ids_mots_cles)) {
401
		if(!empty($ids_mots_cles)) {
397
			foreach($ids_mots_cles as $id_mot_cle) {
402
			foreach($ids_mots_cles as $id_mot_cle) {
398
				$id_mot_cle = Cel::db()->proteger($id_mot_cle);
403
				$id_mot_cle = Cel::db()->proteger($id_mot_cle);
399
			}
404
			}
400
		
405
		
401
			$requete = 'SELECT id_element_lie FROM '.$this->table_liaison.' '.
406
			$requete = 'SELECT id_element_lie FROM '.$this->table_liaison.' '.
402
				            'WHERE id_mot_cle IN ('.implode(',', $ids_mots_cles).')';
407
				            'WHERE id_mot_cle IN ('.implode(',', $ids_mots_cles).')';
403
		
408
		
404
			$ids_elements_lies = Cel::db()->executerRequete($requete.' -- '.__FILE__.':'.__LINE__);
409
			$ids_elements_lies = Cel::db()->executerRequete($requete.' -- '.__FILE__.':'.__LINE__);
405
		}
410
		}
406
 
411
 
407
		return $ids_elements_lies;
412
		return $ids_elements_lies;
408
	}
413
	}
409
	
414
	
410
	public static function regenererIndexTexteMotCle($id_element_lie, $mode) {
415
	public static function regenererIndexTexteMotCle($id_element_lie, $mode) {
411
		$sous_requete_concat = '('.sprintf(GestionMotsClesChemin::obtenirTemplateRequeteMotsClesTexte($mode),
416
		$sous_requete_concat = '('.sprintf(GestionMotsClesChemin::obtenirTemplateRequeteMotsClesTexte($mode),
412
		Cel::db()->proteger($id_element_lie)).')';
417
		Cel::db()->proteger($id_element_lie)).')';
413
		
418
		
414
		list($table, $champ_id) = self::getNomTablesEtChampsElementsLies($mode);
419
		list($table, $champ_id) = self::getNomTablesEtChampsElementsLies($mode);
415
		$requete = 'UPDATE '.$table.' SET mots_cles_texte = '.$sous_requete_concat.' '.
420
		$requete = 'UPDATE '.$table.' SET mots_cles_texte = '.$sous_requete_concat.' '.
416
				           'WHERE '.$champ_id.' = '.Cel::db()->proteger($id_element_lie).' ';
421
				           'WHERE '.$champ_id.' = '.Cel::db()->proteger($id_element_lie).' ';
417
		
422
		
418
		return Cel::db()->executer($requete, __FILE__ , __LINE__);
423
		return Cel::db()->executer($requete, __FILE__ , __LINE__);
419
	}
424
	}
420
	
425
	
421
	private static function getNomTablesEtChampsElementsLies($mode) {
426
	private static function getNomTablesEtChampsElementsLies($mode) {
422
		$tables = array();
427
		$tables = array();
423
		if($mode == 'obs') {
428
		if($mode == 'obs') {
424
			$tables = array('cel_obs','id_observation');
429
			$tables = array('cel_obs','id_observation');
425
		} else {
430
		} else {
426
			$tables = array('cel_images','id_image');
431
			$tables = array('cel_images','id_image');
427
		}
432
		}
428
		return $tables;
433
		return $tables;
429
	}
434
	}
430
	
435
	
431
	public static function obtenirTemplateRequeteMotsClesTexte($mode) {
436
	public static function obtenirTemplateRequeteMotsClesTexte($mode) {
432
		
437
		
433
		if($mode == 'obs') {
438
		if($mode == 'obs') {
434
			$table_liaison = 'cel_mots_cles_obs_liaison';
439
			$table_liaison = 'cel_mots_cles_obs_liaison';
435
			$table_mots_cles = 'cel_arbre_mots_cles_obs';
440
			$table_mots_cles = 'cel_arbre_mots_cles_obs';
436
		} else {
441
		} else {
437
			$table_liaison = 'cel_mots_cles_images_liaison';
442
			$table_liaison = 'cel_mots_cles_images_liaison';
438
			$table_mots_cles = 'cel_arbre_mots_cles_images';
443
			$table_mots_cles = 'cel_arbre_mots_cles_images';
439
		}
444
		}
440
		
445
		
441
		// renvoie un template de requete pour selectionner la concatenation
446
		// renvoie un template de requete pour selectionner la concatenation
442
		// de mots clé pour un element donné (utilisable avec sprintf)
447
		// de mots clé pour un element donné (utilisable avec sprintf)
443
		return 'SELECT GROUP_CONCAT(mot_cle) '.
448
		return 'SELECT GROUP_CONCAT(mot_cle) '.
444
					'FROM '.$table_mots_cles.' cm '.
449
					'FROM '.$table_mots_cles.' cm '.
445
					'INNER JOIN '.$table_liaison.' cml '.
450
					'INNER JOIN '.$table_liaison.' cml '.
446
					'ON cml.id_mot_cle = cm.id_mot_cle '.
451
					'ON cml.id_mot_cle = cm.id_mot_cle '.
447
					'AND cml.id_element_lie = %s ';
452
					'AND cml.id_element_lie = %s ';
448
	}
453
	}
449
	
454
	
450
	// Fonctions utilitaires	
455
	// Fonctions utilitaires	
451
	static public function comparerProfNoeuds($a, $b) {
456
	static public function comparerProfNoeuds($a, $b) {
452
		
457
		
453
		$nb_slashs_a = substr_count($a['chemin'], '/');
458
		$nb_slashs_a = substr_count($a['chemin'], '/');
454
		$nb_slashs_b = substr_count($a['chemin'], '/');
459
		$nb_slashs_b = substr_count($a['chemin'], '/');
455
		$cmp = 0;
460
		$cmp = 0;
456
		
461
		
457
		if($nb_slashs_a == $nb_slashs_b) {
462
		if($nb_slashs_a == $nb_slashs_b) {
458
			$cmp = strcmp($a['chemin'], $b['chemin']);
463
			$cmp = strcmp($a['chemin'], $b['chemin']);
459
		} else {
464
		} else {
460
			$cmp = ($a['chemin'] > $b['chemin']) ? +1 : -1;
465
			$cmp = ($a['chemin'] > $b['chemin']) ? +1 : -1;
461
		}
466
		}
462
		
467
		
463
		return $cmp;
468
		return $cmp;
464
	}
469
	}
465
	
470
	
466
	static public function getCheminHarmonise($chemin_parent, $mot_cle) {
471
	static public function getCheminHarmonise($chemin_parent, $mot_cle) {
467
		return self::harmoniserChemin($chemin_parent.'/'.self::simplifier($mot_cle).'/');
472
		return self::harmoniserChemin($chemin_parent.'/'.self::simplifier($mot_cle).'/');
468
	}
473
	}
469
	
474
	
470
	static public function harmoniserChemin($chemin) {
475
	static public function harmoniserChemin($chemin) {
471
		$chemin = self::startsWith($chemin,'/') ? $chemin : '/'.$chemin;
476
		$chemin = self::startsWith($chemin,'/') ? $chemin : '/'.$chemin;
472
		$chemin = self::endsWith($chemin,'/') ? $chemin : $chemin.'/';
477
		$chemin = self::endsWith($chemin,'/') ? $chemin : $chemin.'/';
473
		return str_replace('//', '/', $chemin);
478
		return str_replace('//', '/', $chemin);
474
	}
479
	}
475
	
480
	
476
	// fonction de slugification du mot clé
481
	// fonction de slugification du mot clé
477
	// http://stackoverflow.com/questions/2955251/php-function-to-make-slug-url-string
482
	// http://stackoverflow.com/questions/2955251/php-function-to-make-slug-url-string
478
	static public function simplifier($text)
483
	static public function simplifier($text)
479
	{
484
	{
480
		return trim(str_replace(array('\\','/'), '', $text));
485
		return trim(str_replace(array('\\','/'), '', $text));
481
		// replace non letter or digits by -
486
		// replace non letter or digits by -
482
		$text = preg_replace('~[^\\pL\d]+~u', '-', $text);
487
		$text = preg_replace('~[^\\pL\d]+~u', '-', $text);
483
	
488
	
484
		// trim
489
		// trim
485
		$text = trim($text, '-');
490
		$text = trim($text, '-');
486
	
491
	
487
		// transliterate
492
		// transliterate
488
		$text = iconv('utf-8', 'us-ascii//TRANSLIT', $text);
493
		$text = iconv('utf-8', 'us-ascii//TRANSLIT', $text);
489
	
494
	
490
		// lowercase
495
		// lowercase
491
		$text = strtolower($text);
496
		$text = strtolower($text);
492
	
497
	
493
		// remove unwanted characters
498
		// remove unwanted characters
494
		$text = preg_replace('~[^-\w]+~', '', $text);
499
		$text = preg_replace('~[^-\w]+~', '', $text);
495
	
500
	
496
		if (empty($text))
501
		if (empty($text))
497
		{
502
		{
498
			return 'n-a';
503
			return 'n-a';
499
		}
504
		}
500
	
505
	
501
		return $text;
506
		return $text;
502
	}
507
	}
503
	
508
	
504
	static public function startsWith($haystack, $needle) {
509
	static public function startsWith($haystack, $needle) {
505
		return $needle === "" || strpos($haystack, $needle) === 0;
510
		return $needle === "" || strpos($haystack, $needle) === 0;
506
	}
511
	}
507
	
512
	
508
	static public function endsWith($haystack, $needle) {
513
	static public function endsWith($haystack, $needle) {
509
		return $needle === "" || substr($haystack, -strlen($needle)) === $needle;
514
		return $needle === "" || substr($haystack, -strlen($needle)) === $needle;
510
	}
515
	}
511
}
516
}
512
?>
517
?>