X-Git-Url: http://git.cyclocoop.org/?p=velocampus%2Fweb%2Fwww.git;a=blobdiff_plain;f=www%2Fecrire%2Fbalise%2Fformulaire_ecrire_auteur.php;fp=www%2Fecrire%2Fbalise%2Fformulaire_ecrire_auteur.php;h=a9743d4a719b73a40893f600e590f69ac23ee08c;hp=0000000000000000000000000000000000000000;hb=80b4d3e85f78d402ed2e73f8f5d1bf4c19962eed;hpb=aaf970bf4cdaf76689ecc10609048e18d073820c

diff --git a/www/ecrire/balise/formulaire_ecrire_auteur.php b/www/ecrire/balise/formulaire_ecrire_auteur.php
new file mode 100644
index 0000000..a9743d4
--- /dev/null
+++ b/www/ecrire/balise/formulaire_ecrire_auteur.php
@@ -0,0 +1,61 @@
+<?php
+
+/***************************************************************************\
+ *  SPIP, Systeme de publication pour l'internet                           *
+ *                                                                         *
+ *  Copyright (c) 2001-2011                                                *
+ *  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;
+
+include_spip('base/abstract_sql');
+
+// On prend l'email dans le contexte de maniere a ne pas avoir a le
+// verifier dans la base ni a le devoiler au visiteur
+
+
+// http://doc.spip.org/@balise_FORMULAIRE_ECRIRE_AUTEUR
+function balise_FORMULAIRE_ECRIRE_AUTEUR ($p) {
+	return calculer_balise_dynamique($p,'FORMULAIRE_ECRIRE_AUTEUR', array('id_auteur', 'id_article', 'email'));
+}
+
+// http://doc.spip.org/@balise_FORMULAIRE_ECRIRE_AUTEUR_stat
+function balise_FORMULAIRE_ECRIRE_AUTEUR_stat($args, $context_compil) {
+	include_spip('inc/filtres');
+	// Pas d'id_auteur ni d'id_article ? Erreur de contexte
+	$id = intval($args[1]);
+	if (!$args[0] AND !$id) {
+		$msg = array('zbug_champ_hors_motif',
+				array ('champ' => 'FORMULAIRE_ECRIRE_AUTEUR',
+					'motif' => 'AUTEURS/ARTICLES'));
+
+		erreur_squelette($msg, $context_compil);
+		return '';
+	}
+	// Si on est dans un contexte article, 
+	// sortir tous les mails des auteurs de l'article
+	if (!$args[0] AND $id) {
+		$r = '';
+		$s = sql_allfetsel('email',
+				   'spip_auteurs AS A LEFT JOIN spip_auteurs_articles AS L ON A.id_auteur=L.id_auteur',
+				   "A.email != '' AND L.id_article=$id");
+		foreach($s as $row) {
+			if (email_valide($row['email']))
+				$r .= ', '.$row['email'];
+		}
+		$args[2] = substr($r, 2);
+	}
+
+	// On ne peut pas ecrire a un auteur dont le mail n'est pas valide
+	if (!$args[2] OR !email_valide($args[2]))
+		return '';
+
+	// OK
+	return $args;
+}
+
+?>