spip / SPIP

prive/formulaires/editer_logo.php

Indentation +157 added lines, -157 removed lines

@@ -30,7 +30,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 global $logo_libelles;
@@ -49,90 +49,90 @@ 
  * @return array               Variables d'environnement pour le fond
  */
 function formulaires_editer_logo_charger_dist($objet, $id_objet, $retour = '', $options = array()) {
-	// pas dans une boucle ? formulaire pour le logo du site
-	// dans ce cas, il faut chercher un 'siteon0.ext'
-	if (!$objet) {
-		$objet = 'site';
-	}
+    // pas dans une boucle ? formulaire pour le logo du site
+    // dans ce cas, il faut chercher un 'siteon0.ext'
+    if (!$objet) {
+        $objet = 'site';
+    }
 
-	$objet = objet_type($objet);
-	$_id_objet = id_table_objet($objet);
+    $objet = objet_type($objet);
+    $_id_objet = id_table_objet($objet);
 
-	if (!is_array($options)) {
-		$options = unserialize($options);
-	}
-	$options = spip_sanitize_from_request($options, '*');
+    if (!is_array($options)) {
+        $options = unserialize($options);
+    }
+    $options = spip_sanitize_from_request($options, '*');
 
-	if (!isset($options['titre'])) {
-		$balise_img = chercher_filtre('balise_img');
-		$img = $balise_img(chemin_image('image-24.png'),'', 'cadre-icone');
-		$libelles = pipeline('libeller_logo', $GLOBALS['logo_libelles']);
-		$libelle = (($id_objet or $objet != 'rubrique') ? $objet : 'racine');
-		if (isset($libelles[$libelle])) {
-			$libelle = $libelles[$libelle];
-		} elseif ($libelle = objet_info($objet, 'texte_logo_objet')) {
-			$libelle = _T($libelle);
-		} else {
-			$libelle = _L('Logo');
-		}
-		switch ($objet) {
-			case 'article':
-				$libelle .= ' ' . aider('logoart');
-				break;
-			case 'breve':
-				$libelle .= ' ' . aider('breveslogo');
-				break;
-			case 'rubrique':
-				$libelle .= ' ' . aider('rublogo');
-				break;
-			default:
-				break;
-		}
+    if (!isset($options['titre'])) {
+        $balise_img = chercher_filtre('balise_img');
+        $img = $balise_img(chemin_image('image-24.png'),'', 'cadre-icone');
+        $libelles = pipeline('libeller_logo', $GLOBALS['logo_libelles']);
+        $libelle = (($id_objet or $objet != 'rubrique') ? $objet : 'racine');
+        if (isset($libelles[$libelle])) {
+            $libelle = $libelles[$libelle];
+        } elseif ($libelle = objet_info($objet, 'texte_logo_objet')) {
+            $libelle = _T($libelle);
+        } else {
+            $libelle = _L('Logo');
+        }
+        switch ($objet) {
+            case 'article':
+                $libelle .= ' ' . aider('logoart');
+                break;
+            case 'breve':
+                $libelle .= ' ' . aider('breveslogo');
+                break;
+            case 'rubrique':
+                $libelle .= ' ' . aider('rublogo');
+                break;
+            default:
+                break;
+        }
 
-		$options['titre'] = $img . $libelle;
-	}
-	if (!isset($options['editable'])) {
-		include_spip('inc/autoriser');
-		$options['editable'] = autoriser('iconifier', $objet, $id_objet);
-	}
+        $options['titre'] = $img . $libelle;
+    }
+    if (!isset($options['editable'])) {
+        include_spip('inc/autoriser');
+        $options['editable'] = autoriser('iconifier', $objet, $id_objet);
+    }
 
-	$res = array(
-		'editable' => ($GLOBALS['meta']['activer_logos'] == 'oui' ? ' ' : '') && (!isset($options['editable']) or $options['editable']),
-		'logo_survol' => ($GLOBALS['meta']['activer_logos_survol'] == 'oui' ? ' ' : ''),
-		'objet' => $objet,
-		'id_objet' => $id_objet,
-		'_options' => $options,
-		'_show_upload_off' => '',
-	);
+    $res = array(
+        'editable' => ($GLOBALS['meta']['activer_logos'] == 'oui' ? ' ' : '') && (!isset($options['editable']) or $options['editable']),
+        'logo_survol' => ($GLOBALS['meta']['activer_logos_survol'] == 'oui' ? ' ' : ''),
+        'objet' => $objet,
+        'id_objet' => $id_objet,
+        '_options' => $options,
+        '_show_upload_off' => '',
+    );
 
-	// rechercher le logo de l'objet
-	// la fonction prend un parametre '_id_objet' etrange :
-	// le nom de la cle primaire (et non le nom de la table)
-	// ou directement le nom du raccourcis a chercher
-	$chercher_logo = charger_fonction('chercher_logo', 'inc');
-	$etats = $res['logo_survol'] ? array('on', 'off') : array('on');
-	foreach ($etats as $etat) {
-		$logo = $chercher_logo($id_objet, $_id_objet, $etat);
-		if ($logo) {
-			$res['logo_' . $etat] = $logo[0];
-		}
-	}
-	// pas de logo_on -> pas de formulaire pour le survol
-	if (!isset($res['logo_on'])) {
-		$res['logo_survol'] = '';
-	} elseif (!isset($res['logo_off']) and _request('logo_up')) {
-		$res['_show_upload_off'] = ' ';
-	}
+    // rechercher le logo de l'objet
+    // la fonction prend un parametre '_id_objet' etrange :
+    // le nom de la cle primaire (et non le nom de la table)
+    // ou directement le nom du raccourcis a chercher
+    $chercher_logo = charger_fonction('chercher_logo', 'inc');
+    $etats = $res['logo_survol'] ? array('on', 'off') : array('on');
+    foreach ($etats as $etat) {
+        $logo = $chercher_logo($id_objet, $_id_objet, $etat);
+        if ($logo) {
+            $res['logo_' . $etat] = $logo[0];
+        }
+    }
+    // pas de logo_on -> pas de formulaire pour le survol
+    if (!isset($res['logo_on'])) {
+        $res['logo_survol'] = '';
+    } elseif (!isset($res['logo_off']) and _request('logo_up')) {
+        $res['_show_upload_off'] = ' ';
+    }
 
-	// si le logo n'est pas editable et qu'il n'y en a pas, on affiche pas du tout le formulaire
-	if (!$res['editable']
-		and !isset($res['logo_off'])
-		and !isset($res['logo_on'])
-	) {
-		return false;
-	}
+    // si le logo n'est pas editable et qu'il n'y en a pas, on affiche pas du tout le formulaire
+    if (!$res['editable']
+        and !isset($res['logo_off'])
+        and !isset($res['logo_on'])
+    ) {
+        return false;
+    }
 
-	return $res;
+    return $res;
 }
 
 /**
@@ -146,7 +146,7 @@ 
  * @return string              Hash du formulaire
  */
 function formulaires_editer_logo_identifier_dist($objet, $id_objet, $retour = '', $options = array()) {
-	return serialize(array($objet, $id_objet));
+    return serialize(array($objet, $id_objet));
 }
 
 /**
@@ -162,29 +162,29 @@ 
  * @return array               Erreurs du formulaire
  */
 function formulaires_editer_logo_verifier_dist($objet, $id_objet, $retour = '', $options = array()) {
-	$erreurs = array();
-	// verifier les extensions
-	$sources = formulaire_editer_logo_get_sources();
-	include_spip('action/editer_logo');
-	$extensions_possibles = $GLOBALS['formats_logos'];
-	if (in_array('jpg', $extensions_possibles)) {
-		$extensions_possibles[] = 'jpeg';
-	}
-	foreach ($sources as $etat => $file) {
-		// seulement si une reception correcte a eu lieu
-		if ($file and $file['error'] == 0) {
-			if (!in_array(
-				strtolower(pathinfo($file['name'], PATHINFO_EXTENSION)),
-				$extensions_possibles
-			)) {
-				$erreurs['logo_' . $etat] = _L('Extension non reconnue');
-			}
-		} elseif ($file and $file['error'] != 0 and isset($file['msg'])) {
-			$erreurs['message_erreur'] = $file['msg'];
-		}
-	}
+    $erreurs = array();
+    // verifier les extensions
+    $sources = formulaire_editer_logo_get_sources();
+    include_spip('action/editer_logo');
+    $extensions_possibles = $GLOBALS['formats_logos'];
+    if (in_array('jpg', $extensions_possibles)) {
+        $extensions_possibles[] = 'jpeg';
+    }
+    foreach ($sources as $etat => $file) {
+        // seulement si une reception correcte a eu lieu
+        if ($file and $file['error'] == 0) {
+            if (!in_array(
+                strtolower(pathinfo($file['name'], PATHINFO_EXTENSION)),
+                $extensions_possibles
+            )) {
+                $erreurs['logo_' . $etat] = _L('Extension non reconnue');
+            }
+        } elseif ($file and $file['error'] != 0 and isset($file['msg'])) {
+            $erreurs['message_erreur'] = $file['msg'];
+        }
+    }
 
-	return $erreurs;
+    return $erreurs;
 }
 
 /**
@@ -200,47 +200,47 @@ 
  * @return array               Retour des traitements
  */
 function formulaires_editer_logo_traiter_dist($objet, $id_objet, $retour = '', $options = array()) {
-	$res = array('editable' => ' ');
+    $res = array('editable' => ' ');
 
-	// pas dans une boucle ? formulaire pour le logo du site
-	// dans ce cas, il faut chercher un 'siteon0.ext'
-	if (!$objet) {
-		$objet = 'site';
-	}
+    // pas dans une boucle ? formulaire pour le logo du site
+    // dans ce cas, il faut chercher un 'siteon0.ext'
+    if (!$objet) {
+        $objet = 'site';
+    }
 
-	include_spip('action/editer_logo');
+    include_spip('action/editer_logo');
 
-	// effectuer la suppression si demandee d'un logo
-	$on = _request('supprimer_logo_on');
-	if ($on or _request('supprimer_logo_off')) {
-		logo_supprimer($objet, $id_objet, $on ? 'on' : 'off');
-		$res['message_ok'] = ''; // pas besoin de message : la validation est visuelle
-		set_request('logo_up', ' ');
-	} // sinon supprimer ancien logo puis copier le nouveau
-	else {
-		$sources = formulaire_editer_logo_get_sources();
-		foreach ($sources as $etat => $file) {
-			if ($file and $file['error'] == 0) {
-				if ($err = logo_modifier($objet, $id_objet, $etat, $file)) {
-					$res['message_erreur'] = $err;
-				} else {
-					$res['message_ok'] = '';
-				} // pas besoin de message : la validation est visuelle
-				set_request('logo_up', ' ');
-			}
-		}
-	}
+    // effectuer la suppression si demandee d'un logo
+    $on = _request('supprimer_logo_on');
+    if ($on or _request('supprimer_logo_off')) {
+        logo_supprimer($objet, $id_objet, $on ? 'on' : 'off');
+        $res['message_ok'] = ''; // pas besoin de message : la validation est visuelle
+        set_request('logo_up', ' ');
+    } // sinon supprimer ancien logo puis copier le nouveau
+    else {
+        $sources = formulaire_editer_logo_get_sources();
+        foreach ($sources as $etat => $file) {
+            if ($file and $file['error'] == 0) {
+                if ($err = logo_modifier($objet, $id_objet, $etat, $file)) {
+                    $res['message_erreur'] = $err;
+                } else {
+                    $res['message_ok'] = '';
+                } // pas besoin de message : la validation est visuelle
+                set_request('logo_up', ' ');
+            }
+        }
+    }
 
-	// Invalider les caches de l'objet
-	include_spip('inc/invalideur');
-	suivre_invalideur("id='$objet/$id_objet'");
+    // Invalider les caches de l'objet
+    include_spip('inc/invalideur');
+    suivre_invalideur("id='$objet/$id_objet'");
 
 
-	if ($retour) {
-		$res['redirect'] = $retour;
-	}
+    if ($retour) {
+        $res['redirect'] = $retour;
+    }
 
-	return $res;
+    return $res;
 }
 
 
@@ -252,29 +252,29 @@ 
  *     Sources des fichiers dans les clés `on` ou `off`
  */
 function formulaire_editer_logo_get_sources() {
-	if (!$_FILES) {
-		$_FILES = isset($GLOBALS['HTTP_POST_FILES']) ? $GLOBALS['HTTP_POST_FILES'] : array();
-	}
-	if (!is_array($_FILES)) {
-		return array();
-	}
+    if (!$_FILES) {
+        $_FILES = isset($GLOBALS['HTTP_POST_FILES']) ? $GLOBALS['HTTP_POST_FILES'] : array();
+    }
+    if (!is_array($_FILES)) {
+        return array();
+    }
 
-	include_spip('inc/documents');
-	$sources = array();
-	foreach (array('on', 'off') as $etat) {
-		$logo = 'logo_' . $etat;
-		if (isset($_FILES[$logo])) {
-			if ($_FILES[$logo]['error'] == 0) {
-				$sources[$etat] = $_FILES[$logo];
-			} elseif ($_FILES[$logo]['error'] != 0) {
-				$msg = check_upload_error($_FILES[$logo]['error'], false, true);
-				if ($msg and is_string($msg)) {
-					$sources[$etat] = $_FILES[$logo];
-					$sources[$etat]['msg'] = $msg;
-				}
-			}
-		}
-	}
+    include_spip('inc/documents');
+    $sources = array();
+    foreach (array('on', 'off') as $etat) {
+        $logo = 'logo_' . $etat;
+        if (isset($_FILES[$logo])) {
+            if ($_FILES[$logo]['error'] == 0) {
+                $sources[$etat] = $_FILES[$logo];
+            } elseif ($_FILES[$logo]['error'] != 0) {
+                $msg = check_upload_error($_FILES[$logo]['error'], false, true);
+                if ($msg and is_string($msg)) {
+                    $sources[$etat] = $_FILES[$logo];
+                    $sources[$etat]['msg'] = $msg;
+                }
+            }
+        }
+    }
 
-	return $sources;
+    return $sources;
 }

prive/formulaires/editer_liens.php

Indentation +345 added lines, -345 removed lines

