Fix https://core.spip.net/issues/2226 et https://core.spip.net/issues/4438 :...

Fix https://core.spip.net/issues/2226 et https://core.spip.net/issues/4438 : gerer de maniere generique le titre 'Repondre a ce...' avec un fallback vers 'Repondre a ce message'

prive/modeles/forum.html

@@ -20,13 +20,8 @@
 <div class='reponse_a parent'><:forum:lien_reponse_message:> <a href="[(#SELF|parametre_url{debut_forum,@#ID_PARENT})]"><:info_numero_abbreviation:>#ID_PARENT</a></div>
 ]
 #SET{voir,''}
-<BOUCLE_art(ARTICLES){id_article=#OBJET|=={article}|?{#ID_OBJET}}{id_article!=#ENV{id_article,0}}{statut!=''}><div class='reponse_a'><:forum:lien_reponse_article:> <a href='[(#ID_ARTICLE|generer_url_entite{article,'',forum#ID_FORUM, #_forum:STATUT|!={prive}})]'>#TITRE</a>#SET{voir,'</div>'}</BOUCLE_art>
-<BOUCLE_rub(RUBRIQUES){id_rubrique=#OBJET|=={rubrique}|?{#ID_OBJET}}{statut!=''}><div class='reponse_a'><:forum:lien_reponse_rubrique:> <a href='[(#ID_RUBRIQUE|generer_url_entite{rubrique,'',forum#ID_FORUM, #_forum:STATUT|!={prive}})]'>#TITRE</a>#SET{voir,'</div>'}</BOUCLE_rub>
-<BOUCLE_bre(BREVES ?){id_breve=#OBJET|=={breve}|?{#ID_OBJET}}{statut!=''}><div class='reponse_a'><:forum:lien_reponse_breve_2:> <a href='[(#ID_BREVE|generer_url_entite{breve,'',forum#ID_FORUM, #_forum:STATUT|!={prive}})]'>#TITRE</a>#SET{voir,'</div>'}</BOUCLE_bre>
-<BOUCLE_sit(SYNDIC ?){id_syndic=#OBJET|=={syndic}|?{#ID_OBJET}}><div class='reponse_a'><:forum:lien_reponse_site_reference:> <a href='[(#ID_SYNDIC|generer_url_entite{site,'','',1}|ancre_url{forum#ID_FORUM})]'>#NOM_SITE</a>#SET{voir,'</div>'}</BOUCLE_sit>
-<//B_art>
-[(#OBJET|in_array{#LISTE{article,rubrique,breve,syndic}}|non)
-<div class='reponse_a'>[(#OBJET|concat{:lien_reponse_,#OBJET}|_T)] <a href='[(#ID_OBJET|generer_url_entite{#OBJET,'',forum#ID_FORUM, #STATUT|!={prive}})]'>[(#TITRE|?{#TITRE,#NOM})]</a>
+[(#OBJET|et{#ID_OBJET|intval}|oui)
+<div class='reponse_a'>[(#OBJET|forum_titre_lien_repondre_a)] <a href="[(#ID_OBJET|generer_url_entite{#OBJET,'',forum#ID_FORUM, #STATUT|!={prive}})]">[(#INFO_TITRE{#OBJET,#ID_OBJET}|sinon{#TITRE}|sinon{#NOM})]</a>
 #SET{voir,'</div>'}
 ]
 [ &#91;<a href='[(#GET{self}|parametre_url{objet,#OBJET}|parametre_url{id_objet,#ID_OBJET})]' class="ajax"><:forum:voir_messages_objet:></a>&#93;(#GET{voir})]

prive/modeles/forum_fonctions.php

@@ -36,3 +36,33 @@ function forum_compte_messages_from($email, $id_forum) {
 
 	return $mem[$email];
 }
+
+/**
+ * Titre du lien "Répondre à ce ..."
+ * @param $objet
+ * @return string
+ */
+function forum_titre_lien_repondre_a($objet) {
+	switch ($objet) {
+		case 'article':
+			$titre = _T('forum:lien_reponse_article');
+			break;
+		case 'rubrique':
+			$titre = _T('forum:lien_reponse_rubrique');
+			break;
+		case 'breve':
+			$titre = _T('forum:lien_reponse_breve_2');
+			break;
+		case 'site':
+		case 'syndic':
+			$titre = _T('forum:lien_reponse_site_reference');
+			break;
+		default:
+			$titre = _T($objet . ':lien_reponse_' . $objet, [], ['force' => false]);
+			if (!$titre) {
+				$titre = _T('forum:lien_reponse_message');
+			}
+			break;
+	}
+	return $titre;
+}
\ No newline at end of file