Subversion Repositories eFlore/Applications.del

Rev

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

Rev Author Line No. Line
1617 mathias 1 
<?php
2 
/**
1795 jpm 3 
 * Statistiques par année sur l'utilisation de Identiplante / Pictoflora
4 
 *
5 
 * Documentation: http://www.tela-botanica.org/wikini/DevInformatiques/wakka.php?wiki=AppliDelStats
6 
 *
7 
 * @category   DEL
8 
 * @package    Services
9 
 * @subpackage Statistiques
10 
 * @version    0.1
11 
 * @author     Mathias CHOUET <mathias@tela-botanica.org>
12 
 * @author     Jean-Pascal MILCENT <jpm@tela-botanica.org>
13 
 * @author     Aurelien PERONNET <aurelien@tela-botanica.org>
14 
 * @license    GPL v3 <http://www.gnu.org/licenses/gpl.txt>
15 
 * @license    CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
16 
 * @copyright  1999-2014 Tela Botanica <accueil@tela-botanica.org>
17 
 */
1617 mathias 18 
class Statistiques extends RestService {
19 
 
20 
	protected $bdd;
21 
 
22 
	public function __construct() {
23 
		$this->bdd = $this->getBdd();
24 
	}
25 
 
26 
	// GET
27 
	public function consulter($ressources, $parametres) {
28 
		$resultat = '';
29 
		$reponseHttp = new ReponseHttp();
30 
 
31 
		// méthode à appeler
32 
		$methode = "tout";
33 
		if (isset($ressources[0])) {
34 
			$methode = $ressources[0];
35 
		}
1788 mathias 36 
		// année à considérer - par défaut pas de filtrage
37 
		$annee = null;
1617 mathias 38 
		if (isset($parametres['annee'])) {
39 
			$annee = $parametres['annee'];
40 
		}
41 
		//echo "Année: $annee\nMéthode: $methode\n";
42 
 
43 
		// appel
44 
		if (method_exists($this, $methode)) {
45 
			try {
46 
				$retour = call_user_func(array($this, $methode), $annee);
47 
				$reponseHttp->setResultatService($retour);
48 
			} catch (ServiceFoiraxException $e) {
49 
				// @TODO renvoyer 500
50 
				$reponseHttp->ajouterErreur($e);
51 
			}
52 
		} else {
53 
			// @TODO renvoyer 500
54 
			$reponseHttp->ajouterErreur(new Exception("Erreur: la méthode \"$methode\" n'existe pas<br/>" . $this->utilisation()));
55 
		}
56 
 
57 
		// merci au revoir
58 
		$reponseHttp->emettreLesEntetes();
59 
		$corps = $reponseHttp->getCorps();
60 
 
61 
		return $corps;
62 
	}
63 
 
64 
	// Renvoie la liste des méthodes disponibles
65 
	private function utilisation() {
66 
		return "<br/>Méthodes disponibles:<ul>".
67 
			"<li>tout</li>".
68 
			"<li>moyenneObsSansNomParMois</li>".
69 
			"<li>moyenneObsIdentifieesParMois</li>".
70 
			"<li>pourcentageObsIdentifieesEnFinDAnnee</li>".
1624 mathias 71 
			"<li>pourcentageObsIdentifieesEnFinDAnneePlusPlus</li>".
1617 mathias 72 
			"<li>moyenneActionsParJour</li>".
73 
			"<li>personnesEnvoyantUnePropositionParMois</li>".
74 
		"</ul>";
75 
	}
76 
 
77 
	// retourne toutes les stats pour l'année spécifiée
1788 mathias 78 
	protected function tout($annee=null) {
1617 mathias 79 
		$moyenneObsSansNomParMois = $this->moyenneObsSansNomParMois($annee);
80 
		$moyenneObsIdentifieesParMois = $this->moyenneObsIdentifieesParMois($annee);
81 
		$pourcentageObsIdentifieesEnFinDAnnee = $this->pourcentageObsIdentifieesEnFinDAnnee($annee);
1624 mathias 82 
		$pourcentageObsIdentifieesEnFinDAnneePlusPlus = $this->pourcentageObsIdentifieesEnFinDAnneePlusPlus($annee);
1617 mathias 83 
		$moyenneActionsParJour = $this->moyenneActionsParJour($annee);
84 
		$personnesEnvoyantUnePropositionParMois = $this->personnesEnvoyantUnePropositionParMois($annee);
85 
 
86 
		return array(
1788 mathias 87 
			'annee' => $annee ? intval($annee) : null,
1617 mathias 88 
			'moyenneObsSansNomParMois' => $moyenneObsSansNomParMois,
89 
			'moyenneObsIdentifieesParMois' => $moyenneObsIdentifieesParMois,
90 
			'pourcentageObsIdentifieesEnFinDAnnee' => $pourcentageObsIdentifieesEnFinDAnnee,
1624 mathias 91 
			'pourcentageObsIdentifieesEnFinDAnneePlusPlus' => $pourcentageObsIdentifieesEnFinDAnneePlusPlus['pourcentage'],
1617 mathias 92 
			'moyenneActionsParJour' => $moyenneActionsParJour,
93 
			'personnesEnvoyantUnePropositionParMois' => $personnesEnvoyantUnePropositionParMois['nombre']
94 
		);
95 
	}
96 
 
1788 mathias 97 
	// proxy pour le widget de stats
98 
	protected function observations($annee) {
99 
		return $this->tout($annee);
100 
	}
101 
 
1617 mathias 102 
	// Retourne le nombre moyen d'observations non identifiées envoyées par mois, pour l'année $annee
103 
	protected function moyenneObsSansNomParMois($annee) {
104 
		$req = "SELECT AVG(parMois.compte) as moyenne FROM".
105 
			" (SELECT count(*) as compte, CONCAT(YEAR(date_transmission),'-',MONTH(date_transmission)) as anneemois".
106 
			" FROM del_observation".
1788 mathias 107 
			" WHERE ";
108 
		if ($annee !== null) {
109 
			$req .= "YEAR(date_transmission) = '" . $annee . "' AND ";
110 
		}
1617 mathias 111 
				// Obs marqués comme "aDeterminer" ou ayant un faible niveau de certitude
1788 mathias 112 
		$req .=	" (mots_cles_texte LIKE '%aDeterminer%'".
1617 mathias 113 
				" OR certitude = 'aDeterminer'".
114 
				" OR certitude = 'douteux'".
115 
				// Obs n'ayant pas de nom_sel_nn (détermination non choisie parmi le référentiel)
116 
				" OR nom_sel_nn IS NULL".
117 
				" OR nom_sel_nn = 0".
118 
				" OR id_observation IN".
119 
					// Obs ayant une proposition initiale "vide" (sans no_sel_nn)
120 
					" (SELECT DISTINCT ce_observation".
121 
					" FROM del_commentaire".
122 
					" WHERE proposition_initiale = 1".
123 
					" AND (nom_sel_nn IS NULL OR nom_sel_nn = '')".
124 
				")".
125 
			")".
126 
			" GROUP BY anneemois".
127 
			" ORDER BY anneemois DESC) as parMois;";
128 
 
129 
		$res = $this->bdd->recupererTous($req);
1624 mathias 130 
		return intval($res[0]['moyenne']);
1617 mathias 131 
	}
132 
 
133 
	// Retourne la moyenne par mois sur l'année en cours, des propositions marquées comme "retenues"
134 
	// dont le dernier vote est dans l'année considérée (comptées en groupant par mois du dernier vote)
135 
	protected function moyenneObsIdentifieesParMois($annee) {
136 
		$req = "SELECT AVG(valideesparmois) as moyenne FROM (".
137 
			" SELECT count(*) as valideesparmois, CONCAT(YEAR(maxdate), '-', MONTH(maxdate)) as anneemois".
138 
			" FROM (".
139 
				// Compte et date du dernier vote des propositions marquées comme "retenues"
140 
				" SELECT count(*), MAX(dcv.date) as maxdate".
141 
				" FROM del_commentaire dc".
142 
				" LEFT JOIN del_commentaire_vote dcv ON dcv.ce_proposition = dc.id_commentaire".
143 
				" WHERE proposition_retenue = 1".
1788 mathias 144 
				" GROUP BY dc.id_commentaire";
145 
 
146 
			if ($annee !== null) {
1617 mathias 147 
				// Le dernier vote doit être dans l'année considérée (@ACHTUNG bancal)
1788 mathias 148 
				$req .= " HAVING MAX(YEAR(dcv.date)) = '" . $annee . "'";
149 
			}
150 
			$req .= ") as temp".
151 
		" GROUP BY anneemois) as temp2;";
1617 mathias 152 
 
153 
		$res = $this->bdd->recupererTous($req);
1624 mathias 154 
		return intval($res[0]['moyenne']);
1617 mathias 155 
	}
156 
 
1624 mathias 157 
	// Version améliorée mais non optimale (prend en compte les consensus non validés)
158 
	// @TODO on devrait croiser les IDS pour ne pas prendre en compte les obs validées ou en
159 
	// 		consensus, mais qui datent des années précédentes
1626 mathias 160 
	// @ACHTUNG mache pas, dépasse les 100% (voir Wiki)
1624 mathias 161 
	protected function pourcentageObsIdentifieesEnFinDAnneePlusPlus($annee) {
162 
		// Obs ayant atteint un consensus cette année
163 
		$req1 = "SELECT count(*) as nombre FROM(".
164 
			" SELECT id_observation, id_commentaire, id_vote, nbvotes FROM (".
165 
				" SELECT do.id_observation, dc.id_commentaire, dcv.id_vote, count(dcv.id_vote) as nbvotes".
166 
				" FROM del_commentaire dc".
167 
				" LEFT JOIN del_observation do ON do.id_observation = dc.ce_observation".
168 
				" LEFT JOIN del_commentaire_vote dcv ON dc.id_commentaire = dcv.ce_proposition".
169 
				" AND dcv.valeur = 1".
170 
				" AND dc.proposition_retenue = 0".
1788 mathias 171 
				" GROUP BY dc.id_commentaire";
172 
		if ($annee != null) {
173 
			$req1 .= " HAVING MAX(YEAR(dcv.date)) = '" . $annee . "'";
174 
		}
175 
		$req1 .= " ) as temp GROUP BY id_observation".
1624 mathias 176 
		") as temp2;";
177 
		$obsEnConsensus = $this->bdd->recupererTous($req1);
178 
		$oc = intval($obsEnConsensus[0]['nombre']);
179 
 
180 
		// Obs ayant une "proposition retenue" cette année
181 
		$req2 = "SELECT count(*) as nombre FROM (".
182 
			" SELECT count(DISTINCT id_observation), MAX(dcv.date) as maxdate".
183 
			" FROM del_commentaire dc".
184 
			" LEFT JOIN del_commentaire_vote dcv ON dcv.ce_proposition = dc.id_commentaire".
185 
			" LEFT JOIN del_observation do ON do.id_observation = dc.ce_observation".
1788 mathias 186 
			" WHERE proposition_retenue = 1";
187 
		if ($annee != null) {
188 
			$req2 .= " AND YEAR(do.date_transmission) = '" . $annee . "'";
189 
		}
190 
		$req2 .= " GROUP BY dc.id_commentaire";
191 
		if ($annee != null) {
192 
			$req2 .= " HAVING MAX(YEAR(dcv.date)) = '" . $annee . "'";
193 
		}
194 
		$req2 .= ") as temp;";
1624 mathias 195 
		$nbObsValidees = $this->bdd->recupererTous($req2);
196 
		$ov = intval($nbObsValidees[0]['nombre']);
197 
 
198 
		// Nombre d'obs sans nom soumises cette année
199 
		$req3 = "SELECT count(*) as nombre".
200 
			" FROM del_observation".
1788 mathias 201 
			" WHERE ";
202 
		if ($annee != null) {
203 
			$req3 .= "YEAR(date_transmission) = '" . $annee . "' AND ";
204 
		}
205 
		$req3 .= "(mots_cles_texte LIKE '%aDeterminer%'".
1624 mathias 206 
			" OR certitude = 'aDeterminer'".
207 
			" OR certitude = 'douteux'".
208 
			" OR nom_sel_nn IS NULL".
209 
			" OR nom_sel_nn = 0 OR".
210 
				" id_observation IN (".
211 
				" SELECT DISTINCT ce_observation".
212 
				" FROM del_commentaire".
213 
				" WHERE proposition_initiale = 1".
214 
				" AND (nom_sel_nn IS NULL OR nom_sel_nn = '')".
215 
			" ))";
216 
		$nbObsSansNom = $this->bdd->recupererTous($req3);
217 
		$osn = intval($nbObsSansNom[0]['nombre']);
218 
 
219 
		return array(
220 
			'observationsEnConsensus' => $oc,
221 
			'observationsValidees' => $ov,
222 
			'observationsSansNom' => $osn,
223 
			'pourcentage' => ($osn == 0 ? 0 : (($oc + $ov) / $osn) * 100)
224 
		);
225 
	}
226 
 
1617 mathias 227 
	protected function pourcentageObsIdentifieesEnFinDAnnee($annee) {
228 
		$req = "SELECT (".
229 
			" SELECT count(*) FROM (".
230 
				" SELECT count(DISTINCT id_observation), MAX(dcv.date) as maxdate".
231 
				" FROM del_commentaire dc".
232 
				" LEFT JOIN del_commentaire_vote dcv ON dcv.ce_proposition = dc.id_commentaire".
233 
				" LEFT JOIN del_observation do ON do.id_observation = dc.ce_observation".
1788 mathias 234 
				" WHERE proposition_retenue = 1";
235 
		if ($annee !== null) {
236 
			$req .= " AND YEAR(do.date_transmission) = '" . $annee . "'";
237 
		}
238 
		$req .= " GROUP BY dc.id_commentaire";
239 
		if ($annee !== null) {
240 
			$req .= " HAVING MAX(YEAR(dcv.date)) = '" . $annee . "'";
241 
		}
242 
		$req .= ") as temp)".
1617 mathias 243 
			" /".
244 
			" (SELECT count(*)".
245 
			" FROM del_observation".
1788 mathias 246 
			" WHERE ";
247 
		if ($annee !== null) {
248 
			$req .= "YEAR(date_transmission) = '" . $annee . "' AND ";
249 
		}
250 
		$req .= " (mots_cles_texte LIKE '%aDeterminer%'".
1617 mathias 251 
			" OR certitude = 'aDeterminer'".
252 
			" OR certitude = 'douteux'".
253 
			" OR nom_sel_nn IS NULL".
254 
			" OR nom_sel_nn = 0 OR".
255 
				" id_observation IN (".
256 
				" SELECT DISTINCT ce_observation".
257 
				" FROM del_commentaire".
258 
				" WHERE proposition_initiale = 1".
259 
				" AND (nom_sel_nn IS NULL OR nom_sel_nn = '')".
260 
				" )".
261 
			" )".
262 
		" ) * 100 as pourcentage;";
263 
 
264 
		$res = $this->bdd->recupererTous($req);
265 
		return floatval($res[0]['pourcentage']);
266 
	}
267 
 
268 
	// Retourne la moyenne sur l'année du nombre d'actions (commentaire ou vote) par jour
269 
	protected function moyenneActionsParJour($annee) {
270 
		// nombre d'actions / nombre de jours
271 
		$req = "SELECT".
272 
			" (SELECT".
273 
			// nombre de commentaires sur l'année
1788 mathias 274 
			" (SELECT count(*) FROM del_commentaire" . ($annee != null ? " WHERE YEAR(date) = '" . $annee . "')" : ")").
1617 mathias 275 
			" +".
276 
			// nombre de commentaires sur l'année
1788 mathias 277 
			" (SELECT count(*) FROM del_commentaire_vote" . ($annee != null ? " WHERE YEAR(date) = '" . $annee . "')" : ")").
1617 mathias 278 
			" )".
279 
			// nombre de jours écoulés dans l'année
1788 mathias 280 
			" / (";
281 
		if ($annee == null) {
282 
			$req .= "SELECT 365 * (year(now()) - min(year(date)) + 1) FROM del_commentaire_vote WHERE YEAR(date) != 0";
283 
		} else {
284 
			$req .= "SELECT IF( YEAR(CURDATE()) = '" . $annee . "', DAYOFYEAR(CURDATE()), 365)";
285 
		}
286 
		$req .= ") as moyenne;";
1617 mathias 287 
 
288 
		$res = $this->bdd->recupererTous($req);
1624 mathias 289 
		return intval($res[0]['moyenne']);
1617 mathias 290 
	}
291 
 
292 
	// Retourne le nombre et la liste des personnes ayant sur l'année une moyenne de participation par mois >= 1
293 
	protected function personnesEnvoyantUnePropositionParMois($annee) {
294 
		// Faire la moyenne par utilisateur et par mois
295 
		$req = "SELECT cal.nbmois, SUM(somme) / cal.nbmois as moyenne, ce_utilisateur, utilisateur_courriel FROM".
296 
			// Compter le nombre de participations pour chaque utilisateur à chaque mois de cette année
297 
			" (SELECT count(*) as somme, CONCAT(YEAR(date),'-',MONTH(date)) as anneemois, ce_utilisateur, utilisateur_courriel, id_commentaire".
298 
			" FROM del_commentaire".
299 
			" WHERE ce_proposition = ''".
300 
			" AND nom_sel_nn != ''".
1788 mathias 301 
			" AND nom_sel_nn IS NOT NULL";
302 
		if ($annee != null) {
303 
			$req .= " AND YEAR(date) = '" . $annee . "'";
304 
		}
305 
		$req .= " GROUP BY anneemois, ce_utilisateur, utilisateur_courriel) as ppm,".
1617 mathias 306 
			// Trouver le nombre de mois différents lors desquels les utilisateurs ont participé, cette année
1795 jpm 307 
			// Pour l'année en cours par ex, retournera 2 si on est en février (voire un au début du mois).
1617 mathias 308 
			" (SELECT count(distinct CONCAT(YEAR(date),'-',MONTH(date))) as nbmois".
309 
			" FROM del_commentaire".
1788 mathias 310 
			" WHERE ";
311 
		if ($annee != null) {
312 
			$req .= "YEAR(date) = '" . $annee . "' AND ";
313 
		}
314 
		$req .= " ce_proposition = ''".
1617 mathias 315 
			" AND nom_sel_nn != ''".
316 
			" AND nom_sel_nn IS NOT NULL) as cal".
317 
		" GROUP BY ce_utilisateur, utilisateur_courriel".
318 
		" HAVING SUM(somme) / cal.nbmois >= 1".
319 
		" ORDER BY moyenne;";
1795 jpm 320 
 
1617 mathias 321 
		$res = $this->bdd->recupererTous($req);
322 
		$cpt = count($res);
323 
		$retour = array(
324 
			'nombre' => intval($cpt),
325 
			'donnees' => $res
326 
		);
327 
 
328 
		return $retour;
329 
	}
1795 jpm 330 
}