@@ -15,7 +15,7 @@ 
  * @package SPIP\Core\Formulaires
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -35,25 +35,25 @@ 
  *   ($table_source,$objet,$id_objet,$objet_lien)
  */
 function determine_source_lien_objet($a, $b, $c) {
-	$table_source = $objet_lien = $objet = $id_objet = null;
-	// auteurs, article, 23 :
-	// associer des auteurs à l'article 23, sur la table pivot spip_auteurs_liens
-	if (is_numeric($c) and !is_numeric($b)) {
-		$table_source = table_objet($a);
-		$objet_lien = objet_type($a);
-		$objet = objet_type($b);
-		$id_objet = $c;
-	}
-	// article, 23, auteurs
-	// associer des auteurs à l'article 23, sur la table pivot spip_articles_liens
-	if (is_numeric($b) and !is_numeric($c)) {
-		$table_source = table_objet($c);
-		$objet_lien = objet_type($a);
-		$objet = objet_type($a);
-		$id_objet = $b;
-	}
-
-	return array($table_source, $objet, $id_objet, $objet_lien);
+    $table_source = $objet_lien = $objet = $id_objet = null;
+    // auteurs, article, 23 :
+    // associer des auteurs à l'article 23, sur la table pivot spip_auteurs_liens
+    if (is_numeric($c) and !is_numeric($b)) {
+        $table_source = table_objet($a);
+        $objet_lien = objet_type($a);
+        $objet = objet_type($b);
+        $id_objet = $c;
+    }
+    // article, 23, auteurs
+    // associer des auteurs à l'article 23, sur la table pivot spip_articles_liens
+    if (is_numeric($b) and !is_numeric($c)) {
+        $table_source = table_objet($c);
+        $objet_lien = objet_type($a);
+        $objet = objet_type($a);
+        $id_objet = $b;
+    }
+
+    return array($table_source, $objet, $id_objet, $objet_lien);
 }
 
 /**
@@ -79,91 +79,91 @@ 
  */
 function formulaires_editer_liens_charger_dist($a, $b, $c, $options = array()) {
 
-	// compat avec ancienne signature ou le 4eme argument est $editable
-	if (!is_array($options)) {
-		$options = array('editable' => $options);
-	} elseif (!isset($options['editable'])) {
-		$options['editable'] = true;
-	}
-
-	$editable = $options['editable'];
-
-	list($table_source, $objet, $id_objet, $objet_lien) = determine_source_lien_objet($a, $b, $c);
-	if (!$table_source or !$objet or !$objet_lien or !$id_objet) {
-		return false;
-	}
-
-	$objet_source = objet_type($table_source);
-	$table_sql_source = table_objet_sql($objet_source);
-
-	// verifier existence de la table xxx_liens
-	include_spip('action/editer_liens');
-	if (!objet_associable($objet_lien)) {
-		return false;
-	}
-
-	// L'éditabilité :) est définie par un test permanent (par exemple "associermots") ET le 4ème argument
-	include_spip('inc/autoriser');
-	$editable = ($editable and autoriser('associer' . $table_source, $objet, $id_objet)
-		and autoriser('modifier', $objet, $id_objet));
-
-	if (!$editable and !count(objet_trouver_liens(
-		array($objet_lien => '*'),
-		array(($objet_lien == $objet_source ? $objet : $objet_source) => $id_objet)
-	))) {
-		return false;
-	}
-
-	// squelettes de vue et de d'association
-	// ils sont différents si des rôles sont définis.
-	$skel_vue = $table_source . '_lies';
-	$skel_ajout = $table_source . '_associer';
-
-	// description des roles
-	include_spip('inc/roles');
-	if ($roles = roles_presents($objet_source, $objet)) {
-		// on demande de nouveaux squelettes en conséquence
-		$skel_vue = $table_source . '_roles_lies';
-		$skel_ajout = $table_source . '_roles_associer';
-	}
-
-	$oups = _request('_oups');
-	if (unserialize(base64_decode($oups))) {
-		// on est bon, rien a faire
-	}
-	elseif(unserialize($oups)) {
-		// il faut encoder
-		$oups = base64_encode($oups);
-	}
-	else {
-		$oups = '';
-	}
-	$valeurs = array(
-		'id' => "$table_source-$objet-$id_objet-$objet_lien", // identifiant unique pour les id du form
-		'_vue_liee' => $skel_vue,
-		'_vue_ajout' => $skel_ajout,
-		'_objet_lien' => $objet_lien,
-		'id_lien_ajoute' => _request('id_lien_ajoute'),
-		'objet' => $objet,
-		'id_objet' => $id_objet,
-		'objet_source' => $objet_source,
-		'table_source' => $table_source,
-		'recherche' => '',
-		'visible' => 0,
-		'ajouter_lien' => '',
-		'supprimer_lien' => '',
-		'qualifier_lien' => '',
-		'ordonner_lien' => '',
-		'desordonner_liens' => '',
-		'_roles' => $roles, # description des roles
-		'_oups' => $oups,
-		'editable' => $editable,
-	);
-
-	// les options non definies dans $valeurs sont passees telles quelles au formulaire html
-	$valeurs = array_merge($options, $valeurs);
-
-	return $valeurs;
+    // compat avec ancienne signature ou le 4eme argument est $editable
+    if (!is_array($options)) {
+        $options = array('editable' => $options);
+    } elseif (!isset($options['editable'])) {
+        $options['editable'] = true;
+    }
+
+    $editable = $options['editable'];
+
+    list($table_source, $objet, $id_objet, $objet_lien) = determine_source_lien_objet($a, $b, $c);
+    if (!$table_source or !$objet or !$objet_lien or !$id_objet) {
+        return false;
+    }
+
+    $objet_source = objet_type($table_source);
+    $table_sql_source = table_objet_sql($objet_source);
+
+    // verifier existence de la table xxx_liens
+    include_spip('action/editer_liens');
+    if (!objet_associable($objet_lien)) {
+        return false;
+    }
+
+    // L'éditabilité :) est définie par un test permanent (par exemple "associermots") ET le 4ème argument
+    include_spip('inc/autoriser');
+    $editable = ($editable and autoriser('associer' . $table_source, $objet, $id_objet)
+        and autoriser('modifier', $objet, $id_objet));
+
+    if (!$editable and !count(objet_trouver_liens(
+        array($objet_lien => '*'),
+        array(($objet_lien == $objet_source ? $objet : $objet_source) => $id_objet)
+    ))) {
+        return false;
+    }
+
+    // squelettes de vue et de d'association
+    // ils sont différents si des rôles sont définis.
+    $skel_vue = $table_source . '_lies';
+    $skel_ajout = $table_source . '_associer';
+
+    // description des roles
+    include_spip('inc/roles');
+    if ($roles = roles_presents($objet_source, $objet)) {
+        // on demande de nouveaux squelettes en conséquence
+        $skel_vue = $table_source . '_roles_lies';
+        $skel_ajout = $table_source . '_roles_associer';
+    }
+
+    $oups = _request('_oups');
+    if (unserialize(base64_decode($oups))) {
+        // on est bon, rien a faire
+    }
+    elseif(unserialize($oups)) {
+        // il faut encoder
+        $oups = base64_encode($oups);
+    }
+    else {
+        $oups = '';
+    }
+    $valeurs = array(
+        'id' => "$table_source-$objet-$id_objet-$objet_lien", // identifiant unique pour les id du form
+        '_vue_liee' => $skel_vue,
+        '_vue_ajout' => $skel_ajout,
+        '_objet_lien' => $objet_lien,
+        'id_lien_ajoute' => _request('id_lien_ajoute'),
+        'objet' => $objet,
+        'id_objet' => $id_objet,
+        'objet_source' => $objet_source,
+        'table_source' => $table_source,
+        'recherche' => '',
+        'visible' => 0,
+        'ajouter_lien' => '',
+        'supprimer_lien' => '',
+        'qualifier_lien' => '',
+        'ordonner_lien' => '',
+        'desordonner_liens' => '',
+        '_roles' => $roles, # description des roles
+        '_oups' => $oups,
+        'editable' => $editable,
+    );
+
+    // les options non definies dans $valeurs sont passees telles quelles au formulaire html
+    $valeurs = array_merge($options, $valeurs);
+
+    return $valeurs;
 }
 
 /**
@@ -207,161 +207,161 @@ 
  * @return array
  */
 function formulaires_editer_liens_traiter_dist($a, $b, $c, $options = array()) {
-	// compat avec ancienne signature ou le 4eme argument est $editable
-	if (!is_array($options)) {
-		$options = array('editable' => $options);
-	} elseif (!isset($options['editable'])) {
-		$options['editable'] = true;
-	}
-
-	$editable = $options['editable'];
-
-	$res = array('editable' => $editable ? true : false);
-	list($table_source, $objet, $id_objet, $objet_lien) = determine_source_lien_objet($a, $b, $c);
-	if (!$table_source or !$objet or !$objet_lien) {
-		return $res;
-	}
-
-
-	if (_request('tout_voir')) {
-		set_request('recherche', '');
-	}
-
-	include_spip('inc/autoriser');
-	if (autoriser('modifier', $objet, $id_objet)) {
-		// annuler les suppressions du coup d'avant !
-		if (_request('annuler_oups')
-			and $oups = _request('_oups')
-			and $oups = base64_decode($oups)
-			and $oups = unserialize($oups)
-		) {
-			if ($oups_objets = charger_fonction("editer_liens_oups_{$table_source}_{$objet}_{$objet_lien}", 'action', true)) {
-				$oups_objets($oups);
-			} else {
-				$objet_source = objet_type($table_source);
-				include_spip('action/editer_liens');
-				foreach ($oups as $oup) {
-					if ($objet_lien == $objet_source) {
-						objet_associer(array($objet_source => $oup[$objet_source]), array($objet => $oup[$objet]), $oup);
-					} else {
-						objet_associer(array($objet => $oup[$objet]), array($objet_source => $oup[$objet_source]), $oup);
-					}
-				}
-			}
-			# oups ne persiste que pour la derniere action, si suppression
-			set_request('_oups');
-		}
-
-		$supprimer = _request('supprimer_lien');
-		$ajouter = _request('ajouter_lien');
-		$ordonner = _request('ordonner_lien');
-
-		if (_request('desordonner_liens')) {
-			include_spip('action/editer_liens');
-			objet_qualifier_liens(array($objet_lien => '*'), array($objet => $id_objet), array('rang_lien' => 0));
-		}
-
-		// il est possible de preciser dans une seule variable un remplacement :
-		// remplacer_lien[old][new]
-		if ($remplacer = _request('remplacer_lien')) {
-			foreach ($remplacer as $k => $v) {
-				if ($old = lien_verifier_action($k, '')) {
-					foreach (is_array($v) ? $v : array($v) as $kn => $vn) {
-						if ($new = lien_verifier_action($kn, $vn)) {
-							$supprimer[$old] = 'x';
-							$ajouter[$new] = '+';
-						}
-					}
-				}
-			}
-		}
-
-		if ($supprimer) {
-			if ($supprimer_objets = charger_fonction(
-				"editer_liens_supprimer_{$table_source}_{$objet}_{$objet_lien}",
-				'action',
-				true
-			)) {
-				$oups = $supprimer_objets($supprimer);
-			} else {
-				include_spip('action/editer_liens');
-				$oups = array();
-
-				foreach ($supprimer as $k => $v) {
-					if ($lien = lien_verifier_action($k, $v)) {
-						$lien = explode('-', $lien);
-						list($objet_source, $ids, $objet_lie, $idl, $role) = array_pad($lien, 5, null);
-						// appliquer une condition sur le rôle si défini ('*' pour tous les roles)
-						$cond = (!is_null($role) ? array('role' => $role) : array());
-						if ($objet_lien == $objet_source) {
-							$oups = array_merge(
-								$oups,
-								objet_trouver_liens(array($objet_source => $ids), array($objet_lie => $idl), $cond)
-							);
-							objet_dissocier(array($objet_source => $ids), array($objet_lie => $idl), $cond);
-						} else {
-							$oups = array_merge(
-								$oups,
-								objet_trouver_liens(array($objet_lie => $idl), array($objet_source => $ids), $cond)
-							);
-							objet_dissocier(array($objet_lie => $idl), array($objet_source => $ids), $cond);
-						}
-					}
-				}
-			}
-			set_request('_oups', $oups ? base64_encode(serialize($oups)) : null);
-		}
-
-		if ($ajouter) {
-			if ($ajouter_objets = charger_fonction("editer_liens_ajouter_{$table_source}_{$objet}_{$objet_lien}", 'action', true)
-			) {
-				$ajout_ok = $ajouter_objets($ajouter);
-			} else {
-				$ajout_ok = false;
-				include_spip('action/editer_liens');
-				foreach ($ajouter as $k => $v) {
-					if ($lien = lien_verifier_action($k, $v)) {
-						$ajout_ok = true;
-						list($objet1, $ids, $objet2, $idl) = explode('-', $lien);
-						$qualifs = lien_retrouver_qualif($objet_lien, $lien);
-						if ($objet_lien == $objet1) {
-							lien_ajouter_liaisons($objet1, $ids, $objet2, $idl, $qualifs);
-						} else {
-							lien_ajouter_liaisons($objet2, $idl, $objet1, $ids, $qualifs);
-						}
-						set_request('id_lien_ajoute', $ids);
-					}
-				}
-			}
-			# oups ne persiste que pour la derniere action, si suppression
-			# une suppression suivie d'un ajout dans le meme hit est un remplacement
-			# non annulable !
-			if ($ajout_ok) {
-				set_request('_oups');
-			}
-		}
-
-		if ($ordonner) {
-			include_spip('action/editer_liens');
-			foreach ($ordonner as $k => $rang_lien) {
-				if ($lien = lien_verifier_action($k, '')) {
-					list($objet1, $ids, $objet2, $idl) = explode('-', $lien);
-					$qualif = array('rang_lien' => $rang_lien);
-
-					if ($objet_lien == $objet1) {
-						objet_qualifier_liens(array($objet1 => $ids), array($objet2 => $idl), $qualif);
-					} else {
-						objet_qualifier_liens(array($objet2 => $idl), array($objet1 => $ids), $qualif);
-					}
-					set_request('id_lien_ajoute', $ids);
-					set_request('_oups');
-				}
-			}
-		}
-	}
-
-
-	return $res;
+    // compat avec ancienne signature ou le 4eme argument est $editable
+    if (!is_array($options)) {
+        $options = array('editable' => $options);
+    } elseif (!isset($options['editable'])) {
+        $options['editable'] = true;
+    }
+
+    $editable = $options['editable'];
+
+    $res = array('editable' => $editable ? true : false);
+    list($table_source, $objet, $id_objet, $objet_lien) = determine_source_lien_objet($a, $b, $c);
+    if (!$table_source or !$objet or !$objet_lien) {
+        return $res;
+    }
+
+
+    if (_request('tout_voir')) {
+        set_request('recherche', '');
+    }
+
+    include_spip('inc/autoriser');
+    if (autoriser('modifier', $objet, $id_objet)) {
+        // annuler les suppressions du coup d'avant !
+        if (_request('annuler_oups')
+            and $oups = _request('_oups')
+            and $oups = base64_decode($oups)
+            and $oups = unserialize($oups)
+        ) {
+            if ($oups_objets = charger_fonction("editer_liens_oups_{$table_source}_{$objet}_{$objet_lien}", 'action', true)) {
+                $oups_objets($oups);
+            } else {
+                $objet_source = objet_type($table_source);
+                include_spip('action/editer_liens');
+                foreach ($oups as $oup) {
+                    if ($objet_lien == $objet_source) {
+                        objet_associer(array($objet_source => $oup[$objet_source]), array($objet => $oup[$objet]), $oup);
+                    } else {
+                        objet_associer(array($objet => $oup[$objet]), array($objet_source => $oup[$objet_source]), $oup);
+                    }
+                }
+            }
+            # oups ne persiste que pour la derniere action, si suppression
+            set_request('_oups');
+        }
+
+        $supprimer = _request('supprimer_lien');
+        $ajouter = _request('ajouter_lien');
+        $ordonner = _request('ordonner_lien');
+
+        if (_request('desordonner_liens')) {
+            include_spip('action/editer_liens');
+            objet_qualifier_liens(array($objet_lien => '*'), array($objet => $id_objet), array('rang_lien' => 0));
+        }
+
+        // il est possible de preciser dans une seule variable un remplacement :
+        // remplacer_lien[old][new]
+        if ($remplacer = _request('remplacer_lien')) {
+            foreach ($remplacer as $k => $v) {
+                if ($old = lien_verifier_action($k, '')) {
+                    foreach (is_array($v) ? $v : array($v) as $kn => $vn) {
+                        if ($new = lien_verifier_action($kn, $vn)) {
+                            $supprimer[$old] = 'x';
+                            $ajouter[$new] = '+';
+                        }
+                    }
+                }
+            }
+        }
+
+        if ($supprimer) {
+            if ($supprimer_objets = charger_fonction(
+                "editer_liens_supprimer_{$table_source}_{$objet}_{$objet_lien}",
+                'action',
+                true
+            )) {
+                $oups = $supprimer_objets($supprimer);
+            } else {
+                include_spip('action/editer_liens');
+                $oups = array();
+
+                foreach ($supprimer as $k => $v) {
+                    if ($lien = lien_verifier_action($k, $v)) {
+                        $lien = explode('-', $lien);
+                        list($objet_source, $ids, $objet_lie, $idl, $role) = array_pad($lien, 5, null);
+                        // appliquer une condition sur le rôle si défini ('*' pour tous les roles)
+                        $cond = (!is_null($role) ? array('role' => $role) : array());
+                        if ($objet_lien == $objet_source) {
+                            $oups = array_merge(
+                                $oups,
+                                objet_trouver_liens(array($objet_source => $ids), array($objet_lie => $idl), $cond)
+                            );
+                            objet_dissocier(array($objet_source => $ids), array($objet_lie => $idl), $cond);
+                        } else {
+                            $oups = array_merge(
+                                $oups,
+                                objet_trouver_liens(array($objet_lie => $idl), array($objet_source => $ids), $cond)
+                            );
+                            objet_dissocier(array($objet_lie => $idl), array($objet_source => $ids), $cond);
+                        }
+                    }
+                }
+            }
+            set_request('_oups', $oups ? base64_encode(serialize($oups)) : null);
+        }
+
+        if ($ajouter) {
+            if ($ajouter_objets = charger_fonction("editer_liens_ajouter_{$table_source}_{$objet}_{$objet_lien}", 'action', true)
+            ) {
+                $ajout_ok = $ajouter_objets($ajouter);
+            } else {
+                $ajout_ok = false;
+                include_spip('action/editer_liens');
+                foreach ($ajouter as $k => $v) {
+                    if ($lien = lien_verifier_action($k, $v)) {
+                        $ajout_ok = true;
+                        list($objet1, $ids, $objet2, $idl) = explode('-', $lien);
+                        $qualifs = lien_retrouver_qualif($objet_lien, $lien);
+                        if ($objet_lien == $objet1) {
+                            lien_ajouter_liaisons($objet1, $ids, $objet2, $idl, $qualifs);
+                        } else {
+                            lien_ajouter_liaisons($objet2, $idl, $objet1, $ids, $qualifs);
+                        }
+                        set_request('id_lien_ajoute', $ids);
+                    }
+                }
+            }
+            # oups ne persiste que pour la derniere action, si suppression
+            # une suppression suivie d'un ajout dans le meme hit est un remplacement
+            # non annulable !
+            if ($ajout_ok) {
+                set_request('_oups');
+            }
+        }
+
+        if ($ordonner) {
+            include_spip('action/editer_liens');
+            foreach ($ordonner as $k => $rang_lien) {
+                if ($lien = lien_verifier_action($k, '')) {
+                    list($objet1, $ids, $objet2, $idl) = explode('-', $lien);
+                    $qualif = array('rang_lien' => $rang_lien);
+
+                    if ($objet_lien == $objet1) {
+                        objet_qualifier_liens(array($objet1 => $ids), array($objet2 => $idl), $qualif);
+                    } else {
+                        objet_qualifier_liens(array($objet2 => $idl), array($objet1 => $ids), $qualif);
+                    }
+                    set_request('id_lien_ajoute', $ids);
+                    set_request('_oups');
+                }
+            }
+        }
+    }
+
+
+    return $res;
 }
 
 
@@ -384,24 +384,24 @@ 
  * @return string Action demandée si trouvée, sinon ''
  */
 function lien_verifier_action($k, $v) {
-	$action = '';
-	if (preg_match(',^\w+-[\w*]+-[\w*]+-[\w*]+(-[\w*])?,', $k)) {
-		$action = $k;
-	}
-	if (preg_match(',^\w+-[\w*]+-[\w*]+-[\w*]+(-[\w*])?,', $v)) {
-		if (is_numeric($k)) {
-			$action = $v;
-		}
-		if (_request($k)) {
-			$action = $v;
-		}
-	}
-	// ajout un role null fictif (plus pratique) si pas défini
-	if ($action and count(explode('-', $action)) == 4) {
-		$action .= '-';
-	}
-
-	return $action;
+    $action = '';
+    if (preg_match(',^\w+-[\w*]+-[\w*]+-[\w*]+(-[\w*])?,', $k)) {
+        $action = $k;
+    }
+    if (preg_match(',^\w+-[\w*]+-[\w*]+-[\w*]+(-[\w*])?,', $v)) {
+        if (is_numeric($k)) {
+            $action = $v;
+        }
+        if (_request($k)) {
+            $action = $v;
+        }
+    }
+    // ajout un role null fictif (plus pratique) si pas défini
+    if ($action and count(explode('-', $action)) == 4) {
+        $action .= '-';
+    }
+
+    return $action;
 }
 
 
