Éviter quelques @ dans le code.

ecrire/public/balises.php

@@ -268,10 +268,7 @@ function balise_PUCE_dist($p) {
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_DATE_dist($p) {
-	$d = champ_sql('date', $p);
-#	if ($d === "@\$Pile[0]['date']")
-#		$d = "isset(\$Pile[0]['date']) ? $d : time()";
-	$p->code = $d;
+	$p->code = champ_sql('date', $p);
 
 	return $p;
 }
@@ -293,10 +290,7 @@ function balise_DATE_dist($p) {
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_DATE_REDAC_dist($p) {
-	$d = champ_sql('date_redac', $p);
-#	if ($d === "@\$Pile[0]['date_redac']")
-#		$d = "isset(\$Pile[0]['date_redac']) ? $d : time()";
-	$p->code = $d;
+	$p->code = champ_sql('date_redac', $p);
 	$p->interdire_scripts = false;
 
 	return $p;
@@ -2518,10 +2512,10 @@ function balise_AIDER_dist($p) {
  **/
 function balise_ACTION_FORMULAIRE($p) {
 	if (!$_url = interprete_argument_balise(1, $p)) {
-		$_url = "@\$Pile[0]['action']";
+		$_url = "(\$Pile[0]['action'] ?? '')";
 	}
 	if (!$_form = interprete_argument_balise(2, $p)) {
-		$_form = "@\$Pile[0]['form']";
+		$_form = "(\$Pile[0]['form'] ?? '')";
 	}
 
 	// envoyer le nom du formulaire que l'on traite
@@ -2531,10 +2525,10 @@ function balise_ACTION_FORMULAIRE($p) {
 	'<input name=\'formulaire_action\' type=\'hidden\'
 		value=\'' . $_form . '\' />' .
 	'<input name=\'formulaire_action_args\' type=\'hidden\'
-		value=\'' . @\$Pile[0]['formulaire_args']. '\' />' .
+		value=\'' . (\$Pile[0]['formulaire_args'] ?? '') . '\' />' .
 	'<input name=\'formulaire_action_sign\' type=\'hidden\'
-		value=\'' . @\$Pile[0]['formulaire_sign']. '\' />' .
-	(!empty(\$Pile[0]['_hidden']) ? @\$Pile[0]['_hidden'] : '') .
+		value=\'' . (\$Pile[0]['formulaire_sign'] ?? '') . '\' />' .
+	(\$Pile[0]['_hidden'] ?? '') .
 	'</span>'";
 
 	$p->interdire_scripts = false;

ecrire/public/criteres.php

@@ -2498,7 +2498,7 @@ function calculer_critere_infixe_ops($idb, &$boucles, $crit) {
 				// pour eviter l'erreur SQL
 				$val = $boucles[$idb]->primary;
 				// mais si pas de boucle superieure, prendre id_parent dans l'env
-				$defaut = "@\$Pile[0]['id_parent']";
+				$defaut = "(\$Pile[0]['id_parent'] ?? null)";
 			} elseif ($val == 'id_enfant') {
 				// Si id_enfant, comparer l'id_objet avec l'id_parent
 				// de la boucle superieure

ecrire/public/references.php

@@ -124,7 +124,7 @@ function index_pile(
 	$select = true
 ) {
 	if (!is_string($defaut)) {
-		$defaut = '@$Pile[0][\'' . strtolower($nom_champ) . '\']';
+		$defaut = '($Pile[0][\'' . strtolower($nom_champ) . '\'] ?? null)';
 	}
 
 	$idb_origine = $idb;
@@ -943,7 +943,7 @@ function calculer_argument_precedent($idb, $nom_champ, &$boucles, $defaut = null
 		index_pile($idb, $nom_champ, $boucles, '', $defaut);
 		// retourner $Pile[$SP] et pas $Pile[0] si recursion en 1ere boucle
 		// on ignore le defaut fourni dans ce cas
-		$defaut = "@\$Pile[\$SP]['$nom_champ']";
+		$defaut = "(\$Pile[\$SP]['$nom_champ'] ?? null)";
 	}
 
 	return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles, '', $defaut);