X-Git-Url: http://git.cyclocoop.org/?p=lhc%2Fweb%2Fwww.git;a=blobdiff_plain;f=www%2Fecrire%2Fpublic%2Fcompiler.php;fp=www%2Fecrire%2Fpublic%2Fcompiler.php;h=eac227b089bcc636e84cacf4a98b285ba730fd4a;hp=b1586739d70ceee9a181987e1727db2c57f0b901;hb=122c920eb07e3f665789f8734965b576e6c25515;hpb=226942065cd4f604eb464addf45a065c9e5bc916

diff --git a/www/ecrire/public/compiler.php b/www/ecrire/public/compiler.php
index b1586739..eac227b0 100644
--- a/www/ecrire/public/compiler.php
+++ b/www/ecrire/public/compiler.php
@@ -3,7 +3,7 @@
 /***************************************************************************\
  *  SPIP, Systeme de publication pour l'internet                           *
  *                                                                         *
- *  Copyright (c) 2001-2012                                                *
+ *  Copyright (c) 2001-2014                                                *
  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
  *                                                                         *
  *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
@@ -867,11 +867,28 @@ function compile_cas($tableau, $descr, &$boucles, $id_boucle) {
 
 		case 'idiome':
 			$l = array();
+			$code = '';
 			foreach ($p->arg as $k => $v) {
-			  if ($k) $l[]= _q($k).' => '.calculer_liste($v,$p->descr,$boucles,$id_boucle);
+			  	$_v = calculer_liste($v, $descr, $boucles, $id_boucle);
+				if ($k) {
+					$l[] = _q($k) . ' => ' . $_v;
+				} else {
+					$code = $_v;
+				}
+			}
+			// Si le module n'est pas fourni, l'expliciter sauf si calculé
+			if ($p->module) {
+				$m = $p->module .':'.$p->nom_champ;
+			} elseif ($p->nom_champ) {
+				$m = MODULES_IDIOMES .':'.$p->nom_champ;
+			} else {
+				$m = '';
 			}
-			$l = !$l ? '' : (", array(".implode(",\n",$l).")");
-			$code = "_T('" . $p->module . ":" .$p->nom_champ . "'$l)";
+			$code = (!$code ? "'$m'" :
+						($m ? "'$m' . $code" :
+							("(strpos(\$x=$code, ':') ? \$x : ('" . MODULES_IDIOMES . ":' . \$x))")))
+					. (!$l ? '' : (", array(" . implode(",\n", $l) . ")"));
+			$code = "_T($code)";
 			if ($p->param) {
 				$p->id_boucle = $id_boucle;
 				$p->boucles = &$boucles;