@@ -417,65 +417,65 @@ 
  *   Liste des qualifs pour chaque lien. Tableau vide s'il n'y en a pas.
  **/
 function lien_retrouver_qualif($objet_lien, $lien) {
-	// un role est défini dans la liaison
-	$defs = explode('-', $lien);
-	list($objet1, , $objet2, , $role) = array_pad($defs, 5, null);
-	if ($objet_lien == $objet1) {
-		$colonne_role = roles_colonne($objet1, $objet2);
-	} else {
-		$colonne_role = roles_colonne($objet2, $objet1);
-	}
-
-	// cas ou le role est defini en 5e argument de l'action sur le lien (suppression, ajout rapide sans autre attribut)
-	if ($role) {
-		return array(
-			// un seul lien avec ce role
-			array($colonne_role => $role)
-		);
-	}
-
-	// retrouver les rôles postés pour cette liaison, s'il y en a.
-	$qualifier_lien = _request('qualifier_lien');
-	if (!$qualifier_lien or !is_array($qualifier_lien)) {
-		return array();
-	}
-
-	// pas avec l'action complete (incluant le role)
-	$qualif = array();
-	if ((!isset($qualifier_lien[$lien]) or !$qualif = $qualifier_lien[$lien])
-		and count($defs) == 5
-	) {
-		// on tente avec l'action sans le role
-		array_pop($defs);
-		$lien = implode('-', $defs);
-		if (!isset($qualifier_lien[$lien]) or !$qualif = $qualifier_lien[$lien]) {
-			$qualif = array();
-		}
-	}
-
-	// $qualif de la forme array(role=>array(...),valeur=>array(...),....)
-	// on le reforme en array(array(role=>..,valeur=>..,..),array(role=>..,valeur=>..,..),...)
-	$qualifs = array();
-	while (count($qualif)) {
-		$q = array();
-		foreach ($qualif as $att => $values) {
-			if (is_array($values)) {
-				$q[$att] = array_shift($qualif[$att]);
-				if (!count($qualif[$att])) {
-					unset($qualif[$att]);
-				}
-			} else {
-				$q[$att] = $values;
-				unset($qualif[$att]);
-			}
-		}
-		// pas de rôle vide
-		if (!$colonne_role or !isset($q[$colonne_role]) or $q[$colonne_role]) {
-			$qualifs[] = $q;
-		}
-	}
-
-	return $qualifs;
+    // un role est défini dans la liaison
+    $defs = explode('-', $lien);
+    list($objet1, , $objet2, , $role) = array_pad($defs, 5, null);
+    if ($objet_lien == $objet1) {
+        $colonne_role = roles_colonne($objet1, $objet2);
+    } else {
+        $colonne_role = roles_colonne($objet2, $objet1);
+    }
+
+    // cas ou le role est defini en 5e argument de l'action sur le lien (suppression, ajout rapide sans autre attribut)
+    if ($role) {
+        return array(
+            // un seul lien avec ce role
+            array($colonne_role => $role)
+        );
+    }
+
+    // retrouver les rôles postés pour cette liaison, s'il y en a.
+    $qualifier_lien = _request('qualifier_lien');
+    if (!$qualifier_lien or !is_array($qualifier_lien)) {
+        return array();
+    }
+
+    // pas avec l'action complete (incluant le role)
+    $qualif = array();
+    if ((!isset($qualifier_lien[$lien]) or !$qualif = $qualifier_lien[$lien])
+        and count($defs) == 5
+    ) {
+        // on tente avec l'action sans le role
+        array_pop($defs);
+        $lien = implode('-', $defs);
+        if (!isset($qualifier_lien[$lien]) or !$qualif = $qualifier_lien[$lien]) {
+            $qualif = array();
+        }
+    }
+
+    // $qualif de la forme array(role=>array(...),valeur=>array(...),....)
+    // on le reforme en array(array(role=>..,valeur=>..,..),array(role=>..,valeur=>..,..),...)
+    $qualifs = array();
+    while (count($qualif)) {
+        $q = array();
+        foreach ($qualif as $att => $values) {
+            if (is_array($values)) {
+                $q[$att] = array_shift($qualif[$att]);
+                if (!count($qualif[$att])) {
+                    unset($qualif[$att]);
+                }
+            } else {
+                $q[$att] = $values;
+                unset($qualif[$att]);
+            }
+        }
+        // pas de rôle vide
+        if (!$colonne_role or !isset($q[$colonne_role]) or $q[$colonne_role]) {
+            $qualifs[] = $q;
+        }
+    }
+
+    return $qualifs;
 }
 
 /**
@@ -494,12 +494,12 @@ 
  **/
 function lien_ajouter_liaisons($objet_source, $ids, $objet_lien, $idl, $qualifs) {
 
-	// retrouver la colonne de roles s'il y en a a lier
-	if (is_array($qualifs) and count($qualifs)) {
-		foreach ($qualifs as $qualif) {
-			objet_associer(array($objet_source => $ids), array($objet_lien => $idl), $qualif);
-		}
-	} else {
-		objet_associer(array($objet_source => $ids), array($objet_lien => $idl));
-	}
+    // retrouver la colonne de roles s'il y en a a lier
+    if (is_array($qualifs) and count($qualifs)) {
+        foreach ($qualifs as $qualif) {
+            objet_associer(array($objet_source => $ids), array($objet_lien => $idl), $qualif);
+        }
+    } else {
+        objet_associer(array($objet_source => $ids), array($objet_lien => $idl));
+    }
 }

prive/formulaires/traduire.php

Indentation +110 added lines, -110 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/actions');
@@ -39,64 +39,64 @@ 
  *     Contexte à transmettre au squelette du formulaire sinon
  */
 function formulaires_traduire_charger_dist($objet, $id_objet, $retour = '', $traduire = true) {
-	if (!intval($id_objet)) {
-		return false;
-	}
-	$valeurs = formulaires_editer_objet_charger($objet, $id_objet, null, 0, $retour, '');
-	// verifier que l'objet indique possede bien des champs id_trad et lang
-	// attention, charger renomme lang => langue pour ne pas perturber la langue d'affichage du squelette
-	if (!isset($valeurs['langue'])) {
-		return false;
-	}
-
-	$valeurs['editable'] = autoriser('changerlangue', $objet, $id_objet);
-	$valeurs['_langue'] = '';
-	$langue_parent = '';
-	$id_parent = '';
-	if (isset($valeurs['id_rubrique'])) {
-		$id_parent = $valeurs['id_rubrique'];
-	}
-	if (isset($valeurs['id_parent'])) {
-		$id_parent = $valeurs['id_parent'];
-	}
-	if ($id_parent) {
-		$langue_parent = sql_getfetsel('lang', 'spip_rubriques', 'id_rubrique=' . intval($id_parent));
-	}
-
-	if (!$langue_parent) {
-		$langue_parent = $GLOBALS['meta']['langue_site'];
-	}
-	if ($valeurs['editable']
-		and in_array(table_objet_sql($objet), explode(',', $GLOBALS['meta']['multi_objets']))
-	) {
-		$valeurs['_langue'] = $valeurs['langue'];
-	}
-	$valeurs['langue_parent'] = $langue_parent;
-
-	$valeurs['_objet'] = $objet;
-	$valeurs['_id_objet'] = $id_objet;
-	$valeurs['changer_lang'] = '';
-
-
-	$valeurs['_traduisible'] = autoriser('changertraduction', $objet, $id_objet);
-	$valeurs['_traduire'] = '';
-	if (isset($valeurs['id_trad'])) {
-		$valeurs['_traduire'] = ($traduire ? ' ' : '');
-		$valeurs['_vue_traductions'] = 'prive/objets/liste/' . (trouver_fond(
-			$f = table_objet($objet) . '-trad',
-			'prive/objets/liste'
-		) ? $f : 'objets-trad');
-		// pour afficher la liste des trad sur la base de l'id_trad en base
-		// independamment d'une saisie en cours sur id_trad
-		$valeurs['_lister_id_trad'] = $valeurs['id_trad'];
-		$valeurs['_id_parent'] = $id_parent;
-	}
-
-	$valeurs['_saisie_en_cours'] = (!_request('annuler') and (_request('changer_lang') !== null
-		or _request('changer_id_trad') !== null));
-	$valeurs['_pipeline'] = array('traduire', array('type' => $objet, 'id' => $id_objet));
-
-	return $valeurs;
+    if (!intval($id_objet)) {
+        return false;
+    }
+    $valeurs = formulaires_editer_objet_charger($objet, $id_objet, null, 0, $retour, '');
+    // verifier que l'objet indique possede bien des champs id_trad et lang
+    // attention, charger renomme lang => langue pour ne pas perturber la langue d'affichage du squelette
+    if (!isset($valeurs['langue'])) {
+        return false;
+    }
+
+    $valeurs['editable'] = autoriser('changerlangue', $objet, $id_objet);
+    $valeurs['_langue'] = '';
+    $langue_parent = '';
+    $id_parent = '';
+    if (isset($valeurs['id_rubrique'])) {
+        $id_parent = $valeurs['id_rubrique'];
+    }
+    if (isset($valeurs['id_parent'])) {
+        $id_parent = $valeurs['id_parent'];
+    }
+    if ($id_parent) {
+        $langue_parent = sql_getfetsel('lang', 'spip_rubriques', 'id_rubrique=' . intval($id_parent));
+    }
+
+    if (!$langue_parent) {
+        $langue_parent = $GLOBALS['meta']['langue_site'];
+    }
+    if ($valeurs['editable']
+        and in_array(table_objet_sql($objet), explode(',', $GLOBALS['meta']['multi_objets']))
+    ) {
+        $valeurs['_langue'] = $valeurs['langue'];
+    }
+    $valeurs['langue_parent'] = $langue_parent;
+
+    $valeurs['_objet'] = $objet;
+    $valeurs['_id_objet'] = $id_objet;
+    $valeurs['changer_lang'] = '';
+
+
+    $valeurs['_traduisible'] = autoriser('changertraduction', $objet, $id_objet);
+    $valeurs['_traduire'] = '';
+    if (isset($valeurs['id_trad'])) {
+        $valeurs['_traduire'] = ($traduire ? ' ' : '');
+        $valeurs['_vue_traductions'] = 'prive/objets/liste/' . (trouver_fond(
+            $f = table_objet($objet) . '-trad',
+            'prive/objets/liste'
+        ) ? $f : 'objets-trad');
+        // pour afficher la liste des trad sur la base de l'id_trad en base
+        // independamment d'une saisie en cours sur id_trad
+        $valeurs['_lister_id_trad'] = $valeurs['id_trad'];
+        $valeurs['_id_parent'] = $id_parent;
+    }
+
+    $valeurs['_saisie_en_cours'] = (!_request('annuler') and (_request('changer_lang') !== null
+        or _request('changer_id_trad') !== null));
+    $valeurs['_pipeline'] = array('traduire', array('type' => $objet, 'id' => $id_objet));
+
+    return $valeurs;
 }
 
 /**
@@ -114,30 +114,30 @@ 
  *     Erreurs des saisies
  */
 function formulaires_traduire_verifier_dist($objet, $id_objet, $retour = '', $traduire = true) {
-	$erreurs = array();
-
-	if (null !== _request('changer_lang')) {
-		$erreurs = formulaires_editer_objet_verifier($objet, $id_objet, array('changer_lang'));
-	}
-
-	// si id_trad fourni, verifier que cela ne conflicte pas avec un id_trad existant
-	// et que ca reference bien un objet existant
-	if ($id_trad = _request('id_trad')) {
-		$table_objet_sql = table_objet_sql($objet);
-		$_id_table_objet = id_table_objet($objet);
-		if (sql_getfetsel(
-			'id_trad',
-			$table_objet_sql,
-			"$_id_table_objet=" . intval($id_objet)
-		)) {
-			// ne devrait jamais arriver sauf concurence de saisie
-			$erreurs['id_trad'] = _L('Une traduction est deja referencee');
-		} elseif (!sql_getfetsel($_id_table_objet, $table_objet_sql, "$_id_table_objet=" . intval($id_trad))) {
-			$erreurs['id_trad'] = _L('Indiquez un contenu existant');
-		}
-	}
-
-	return $erreurs;
+    $erreurs = array();
+
+    if (null !== _request('changer_lang')) {
+        $erreurs = formulaires_editer_objet_verifier($objet, $id_objet, array('changer_lang'));
+    }
+
+    // si id_trad fourni, verifier que cela ne conflicte pas avec un id_trad existant
+    // et que ca reference bien un objet existant
+    if ($id_trad = _request('id_trad')) {
+        $table_objet_sql = table_objet_sql($objet);
+        $_id_table_objet = id_table_objet($objet);
+        if (sql_getfetsel(
+            'id_trad',
+            $table_objet_sql,
+            "$_id_table_objet=" . intval($id_objet)
+        )) {
+            // ne devrait jamais arriver sauf concurence de saisie
+            $erreurs['id_trad'] = _L('Une traduction est deja referencee');
+        } elseif (!sql_getfetsel($_id_table_objet, $table_objet_sql, "$_id_table_objet=" . intval($id_trad))) {
+            $erreurs['id_trad'] = _L('Indiquez un contenu existant');
+        }
+    }
+
+    return $erreurs;
 }
 
 
@@ -156,31 +156,31 @@ 
  *     Retour des traitements
  */
 function formulaires_traduire_traiter_dist($objet, $id_objet, $retour = '', $traduire = true) {
-	$res = array();
-	if (!_request('annuler') and autoriser('changerlangue', $objet, $id_objet)) {
-		// action/editer_xxx doit traiter la modif de changer_lang
-		$res = formulaires_editer_objet_traiter($objet, $id_objet, 0, 0, $retour);
-	}
-	if (!_request('annuler') and autoriser('changertraduction', $objet, $id_objet)) {
-		if ($id_trad = _request('id_trad') or _request('supprimer_trad')) {
-			$referencer_traduction = charger_fonction('referencer_traduction', 'action');
-			$referencer_traduction($objet, $id_objet, intval($id_trad)); // 0 si supprimer_trad
-		} elseif ($new_id_trad = _request('changer_reference_trad')
-			and $new_id_trad = array_keys($new_id_trad)
-			and $new_id_trad = reset($new_id_trad)
-		) {
-			$table_objet_sql = table_objet_sql($objet);
-			$_id_table_objet = id_table_objet($objet);
-			if ($id_trad = sql_getfetsel('id_trad', $table_objet_sql, "$_id_table_objet=" . intval($id_objet))) {
-				$referencer_traduction = charger_fonction('referencer_traduction', 'action');
-				$referencer_traduction($objet, $id_trad, $new_id_trad);
-			}
-		}
-	}
-	$res['editable'] = true;
-	if (!isset($res['message_erreur'])) {
-		set_request('annuler', 'annuler');
-	} // provoquer la fermeture du forumlaire
-
-	return $res;
+    $res = array();
+    if (!_request('annuler') and autoriser('changerlangue', $objet, $id_objet)) {
+        // action/editer_xxx doit traiter la modif de changer_lang
+        $res = formulaires_editer_objet_traiter($objet, $id_objet, 0, 0, $retour);
+    }
+    if (!_request('annuler') and autoriser('changertraduction', $objet, $id_objet)) {
+        if ($id_trad = _request('id_trad') or _request('supprimer_trad')) {
+            $referencer_traduction = charger_fonction('referencer_traduction', 'action');
+            $referencer_traduction($objet, $id_objet, intval($id_trad)); // 0 si supprimer_trad
+        } elseif ($new_id_trad = _request('changer_reference_trad')
+            and $new_id_trad = array_keys($new_id_trad)
+            and $new_id_trad = reset($new_id_trad)
+        ) {
+            $table_objet_sql = table_objet_sql($objet);
+            $_id_table_objet = id_table_objet($objet);
+            if ($id_trad = sql_getfetsel('id_trad', $table_objet_sql, "$_id_table_objet=" . intval($id_objet))) {
+                $referencer_traduction = charger_fonction('referencer_traduction', 'action');
+                $referencer_traduction($objet, $id_trad, $new_id_trad);
+            }
+        }
+    }
+    $res['editable'] = true;
+    if (!isset($res['message_erreur'])) {
+        set_request('annuler', 'annuler');
+    } // provoquer la fermeture du forumlaire
+
+    return $res;
 }

ecrire/index.php

Indentation +76 added lines, -76 removed lines

@@ -19,14 +19,14 @@ 
 /** Drapeau indiquant que l'on est dans l'espace privé */
 define('_ESPACE_PRIVE', true);
 if (!defined('_ECRIRE_INC_VERSION')) {
-	include 'inc_version.php';
+    include 'inc_version.php';
 }
 
 // Verification anti magic_quotes_sybase, pour qui addslashes("'") = "''"
 // On prefere la faire ici plutot que dans inc_version, c'est moins souvent et
 // si le reglage est modifie sur un site en prod, ca fait moins mal
 if (addslashes("'") !== "\\'") {
-	die('SPIP incompatible magic_quotes_sybase');
+    die('SPIP incompatible magic_quotes_sybase');
 }
 
 include_spip('inc/cookie');
@@ -42,18 +42,18 @@ 
 // alors il faut blinder les variables d'URL
 //
 if (autoriser_sans_cookie($exec, false)) {
-	if (!isset($reinstall)) {
-		$reinstall = 'non';
-	}
-	$var_auth = true;
+    if (!isset($reinstall)) {
+        $reinstall = 'non';
+    }
+    $var_auth = true;
 } else {
-	// Authentification, redefinissable
-	$auth = charger_fonction('auth', 'inc');
-	$var_auth = $auth();
-	if ($var_auth) {
-		echo auth_echec($var_auth);
-		exit;
-	}
+    // Authentification, redefinissable
+    $auth = charger_fonction('auth', 'inc');
+    $var_auth = $auth();
+    if ($var_auth) {
+        echo auth_echec($var_auth);
+        exit;
+    }
 }
 
 // initialiser a la langue par defaut
@@ -64,29 +64,29 @@ 
 
 
 if (_request('action') or _request('var_ajax') or _request('formulaire_action')) {
-	if (!autoriser_sans_cookie($exec)){
-		// Charger l'aiguilleur qui va mettre sur la bonne voie les traitements derogatoires
-		include_spip('public/aiguiller');
-		if (
-			// cas des appels actions ?action=xxx
-			traiter_appels_actions()
-			or
-			// cas des hits ajax sur les inclusions ajax
-			traiter_appels_inclusions_ajax()
-			or
-			// cas des formulaires charger/verifier/traiter
-			traiter_formulaires_dynamiques()
-		){
-			exit;
-		} // le hit est fini !
-	}
+    if (!autoriser_sans_cookie($exec)){
+        // Charger l'aiguilleur qui va mettre sur la bonne voie les traitements derogatoires
+        include_spip('public/aiguiller');
+        if (
+            // cas des appels actions ?action=xxx
+            traiter_appels_actions()
+            or
+            // cas des hits ajax sur les inclusions ajax
+            traiter_appels_inclusions_ajax()
+            or
+            // cas des formulaires charger/verifier/traiter
+            traiter_formulaires_dynamiques()
+        ){
+            exit;
+        } // le hit est fini !
+    }
 }
 // securiser les redirect du back-office
 if (_request('redirect')) {
-	if (!function_exists('securiser_redirect_action')){
-		include_spip('public/aiguiller');
-	}
-	set_request('redirect',securiser_redirect_action(_request('redirect')));
+    if (!function_exists('securiser_redirect_action')){
+        include_spip('public/aiguiller');
+    }
+    set_request('redirect',securiser_redirect_action(_request('redirect')));
 }
 
 
@@ -96,11 +96,11 @@ 
 
 // Controle de la version, sauf si on est deja en train de s'en occuper
 if (!$reinstall == 'oui'
-	and !_AJAX
-	and isset($GLOBALS['meta']['version_installee'])
-	and ($GLOBALS['spip_version_base'] != (str_replace(',', '.', $GLOBALS['meta']['version_installee'])))
+    and !_AJAX
+    and isset($GLOBALS['meta']['version_installee'])
+    and ($GLOBALS['spip_version_base'] != (str_replace(',', '.', $GLOBALS['meta']['version_installee'])))
 ) {
-	$exec = 'demande_mise_a_jour';
+    $exec = 'demande_mise_a_jour';
 }
 
 // Quand une action d'administration est en cours (meta "admin"),
