spip / SPIP

ecrire/action/editer_liens.php

Indentation +514 added lines, -514 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,7 +211,7 @@ 
  * @return int
  */
 function objet_optimiser_liens($objets_source, $objets_lies) {
-	return objet_traiter_liaisons('lien_optimise', $objets_source, $objets_lies);
+    return objet_traiter_liaisons('lien_optimise', $objets_source, $objets_lies);
 }
 
 
@@ -231,37 +231,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;
 }
 
 /**
@@ -303,38 +303,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
 }
 
 
@@ -363,106 +363,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 $objet=='site')
-				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 $objet=='site')
+                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);
 }
 
 
@@ -475,32 +475,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++;
+                }
+            }
+        }
+    }
 }
 
 
@@ -511,18 +511,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];
 }
 
 
@@ -538,45 +538,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;
 }
 
 /**
@@ -607,89 +607,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 $l['objet'] == 'site') {
-					$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 $l['objet'] == 'site') {
+                    $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);
 }
 
 
@@ -712,56 +712,56 @@ 
  * @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)) {
-					$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("Entree " . $row['id'] . "/" . $row['id_objet'] . "/$type supprimee dans la table $table_lien",
-							_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)) {
+                    $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("Entree " . $row['id'] . "/" . $row['id_objet'] . "/$type supprimee dans la table $table_lien",
+                            _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);
 }
 
 
@@ -793,89 +793,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);
 }
 
 /**
@@ -905,23 +905,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;
 }
 
 /**
@@ -932,25 +932,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;
 }

Spacing +17 added lines, -17 removed lines

@@ -52,7 +52,7 @@ 
 
 	$l = "";
 	if ($primary = id_table_objet($objet)
-		and $trouver_table($l = $table_sql . "_liens")
+		and $trouver_table($l = $table_sql."_liens")
 		and !preg_match(',[^\w],', $primary)
 		and !preg_match(',[^\w],', $l)
 	) {
@@ -400,7 +400,7 @@ 
 					$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) {
+					if ($rang > 0) {
 						$rang = intval($rang) + 1;
 					}
 				}
@@ -429,13 +429,13 @@ 
 
 			$where = lien_where($primary, $id, $objet, $id_objet, $cond);
 
-			if (($id_objet = intval($insertions['id_objet']) or $objet=='site')
+			if (($id_objet = intval($insertions['id_objet']) or $objet == 'site')
 				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)));
+					$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);
 				}
 
@@ -458,7 +458,7 @@ 
 		}
 	}
 	// si on a fait des insertions, on reordonne les liens concernes
-	if ($ins>0) {
+	if ($ins > 0) {
 		lien_ordonner($objet_source, $primary, $table_lien, $id, $objets);
 	}
 
@@ -488,10 +488,10 @@ 
 			$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");
+			$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)) {
+			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)));
@@ -555,7 +555,7 @@ 
 
 	if ($id_source !== '*') {
 		$where[] = (is_array($id_source) ? sql_in(addslashes($primary), array_map('intval', $id_source),
-			$not) : addslashes($primary) . ($not ? "<>" : "=") . intval($id_source));
+			$not) : addslashes($primary).($not ? "<>" : "=").intval($id_source));
 	} elseif ($not) {
 		$where[] = "0=1";
 	} // idiot mais quand meme
@@ -567,11 +567,11 @@ 
 	}
 
 	if ($objet !== '*') {
-		$where[] = "objet=" . sql_quote($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));
+			$not) : "id_objet".($not ? "<>" : "=").intval($id_objet));
 	} elseif ($not) {
 		$where[] = "0=1";
 	} // idiot mais quand meme
@@ -734,15 +734,15 @@ 
 					// 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");
+										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)) {
 					$e = sql_delete($table_lien,
-						array("$primary=" . $row['id'], "id_objet=" . $row['id_objet'], "objet=" . sql_quote($type)));
+						array("$primary=".$row['id'], "id_objet=".$row['id_objet'], "objet=".sql_quote($type)));
 					if ($e != false) {
 						$dels += $e;
-						spip_log("Entree " . $row['id'] . "/" . $row['id_objet'] . "/$type supprimee dans la table $table_lien",
+						spip_log("Entree ".$row['id']."/".$row['id_objet']."/$type supprimee dans la table $table_lien",
 							_LOG_INFO_IMPORTANTE);
 					}
 				}
@@ -842,7 +842,7 @@ 
 			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)));
+					$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
@@ -933,7 +933,7 @@ 
  */
 function lien_propage_date_modif($objet, $ids) {
 	static $done = array();
-	$hash = md5($objet . serialize($ids));
+	$hash = md5($objet.serialize($ids));
 
 	// sql_updateq, peut être un rien lent.
 	// On évite de l'appeler 2 fois sur les mêmes choses
@@ -948,7 +948,7 @@ 
 		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));
+		$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);
 	}