3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2016 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
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 \***************************************************************************/
15 // Ce fichier definit les boucles standard de SPIP
18 if (!defined('_ECRIRE_INC_VERSION')) return;
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']);
26 foreach ($zip_to_clean as $zip){
27 if (@file_exists
($zip))
31 session_set('zip_to_clean');
35 * Afficher la puce de statut pour les documents
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
44 function medias_puce_statut_document($id_document, $statut){
45 if ($statut=='publie') {
46 $puce='puce-verte.gif';
48 else if ($statut == "prepa") {
49 $puce = 'puce-blanche.gif';
51 else if ($statut == "poubelle") {
52 $puce = 'puce-poubelle.gif';
55 $puce = 'puce-blanche.gif';
57 return http_img_pack($puce, $statut, "class='puce'");
61 // <BOUCLE(DOCUMENTS)>
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
;
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\\')'"));
73 * N'afficher que les modes de documents que l'on accepte
74 * Utiliser le "pipeline medias_documents_visibles" pour en ajouter
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)'"));
84 return calculer_boucle($id_boucle, $boucles);
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']) : '';
95 $titre = _T('info_sans_titre');
96 $url = generer_url_entite($id,$type);
97 return "<a href='$url' class='$type'>".couper($titre,$longueur)."</a>";
101 * critere {orphelins} selectionne les documents sans liens avec un objet editorial
104 * @param object $boucles
105 * @param object $crit
107 function critere_DOCUMENTS_orphelins_dist($idb, &$boucles, $crit) {
109 $boucle = &$boucles[$idb];
111 $not = $crit->not?
"":"NOT";
113 $select = sql_get_select("DISTINCT id_document","spip_documents_liens as oooo");
114 $where = "'".$boucle->id_table
.".id_document $not IN ($select)'";
116 $_quoi = '@$Pile[0]["orphelins"]';
117 $where = "($_quoi)?$where:''";
120 $boucle->where
[]= $where;
124 * critere {portrait} qui selectionne
125 * - les documents dont les dimensions sont connues
126 * - les documents dont la hauteur est superieure a la largeur
128 * {!portrait} exclus ces documents
131 * @param object $boucles
132 * @param object $crit
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)'";
142 * critere {paysage} qui selectionne
143 * - les documents dont les dimensions sont connues
144 * - les documents dont la hauteur est inferieure a la largeur
146 * {!paysage} exclus ces documents
149 * @param object $boucles
150 * @param object $crit
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)'";
160 * critere {carre} qui selectionne
161 * - les documents dont les dimensions sont connues
162 * - les documents dont la hauteur est egale a la largeur
164 * {!carre} exclus ces documents
167 * @param object $boucles
168 * @param object $crit
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)'";