@@ -110,44 +110,44 @@ 
 // sinon c'est qu'elle a ete interrompue et il faut la reprendre
 
 elseif (isset($GLOBALS['meta']["admin"])) {
-	if (preg_match('/^(.*)_(\d+)_/', $GLOBALS['meta']["admin"], $l)) {
-		list(, $var_f, $n) = $l;
-	}
-	if (_AJAX
-		or !(
-			isset($_COOKIE['spip_admin'])
-			or (isset($GLOBALS['visiteur_session']) and $GLOBALS['visiteur_session']['statut'] == '0minirezo')
-		)
-	) {
-		spip_log("Quand la meta admin vaut " .
-			$GLOBALS['meta']["admin"] .
-			" seul un admin peut se connecter et sans AJAX." .
-			" En cas de probleme, detruire cette meta.");
-		die(_T('info_travaux_texte'));
-	}
-	if ($n) {
-		list(, $var_f, $n) = $l;
-		if (tester_url_ecrire("base_$var_f")) {
-			$var_f = "base_$var_f";
-		}
-		if ($var_f != $exec) {
-			spip_log("Le script $var_f lance par auteur$n se substitue a l'exec $exec");
-			$exec = $var_f;
-			set_request('exec', $exec);
-		}
-	}
+    if (preg_match('/^(.*)_(\d+)_/', $GLOBALS['meta']["admin"], $l)) {
+        list(, $var_f, $n) = $l;
+    }
+    if (_AJAX
+        or !(
+            isset($_COOKIE['spip_admin'])
+            or (isset($GLOBALS['visiteur_session']) and $GLOBALS['visiteur_session']['statut'] == '0minirezo')
+        )
+    ) {
+        spip_log("Quand la meta admin vaut " .
+            $GLOBALS['meta']["admin"] .
+            " seul un admin peut se connecter et sans AJAX." .
+            " En cas de probleme, detruire cette meta.");
+        die(_T('info_travaux_texte'));
+    }
+    if ($n) {
+        list(, $var_f, $n) = $l;
+        if (tester_url_ecrire("base_$var_f")) {
+            $var_f = "base_$var_f";
+        }
+        if ($var_f != $exec) {
+            spip_log("Le script $var_f lance par auteur$n se substitue a l'exec $exec");
+            $exec = $var_f;
+            set_request('exec', $exec);
+        }
+    }
 }
 // si nom pas plausible, prendre le script par defaut
 // attention aux deux cas 404/403 qui commencent par un 4 !
 elseif (!preg_match(',^[a-z4_][0-9a-z_-]*$,i', $exec)) {
-	$exec = "accueil";
-	set_request('exec', $exec);
+    $exec = "accueil";
+    set_request('exec', $exec);
 }
 
 // compatibilite ascendante : obsolete, ne plus utiliser
 $GLOBALS['spip_display'] = isset($GLOBALS['visiteur_session']['prefs']['display'])
-	? (int) $GLOBALS['visiteur_session']['prefs']['display']
-	: 0;
+    ? (int) $GLOBALS['visiteur_session']['prefs']['display']
+    : 0;
 $GLOBALS['spip_ecran'] = isset($_COOKIE['spip_ecran']) ? preg_replace('/[^a-z0-9]/i', '', $_COOKIE['spip_ecran']) : "etroit";
 
 //  si la langue est specifiee par cookie et ne correspond pas
@@ -155,18 +155,18 @@ 
 // on appelle directement la fonction, car un appel d'action peut conduire a une boucle infinie
 // si le cookie n'est pas pose correctement dans l'action
 if (!$var_auth and isset($_COOKIE['spip_lang_ecrire'])
-	and $_COOKIE['spip_lang_ecrire'] <> $GLOBALS['visiteur_session']['lang']
+    and $_COOKIE['spip_lang_ecrire'] <> $GLOBALS['visiteur_session']['lang']
 ) {
-	include_spip('action/converser');
-	action_converser_post($GLOBALS['visiteur_session']['lang'], true);
+    include_spip('action/converser');
+    action_converser_post($GLOBALS['visiteur_session']['lang'], true);
 }
 
 if ($var_f = tester_url_ecrire($exec)) {
-	$var_f = charger_fonction($var_f);
-	$var_f(); // at last
+    $var_f = charger_fonction($var_f);
+    $var_f(); // at last
 } else {
-	// Rien de connu: rerouter vers exec=404 au lieu d'echouer
-	// ce qui permet de laisser la main a un plugin
-	$var_f = charger_fonction('404');
-	$var_f($exec);
+    // Rien de connu: rerouter vers exec=404 au lieu d'echouer
+    // ce qui permet de laisser la main a un plugin
+    $var_f = charger_fonction('404');
+    $var_f($exec);
 }

ecrire/inc/prepare_recherche.php

Indentation +124 added lines, -124 removed lines

@@ -17,12 +17,12 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/rechercher');
 if (!defined('_DELAI_CACHE_resultats')) {
-	define('_DELAI_CACHE_resultats', 600);
+    define('_DELAI_CACHE_resultats', 600);
 }
 
 /**
@@ -49,111 +49,111 @@ 
  * @return array
  */
 function inc_prepare_recherche_dist(
-	$recherche,
-	$table = 'articles',
-	$cond = false,
-	$serveur = '',
-	$modificateurs = array(),
-	$primary = ''
+    $recherche,
+    $table = 'articles',
+    $cond = false,
+    $serveur = '',
+    $modificateurs = array(),
+    $primary = ''
 ) {
-	static $cache = array();
-	$delai_fraicheur = min(_DELAI_CACHE_resultats,
-		time() - (isset($GLOBALS['meta']['derniere_modif']) ? $GLOBALS['meta']['derniere_modif'] : 0));
-
-	// si recherche n'est pas dans le contexte, on va prendre en globals
-	// ca permet de faire des inclure simple.
-	if (!isset($recherche) and isset($GLOBALS['recherche'])) {
-		$recherche = $GLOBALS['recherche'];
-	}
-
-	// traiter le cas {recherche?}
-	if ($cond and !strlen($recherche)) {
-		return array(
-			"0 as points" /* as points */, /* where */
-			''
-		);
-	}
-
-
-	$rechercher = false;
-
-	$where_resultat_recent = sql_date_proche('maj', (0 - ($delai_fraicheur + 100)), " SECOND");
-	if (!isset($cache[$serveur][$table][$recherche])) {
-		$hash_serv = ($serveur ? substr(md5($serveur), 0, 16) : '');
-		$hash = substr(md5($recherche . $table), 0, 16);
-		$where = "(resultats.recherche='$hash' AND resultats.table_objet=" . sql_quote($table) . " AND resultats.serveur='$hash_serv')";
-		$row = sql_fetsel('recherche', 'spip_resultats AS resultats',
-			$where . " AND $where_resultat_recent", '', '', '0,1');
-		if (!$row
-			or (defined('_VAR_MODE') and _VAR_MODE == 'recalcul')
-		) {
-			$rechercher = true;
-		}
-	}
-
-	// si on n'a pas encore traite les donnees dans une boucle precedente
-	if ($rechercher) {
-		//$tables = liste_des_champs();
-		$x = objet_type($table);
-		$points = recherche_en_base($recherche,
-			$x,
-			array(
-				'score' => true,
-				'toutvoir' => true,
-				'jointures' => true
-			),
-			$serveur);
-		// pas de résultat, pas de point
-		$points = isset($points[$x]) ? $points[$x] : array();
-
-		// permettre aux plugins de modifier le resultat
-		$points = pipeline('prepare_recherche', array(
-			'args' => array(
-				'type' => $x,
-				'recherche' => $recherche,
-				'serveur' => $serveur,
-				'modificateurs' => $modificateurs
-			),
-			'data' => $points
-		));
-
-		// supprimer les anciens resultats de cette recherche
-		// et les resultats trop vieux avec une marge
-		// pas de AS resultats dans un delete (mysql)
-		$whered = str_replace(array("resultats.recherche", "resultats.table_objet", "resultats.serveur"),
-			array("recherche", "table_objet", "serveur"), $where);
-
-		sql_delete('spip_resultats',
-			"NOT($where_resultat_recent) OR ($whered)");
-
-		// inserer les resultats dans la table de cache des resultats
-		if (count($points)) {
-			$tab_couples = array();
-			foreach ($points as $id => $p) {
-				$tab_couples[] = array(
-					'recherche' => $hash,
-					'id' => $id,
-					'points' => $p['score'],
-					'table_objet' => $table,
-					'serveur' => $hash_serv,
-				);
-			}
-			sql_insertq_multi('spip_resultats', $tab_couples, array());
-		}
-	}
-
-	if (!isset($cache[$serveur][$table][$recherche])) {
-		if (!$serveur) {
-			$cache[$serveur][$table][$recherche] = array("resultats.points AS points", $where);
-		} else {
-			if (sql_countsel('spip_resultats as resultats', $where)) {
-				$rows = sql_allfetsel('resultats.id,resultats.points', 'spip_resultats as resultats', $where);
-			}
-			$cache[$serveur][$table][$recherche] = generer_select_where_explicites($table, $primary, $rows, $serveur);
-		}
-	}
-
-	return $cache[$serveur][$table][$recherche];
+    static $cache = array();
+    $delai_fraicheur = min(_DELAI_CACHE_resultats,
+        time() - (isset($GLOBALS['meta']['derniere_modif']) ? $GLOBALS['meta']['derniere_modif'] : 0));
+
+    // si recherche n'est pas dans le contexte, on va prendre en globals
+    // ca permet de faire des inclure simple.
+    if (!isset($recherche) and isset($GLOBALS['recherche'])) {
+        $recherche = $GLOBALS['recherche'];
+    }
+
+    // traiter le cas {recherche?}
+    if ($cond and !strlen($recherche)) {
+        return array(
+            "0 as points" /* as points */, /* where */
+            ''
+        );
+    }
+
+
+    $rechercher = false;
+
+    $where_resultat_recent = sql_date_proche('maj', (0 - ($delai_fraicheur + 100)), " SECOND");
+    if (!isset($cache[$serveur][$table][$recherche])) {
+        $hash_serv = ($serveur ? substr(md5($serveur), 0, 16) : '');
+        $hash = substr(md5($recherche . $table), 0, 16);
+        $where = "(resultats.recherche='$hash' AND resultats.table_objet=" . sql_quote($table) . " AND resultats.serveur='$hash_serv')";
+        $row = sql_fetsel('recherche', 'spip_resultats AS resultats',
+            $where . " AND $where_resultat_recent", '', '', '0,1');
+        if (!$row
+            or (defined('_VAR_MODE') and _VAR_MODE == 'recalcul')
+        ) {
+            $rechercher = true;
+        }
+    }
+
+    // si on n'a pas encore traite les donnees dans une boucle precedente
+    if ($rechercher) {
+        //$tables = liste_des_champs();
+        $x = objet_type($table);
+        $points = recherche_en_base($recherche,
+            $x,
+            array(
+                'score' => true,
+                'toutvoir' => true,
+                'jointures' => true
+            ),
+            $serveur);
+        // pas de résultat, pas de point
+        $points = isset($points[$x]) ? $points[$x] : array();
+
+        // permettre aux plugins de modifier le resultat
+        $points = pipeline('prepare_recherche', array(
+            'args' => array(
+                'type' => $x,
+                'recherche' => $recherche,
+                'serveur' => $serveur,
+                'modificateurs' => $modificateurs
+            ),
+            'data' => $points
+        ));
+
+        // supprimer les anciens resultats de cette recherche
+        // et les resultats trop vieux avec une marge
+        // pas de AS resultats dans un delete (mysql)
+        $whered = str_replace(array("resultats.recherche", "resultats.table_objet", "resultats.serveur"),
+            array("recherche", "table_objet", "serveur"), $where);
+
+        sql_delete('spip_resultats',
+            "NOT($where_resultat_recent) OR ($whered)");
+
+        // inserer les resultats dans la table de cache des resultats
+        if (count($points)) {
+            $tab_couples = array();
+            foreach ($points as $id => $p) {
+                $tab_couples[] = array(
+                    'recherche' => $hash,
+                    'id' => $id,
+                    'points' => $p['score'],
+                    'table_objet' => $table,
+                    'serveur' => $hash_serv,
+                );
+            }
+            sql_insertq_multi('spip_resultats', $tab_couples, array());
+        }
+    }
+
+    if (!isset($cache[$serveur][$table][$recherche])) {
+        if (!$serveur) {
+            $cache[$serveur][$table][$recherche] = array("resultats.points AS points", $where);
+        } else {
+            if (sql_countsel('spip_resultats as resultats', $where)) {
+                $rows = sql_allfetsel('resultats.id,resultats.points', 'spip_resultats as resultats', $where);
+            }
+            $cache[$serveur][$table][$recherche] = generer_select_where_explicites($table, $primary, $rows, $serveur);
+        }
+    }
+
+    return $cache[$serveur][$table][$recherche];
 }
 
 
@@ -169,22 +169,22 @@ 
  * @return array
  */
 function generer_select_where_explicites($table, $primary, $rows, $serveur) {
-	# calculer le {id_article IN()} et le {... as points}
-	if (!count($rows)) {
-		return array("''", "0=1");
-	} else {
-		$listes_ids = array();
-		$select = '0';
-		foreach ($rows as $r) {
-			$listes_ids[$r['points']][] = $r['id'];
-		}
-
-		foreach ($listes_ids as $p => $ids) {
-			$select .= "+$p*(" .
-				sql_in("$table.$primary", $ids, '', $serveur)
-				. ") ";
-		}
-
-		return array("$select AS points ", sql_in("$table.$primary", array_map('reset', $rows), '', $serveur));
-	}
+    # calculer le {id_article IN()} et le {... as points}
+    if (!count($rows)) {
+        return array("''", "0=1");
+    } else {
+        $listes_ids = array();
+        $select = '0';
+        foreach ($rows as $r) {
+            $listes_ids[$r['points']][] = $r['id'];
+        }
+
+        foreach ($listes_ids as $p => $ids) {
+            $select .= "+$p*(" .
+                sql_in("$table.$primary", $ids, '', $serveur)
+                . ") ";
+        }
+
+        return array("$select AS points ", sql_in("$table.$primary", array_map('reset', $rows), '', $serveur));
+    }
 }

ecrire/action/editer_logo.php

