www/plugins-dist/medias/medias_fonctions.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2016                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   9  *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
  10  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
  11 \***************************************************************************/
  12
  13
  14 //
  15 // Ce fichier definit les boucles standard de SPIP
  16 //
  17
  18 if (!defined('_ECRIRE_INC_VERSION')) return;
  19
  20 // nettoyer les zip abandonnes par l'utilisateur
  21 if (isset($GLOBALS['visiteur_session']['zip_to_clean'])
  22   AND test_espace_prive()
  23   AND $_SERVER['REQUEST_METHOD']!=='POST'){
  24         $zip_to_clean = unserialize($GLOBALS['visiteur_session']['zip_to_clean']);
  25         if ($zip_to_clean){
  26                 foreach ($zip_to_clean as $zip){
  27                         if (@file_exists($zip))
  28                                 @unlink($zip);
  29                 }
  30         }
  31         session_set('zip_to_clean');
  32 }
  33
  34 /**
  35  * Afficher la puce de statut pour les documents
  36  *
  37  * @param unknown_type $id_document
  38  * @param unknown_type $statut
  39  * @param unknown_type $id_rubrique
  40  * @param unknown_type $type
  41  * @param unknown_type $ajax
  42  * @return unknown
  43  */
  44 function medias_puce_statut_document($id_document, $statut){
  45         if ($statut=='publie') {
  46                 $puce='puce-verte.gif';
  47         }
  48         else if ($statut == "prepa") {
  49                 $puce = 'puce-blanche.gif';
  50         }
  51         else if ($statut == "poubelle") {
  52                 $puce = 'puce-poubelle.gif';
  53         }
  54         else
  55                 $puce = 'puce-blanche.gif';
  56
  57         return http_img_pack($puce, $statut, "class='puce'");
  58 }
  59
  60 //
  61 // <BOUCLE(DOCUMENTS)>
  62 //
  63 // http://code.spip.net/@boucle_DOCUMENTS_dist
  64 function boucle_DOCUMENTS($id_boucle, &$boucles) {
  65         $boucle = &$boucles[$id_boucle];
  66         $id_table = $boucle->id_table;
  67
  68         // on ne veut pas des fichiers de taille nulle,
  69         // sauf s'ils sont distants (taille inconnue)
  70         array_unshift($boucle->where,array("'($id_table.taille > 0 OR $id_table.distant=\\'oui\\')'"));
  71
  72         /**
  73          * N'afficher que les modes de documents que l'on accepte
  74          * Utiliser le "pipeline medias_documents_visibles" pour en ajouter
  75          */
  76         if (!isset($boucle->modificateur['criteres']['mode'])
  77         AND !isset($boucle->modificateur['tout'])) {
  78                 $modes = pipeline('medias_documents_visibles',array('image','document'));
  79                 $f = sql_serveur('quote', $boucle->sql_serveur, true);
  80                 $modes = addslashes(join(',', array_map($f, array_unique($modes))));
  81                 array_unshift($boucle->where,array("'IN'", "'$id_table.mode'", "'($modes)'"));
  82         }
  83
  84         return calculer_boucle($id_boucle, $boucles);
  85 }
  86
  87
  88 function lien_objet($id,$type,$longueur=80,$connect=NULL){
  89         include_spip('inc/liens');
  90         $titre = traiter_raccourci_titre($id, $type, $connect);
  91         // lorsque l'objet n'est plus declare (plugin desactive par exemple)
  92         // le raccourcis n'est plus valide
  93         $titre = isset($titre['titre']) ? typo($titre['titre']) : '';
  94         if (!strlen($titre))
  95                 $titre = _T('info_sans_titre');
  96         $url = generer_url_entite($id,$type);
  97         return "<a href='$url' class='$type'>".couper($titre,$longueur)."</a>";
  98 }
  99
 100 /**
 101  * critere {orphelins} selectionne les documents sans liens avec un objet editorial
 102  *
 103  * @param string $idb
 104  * @param object $boucles
 105  * @param object $crit
 106  */
 107 function critere_DOCUMENTS_orphelins_dist($idb, &$boucles, $crit) {
 108
 109         $boucle = &$boucles[$idb];
 110         $cond = $crit->cond;
 111         $not = $crit->not?"":"NOT";
 112
 113         $select = sql_get_select("DISTINCT id_document","spip_documents_liens as oooo");
 114         $where = "'".$boucle->id_table.".id_document $not IN ($select)'";
 115         if ($cond){
 116                 $_quoi = '@$Pile[0]["orphelins"]';
 117                 $where = "($_quoi)?$where:''";
 118         }
 119
 120         $boucle->where[]= $where;
 121 }
 122
 123 /**
 124  * critere {portrait} qui selectionne
 125  * - les documents dont les dimensions sont connues
 126  * - les documents dont la hauteur est superieure a la largeur
 127  *
 128  * {!portrait} exclus ces documents
 129  *
 130  * @param string $idb
 131  * @param object $boucles
 132  * @param object $crit
 133  */
 134 function critere_DOCUMENTS_portrait_dist($idb, &$boucles, $crit) {
 135         $boucle = &$boucles[$idb];
 136         $table = $boucle->id_table;
 137         $not = ($crit->not?"NOT ":"");
 138         $boucle->where[] = "'$not($table.largeur>0 AND $table.hauteur > $table.largeur)'";
 139 }
 140
 141 /**
 142  * critere {paysage} qui selectionne
 143  * - les documents dont les dimensions sont connues
 144  * - les documents dont la hauteur est inferieure a la largeur
 145  *
 146  * {!paysage} exclus ces documents
 147  *
 148  * @param string $idb
 149  * @param object $boucles
 150  * @param object $crit
 151  */
 152 function critere_DOCUMENTS_paysage_dist($idb, &$boucles, $crit) {
 153         $boucle = &$boucles[$idb];
 154         $table = $boucle->id_table;
 155         $not = ($crit->not?"NOT ":"");
 156         $boucle->where[] = "'$not($table.largeur>0 AND $table.largeur > $table.hauteur)'";
 157 }
 158
 159 /**
 160  * critere {carre} qui selectionne
 161  * - les documents dont les dimensions sont connues
 162  * - les documents dont la hauteur est egale a la largeur
 163  *
 164  * {!carre} exclus ces documents
 165  *
 166  * @param string $idb
 167  * @param object $boucles
 168  * @param object $crit
 169  */
 170 function critere_DOCUMENTS_carre_dist($idb, &$boucles, $crit) {
 171         $boucle = &$boucles[$idb];
 172         $table = $boucle->id_table;
 173         $not = ($crit->not?"NOT ":"");
 174         $boucle->where[] = "'$not($table.largeur>0 AND $table.largeur = $table.hauteur)'";
 175 }
 176 ?>