-<?php\r
-\r
-/***************************************************************************\\r
- * SPIP, Systeme de publication pour l'internet *\r
- * *\r
- * Copyright (c) 2001-2016 *\r
- * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *\r
- * *\r
- * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *\r
- * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *\r
-\***************************************************************************/\r
-\r
-if (!defined("_ECRIRE_INC_VERSION")) return;\r
-\r
-\r
-// On liste tous les champs susceptibles de contenir des documents ou images si on veut que ces derniers soient lies a l objet lorsqu on y fait reference par imgXX docXX ou embXX\r
-// la dist ne regarde que chapo et texte, on laisse comme ca, mais ca permet d etendre a descriptif ou toto depuis d autre plugin comme agenda ou grappe\r
-$GLOBALS['medias_liste_champs'][] = 'texte';\r
-$GLOBALS['medias_liste_champs'][] = 'chapo';\r
- \r
-// https://code.spip.net/@marquer_doublons_documents\r
-function inc_marquer_doublons_doc_dist($champs,$id,$type,$id_table_objet,$table_objet,$spip_table_objet, $desc=array(), $serveur=''){\r
- $champs_selection=array();\r
-\r
- foreach ($GLOBALS['medias_liste_champs'] as $champs_choisis) {\r
- if ( isset($champs[$champs_choisis]) )\r
- array_push($champs_selection,$champs_choisis);\r
- }\r
- if (count($champs_selection) == 0)\r
- return;\r
- if (!$desc){\r
- $trouver_table = charger_fonction('trouver_table', 'base');\r
- $desc = $trouver_table($table_objet, $serveur);\r
- }\r
- $load = "";\r
- // charger le champ manquant en cas de modif partielle de l 'objet\r
- // seulement si le champ existe dans la table demande\r
-\r
- $champs_a_traiter = "";\r
- foreach ($champs_selection as $champs_a_parcourir) {\r
- if (isset($desc['field'][$champs_a_parcourir])) {\r
- $load = $champs_a_parcourir;\r
- $champs_a_traiter .= $champs[$champs_a_parcourir];\r
- }\r
- }\r
-\r
- if ($load){\r
- $champs[$load] = "";\r
- $row = sql_fetsel($load, $spip_table_objet, "$id_table_objet=".sql_quote($id));\r
- if ($row AND isset($row[$load]))\r
- $champs[$load] = $row[$load];\r
- }\r
- include_spip('inc/texte');\r
- include_spip('base/abstract_sql');\r
- include_spip('action/editer_liens');\r
- include_spip('base/objets');\r
- $modeles = lister_tables_objets_sql('spip_documents');\r
- $modeles = $modeles['modeles'];\r
- $GLOBALS['doublons_documents_inclus'] = array();\r
- $env = array(\r
- 'objet' => $type,\r
- 'id_objet' => $id,\r
- $id_table_objet => $id\r
- );\r
- traiter_modeles($champs_a_traiter,array('documents'=>$modeles),'','',null,$env); // detecter les doublons\r
- objet_qualifier_liens(array('document'=>'*'),array($type=>$id),array('vu'=>'non'));\r
- if (count($GLOBALS['doublons_documents_inclus'])){\r
- // on repasse par une requete sur spip_documents pour verifier que les documents existent bien !\r
- $in_liste = sql_in('id_document',$GLOBALS['doublons_documents_inclus']);\r
- $res = sql_allfetsel("id_document", "spip_documents", $in_liste);\r
- $res = array_map('reset',$res);\r
- // Creer le lien s'il n'existe pas deja\r
- objet_associer(array('document'=>$res),array($type=>$id),array('vu'=>'oui'));\r
- objet_qualifier_liens(array('document'=>$res),array($type=>$id),array('vu'=>'oui'));\r
- }\r
-}\r
-\r
-?>
\ No newline at end of file
+<?php
+
+/***************************************************************************\
+ * SPIP, Systeme de publication pour l'internet *
+ * *
+ * Copyright (c) 2001-2016 *
+ * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
+ * *
+ * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
+ * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
+\***************************************************************************/
+
+/**
+ * Analyse des textes pour trouver et marquer comme vu les documents utilisés dedans
+ *
+ * @package SPIP\Medias\Fonctions
+ **/
+
+if (!defined('_ECRIRE_INC_VERSION')) {
+ return;
+}
+
+// la dist ne regarde que chapo et texte, on laisse comme ca,
+// mais ca permet d etendre a descriptif ou toto depuis d autres plugins
+$GLOBALS['medias_liste_champs'][] = 'texte';
+$GLOBALS['medias_liste_champs'][] = 'chapo';
+
+/**
+ * Trouver les documents utilisés dans le texte d'un objet et enregistrer cette liaison comme vue.
+ *
+ * La liste des champs susceptibles de contenir des documents ou images est indiquée
+ * par la globale `medias_liste_champs` (un tableau).
+ *
+ * Le contenu de ces champs (du moins ceux qui existent pour l'objet demandé) est récupéré et analysé.
+ * La présence d'un modèle de document dans ces contenus, tel que imgXX, docXX ou embXX
+ * indique que le document est utilisé et doit être lié à l'objet, avec le champ `vu=oui`
+ *
+ * S'il y avait des anciens liens avec vu=oui qui n'ont plus lieu d'être, ils passent à non.
+ *
+ * @note
+ * La fonction pourrait avoir bien moins d'arguments : seuls $champs, $id, $type ou $objet, $desc, $serveur
+ * sont nécessaires. On calcule $desc s'il est absent, et il contient toutes les infos…
+ *
+ * @param array $champs
+ * Couples [champ => valeur] connus de l'objet
+ * @param int $id
+ * Identifiant de l'objet
+ * @param string $type
+ * Type d'objet éditorial (ex: article)
+ * @param string $id_table_objet
+ * Nom de la clé primaire sur la table sql de l'objet
+ * @param string $table_objet
+ * Nom de l'objet éditorial (ex: articles)
+ * @param string $spip_table_objet
+ * Nom de la table sql de l'objet
+ * @param array $desc
+ * Description de l'objet, si déjà calculé
+ * @param string $serveur
+ * Serveur sql utilisé.
+ * @return void|null
+ **/
+function inc_marquer_doublons_doc_dist(
+ $champs,
+ $id,
+ $type,
+ $id_table_objet,
+ $table_objet,
+ $spip_table_objet,
+ $desc = array(),
+ $serveur = ''
+) {
+
+ // On conserve uniquement les champs qui modifient le calcul des doublons de documents
+ // S'il n'y en a aucun, les doublons ne sont pas impactés, donc rien à faire d'autre..
+ if (!$champs = array_intersect_key($champs, array_flip($GLOBALS['medias_liste_champs']))) {
+ return;
+ }
+
+ if (!$desc) {
+ $trouver_table = charger_fonction('trouver_table', 'base');
+ $desc = $trouver_table($table_objet, $serveur);
+ }
+
+ // Il faut récupérer toutes les données qui impactent les liens de documents vus
+ // afin de savoir lesquels sont présents dans les textes, et pouvoir actualiser avec
+ // les liens actuellement enregistrés.
+ $absents = array();
+
+ // Récupérer chaque champ impactant qui existe dans la table de l'objet et qui nous manque
+ foreach ($GLOBALS['medias_liste_champs'] as $champ) {
+ if (isset($desc['field'][$champ]) and !isset($champs[$champ])) {
+ $absents[] = $champ;
+ }
+ }
+
+ // Retrouver les textes des champs manquants
+ if ($absents) {
+ $row = sql_fetsel($absents, $spip_table_objet, "$id_table_objet=" . sql_quote($id));
+ if ($row) {
+ $champs = array_merge($row, $champs);
+ }
+ }
+
+ include_spip('inc/texte');
+ include_spip('base/abstract_sql');
+ include_spip('action/editer_liens');
+ include_spip('base/objets');
+
+ // récupérer la liste des modèles qui considèrent un document comme vu s'ils sont utilisés dans un texte
+ $modeles = lister_tables_objets_sql('spip_documents');
+ $modeles = $modeles['modeles'];
+
+ // liste d'id_documents trouvés dans les textes
+ $GLOBALS['doublons_documents_inclus'] = array();
+
+ // detecter les doublons dans ces textes
+ traiter_modeles(implode(' ', $champs), array('documents' => $modeles), '', '', null, array(
+ 'objet' => $type,
+ 'id_objet' => $id,
+ $id_table_objet => $id
+ ));
+
+ $texte_documents_vus = $GLOBALS['doublons_documents_inclus'];
+
+ // on ne modifie les liaisons que si c'est nécessaire
+ $bdd_documents_vus = array(
+ 'oui' => array(),
+ 'non' => array()
+ );
+
+ $liaisons = objet_trouver_liens(array('document' => '*'), array($type => $id));
+ foreach ($liaisons as $l) {
+ $bdd_documents_vus[$l['vu']][] = $l['id_document'];
+ }
+
+ // il y a des nouveaux documents vus dans le texte
+ $nouveaux = array_diff($texte_documents_vus, $bdd_documents_vus['oui']);
+
+ // il y a des anciens documents vus dans la bdd
+ $anciens = array_diff($bdd_documents_vus['oui'], $texte_documents_vus);
+
+ if ($nouveaux) {
+ // on vérifie que les documents indiqués vus existent réellement tout de même (en cas d'erreur de saisie)
+ $ids = sql_allfetsel('id_document', 'spip_documents', sql_in('id_document', $nouveaux));
+ $ids = array_map('reset', $ids);
+ if ($ids) {
+ // Creer le lien s'il n'existe pas déjà
+ objet_associer(array('document' => $ids), array($type => $id), array('vu' => 'oui'));
+ objet_qualifier_liens(array('document' => $ids), array($type => $id), array('vu' => 'oui'));
+ }
+ }
+
+ if ($anciens) {
+ objet_qualifier_liens(array('document' => $anciens), array($type => $id), array('vu' => 'non'));
+ }
+}