Indentation +154 added lines, -154 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -30,35 +30,35 @@ 
  *     `on` ou `off`
  */
 function logo_supprimer($objet, $id_objet, $etat) {
-	$chercher_logo = charger_fonction('chercher_logo', 'inc');
-	$objet = objet_type($objet);
-	$primary = id_table_objet($objet);
-	include_spip('inc/chercher_logo');
-
-	// existe-t-il deja un logo ?
-	$logo = $chercher_logo($id_objet, $primary, $etat);
-	if ($logo) {
-		# TODO : deprecated, a supprimer -> anciens logos IMG/artonxx.png pas en base
-		if (count($logo) < 6) {
-			spip_log("Supprimer ancien logo $logo", 'logo');
-			spip_unlink($logo[0]);
-		}
-		elseif ($doc = $logo[5]
-			and isset($doc['id_document'])
-		  and $id_document = $doc['id_document']) {
-
-			include_spip('action/editer_liens');
-			// supprimer le lien dans la base
-			objet_dissocier(array('document' => $id_document), array($objet => $id_objet), array('role' => '*'));
-
-			// verifier si il reste des liens avec d'autres objets et sinon supprimer
-			$liens = objet_trouver_liens(array('document' => $id_document), '*');
-			if (!count($liens)) {
-				$supprimer_document = charger_fonction('supprimer_document', 'action');
-				$supprimer_document($doc['id_document']);
-			}
-		}
-	}
+    $chercher_logo = charger_fonction('chercher_logo', 'inc');
+    $objet = objet_type($objet);
+    $primary = id_table_objet($objet);
+    include_spip('inc/chercher_logo');
+
+    // existe-t-il deja un logo ?
+    $logo = $chercher_logo($id_objet, $primary, $etat);
+    if ($logo) {
+        # TODO : deprecated, a supprimer -> anciens logos IMG/artonxx.png pas en base
+        if (count($logo) < 6) {
+            spip_log("Supprimer ancien logo $logo", 'logo');
+            spip_unlink($logo[0]);
+        }
+        elseif ($doc = $logo[5]
+            and isset($doc['id_document'])
+          and $id_document = $doc['id_document']) {
+
+            include_spip('action/editer_liens');
+            // supprimer le lien dans la base
+            objet_dissocier(array('document' => $id_document), array($objet => $id_objet), array('role' => '*'));
+
+            // verifier si il reste des liens avec d'autres objets et sinon supprimer
+            $liens = objet_trouver_liens(array('document' => $id_document), '*');
+            if (!count($liens)) {
+                $supprimer_document = charger_fonction('supprimer_document', 'action');
+                $supprimer_document($doc['id_document']);
+            }
+        }
+    }
 }
 
 /**
@@ -75,133 +75,133 @@ 
  *     Erreur, sinon ''
  */
 function logo_modifier($objet, $id_objet, $etat, $source) {
-	$chercher_logo = charger_fonction('chercher_logo', 'inc');
-	$objet = objet_type($objet);
-	$primary = id_table_objet($objet);
-	include_spip('inc/chercher_logo');
-
-	$mode = preg_replace(",\W,", '', $etat);
-	if (!$mode){
-		spip_log("logo_modifier : etat $etat invalide", 'logo');
-		$erreur = 'etat invalide';
-
-		return $erreur;
-	}
-	// chercher dans la base
-	$mode_document = 'logo' . $mode;
-
-	include_spip('inc/documents');
-	$erreur = '';
-
-	if (!$source) {
-		spip_log('spip_image_ajouter : source inconnue', 'logo');
-		$erreur = 'source inconnue';
-
-		return $erreur;
-	}
-
-	// fichier dans upload/
-	if (is_string($source)) {
-		$tmp_name = false;
-		if (file_exists($source)) {
-			$tmp_name = $source;
-		} elseif (file_exists($f = determine_upload() . $source)) {
-			$tmp_name = $f;
-		}
-		if (!$tmp_name) {
-			spip_log('spip_image_ajouter : source inconnue', 'logo');
-			$erreur = 'source inconnue';
-
-			return $erreur;
-		}
-		$source = array(
-			'tmp_name' => $tmp_name,
-			'name' => basename($tmp_name),
-		);
-	} elseif ($erreur = check_upload_error($source['error'], '', true)) {
-		return $erreur;
-	}
-
-	// supprimer le logo eventueel existant
-	// TODO : si un logo existe, le modifier plutot que supprimer + reinserer (mais il faut gerer le cas ou il est utilise par plusieurs objets, donc pas si simple)
-	// mais de toute facon l'interface actuelle oblige a supprimer + reinserer
-	logo_supprimer($objet, $id_objet, $etat);
-
-
-	include_spip('inc/autoriser');
-	$source['mode'] = $mode_document;
-	$ajouter_documents = charger_fonction('ajouter_documents', 'action');
-	autoriser_exception('associerdocuments', $objet, $id_objet);
-	$ajoutes = $ajouter_documents('new', [$source], $objet, $id_objet, $mode_document);
-	autoriser_exception('associerdocuments', $objet, $id_objet, false);
-
-	$id_document = reset($ajoutes);
-
-	if (!is_numeric($id_document)) {
-		$erreur = ($id_document ? $id_document : 'Erreur inconnue');
-		spip_log("Erreur ajout logo : $erreur pour source=".json_encode($source), 'logo');
-		return $erreur;
-	}
-
-	return ''; // tout est bon, pas d'erreur
+    $chercher_logo = charger_fonction('chercher_logo', 'inc');
+    $objet = objet_type($objet);
+    $primary = id_table_objet($objet);
+    include_spip('inc/chercher_logo');
+
+    $mode = preg_replace(",\W,", '', $etat);
+    if (!$mode){
+        spip_log("logo_modifier : etat $etat invalide", 'logo');
+        $erreur = 'etat invalide';
+
+        return $erreur;
+    }
+    // chercher dans la base
+    $mode_document = 'logo' . $mode;
+
+    include_spip('inc/documents');
+    $erreur = '';
+
+    if (!$source) {
+        spip_log('spip_image_ajouter : source inconnue', 'logo');
+        $erreur = 'source inconnue';
+
+        return $erreur;
+    }
+
+    // fichier dans upload/
+    if (is_string($source)) {
+        $tmp_name = false;
+        if (file_exists($source)) {
+            $tmp_name = $source;
+        } elseif (file_exists($f = determine_upload() . $source)) {
+            $tmp_name = $f;
+        }
+        if (!$tmp_name) {
+            spip_log('spip_image_ajouter : source inconnue', 'logo');
+            $erreur = 'source inconnue';
+
+            return $erreur;
+        }
+        $source = array(
+            'tmp_name' => $tmp_name,
+            'name' => basename($tmp_name),
+        );
+    } elseif ($erreur = check_upload_error($source['error'], '', true)) {
+        return $erreur;
+    }
+
+    // supprimer le logo eventueel existant
+    // TODO : si un logo existe, le modifier plutot que supprimer + reinserer (mais il faut gerer le cas ou il est utilise par plusieurs objets, donc pas si simple)
+    // mais de toute facon l'interface actuelle oblige a supprimer + reinserer
+    logo_supprimer($objet, $id_objet, $etat);
+
+
+    include_spip('inc/autoriser');
+    $source['mode'] = $mode_document;
+    $ajouter_documents = charger_fonction('ajouter_documents', 'action');
+    autoriser_exception('associerdocuments', $objet, $id_objet);
+    $ajoutes = $ajouter_documents('new', [$source], $objet, $id_objet, $mode_document);
+    autoriser_exception('associerdocuments', $objet, $id_objet, false);
+
+    $id_document = reset($ajoutes);
+
+    if (!is_numeric($id_document)) {
+        $erreur = ($id_document ? $id_document : 'Erreur inconnue');
+        spip_log("Erreur ajout logo : $erreur pour source=".json_encode($source), 'logo');
+        return $erreur;
+    }
+
+    return ''; // tout est bon, pas d'erreur
 
 }
 
 function logo_migrer_en_base($objet, $time_limit) {
 
-	$dir_logos_erreurs = sous_repertoire(_DIR_IMG, 'logo_erreurs');
-	$dir_logos = sous_repertoire(_DIR_IMG, 'logo');
-	$formats_logos = array('jpg', 'png', 'svg', 'gif');
-	if (isset($GLOBALS['formats_logos'])) {
-		$formats_logos = $GLOBALS['formats_logos'];
-	}
-
-
-	$chercher_logo = charger_fonction('chercher_logo', 'inc');
-	include_spip('inc/chercher_logo');
-	$_id_objet = id_table_objet($objet);
-	$type = type_du_logo($_id_objet);
-
-	foreach (['on', 'off'] as $mode) {
-		$nom_base = $type . $mode;
-		$dir = (defined('_DIR_LOGOS') ? _DIR_LOGOS : _DIR_IMG);
-
-		$deja = array();
-		$files = glob($dir . $nom_base . "*");
-
-		foreach ($files as $file) {
-			$logo = substr($file, strlen($dir . $nom_base));
-			$logo = explode('.', $logo);
-			if (is_numeric($logo[0])
-			  and ($id_objet = intval($logo[0]) or in_array($objet, ['site', 'rubrique']))) {
-				if (!isset($deja[$id_objet])) {
-					$logo = $chercher_logo($id_objet, $_id_objet, $mode);
-					// if no logo in base
-					if (!$logo or count($logo)<6) {
-						foreach ($formats_logos as $format) {
-							if (@file_exists($d = ($dir . ($nom = $nom_base . intval($id_objet) . '.' . $format)))) {
-								// logo_modifier commence par supprimer le logo existant, donc on le deplace pour pas le perdre
-								@rename($d, $dir_logos . $nom);
-								// et on le declare comme nouveau logo
-								logo_modifier($objet, $id_objet, $mode, $dir_logos . $nom);
-								break;
-							}
-						}
-					}
-					$deja[$id_objet] = true;
-				}
-			}
-			// si le fichier est encore la on le move : rien a faire ici
-			if (file_exists($file)) {
-				@rename($file, $dir_logos_erreurs . basename($file));
-			}
-
-			if ($time_limit and time() > $time_limit) {
-				effacer_meta('drapeau_edition');
-				return;
-			}
-		}
-
-	}
-	effacer_meta('drapeau_edition');
+    $dir_logos_erreurs = sous_repertoire(_DIR_IMG, 'logo_erreurs');
+    $dir_logos = sous_repertoire(_DIR_IMG, 'logo');
+    $formats_logos = array('jpg', 'png', 'svg', 'gif');
+    if (isset($GLOBALS['formats_logos'])) {
+        $formats_logos = $GLOBALS['formats_logos'];
+    }
+
+
+    $chercher_logo = charger_fonction('chercher_logo', 'inc');
+    include_spip('inc/chercher_logo');
+    $_id_objet = id_table_objet($objet);
+    $type = type_du_logo($_id_objet);
+
+    foreach (['on', 'off'] as $mode) {
+        $nom_base = $type . $mode;
+        $dir = (defined('_DIR_LOGOS') ? _DIR_LOGOS : _DIR_IMG);
+
+        $deja = array();
+        $files = glob($dir . $nom_base . "*");
+
+        foreach ($files as $file) {
+            $logo = substr($file, strlen($dir . $nom_base));
+            $logo = explode('.', $logo);
+            if (is_numeric($logo[0])
+              and ($id_objet = intval($logo[0]) or in_array($objet, ['site', 'rubrique']))) {
+                if (!isset($deja[$id_objet])) {
+                    $logo = $chercher_logo($id_objet, $_id_objet, $mode);
+                    // if no logo in base
+                    if (!$logo or count($logo)<6) {
+                        foreach ($formats_logos as $format) {
+                            if (@file_exists($d = ($dir . ($nom = $nom_base . intval($id_objet) . '.' . $format)))) {
+                                // logo_modifier commence par supprimer le logo existant, donc on le deplace pour pas le perdre
+                                @rename($d, $dir_logos . $nom);
+                                // et on le declare comme nouveau logo
+                                logo_modifier($objet, $id_objet, $mode, $dir_logos . $nom);
+                                break;
+                            }
+                        }
+                    }
+                    $deja[$id_objet] = true;
+                }
+            }
+            // si le fichier est encore la on le move : rien a faire ici
+            if (file_exists($file)) {
+                @rename($file, $dir_logos_erreurs . basename($file));
+            }
+
+            if ($time_limit and time() > $time_limit) {
+                effacer_meta('drapeau_edition');
+                return;
+            }
+        }
+
+    }
+    effacer_meta('drapeau_edition');
 }
\ No newline at end of file

ecrire/base/trouver_table.php

Indentation +138 added lines, -138 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\SQL\Tables
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 include_spip('base/objets');
 
@@ -64,141 +64,141 @@ 
  *
  **/
 function base_trouver_table_dist($nom, $serveur = '', $table_spip = true) {
-	static $nom_cache_desc_sql = array();
-
-	if (!spip_connect($serveur)
-		or !preg_match('/^[a-zA-Z0-9._-]*/', $nom)
-	) {
-		return null;
-	}
-
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$objets_sql = lister_tables_objets_sql("::md5");
-
-	// le nom du cache depend du serveur mais aussi du nom de la db et du prefixe
-	// ce qui permet une auto invalidation en cas de modif manuelle du fichier
-	// de connexion, et tout risque d'ambiguite
-	if (!isset($nom_cache_desc_sql[$serveur][$objets_sql])) {
-		$nom_cache_desc_sql[$serveur][$objets_sql] =
-			_DIR_CACHE . 'sql_desc_'
-			. ($serveur ? "{$serveur}_" : "")
-			. substr(md5($connexion['db'] . ":" . $connexion['prefixe'] . ":$objets_sql"), 0, 8)
-			. '.txt';
-		// nouveau nom de cache = nouvelle version en memoire
-		unset($connexion['tables']);
-	}
-
-	// un appel avec $nom vide est une demande explicite de vidange du cache des descriptions
-	if (!$nom) {
-		spip_unlink($nom_cache_desc_sql[$serveur][$objets_sql]);
-		$connexion['tables'] = array();
-
-		return null;
-	}
-
-	$nom_sql = $nom;
-	if (preg_match('/\.(.*)$/', $nom, $s)) {
-		$nom_sql = $s[1];
-	} else {
-		$nom_sql = $nom;
-	}
-
-	$fdesc = $desc = '';
-	$connexion = &$GLOBALS['connexions'][$serveur ? $serveur : 0];
-
-	// base sous SPIP: gerer les abreviations explicites des noms de table
-	if ($connexion['spip_connect_version']) {
-		if ($table_spip and isset($GLOBALS['table_des_tables'][$nom])) {
-			$nom = $GLOBALS['table_des_tables'][$nom];
-			$nom_sql = 'spip_' . $nom;
-		}
-	}
-
-	// si c'est la premiere table qu'on cherche
-	// et si on est pas explicitement en recalcul
-	// on essaye de recharger le cache des decriptions de ce serveur
-	// dans le fichier cache
-	if (!isset($connexion['tables'][$nom_sql])
-		and defined('_VAR_MODE') and _VAR_MODE !== 'recalcul'
-		and (!isset($connexion['tables']) or !$connexion['tables'])
-	) {
-		if (lire_fichier($nom_cache_desc_sql[$serveur][$objets_sql], $desc_cache)
-			and $desc_cache = unserialize($desc_cache)
-		) {
-			$connexion['tables'] = $desc_cache;
-		}
-	}
-	if ($table_spip and !isset($connexion['tables'][$nom_sql])) {
-
-		if (isset($GLOBALS['tables_principales'][$nom_sql])) {
-			$fdesc = $GLOBALS['tables_principales'][$nom_sql];
-		}
-		// meme si pas d'abreviation declaree, trouver la table spip_$nom
-		// si c'est une table principale,
-		// puisqu'on le fait aussi pour les tables auxiliaires
-		elseif ($nom_sql == $nom and isset($GLOBALS['tables_principales']['spip_' . $nom])) {
-			$nom_sql = 'spip_' . $nom;
-			$fdesc = &$GLOBALS['tables_principales'][$nom_sql];
-		} elseif (isset($GLOBALS['tables_auxiliaires'][$n = $nom])
-			or isset($GLOBALS['tables_auxiliaires'][$n = 'spip_' . $nom])
-		) {
-			$nom_sql = $n;
-			$fdesc = &$GLOBALS['tables_auxiliaires'][$n];
-		}  # table locale a cote de SPIP, comme non SPIP:
-	}
-	if (!isset($connexion['tables'][$nom_sql])) {
-
-		// La *vraie* base a la priorite
-		$desc = sql_showtable($nom_sql, $table_spip, $serveur);
-		if (!$desc or !$desc['field']) {
-			if (!$fdesc) {
-				spip_log("trouver_table: table inconnue '$serveur' '$nom'", 'base' . _LOG_INFO_IMPORTANTE);
-
-				return null;
-			}
-			// on ne sait pas lire la structure de la table :
-			// on retombe sur la description donnee dans les fichiers spip
-			$desc = $fdesc;
-			$desc['exist'] = false;
-		} else {
-			$desc['exist'] = true;
-			// gerer le cas des cles vides (echec de l'analyse sur une vue par exemple)
-			// pour recuperer la declaration de lister_tables_objets_sql() si il y en a une
-			if (! $desc['key']) {
-				spip_log("trouver_table: table sans cle '$serveur' '$nom'", 'base');
-				unset($desc['key']);
-			}
-		}
-
-		$desc['table'] = $desc['table_sql'] = $nom_sql;
-		$desc['connexion'] = $serveur;
-
-		// charger les infos declarees pour cette table
-		// en lui passant les infos connues
-		// $desc est prioritaire pour la description de la table
-		$desc = array_merge(lister_tables_objets_sql($nom_sql, $desc), $desc);
-		// s'assurer qu'on a toujours un 'key'
-		if (!isset($desc['key']) && !empty($fdesc['key'])){
-			$desc['key'] = $fdesc['key'];
-		}
-		if (! isset($desc['key'])) {
-			$desc['key'] = array();
-		}
-
-		// si tables_objets_sql est bien fini d'init, on peut cacher
-		$connexion['tables'][$nom_sql] = $desc;
-		$res = &$connexion['tables'][$nom_sql];
-		// une nouvelle table a ete decrite
-		// mettons donc a jour le cache des descriptions de ce serveur
-		if (is_writeable(_DIR_CACHE)) {
-			ecrire_fichier($nom_cache_desc_sql[$serveur][$objets_sql], serialize($connexion['tables']), true);
-		}
-	} else {
-		$res = &$connexion['tables'][$nom_sql];
-	}
-
-	// toujours retourner $nom dans id_table
-	$res['id_table'] = $nom;
-
-	return $res;
+    static $nom_cache_desc_sql = array();
+
+    if (!spip_connect($serveur)
+        or !preg_match('/^[a-zA-Z0-9._-]*/', $nom)
+    ) {
+        return null;
+    }
+
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $objets_sql = lister_tables_objets_sql("::md5");
+
+    // le nom du cache depend du serveur mais aussi du nom de la db et du prefixe
+    // ce qui permet une auto invalidation en cas de modif manuelle du fichier
+    // de connexion, et tout risque d'ambiguite
+    if (!isset($nom_cache_desc_sql[$serveur][$objets_sql])) {
+        $nom_cache_desc_sql[$serveur][$objets_sql] =
+            _DIR_CACHE . 'sql_desc_'
+            . ($serveur ? "{$serveur}_" : "")
+            . substr(md5($connexion['db'] . ":" . $connexion['prefixe'] . ":$objets_sql"), 0, 8)
+            . '.txt';
+        // nouveau nom de cache = nouvelle version en memoire
+        unset($connexion['tables']);
+    }
+
+    // un appel avec $nom vide est une demande explicite de vidange du cache des descriptions
+    if (!$nom) {
+        spip_unlink($nom_cache_desc_sql[$serveur][$objets_sql]);
+        $connexion['tables'] = array();
+
+        return null;
+    }
+
+    $nom_sql = $nom;
+    if (preg_match('/\.(.*)$/', $nom, $s)) {
+        $nom_sql = $s[1];
+    } else {
+        $nom_sql = $nom;
+    }
+
+    $fdesc = $desc = '';
+    $connexion = &$GLOBALS['connexions'][$serveur ? $serveur : 0];
+
+    // base sous SPIP: gerer les abreviations explicites des noms de table
+    if ($connexion['spip_connect_version']) {
+        if ($table_spip and isset($GLOBALS['table_des_tables'][$nom])) {
+            $nom = $GLOBALS['table_des_tables'][$nom];
+            $nom_sql = 'spip_' . $nom;
+        }
+    }
+
+    // si c'est la premiere table qu'on cherche
+    // et si on est pas explicitement en recalcul
+    // on essaye de recharger le cache des decriptions de ce serveur
+    // dans le fichier cache
+    if (!isset($connexion['tables'][$nom_sql])
+        and defined('_VAR_MODE') and _VAR_MODE !== 'recalcul'
+        and (!isset($connexion['tables']) or !$connexion['tables'])
+    ) {
+        if (lire_fichier($nom_cache_desc_sql[$serveur][$objets_sql], $desc_cache)
+            and $desc_cache = unserialize($desc_cache)
+        ) {
+            $connexion['tables'] = $desc_cache;
+        }
+    }
+    if ($table_spip and !isset($connexion['tables'][$nom_sql])) {
+
+        if (isset($GLOBALS['tables_principales'][$nom_sql])) {
+            $fdesc = $GLOBALS['tables_principales'][$nom_sql];
+        }
+        // meme si pas d'abreviation declaree, trouver la table spip_$nom
+        // si c'est une table principale,
+        // puisqu'on le fait aussi pour les tables auxiliaires
+        elseif ($nom_sql == $nom and isset($GLOBALS['tables_principales']['spip_' . $nom])) {
+            $nom_sql = 'spip_' . $nom;
+            $fdesc = &$GLOBALS['tables_principales'][$nom_sql];
+        } elseif (isset($GLOBALS['tables_auxiliaires'][$n = $nom])
+            or isset($GLOBALS['tables_auxiliaires'][$n = 'spip_' . $nom])
+        ) {
+            $nom_sql = $n;
+            $fdesc = &$GLOBALS['tables_auxiliaires'][$n];
+        }  # table locale a cote de SPIP, comme non SPIP:
+    }
+    if (!isset($connexion['tables'][$nom_sql])) {
+
+        // La *vraie* base a la priorite
+        $desc = sql_showtable($nom_sql, $table_spip, $serveur);
+        if (!$desc or !$desc['field']) {
+            if (!$fdesc) {
+                spip_log("trouver_table: table inconnue '$serveur' '$nom'", 'base' . _LOG_INFO_IMPORTANTE);
+
+                return null;
+            }
+            // on ne sait pas lire la structure de la table :
+            // on retombe sur la description donnee dans les fichiers spip
+            $desc = $fdesc;
+            $desc['exist'] = false;
+        } else {
+            $desc['exist'] = true;
+            // gerer le cas des cles vides (echec de l'analyse sur une vue par exemple)
+            // pour recuperer la declaration de lister_tables_objets_sql() si il y en a une
+            if (! $desc['key']) {
+                spip_log("trouver_table: table sans cle '$serveur' '$nom'", 'base');
+                unset($desc['key']);
+            }
+        }
+
+        $desc['table'] = $desc['table_sql'] = $nom_sql;
+        $desc['connexion'] = $serveur;
+
+        // charger les infos declarees pour cette table
+        // en lui passant les infos connues
+        // $desc est prioritaire pour la description de la table
+        $desc = array_merge(lister_tables_objets_sql($nom_sql, $desc), $desc);
+        // s'assurer qu'on a toujours un 'key'
+        if (!isset($desc['key']) && !empty($fdesc['key'])){
+            $desc['key'] = $fdesc['key'];
+        }
+        if (! isset($desc['key'])) {
+            $desc['key'] = array();
+        }
+
+        // si tables_objets_sql est bien fini d'init, on peut cacher
+        $connexion['tables'][$nom_sql] = $desc;
+        $res = &$connexion['tables'][$nom_sql];
+        // une nouvelle table a ete decrite
+        // mettons donc a jour le cache des descriptions de ce serveur
+        if (is_writeable(_DIR_CACHE)) {
+            ecrire_fichier($nom_cache_desc_sql[$serveur][$objets_sql], serialize($connexion['tables']), true);
+        }
+    } else {
+        $res = &$connexion['tables'][$nom_sql];
+    }
+
+    // toujours retourner $nom dans id_table
+    $res['id_table'] = $nom;
+
+    return $res;
 }

ecrire/action/editer_liens.php

Indentation +520 added lines, -520 removed lines

