X-Git-Url: http://git.cyclocoop.org/?a=blobdiff_plain;f=www%2Fplugins-dist%2Fforum%2Fprive%2Fmodeles%2Fforum_fonctions.php;fp=www%2Fplugins-dist%2Fforum%2Fprive%2Fmodeles%2Fforum_fonctions.php;h=b1332655bb692be35282f9941e05b491b4c18173;hb=ac3048660a3889c33f121bf5a567654e674e543a;hp=0000000000000000000000000000000000000000;hpb=db106e5fbbef82fe8d4a95b1124113c2149ee37d;p=lhc%2Fweb%2Fwww.git

diff --git a/www/plugins-dist/forum/prive/modeles/forum_fonctions.php b/www/plugins-dist/forum/prive/modeles/forum_fonctions.php
new file mode 100644
index 00000000..b1332655
--- /dev/null
+++ b/www/plugins-dist/forum/prive/modeles/forum_fonctions.php
@@ -0,0 +1,33 @@
+<?php
+
+/***************************************************************************\
+ *  SPIP, Systeme de publication pour l'internet                           *
+ *                                                                         *
+ *  Copyright (c) 2001-2014                                                *
+ *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
+ *                                                                         *
+ *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
+ *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
+\***************************************************************************/
+
+if (!defined("_ECRIRE_INC_VERSION")) return;
+
+function forum_compte_messages_from($email,$id_forum){
+	static $mem = array();
+
+	if (isset($mem[$email]))
+		return $mem[$email];
+
+	// sinon on fait une requete groupee pour essayer de ne le faire qu'une fois pour toute la liste
+	$emails = sql_allfetsel("DISTINCT email_auteur","spip_forum","id_forum>".intval($id_forum-50)." AND id_forum<".intval($id_forum+50));
+	$emails = array_map('reset',$emails);
+	$emails = array_filter($emails);
+	// et compter
+	$counts = sql_allfetsel("email_auteur,count(id_forum) AS N","spip_forum",sql_in("email_auteur",$emails),"email_auteur");
+
+	foreach($counts as $c){
+		$mem[$c['email_auteur']] = $c['N'];
+	}
+
+	return $mem[$email];
+}
\ No newline at end of file