@@ -29,7 +29,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // charger la gestion les rôles sur les objets
@@ -47,21 +47,21 @@ 
  *     - array(clé primaire, nom de la table de lien) si associable
  */
 function objet_associable($objet) {
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	$table_sql = table_objet_sql($objet);
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    $table_sql = table_objet_sql($objet);
 
-	$l = "";
-	if ($primary = id_table_objet($objet)
-		and $trouver_table($l = $table_sql . "_liens")
-		and !preg_match(',[^\w],', $primary)
-		and !preg_match(',[^\w],', $l)
-	) {
-		return array($primary, $l);
-	}
+    $l = "";
+    if ($primary = id_table_objet($objet)
+        and $trouver_table($l = $table_sql . "_liens")
+        and !preg_match(',[^\w],', $primary)
+        and !preg_match(',[^\w],', $l)
+    ) {
+        return array($primary, $l);
+    }
 
-	spip_log("Objet $objet non associable : ne dispose pas d'une cle primaire $primary OU d'une table liens $l");
+    spip_log("Objet $objet non associable : ne dispose pas d'une cle primaire $primary OU d'une table liens $l");
 
-	return false;
+    return false;
 }
 
 /**
@@ -87,13 +87,13 @@ 
  * @return bool|int
  */
 function objet_associer($objets_source, $objets_lies, $qualif = null) {
-	$modifs = objet_traiter_liaisons('lien_insert', $objets_source, $objets_lies, $qualif);
+    $modifs = objet_traiter_liaisons('lien_insert', $objets_source, $objets_lies, $qualif);
 
-	if ($qualif) {
-		objet_qualifier_liens($objets_source, $objets_lies, $qualif);
-	}
+    if ($qualif) {
+        objet_qualifier_liens($objets_source, $objets_lies, $qualif);
+    }
 
-	return $modifs; // pas d'erreur
+    return $modifs; // pas d'erreur
 }
 
 
@@ -127,7 +127,7 @@ 
  * @return bool|int
  */
 function objet_dissocier($objets_source, $objets_lies, $cond = null) {
-	return objet_traiter_liaisons('lien_delete', $objets_source, $objets_lies, $cond);
+    return objet_traiter_liaisons('lien_delete', $objets_source, $objets_lies, $cond);
 }
 
 
@@ -152,7 +152,7 @@ 
  * @return bool|int
  */
 function objet_qualifier_liens($objets_source, $objets_lies, $qualif) {
-	return objet_traiter_liaisons('lien_set', $objets_source, $objets_lies, $qualif);
+    return objet_traiter_liaisons('lien_set', $objets_source, $objets_lies, $qualif);
 }
 
 
@@ -187,7 +187,7 @@ 
  *     Liste des trouvailles
  */
 function objet_trouver_liens($objets_source, $objets_lies, $cond = null) {
-	return objet_traiter_liaisons('lien_find', $objets_source, $objets_lies, $cond);
+    return objet_traiter_liaisons('lien_find', $objets_source, $objets_lies, $cond);
 }
 
 
@@ -211,8 +211,8 @@ 
  * @return int
  */
 function objet_optimiser_liens($objets_source, $objets_lies) {
-	spip_log("objet_optimiser_liens : ".json_encode($objets_source) . ', ' . json_encode($objets_lies), 'genie'._LOG_DEBUG);
-	return objet_traiter_liaisons('lien_optimise', $objets_source, $objets_lies);
+    spip_log("objet_optimiser_liens : ".json_encode($objets_source) . ', ' . json_encode($objets_lies), 'genie'._LOG_DEBUG);
+    return objet_traiter_liaisons('lien_optimise', $objets_source, $objets_lies);
 }
 
 
@@ -232,37 +232,37 @@ 
  *     Nombre de liens copiés
  */
 function objet_dupliquer_liens($objet, $id_source, $id_cible, $types = null, $exclure_types = null) {
-	include_spip('base/objets');
-	$tables = lister_tables_objets_sql();
-	$n = 0;
-	foreach ($tables as $table_sql => $infos) {
-		if (
-			(is_null($types) or in_array($infos['type'], $types))
-			and (is_null($exclure_types) or !in_array($infos['type'], $exclure_types))
-		) {
-			if (objet_associable($infos['type'])) {
-				$liens = (($infos['type'] == $objet) ?
-					objet_trouver_liens(array($objet => $id_source), '*')
-					:
-					objet_trouver_liens(array($infos['type'] => '*'), array($objet => $id_source)));
-				foreach ($liens as $lien) {
-					$n++;
-					if ($infos['type'] == $objet) {
-						if (
-							(is_null($types) or in_array($lien['objet'], $types))
-							and (is_null($exclure_types) or !in_array($lien['objet'], $exclure_types))
-						) {
-							objet_associer(array($objet => $id_cible), array($lien['objet'] => $lien[$lien['objet']]), $lien);
-						}
-					} else {
-						objet_associer(array($infos['type'] => $lien[$infos['type']]), array($objet => $id_cible), $lien);
-					}
-				}
-			}
-		}
-	}
-
-	return $n;
+    include_spip('base/objets');
+    $tables = lister_tables_objets_sql();
+    $n = 0;
+    foreach ($tables as $table_sql => $infos) {
+        if (
+            (is_null($types) or in_array($infos['type'], $types))
+            and (is_null($exclure_types) or !in_array($infos['type'], $exclure_types))
+        ) {
+            if (objet_associable($infos['type'])) {
+                $liens = (($infos['type'] == $objet) ?
+                    objet_trouver_liens(array($objet => $id_source), '*')
+                    :
+                    objet_trouver_liens(array($infos['type'] => '*'), array($objet => $id_source)));
+                foreach ($liens as $lien) {
+                    $n++;
+                    if ($infos['type'] == $objet) {
+                        if (
+                            (is_null($types) or in_array($lien['objet'], $types))
+                            and (is_null($exclure_types) or !in_array($lien['objet'], $exclure_types))
+                        ) {
+                            objet_associer(array($objet => $id_cible), array($lien['objet'] => $lien[$lien['objet']]), $lien);
+                        }
+                    } else {
+                        objet_associer(array($infos['type'] => $lien[$infos['type']]), array($objet => $id_cible), $lien);
+                    }
+                }
+            }
+        }
+    }
+
+    return $n;
 }
 
 /**
@@ -304,38 +304,38 @@ 
  * @return bool|int|array
  */
 function objet_traiter_liaisons($operation, $objets_source, $objets_lies, $set = null) {
-	// accepter une syntaxe minimale pour supprimer tous les liens
-	if ($objets_lies == '*') {
-		$objets_lies = array('*' => '*');
-	}
-	$modifs = 0; // compter le nombre de modifications
-	$echec = null;
-	foreach ($objets_source as $objet => $ids) {
-		if ($a = objet_associable($objet)) {
-			list($primary, $l) = $a;
-			if (!is_array($ids)) {
-				$ids = array($ids);
-			} elseif (reset($ids) == "NOT") {
-				// si on demande un array('NOT',...) => recuperer la liste d'ids correspondants
-				$where = lien_where($primary, $ids, '*', '*');
-				$ids = sql_allfetsel($primary, $l, $where);
-				$ids = array_map('reset', $ids);
-			}
-			foreach ($ids as $id) {
-				$res = $operation($objet, $primary, $l, $id, $objets_lies, $set);
-				if ($res === false) {
-					spip_log("objet_traiter_liaisons [Echec] : $operation sur $objet/$primary/$l/$id", _LOG_ERREUR);
-					$echec = true;
-				} else {
-					$modifs = ($modifs ? (is_array($res) ? array_merge($modifs, $res) : $modifs + $res) : $res);
-				}
-			}
-		} else {
-			$echec = true;
-		}
-	}
-
-	return ($echec ? false : $modifs); // pas d'erreur
+    // accepter une syntaxe minimale pour supprimer tous les liens
+    if ($objets_lies == '*') {
+        $objets_lies = array('*' => '*');
+    }
+    $modifs = 0; // compter le nombre de modifications
+    $echec = null;
+    foreach ($objets_source as $objet => $ids) {
+        if ($a = objet_associable($objet)) {
+            list($primary, $l) = $a;
+            if (!is_array($ids)) {
+                $ids = array($ids);
+            } elseif (reset($ids) == "NOT") {
+                // si on demande un array('NOT',...) => recuperer la liste d'ids correspondants
+                $where = lien_where($primary, $ids, '*', '*');
+                $ids = sql_allfetsel($primary, $l, $where);
+                $ids = array_map('reset', $ids);
+            }
+            foreach ($ids as $id) {
+                $res = $operation($objet, $primary, $l, $id, $objets_lies, $set);
+                if ($res === false) {
+                    spip_log("objet_traiter_liaisons [Echec] : $operation sur $objet/$primary/$l/$id", _LOG_ERREUR);
+                    $echec = true;
+                } else {
+                    $modifs = ($modifs ? (is_array($res) ? array_merge($modifs, $res) : $modifs + $res) : $res);
+                }
+            }
+        } else {
+            $echec = true;
+        }
+    }
+
+    return ($echec ? false : $modifs); // pas d'erreur
 }
 
 
@@ -364,106 +364,106 @@ 
  *     Nombre d'insertions faites, false si échec.
  */
 function lien_insert($objet_source, $primary, $table_lien, $id, $objets, $qualif) {
-	$ins = 0;
-	$echec = null;
-	if (is_null($qualif)) {
-		$qualif = array();
-	}
-
-	foreach ($objets as $objet => $id_objets) {
-		if (!is_array($id_objets)) {
-			$id_objets = array($id_objets);
-		}
-
-		// role, colonne, where par défaut
-		list($role, $colonne_role, $cond) =
-			roles_trouver_dans_qualif($objet_source, $objet, $qualif);
-
-		foreach ($id_objets as $id_objet) {
-			$objet = (($objet == '*') ? $objet : objet_type($objet)); # securite
-
-			$insertions = array(
-				'id_objet' => $id_objet,
-				'objet' => $objet,
-				$primary => $id
-			);
-			// rôle en plus s'il est défini
-			if ($role) {
-				$insertions += array(
-					$colonne_role => $role
-				);
-			}
-
-			if (lien_triables($table_lien)) {
-				$where = lien_where($primary, $id, $objet, $id_objet);
-				// si il y a deja un lien pour ce couple (avec un autre role?) on reprend le meme rang si non nul
-				if (!$rang = intval(sql_getfetsel('rang_lien', $table_lien, $where))) {
-					$where = lien_where($primary, '*', $objet, $id_objet);
-					$rang = intval(sql_getfetsel('max(rang_lien)', $table_lien, $where));
-					// si aucun lien n'a de rang, on en introduit pas, on garde zero
-					if ($rang>0) {
-						$rang = intval($rang) + 1;
-					}
-				}
-				$insertions['rang_lien'] = $rang;
-			}
-
-			$args = array(
-				'table_lien' => $table_lien,
-				'objet_source' => $objet_source,
-				'id_objet_source' => $id,
-				'objet' => $objet,
-				'id_objet' => $id_objet,
-				'role' => $role,
-				'colonne_role' => $colonne_role,
-				'action' => 'insert',
-			);
-
-			// Envoyer aux plugins
-			$insertions = pipeline('pre_edition_lien',
-				array(
-					'args' => $args,
-					'data' => $insertions
-				)
-			);
-			$args['id_objet'] = $insertions['id_objet'];
-
-			$where = lien_where($primary, $id, $objet, $id_objet, $cond);
-
-			if (($id_objet = intval($insertions['id_objet']) or in_array($objet, ['site', 'rubrique']))
-				and !sql_getfetsel($primary, $table_lien, $where)
-			) {
-
-				if (lien_triables($table_lien) and isset($insertions['rang_lien']) and intval($insertions['rang_lien'])) {
-					// on decale les liens de rang_lien>=la valeur inseree pour faire la place
-					$w = lien_where($primary, '*', $objet, $id_objet, array('rang_lien>='.intval($insertions['rang_lien']),"$primary!=".intval($id)));
-					sql_update($table_lien, array('rang_lien'=>'rang_lien+1'), $w);
-				}
-
-				$e = sql_insertq($table_lien, $insertions);
-				if ($e !== false) {
-					$ins++;
-					lien_propage_date_modif($objet, $id_objet);
-					lien_propage_date_modif($objet_source, $id);
-					// Envoyer aux plugins
-					pipeline('post_edition_lien',
-						array(
-							'args' => $args,
-							'data' => $insertions
-						)
-					);
-				} else {
-					$echec = true;
-				}
-			}
-		}
-	}
-	// si on a fait des insertions, on reordonne les liens concernes
-	if ($ins>0) {
-		lien_ordonner($objet_source, $primary, $table_lien, $id, $objets);
-	}
-
-	return ($echec ? false : $ins);
+    $ins = 0;
+    $echec = null;
+    if (is_null($qualif)) {
+        $qualif = array();
+    }
+
+    foreach ($objets as $objet => $id_objets) {
+        if (!is_array($id_objets)) {
+            $id_objets = array($id_objets);
+        }
+
+        // role, colonne, where par défaut
+        list($role, $colonne_role, $cond) =
+            roles_trouver_dans_qualif($objet_source, $objet, $qualif);
+
+        foreach ($id_objets as $id_objet) {
+            $objet = (($objet == '*') ? $objet : objet_type($objet)); # securite
+
+            $insertions = array(
+                'id_objet' => $id_objet,
+                'objet' => $objet,
+                $primary => $id
+            );
+            // rôle en plus s'il est défini
+            if ($role) {
+                $insertions += array(
+                    $colonne_role => $role
+                );
+            }
+
+            if (lien_triables($table_lien)) {
+                $where = lien_where($primary, $id, $objet, $id_objet);
+                // si il y a deja un lien pour ce couple (avec un autre role?) on reprend le meme rang si non nul
+                if (!$rang = intval(sql_getfetsel('rang_lien', $table_lien, $where))) {
+                    $where = lien_where($primary, '*', $objet, $id_objet);
+                    $rang = intval(sql_getfetsel('max(rang_lien)', $table_lien, $where));
+                    // si aucun lien n'a de rang, on en introduit pas, on garde zero
+                    if ($rang>0) {
+                        $rang = intval($rang) + 1;
+                    }
+                }
+                $insertions['rang_lien'] = $rang;
+            }
+
+            $args = array(
+                'table_lien' => $table_lien,
+                'objet_source' => $objet_source,
+                'id_objet_source' => $id,
+                'objet' => $objet,
+                'id_objet' => $id_objet,
+                'role' => $role,
+                'colonne_role' => $colonne_role,
+                'action' => 'insert',
+            );
+
+            // Envoyer aux plugins
+            $insertions = pipeline('pre_edition_lien',
+                array(
+                    'args' => $args,
+                    'data' => $insertions
+                )
+            );
+            $args['id_objet'] = $insertions['id_objet'];
+
+            $where = lien_where($primary, $id, $objet, $id_objet, $cond);
+
+            if (($id_objet = intval($insertions['id_objet']) or in_array($objet, ['site', 'rubrique']))
+                and !sql_getfetsel($primary, $table_lien, $where)
+            ) {
+
+                if (lien_triables($table_lien) and isset($insertions['rang_lien']) and intval($insertions['rang_lien'])) {
+                    // on decale les liens de rang_lien>=la valeur inseree pour faire la place
+                    $w = lien_where($primary, '*', $objet, $id_objet, array('rang_lien>='.intval($insertions['rang_lien']),"$primary!=".intval($id)));
+                    sql_update($table_lien, array('rang_lien'=>'rang_lien+1'), $w);
+                }
+
+                $e = sql_insertq($table_lien, $insertions);
+                if ($e !== false) {
+                    $ins++;
+                    lien_propage_date_modif($objet, $id_objet);
+                    lien_propage_date_modif($objet_source, $id);
+                    // Envoyer aux plugins
+                    pipeline('post_edition_lien',
+                        array(
+                            'args' => $args,
+                            'data' => $insertions
+                        )
+                    );
+                } else {
+                    $echec = true;
+                }
+            }
+        }
+    }
+    // si on a fait des insertions, on reordonne les liens concernes
+    if ($ins>0) {
+        lien_ordonner($objet_source, $primary, $table_lien, $id, $objets);
+    }
+
+    return ($echec ? false : $ins);
 }
 
 
@@ -476,32 +476,32 @@ 
  * @param array|string $objets
  */
 function lien_ordonner($objet_source, $primary, $table_lien, $id, $objets) {
-	if (!lien_triables($table_lien)) {
-		return;
-	}
-
-	foreach ($objets as $objet => $id_objets) {
-		if (!is_array($id_objets)) {
-			$id_objets = array($id_objets);
-		}
-
-		foreach ($id_objets as $id_objet) {
-			$objet = (($objet == '*') ? $objet : objet_type($objet)); # securite
-
-			$where = lien_where($primary, '*', $objet, $id_objet);
-			$liens = sql_allfetsel("$primary, id_objet, objet, rang_lien", $table_lien, $where, $primary,"rang_lien");
-
-			$rangs = array_column($liens, 'rang_lien');
-			if (count($rangs) and (max($rangs)>0 or min($rangs)<0)) {
-				$rang = 1;
-				foreach ($liens as $lien) {
-					$where = lien_where($primary, $lien[$primary], $objet, $id_objet, array('rang_lien!='.intval($rang)));
-					sql_updateq($table_lien, array('rang_lien' => $rang), $where);
-					$rang++;
-				}
-			}
-		}
-	}
+    if (!lien_triables($table_lien)) {
+        return;
+    }
+
+    foreach ($objets as $objet => $id_objets) {
+        if (!is_array($id_objets)) {
+            $id_objets = array($id_objets);
+        }
+
+        foreach ($id_objets as $id_objet) {
+            $objet = (($objet == '*') ? $objet : objet_type($objet)); # securite
+
+            $where = lien_where($primary, '*', $objet, $id_objet);
+            $liens = sql_allfetsel("$primary, id_objet, objet, rang_lien", $table_lien, $where, $primary,"rang_lien");
+
+            $rangs = array_column($liens, 'rang_lien');
+            if (count($rangs) and (max($rangs)>0 or min($rangs)<0)) {
+                $rang = 1;
+                foreach ($liens as $lien) {
+                    $where = lien_where($primary, $lien[$primary], $objet, $id_objet, array('rang_lien!='.intval($rang)));
+                    sql_updateq($table_lien, array('rang_lien' => $rang), $where);
+                    $rang++;
+                }
+            }
+        }
+    }
 }
 
 
@@ -512,18 +512,18 @@ 
  * @return mixed
  */
 function lien_triables($table_lien) {
-	static $triables = array();
-	if (!isset($triables[$table_lien])) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-		$desc = $trouver_table($table_lien);
-		if ($desc and isset($desc['field']['rang_lien'])) {
-			$triables[$table_lien] = true;
-		}
-		else {
-			$triables[$table_lien] = false;
-		}
-	}
-	return $triables[$table_lien];
+    static $triables = array();
+    if (!isset($triables[$table_lien])) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+        $desc = $trouver_table($table_lien);
+        if ($desc and isset($desc['field']['rang_lien'])) {
+            $triables[$table_lien] = true;
+        }
+        else {
+            $triables[$table_lien] = false;
+        }
+    }
+    return $triables[$table_lien];
 }
 
 
@@ -539,45 +539,45 @@ 
  * @return array                        Liste des conditions
  */
 function lien_where($primary, $id_source, $objet, $id_objet, $cond = array()) {
-	if ((!is_array($id_source) and !strlen($id_source))
-		or !strlen($objet)
-		or (!is_array($id_objet) and !strlen($id_objet))
-	) {
-		return array("0=1");
-	} // securite
-
-	$not = "";
-	if (is_array($id_source) and reset($id_source) == "NOT") {
-		$not = array_shift($id_source);
-		$id_source = reset($id_source);
-	}
-
-	$where = $cond;
-
-	if ($id_source !== '*') {
-		$where[] = (is_array($id_source) ? sql_in(addslashes($primary), array_map('intval', $id_source),
-			$not) : addslashes($primary) . ($not ? "<>" : "=") . intval($id_source));
-	} elseif ($not) {
-		$where[] = "0=1";
-	} // idiot mais quand meme
-
-	$not = "";
-	if (is_array($id_objet) and reset($id_objet) == "NOT") {
-		$not = array_shift($id_objet);
-		$id_objet = reset($id_objet);
-	}
-
-	if ($objet !== '*') {
-		$where[] = "objet=" . sql_quote($objet);
-	}
-	if ($id_objet !== '*') {
-		$where[] = (is_array($id_objet) ? sql_in('id_objet', array_map('intval', $id_objet),
-			$not) : "id_objet" . ($not ? "<>" : "=") . intval($id_objet));
-	} elseif ($not) {
-		$where[] = "0=1";
-	} // idiot mais quand meme
-
-	return $where;
+    if ((!is_array($id_source) and !strlen($id_source))
+        or !strlen($objet)
+        or (!is_array($id_objet) and !strlen($id_objet))
+    ) {
+        return array("0=1");
+    } // securite
+
+    $not = "";
+    if (is_array($id_source) and reset($id_source) == "NOT") {
+        $not = array_shift($id_source);
+        $id_source = reset($id_source);
+    }
+
+    $where = $cond;
+
+    if ($id_source !== '*') {
+        $where[] = (is_array($id_source) ? sql_in(addslashes($primary), array_map('intval', $id_source),
+            $not) : addslashes($primary) . ($not ? "<>" : "=") . intval($id_source));
+    } elseif ($not) {
+        $where[] = "0=1";
+    } // idiot mais quand meme
+
+    $not = "";
+    if (is_array($id_objet) and reset($id_objet) == "NOT") {
+        $not = array_shift($id_objet);
+        $id_objet = reset($id_objet);
+    }
+
+    if ($objet !== '*') {
+        $where[] = "objet=" . sql_quote($objet);
+    }
+    if ($id_objet !== '*') {
+        $where[] = (is_array($id_objet) ? sql_in('id_objet', array_map('intval', $id_objet),
+            $not) : "id_objet" . ($not ? "<>" : "=") . intval($id_objet));
+    } elseif ($not) {
+        $where[] = "0=1";
+    } // idiot mais quand meme
+
+    return $where;
 }
 
 /**
@@ -608,89 +608,89 @@ 
  */
 function lien_delete($objet_source, $primary, $table_lien, $id, $objets, $cond = null) {
 
-	$retire = array();
-	$dels = 0;
-	$echec = false;
-	if (is_null($cond)) {
-		$cond = array();
-	}
-
-	foreach ($objets as $objet => $id_objets) {
-		$objet = ($objet == '*') ? $objet : objet_type($objet); # securite
-		if (!is_array($id_objets) or reset($id_objets) == "NOT") {
-			$id_objets = array($id_objets);
-		}
-		foreach ($id_objets as $id_objet) {
-			list($cond, $colonne_role, $role) = roles_creer_condition_role($objet_source, $objet, $cond);
-			// id_objet peut valoir '*'
-			$where = lien_where($primary, $id, $objet, $id_objet, $cond);
-
-			// lire les liens existants pour propager la date de modif
-			$select = "$primary,id_objet,objet";
-			if ($colonne_role) {
-				$select .= ",$colonne_role";
-			}
-			$liens = sql_allfetsel($select, $table_lien, $where);
-
-			// iterer sur les liens pour permettre aux plugins de gerer
-			foreach ($liens as $l) {
-
-				$args = array(
-					'table_lien' => $table_lien,
-					'objet_source' => $objet_source,
-					'id_objet_source' => $l[$primary],
-					'objet' => $l['objet'],
-					'id_objet' => $l['id_objet'],
-					'colonne_role' => $colonne_role,
-					'role' => ($colonne_role ? $l[$colonne_role] : ''),
-					'action' => 'delete',
-				);
-
-				// Envoyer aux plugins
-				$l = pipeline('pre_edition_lien',
-					array(
-						'args' => $args,
-						'data' => $l
-					)
-				);
-				$args['id_objet'] = $id_o = $l['id_objet'];
-
-				if ($id_o = intval($l['id_objet']) or in_array($l['objet'], ['site', 'rubrique'])) {
-					$where = lien_where($primary, $l[$primary], $l['objet'], $id_o, $cond);
-					$e = sql_delete($table_lien, $where);
-					if ($e !== false) {
-						$dels += $e;
-						lien_propage_date_modif($l['objet'], $id_o);
-						lien_propage_date_modif($objet_source, $l[$primary]);
-					} else {
-						$echec = true;
-					}
-					$retire[] = array(
-						'source' => array($objet_source => $l[$primary]),
-						'lien' => array($l['objet'] => $id_o),
-						'type' => $l['objet'],
-						'role' => ($colonne_role ? $l[$colonne_role] : ''),
-						'id' => $id_o
-					);
-					// Envoyer aux plugins
-					pipeline('post_edition_lien',
-						array(
-							'args' => $args,
-							'data' => $l
-						)
-					);
-				}
-			}
-		}
-	}
-	// si on a supprime des liens, on reordonne les liens concernes
-	if ($dels) {
-		lien_ordonner($objet_source, $primary, $table_lien, $id, $objets);
-	}
-
-	pipeline('trig_supprimer_objets_lies', $retire);
-
-	return ($echec ? false : $dels);
+    $retire = array();
+    $dels = 0;
+    $echec = false;
+    if (is_null($cond)) {
+        $cond = array();
+    }
+
+    foreach ($objets as $objet => $id_objets) {
+        $objet = ($objet == '*') ? $objet : objet_type($objet); # securite
+        if (!is_array($id_objets) or reset($id_objets) == "NOT") {
+            $id_objets = array($id_objets);
+        }
+        foreach ($id_objets as $id_objet) {
+            list($cond, $colonne_role, $role) = roles_creer_condition_role($objet_source, $objet, $cond);
+            // id_objet peut valoir '*'
+            $where = lien_where($primary, $id, $objet, $id_objet, $cond);
+
+            // lire les liens existants pour propager la date de modif
+            $select = "$primary,id_objet,objet";
+            if ($colonne_role) {
+                $select .= ",$colonne_role";
+            }
+            $liens = sql_allfetsel($select, $table_lien, $where);
+
+            // iterer sur les liens pour permettre aux plugins de gerer
+            foreach ($liens as $l) {
+
+                $args = array(
+                    'table_lien' => $table_lien,
+                    'objet_source' => $objet_source,
+                    'id_objet_source' => $l[$primary],
+                    'objet' => $l['objet'],
+                    'id_objet' => $l['id_objet'],
+                    'colonne_role' => $colonne_role,
+                    'role' => ($colonne_role ? $l[$colonne_role] : ''),
+                    'action' => 'delete',
+                );
+
+                // Envoyer aux plugins
+                $l = pipeline('pre_edition_lien',
+                    array(
+                        'args' => $args,
+                        'data' => $l
+                    )
+                );
+                $args['id_objet'] = $id_o = $l['id_objet'];
+
+                if ($id_o = intval($l['id_objet']) or in_array($l['objet'], ['site', 'rubrique'])) {
+                    $where = lien_where($primary, $l[$primary], $l['objet'], $id_o, $cond);
+                    $e = sql_delete($table_lien, $where);
+                    if ($e !== false) {
+                        $dels += $e;
+                        lien_propage_date_modif($l['objet'], $id_o);
+                        lien_propage_date_modif($objet_source, $l[$primary]);
+                    } else {
+                        $echec = true;
+                    }
+                    $retire[] = array(
+                        'source' => array($objet_source => $l[$primary]),
+                        'lien' => array($l['objet'] => $id_o),
+                        'type' => $l['objet'],
+                        'role' => ($colonne_role ? $l[$colonne_role] : ''),
+                        'id' => $id_o
+                    );
+                    // Envoyer aux plugins
+                    pipeline('post_edition_lien',
+                        array(
+                            'args' => $args,
+                            'data' => $l
+                        )
+                    );
+                }
+            }
+        }
+    }
+    // si on a supprime des liens, on reordonne les liens concernes
+    if ($dels) {
+        lien_ordonner($objet_source, $primary, $table_lien, $id, $objets);
+    }
+
+    pipeline('trig_supprimer_objets_lies', $retire);
+
+    return ($echec ? false : $dels);
 }
 
 
@@ -713,61 +713,61 @@ 
  * @return bool|int
  */
 function lien_optimise($objet_source, $primary, $table_lien, $id, $objets) {
-	include_spip('genie/optimiser');
-	$echec = false;
-	$dels = 0;
-	foreach ($objets as $objet => $id_objets) {
-		$objet = ($objet == '*') ? $objet : objet_type($objet); # securite
-		if (!is_array($id_objets) or reset($id_objets) == "NOT") {
-			$id_objets = array($id_objets);
-		}
-		foreach ($id_objets as $id_objet) {
-			$where = lien_where($primary, $id, $objet, $id_objet);
-			# les liens vers un objet inexistant
-			$r = sql_select("DISTINCT objet", $table_lien, $where);
-			while ($t = sql_fetch($r)) {
-				$type = $t['objet'];
-				$spip_table_objet = table_objet_sql($type);
-				$id_table_objet = id_table_objet($type);
-				$res = sql_select("L.$primary AS id,L.id_objet",
-					// la condition de jointure inclue L.objet='xxx' pour ne joindre que les bonnes lignes
-					// du coups toutes les lignes avec un autre objet ont un id_xxx=NULL puisque LEFT JOIN
-					// il faut les eliminier en repetant la condition dans le where L.objet='xxx'
-					"$table_lien AS L
+    include_spip('genie/optimiser');
+    $echec = false;
+    $dels = 0;
+    foreach ($objets as $objet => $id_objets) {
+        $objet = ($objet == '*') ? $objet : objet_type($objet); # securite
+        if (!is_array($id_objets) or reset($id_objets) == "NOT") {
+            $id_objets = array($id_objets);
+        }
+        foreach ($id_objets as $id_objet) {
+            $where = lien_where($primary, $id, $objet, $id_objet);
+            # les liens vers un objet inexistant
+            $r = sql_select("DISTINCT objet", $table_lien, $where);
+            while ($t = sql_fetch($r)) {
+                $type = $t['objet'];
+                $spip_table_objet = table_objet_sql($type);
+                $id_table_objet = id_table_objet($type);
+                $res = sql_select("L.$primary AS id,L.id_objet",
+                    // la condition de jointure inclue L.objet='xxx' pour ne joindre que les bonnes lignes
+                    // du coups toutes les lignes avec un autre objet ont un id_xxx=NULL puisque LEFT JOIN
+                    // il faut les eliminier en repetant la condition dans le where L.objet='xxx'
+                    "$table_lien AS L
 									LEFT JOIN $spip_table_objet AS O
 										ON (O.$id_table_objet=L.id_objet AND L.objet=" . sql_quote($type) . ")",
-					"L.objet=" . sql_quote($type) . " AND O.$id_table_objet IS NULL");
-				// sur une cle primaire composee, pas d'autres solutions que de virer un a un
-				while ($row = sql_fetch($res)) {
-					if ($primary === 'id_document' and in_array($type, ['site', 'rubrique']) and !intval($row['id_objet'])) {
-						continue; // gaffe, c'est le logo du site ou des rubriques!
-					}
-					$e = sql_delete($table_lien,
-						array("$primary=" . $row['id'], "id_objet=" . $row['id_objet'], "objet=" . sql_quote($type)));
-					if ($e != false) {
-						$dels += $e;
-						spip_log(
-							"lien_optimise: Entree " . $row['id'] . "/" . $row['id_objet'] . "/$type supprimee dans la table $table_lien",
-							'genie'._LOG_INFO_IMPORTANTE
-						);
-					}
-				}
-			}
-
-			# les liens depuis un objet inexistant
-			$table_source = table_objet_sql($objet_source);
-			// filtrer selon $id, $objet, $id_objet eventuellement fournis
-			// (en general '*' pour chaque)
-			$where = lien_where("L.$primary", $id, $objet, $id_objet);
-			$where[] = "O.$primary IS NULL";
-			$res = sql_select("L.$primary AS id",
-				"$table_lien AS L LEFT JOIN $table_source AS O ON L.$primary=O.$primary",
-				$where);
-			$dels += optimiser_sansref($table_lien, $primary, $res);
-		}
-	}
-
-	return ($echec ? false : $dels);
+                    "L.objet=" . sql_quote($type) . " AND O.$id_table_objet IS NULL");
+                // sur une cle primaire composee, pas d'autres solutions que de virer un a un
+                while ($row = sql_fetch($res)) {
+                    if ($primary === 'id_document' and in_array($type, ['site', 'rubrique']) and !intval($row['id_objet'])) {
+                        continue; // gaffe, c'est le logo du site ou des rubriques!
+                    }
+                    $e = sql_delete($table_lien,
+                        array("$primary=" . $row['id'], "id_objet=" . $row['id_objet'], "objet=" . sql_quote($type)));
+                    if ($e != false) {
+                        $dels += $e;
+                        spip_log(
+                            "lien_optimise: Entree " . $row['id'] . "/" . $row['id_objet'] . "/$type supprimee dans la table $table_lien",
+                            'genie'._LOG_INFO_IMPORTANTE
+                        );
+                    }
+                }
+            }
+
+            # les liens depuis un objet inexistant
+            $table_source = table_objet_sql($objet_source);
+            // filtrer selon $id, $objet, $id_objet eventuellement fournis
+            // (en general '*' pour chaque)
+            $where = lien_where("L.$primary", $id, $objet, $id_objet);
+            $where[] = "O.$primary IS NULL";
+            $res = sql_select("L.$primary AS id",
+                "$table_lien AS L LEFT JOIN $table_source AS O ON L.$primary=O.$primary",
+                $where);
+            $dels += optimiser_sansref($table_lien, $primary, $res);
+        }
+    }
+
+    return ($echec ? false : $dels);
 }
 
 
@@ -799,89 +799,89 @@ 
  *     Nombre de modifications faites, false si échec.
  */
 function lien_set($objet_source, $primary, $table_lien, $id, $objets, $qualif) {
-	$echec = null;
-	$ok = 0;
-	$reordonner = false;
-	if (!$qualif) {
-		return false;
-	}
-	// nettoyer qualif qui peut venir directement d'un objet_trouver_lien :
-	unset($qualif[$primary]);
-	unset($qualif[$objet_source]);
-	if (isset($qualif['objet'])) {
-		unset($qualif[$qualif['objet']]);
-	}
-	unset($qualif['objet']);
-	unset($qualif['id_objet']);
-	foreach ($objets as $objet => $id_objets) {
-
-		// role, colonne, where par défaut
-		list($role, $colonne_role, $cond) =
-			roles_trouver_dans_qualif($objet_source, $objet, $qualif);
-
-		$objet = ($objet == '*') ? $objet : objet_type($objet); # securite
-		if (!is_array($id_objets) or reset($id_objets) == "NOT") {
-			$id_objets = array($id_objets);
-		}
-		foreach ($id_objets as $id_objet) {
-
-			$args = array(
-				'table_lien' => $table_lien,
-				'objet_source' => $objet_source,
-				'id_objet_source' => $id,
-				'objet' => $objet,
-				'id_objet' => $id_objet,
-				'role' => $role,
-				'colonne_role' => $colonne_role,
-				'action' => 'modifier',
-			);
-
-			// Envoyer aux plugins
-			$qualif = pipeline('pre_edition_lien',
-				array(
-					'args' => $args,
-					'data' => $qualif,
-				)
-			);
-			$args['id_objet'] = $id_objet;
-
-			if (lien_triables($table_lien) and isset($qualif['rang_lien'])) {
-				if (intval($qualif['rang_lien'])) {
-					// on decale les liens de rang_lien>=la valeur inseree pour faire la place
-					$w = lien_where($primary, '*', $objet, $id_objet, array('rang_lien>='.intval($qualif['rang_lien']),"$primary!=".intval($id)));
-					sql_update($table_lien, array('rang_lien'=>'rang_lien+1'), $w);
-				}
-				// tous les liens de même rôle recoivent le rang indiqué aussi
-				if (roles_colonne($objet_source, $objet)) {
-					$w = lien_where($primary, $id, $objet, $id_objet);
-					sql_updateq($table_lien, array('rang_lien' => intval($qualif['rang_lien'])), $w);
-				}
-				$reordonner = true;
-			}
-
-			$where = lien_where($primary, $id, $objet, $id_objet, $cond);
-			$e = sql_updateq($table_lien, $qualif, $where);
-
-			if ($e === false) {
-				$echec = true;
-			} else {
-				// Envoyer aux plugins
-				pipeline('post_edition_lien',
-					array(
-						'args' => $args,
-						'data' => $qualif
-					)
-				);
-				$ok++;
-			}
-		}
-	}
-	// si on a fait des modif de rang, on reordonne les liens concernes
-	if ($reordonner) {
-		lien_ordonner($objet_source, $primary, $table_lien, $id, $objets);
-	}
-
-	return ($echec ? false : $ok);
+    $echec = null;
+    $ok = 0;
+    $reordonner = false;
+    if (!$qualif) {
+        return false;
+    }
+    // nettoyer qualif qui peut venir directement d'un objet_trouver_lien :
+    unset($qualif[$primary]);
+    unset($qualif[$objet_source]);
+    if (isset($qualif['objet'])) {
+        unset($qualif[$qualif['objet']]);
+    }
+    unset($qualif['objet']);
+    unset($qualif['id_objet']);
+    foreach ($objets as $objet => $id_objets) {
+
+        // role, colonne, where par défaut
+        list($role, $colonne_role, $cond) =
+            roles_trouver_dans_qualif($objet_source, $objet, $qualif);
+
+        $objet = ($objet == '*') ? $objet : objet_type($objet); # securite
+        if (!is_array($id_objets) or reset($id_objets) == "NOT") {
+            $id_objets = array($id_objets);
+        }
+        foreach ($id_objets as $id_objet) {
+
+            $args = array(
+                'table_lien' => $table_lien,
+                'objet_source' => $objet_source,
+                'id_objet_source' => $id,
+                'objet' => $objet,
+                'id_objet' => $id_objet,
+                'role' => $role,
+                'colonne_role' => $colonne_role,
+                'action' => 'modifier',
+            );
+
+            // Envoyer aux plugins
+            $qualif = pipeline('pre_edition_lien',
+                array(
+                    'args' => $args,
+                    'data' => $qualif,
+                )
+            );
+            $args['id_objet'] = $id_objet;
+
+            if (lien_triables($table_lien) and isset($qualif['rang_lien'])) {
+                if (intval($qualif['rang_lien'])) {
+                    // on decale les liens de rang_lien>=la valeur inseree pour faire la place
+                    $w = lien_where($primary, '*', $objet, $id_objet, array('rang_lien>='.intval($qualif['rang_lien']),"$primary!=".intval($id)));
+                    sql_update($table_lien, array('rang_lien'=>'rang_lien+1'), $w);
+                }
+                // tous les liens de même rôle recoivent le rang indiqué aussi
+                if (roles_colonne($objet_source, $objet)) {
+                    $w = lien_where($primary, $id, $objet, $id_objet);
+                    sql_updateq($table_lien, array('rang_lien' => intval($qualif['rang_lien'])), $w);
+                }
+                $reordonner = true;
+            }
+
+            $where = lien_where($primary, $id, $objet, $id_objet, $cond);
+            $e = sql_updateq($table_lien, $qualif, $where);
+
+            if ($e === false) {
+                $echec = true;
+            } else {
+                // Envoyer aux plugins
+                pipeline('post_edition_lien',
+                    array(
+                        'args' => $args,
+                        'data' => $qualif
+                    )
+                );
+                $ok++;
+            }
+        }
+    }
+    // si on a fait des modif de rang, on reordonne les liens concernes
+    if ($reordonner) {
+        lien_ordonner($objet_source, $primary, $table_lien, $id, $objets);
+    }
+
+    return ($echec ? false : $ok);
 }
 
 /**
@@ -911,23 +911,23 @@ 
  * @return array
  */
 function lien_find($objet_source, $primary, $table_lien, $id, $objets, $cond = null) {
-	$trouve = array();
-	foreach ($objets as $objet => $id_objets) {
-		$objet = ($objet == '*') ? $objet : objet_type($objet); # securite
-		// gerer les roles s'il y en a dans $cond
-		list($cond) = roles_creer_condition_role($objet_source, $objet, $cond, true);
-		// lien_where prend en charge les $id_objets sous forme int ou array
-		$where = lien_where($primary, $id, $objet, $id_objets, $cond);
-		$liens = sql_allfetsel('*', $table_lien, $where);
-		// ajouter les entrees objet_source et objet cible par convenance
-		foreach ($liens as $l) {
-			$l[$objet_source] = $l[$primary];
-			$l[$l['objet']] = $l['id_objet'];
-			$trouve[] = $l;
-		}
-	}
-
-	return $trouve;
+    $trouve = array();
+    foreach ($objets as $objet => $id_objets) {
+        $objet = ($objet == '*') ? $objet : objet_type($objet); # securite
+        // gerer les roles s'il y en a dans $cond
+        list($cond) = roles_creer_condition_role($objet_source, $objet, $cond, true);
+        // lien_where prend en charge les $id_objets sous forme int ou array
+        $where = lien_where($primary, $id, $objet, $id_objets, $cond);
+        $liens = sql_allfetsel('*', $table_lien, $where);
+        // ajouter les entrees objet_source et objet cible par convenance
+        foreach ($liens as $l) {
+            $l[$objet_source] = $l[$primary];
+            $l[$l['objet']] = $l['id_objet'];
+            $trouve[] = $l;
+        }
+    }
+
+    return $trouve;
 }
 
 /**
@@ -938,25 +938,25 @@ 
  * @param array|int $ids
  */
 function lien_propage_date_modif($objet, $ids) {
-	static $done = array();
-	$hash = md5($objet . serialize($ids));
-
-	// sql_updateq, peut être un rien lent.
-	// On évite de l'appeler 2 fois sur les mêmes choses
-	if (isset($done[$hash])) {
-		return;
-	}
-
-	$trouver_table = charger_fonction('trouver_table', 'base');
-
-	$table = table_objet_sql($objet);
-	if ($desc = $trouver_table($table)
-		and isset($desc['field']['date_modif'])
-	) {
-		$primary = id_table_objet($objet);
-		$where = (is_array($ids) ? sql_in($primary, array_map('intval', $ids)) : "$primary=" . intval($ids));
-		sql_updateq($table, array('date_modif' => date('Y-m-d H:i:s')), $where);
-	}
-
-	$done[$hash] = true;
+    static $done = array();
+    $hash = md5($objet . serialize($ids));
+
+    // sql_updateq, peut être un rien lent.
+    // On évite de l'appeler 2 fois sur les mêmes choses
+    if (isset($done[$hash])) {
+        return;
+    }
+
+    $trouver_table = charger_fonction('trouver_table', 'base');
+
+    $table = table_objet_sql($objet);
+    if ($desc = $trouver_table($table)
+        and isset($desc['field']['date_modif'])
+    ) {
+        $primary = id_table_objet($objet);
+        $where = (is_array($ids) ? sql_in($primary, array_map('intval', $ids)) : "$primary=" . intval($ids));
+        sql_updateq($table, array('date_modif' => date('Y-m-d H:i:s')), $where);
+    }
+
+    $done[$hash] = true;
 }

ecrire/public/decompiler.php

Indentation +174 added lines, -174 removed lines

@@ -11,129 +11,129 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // Decompilation de l'arbre de syntaxe abstraite d'un squelette SPIP
 
 function decompiler_boucle($struct, $fmt = '', $prof = 0) {
-	$nom = $struct->id_boucle;
-	$preaff = decompiler_($struct->preaff, $fmt, $prof);
-	$avant = decompiler_($struct->avant, $fmt, $prof);
-	$apres = decompiler_($struct->apres, $fmt, $prof);
-	$altern = decompiler_($struct->altern, $fmt, $prof);
-	$milieu = decompiler_($struct->milieu, $fmt, $prof);
-	$postaff = decompiler_($struct->postaff, $fmt, $prof);
-
-	$type = $struct->sql_serveur ? "$struct->sql_serveur:" : '';
-	$type .= ($struct->type_requete ? $struct->type_requete :
-		$struct->table_optionnelle);
-
-	if ($struct->jointures_explicites) {
-		$type .= " " . $struct->jointures_explicites;
-	}
-	if ($struct->table_optionnelle) {
-		$type .= "?";
-	}
-	// Revoir le cas de la boucle recursive
-
-	$crit = $struct->param;
-	if ($crit and !is_array($crit[0])) {
-		$type = strtolower($type) . array_shift($crit);
-	}
-	$crit = decompiler_criteres($struct, $fmt, $prof);
-
-	$f = 'format_boucle_' . $fmt;
-
-	return $f($preaff, $avant, $nom, $type, $crit, $milieu, $apres, $altern, $postaff, $prof);
+    $nom = $struct->id_boucle;
+    $preaff = decompiler_($struct->preaff, $fmt, $prof);
+    $avant = decompiler_($struct->avant, $fmt, $prof);
+    $apres = decompiler_($struct->apres, $fmt, $prof);
+    $altern = decompiler_($struct->altern, $fmt, $prof);
+    $milieu = decompiler_($struct->milieu, $fmt, $prof);
+    $postaff = decompiler_($struct->postaff, $fmt, $prof);
+
+    $type = $struct->sql_serveur ? "$struct->sql_serveur:" : '';
+    $type .= ($struct->type_requete ? $struct->type_requete :
+        $struct->table_optionnelle);
+
+    if ($struct->jointures_explicites) {
+        $type .= " " . $struct->jointures_explicites;
+    }
+    if ($struct->table_optionnelle) {
+        $type .= "?";
+    }
+    // Revoir le cas de la boucle recursive
+
+    $crit = $struct->param;
+    if ($crit and !is_array($crit[0])) {
+        $type = strtolower($type) . array_shift($crit);
+    }
+    $crit = decompiler_criteres($struct, $fmt, $prof);
+
+    $f = 'format_boucle_' . $fmt;
+
+    return $f($preaff, $avant, $nom, $type, $crit, $milieu, $apres, $altern, $postaff, $prof);
 }
 
 function decompiler_include($struct, $fmt = '', $prof = 0) {
-	$res = array();
-	foreach ($struct->param ? $struct->param : array() as $couple) {
-		array_shift($couple);
-		foreach ($couple as $v) {
-			$res[] = decompiler_($v, $fmt, $prof);
-		}
-	}
-	$file = is_string($struct->texte) ? $struct->texte :
-		decompiler_($struct->texte, $fmt, $prof);
-	$f = 'format_inclure_' . $fmt;
-
-	return $f($file, $res, $prof);
+    $res = array();
+    foreach ($struct->param ? $struct->param : array() as $couple) {
+        array_shift($couple);
+        foreach ($couple as $v) {
+            $res[] = decompiler_($v, $fmt, $prof);
+        }
+    }
+    $file = is_string($struct->texte) ? $struct->texte :
+        decompiler_($struct->texte, $fmt, $prof);
+    $f = 'format_inclure_' . $fmt;
+
+    return $f($file, $res, $prof);
 }
 
 function decompiler_texte($struct, $fmt = '', $prof = 0) {
-	$f = 'format_texte_' . $fmt;
+    $f = 'format_texte_' . $fmt;
 
-	return strlen($struct->texte) ? $f($struct->texte, $prof) : '';
+    return strlen($struct->texte) ? $f($struct->texte, $prof) : '';
 }
 
 function decompiler_polyglotte($struct, $fmt = '', $prof = 0) {
-	$f = 'format_polyglotte_' . $fmt;
+    $f = 'format_polyglotte_' . $fmt;
 
-	return $f($struct->traductions, $prof);
+    return $f($struct->traductions, $prof);
 }
 
 function decompiler_idiome($struct, $fmt = '', $prof = 0) {
-	$args = array();
-	foreach ($struct->arg as $k => $v) {
-		$args[$k] = public_decompiler($v, $fmt, $prof);
-	}
+    $args = array();
+    foreach ($struct->arg as $k => $v) {
+        $args[$k] = public_decompiler($v, $fmt, $prof);
+    }
 
-	$filtres = decompiler_liste($struct->param, $fmt, $prof);
+    $filtres = decompiler_liste($struct->param, $fmt, $prof);
 
-	$f = 'format_idiome_' . $fmt;
+    $f = 'format_idiome_' . $fmt;
 
-	return $f($struct->nom_champ, $struct->module, $args, $filtres, $prof);
+    return $f($struct->nom_champ, $struct->module, $args, $filtres, $prof);
 }
 
 function decompiler_champ($struct, $fmt = '', $prof = 0) {
-	$avant = decompiler_($struct->avant, $fmt, $prof);
-	$apres = decompiler_($struct->apres, $fmt, $prof);
-	$args = $filtres = '';
-	if ($p = $struct->param) {
-		if ($p[0][0] === '') {
-			$args = decompiler_liste(array(array_shift($p)), $fmt, $prof);
-		}
-		$filtres = decompiler_liste($p, $fmt, $prof);
-	}
-	$f = 'format_champ_' . $fmt;
-
-	return $f($struct->nom_champ, $struct->nom_boucle, $struct->etoile, $avant, $apres, $args, $filtres, $prof);
+    $avant = decompiler_($struct->avant, $fmt, $prof);
+    $apres = decompiler_($struct->apres, $fmt, $prof);
+    $args = $filtres = '';
+    if ($p = $struct->param) {
+        if ($p[0][0] === '') {
+            $args = decompiler_liste(array(array_shift($p)), $fmt, $prof);
+        }
+        $filtres = decompiler_liste($p, $fmt, $prof);
+    }
+    $f = 'format_champ_' . $fmt;
+
+    return $f($struct->nom_champ, $struct->nom_boucle, $struct->etoile, $avant, $apres, $args, $filtres, $prof);
 }
 
 function decompiler_liste($sources, $fmt = '', $prof = 0) {
-	if (!is_array($sources)) {
-		return '';
-	}
-	$f = 'format_liste_' . $fmt;
-	$res = '';
-	foreach ($sources as $arg) {
-		if (!is_array($arg)) {
-			continue; // ne devrait pas arriver.
-		} else {
-			$r = array_shift($arg);
-		}
-		$args = array();
-		foreach ($arg as $v) {
-			// cas des arguments entoures de ' ou "
-			if ((count($v) == 1)
-				and $v[0]->type == 'texte'
-				and (strlen($v[0]->apres) == 1)
-				and $v[0]->apres == $v[0]->avant
-			) {
-				$args[] = $v[0]->avant . $v[0]->texte . $v[0]->apres;
-			} else {
-				$args[] = decompiler_($v, $fmt, 0 - $prof);
-			}
-		}
-		if (($r !== '') or $args) {
-			$res .= $f($r, $args, $prof);
-		}
-	}
-
-	return $res;
+    if (!is_array($sources)) {
+        return '';
+    }
+    $f = 'format_liste_' . $fmt;
+    $res = '';
+    foreach ($sources as $arg) {
+        if (!is_array($arg)) {
+            continue; // ne devrait pas arriver.
+        } else {
+            $r = array_shift($arg);
+        }
+        $args = array();
+        foreach ($arg as $v) {
+            // cas des arguments entoures de ' ou "
+            if ((count($v) == 1)
+                and $v[0]->type == 'texte'
+                and (strlen($v[0]->apres) == 1)
+                and $v[0]->apres == $v[0]->avant
+            ) {
+                $args[] = $v[0]->avant . $v[0]->texte . $v[0]->apres;
+            } else {
+                $args[] = decompiler_($v, $fmt, 0 - $prof);
+            }
+        }
+        if (($r !== '') or $args) {
+            $res .= $f($r, $args, $prof);
+        }
+    }
+
+    return $res;
 }
 
 // Decompilation des criteres: on triche et on deroge:
@@ -141,91 +141,91 @@ 
 // - le champ apres signale le critere {"separateur"} ou {'separateur'}
 // - les champs sont implicitement etendus (crochets implicites mais interdits)
 function decompiler_criteres($boucle, $fmt = '', $prof = 0) {
-	$sources = $boucle->param;
-	if (!is_array($sources)) {
-		return '';
-	}
-	$res = '';
-	$f = 'format_critere_' . $fmt;
-	foreach ($sources as $crit) {
-		if (!is_array($crit)) {
-			continue;
-		} // boucle recursive
-		array_shift($crit);
-		$args = array();
-		foreach ($crit as $i => $v) {
-			if ((count($v) == 1)
-				and $v[0]->type == 'texte'
-				and $v[0]->apres
-			) {
-				$args[] = array(array('texte', ($v[0]->apres . $v[0]->texte . $v[0]->apres)));
-			} else {
-				$res2 = array();
-				foreach ($v as $k => $p) {
-					if (isset($p->type)
-						and function_exists($d = 'decompiler_' . $p->type)
-					) {
-						$r = $d($p, $fmt, (0 - $prof), @$v[$k + 1]);
-						$res2[] = array($p->type, $r);
-					} else {
-						spip_log("critere $i / $k mal forme");
-					}
-				}
-				$args[] = $res2;
-			}
-		}
-		$res .= $f($args);
-	}
-
-	return $res;
+    $sources = $boucle->param;
+    if (!is_array($sources)) {
+        return '';
+    }
+    $res = '';
+    $f = 'format_critere_' . $fmt;
+    foreach ($sources as $crit) {
+        if (!is_array($crit)) {
+            continue;
+        } // boucle recursive
+        array_shift($crit);
+        $args = array();
+        foreach ($crit as $i => $v) {
+            if ((count($v) == 1)
+                and $v[0]->type == 'texte'
+                and $v[0]->apres
+            ) {
+                $args[] = array(array('texte', ($v[0]->apres . $v[0]->texte . $v[0]->apres)));
+            } else {
+                $res2 = array();
+                foreach ($v as $k => $p) {
+                    if (isset($p->type)
+                        and function_exists($d = 'decompiler_' . $p->type)
+                    ) {
+                        $r = $d($p, $fmt, (0 - $prof), @$v[$k + 1]);
+                        $res2[] = array($p->type, $r);
+                    } else {
+                        spip_log("critere $i / $k mal forme");
+                    }
+                }
+                $args[] = $res2;
+            }
+        }
+        $res .= $f($args);
+    }
+
+    return $res;
 }
 
 
 function decompiler_($liste, $fmt = '', $prof = 0) {
-	if (!is_array($liste)) {
-		return '';
-	}
-	$prof2 = ($prof < 0) ? ($prof - 1) : ($prof + 1);
-	$contenu = array();
-	foreach ($liste as $k => $p) {
-		if (!isset($p->type)) {
-			continue;
-		} #??????
-		$d = 'decompiler_' . $p->type;
-		$next = isset($liste[$k + 1]) ? $liste[$k + 1] : false;
-		// Forcer le champ etendu si son source (pas les reecritures)
-		// contenait des args et s'il est suivi d'espaces,
-		// le champ simple les eliminant est un bug helas perenne.
-
-		if ($next
-			and ($next->type == 'texte')
-			and $p->type == 'champ'
-			and !$p->apres
-			and !$p->avant
-			and $p->fonctions
-		) {
-			$n = strlen($next->texte) - strlen(ltrim($next->texte));
-			if ($n) {
-				$champ = new Texte;
-				$champ->texte = substr($next->texte, 0, $n);
-				$champ->ligne = $p->ligne;
-				$p->apres = array($champ);
-				$next->texte = substr($next->texte, $n);
-			}
-		}
-		$contenu[] = array($d($p, $fmt, $prof2), $p->type);
-
-	}
-	$f = 'format_suite_' . $fmt;
-
-	return $f($contenu);
+    if (!is_array($liste)) {
+        return '';
+    }
+    $prof2 = ($prof < 0) ? ($prof - 1) : ($prof + 1);
+    $contenu = array();
+    foreach ($liste as $k => $p) {
+        if (!isset($p->type)) {
+            continue;
+        } #??????
+        $d = 'decompiler_' . $p->type;
+        $next = isset($liste[$k + 1]) ? $liste[$k + 1] : false;
+        // Forcer le champ etendu si son source (pas les reecritures)
+        // contenait des args et s'il est suivi d'espaces,
+        // le champ simple les eliminant est un bug helas perenne.
+
+        if ($next
+            and ($next->type == 'texte')
+            and $p->type == 'champ'
+            and !$p->apres
+            and !$p->avant
+            and $p->fonctions
+        ) {
+            $n = strlen($next->texte) - strlen(ltrim($next->texte));
+            if ($n) {
+                $champ = new Texte;
+                $champ->texte = substr($next->texte, 0, $n);
+                $champ->ligne = $p->ligne;
+                $p->apres = array($champ);
+                $next->texte = substr($next->texte, $n);
+            }
+        }
+        $contenu[] = array($d($p, $fmt, $prof2), $p->type);
+
+    }
+    $f = 'format_suite_' . $fmt;
+
+    return $f($contenu);
 }
 
 function public_decompiler($liste, $fmt = '', $prof = 0, $quoi = '') {
-	if (!include_spip('public/format_' . $fmt)) {
-		return "'$fmt'?";
-	}
-	$f = 'decompiler_' . $quoi;
+    if (!include_spip('public/format_' . $fmt)) {
+        return "'$fmt'?";
+    }
+    $f = 'decompiler_' . $quoi;
 
-	return $f($liste, $fmt, $prof);
+    return $f($liste, $fmt, $prof);
 }