source: spip-zone/_plugins_/zotspip/trunk/zotspip_fonctions.php @ 61951

Last change on this file since 61951 was 61951, checked in by joseph@…, 9 years ago

-* Possibilité d'ajouter un suffixe à une référence [ref=XXXXX@page 23]
-* Ajout d'un bouton dans le porte-plume

File size: 13.6 KB
Line 
1<?php
2
3// Sécurité
4if (!defined("_ECRIRE_INC_VERSION")) return;
5
6// Cette balise teste si la connexion à Zotero fonctionne
7function balise_TESTER_CONNEXION_ZOTERO_dist($p) {
8                $p->code = "zotspip_tester_connexion_zotero()";
9        return $p;
10}
11
12function zotspip_tester_connexion_zotero() {
13        include_spip('inc/zotspip');
14        $feed = zotero_get('items/?format=atom&limit=1');
15        return $feed ? ' ' : '';
16}
17
18// Mets en forme une référence bibliographique
19// On peut passer le nom d'un style CSL en argument (optionel).
20// Le second argument (optionel) peut être une liste d'auteurs, tableau ou string séparée par des points-virgules, à souligner.
21function balise_REFERENCE_dist($p) {
22        $csljson = champ_sql('csljson', $p);
23        $annee = champ_sql('annee', $p);
24        $_lang = champ_sql('lang', $p);
25        $style = interprete_argument_balise(1,$p);
26        $souligne = interprete_argument_balise(2,$p);
27        $date = champ_sql('date', $p);
28        if (!$style) $style='""';
29        if (!$souligne) $souligne='array()';
30       
31        $p->code = "zotspip_calculer_reference($csljson,$annee,$style,$souligne,$date,htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang']))";
32        return $p;
33}
34
35function zotspip_calculer_reference($csljson,$annee,$style,$souligne,$date,$lang) {
36        include_spip('lib/citeproc-php/CiteProc');
37        include_spip('inc/config');
38        static $citeproc = array();
39        if (!$style) {
40                include_spip('inc/config');
41                $style = lire_config('zotspip/csl_defaut') ? lire_config('zotspip/csl_defaut') : 'apa';
42        }
43        $data = json_decode($csljson);
44       
45        if (isset($data->issued->raw) && lire_config('zotspip/corriger_date')) { // Correction de la date de publication (si fournie brute et si option activée)
46                unset($data->issued->raw);
47                // Gestion des cas où la date est de la forme yyyy-mm ou yyyy-mm-dd
48                if (preg_match('#^([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})$#',trim($date),$matches))
49                        $data->issued->{'date-parts'} = array(array($matches[1],$matches[2],$matches[3]));
50                elseif (preg_match('#^([0-9]{4})-([0-9]{1,2})$#',trim($date),$matches))
51                        $data->issued->{'date-parts'} = array(array($matches[1],$matches[2]));
52                else
53                        $data->issued->{'date-parts'} = array(array($annee));
54        }
55
56        if (!is_array($souligne)) $souligne = explode(';',$souligne);
57       
58        if (count($souligne)){
59                foreach ($souligne as $aut_souligne) {
60                        if(!strpos($aut_souligne,',')) $aut_souligne .= ', ';
61                        $aut_souligne = explode(',',$aut_souligne);
62                        if (is_array($data->author))
63                                foreach ($data->author as $cle => $author)
64                                        if ($author->family == trim($aut_souligne[0]) && $author->given == trim($aut_souligne[1]))
65                                                $data->author[$cle]->family = '§§'.$data->author[$cle]->family.'§§';
66                }
67        }
68       
69        if (!isset($citeproc[$style])) {
70                include_spip('inc/distant');
71                $csl = spip_file_get_contents(find_in_path("csl/$style.csl"));
72                // Si le style demande n'est pas disponible, message d'erreur et se rabattre sur apa.csl
73                if (!$csl) {
74                        erreur_squelette(_T('zotspip:message_erreur_style_csl',array('style'=>$style)));
75                        $csl = spip_file_get_contents(find_in_path("csl/apa.csl"));
76                }
77                $citeproc[$style] = new citeproc($csl,$lang);
78        }
79       
80        $ret = $citeproc[$style]->render($data, 'bibliography');
81        if (count($souligne))
82                $ret = preg_replace(',§§(.+)§§,U','<span style="text-decoration:underline;">$1</span>',$ret);
83       
84        return $ret;
85}
86
87// Lister les styles CSL disponibles
88function balise_LISTER_CSL_dist($p) {
89        $p->code = "zotspip_lister_csl()";
90        return $p;
91}
92
93function zotspip_lister_csl(){
94        static $liste_csl = null;
95        if (is_null($liste_csl)){
96                $liste_csl = array();
97                $match = ".+[.]csl$";
98                $liste = find_all_in_path('csl/', $match);
99                if (count($liste)){
100                        foreach($liste as $fichier=>$chemin) {
101                                $style = spip_file_get_contents($chemin);
102                                $csl = substr($fichier,0,-4);
103                                if (preg_match('#\<title\>(.*)\</title\>#',$style,$matches))
104                                        $liste_csl[$csl] = $matches[1];
105                                else
106                                        $liste_csl[$csl] = $csl;
107                        }
108                }
109        }
110        return $liste_csl;
111}
112
113// Traduire le type de document
114function zotspip_traduire_type($type) {
115        return ($type!='') ? _T('zotero:itemtypes_'.strtolower($type)) : '';
116}
117
118// Traduire le champ Zotero
119function zotspip_traduire_champ($champ) {
120        return ($champ!='') ? _T('zotero:itemfields_'.strtolower($champ)) : '';
121}
122
123// Traduire le type d'auteur
124function zotspip_traduire_createur($type) {
125        return ($type!='') ? _T('zotero:creatortypes_'.strtolower($type)) : '';
126}
127
128// Afficher l'icône du document
129// On peut optionnellement ajouter mimetype et fichier pour distinguer les icônes dans le cadre des pièces jointes
130function zotspip_icone_type($type, $mimetype=NULL, $fichier=NULL) {
131        $alt = zotspip_traduire_type($type);
132        if ($type=='attachment' && !is_null($fichier) && !$fichier) $type = 'attachment-web-link'; // Si fichier n'est pas renseigné, c'est un lien sur le web
133        if ($type=='attachment' && $fichier && $mimetype=='text/html') $type = 'attachment-snapshot';
134        if ($type=='attachment' && $fichier && $mimetype=='application/pdf') $type = 'attachment-pdf';
135        $chemin = find_in_path("images/zotero/$type.png");
136        if (!$chemin) $chemin = find_in_path("images/zotero/item.png");
137        return "<img src=\"$chemin\" height=\"16\" width=\"16\" alt=\"$alt\"/>";
138}
139
140// Renvoie un tableau HTML avec le détail de l'item
141function balise_ZITEM_DETAILS_dist($p) {
142        $json = champ_sql('json', $p);
143        $p->code = "zotspip_calculer_zitem_details($json)";
144        return $p;
145}
146
147function zotspip_calculer_zitem_details($json) {
148        $ret = '<table class="zitem_details spip">';
149        $data = json_decode($json,true);
150        if (!is_array($data)) return '';
151        foreach ($data as $champ => $valeur) {
152                if ($champ=='itemType')
153                        $ret .= "<tr><td class=\"champ\"><strong>".zotspip_traduire_champ($champ)."</strong></td><td class=\"valeur\">".zotspip_traduire_type($valeur)."</td></tr>";
154                elseif ($champ=='creators')
155                        foreach ($valeur as $creator)
156                                $ret .= "<tr><td class=\"champ\"><strong>".zotspip_traduire_createur($creator['creatorType'])."</strong></td><td class=\"valeur\">".(isset($creator['name'])?$creator['name']:($creator['lastName'].(isset($creator['firstName'])?', '.$creator['firstName']:'')))."</td></tr>";
157                elseif ($champ=='tags' && count($valeur)>0) {
158                        $tags = array();
159                        foreach ($valeur as $tag)
160                                $tags[] = $tag['tag'];
161                        $tags = implode(' &middot; ',$tags);
162                        $ret .= "<tr><td class=\"champ\"><strong>"._T('zotero:itemfields_tags')."</strong></td><td class=\"valeur\">$tags</td></tr>";
163                }
164                elseif ($champ=='mimeType')
165                        $ret .= "<tr><td class=\"champ\"><strong>MIME</strong></td><td class=\"valeur\">$valeur</td></tr>";
166                elseif ($champ=='url')
167                        $ret .= "<tr><td class=\"champ\"><strong>".zotspip_traduire_champ($champ)."</strong></td><td class=\"valeur\"><a href=\"$valeur\">$valeur</a></td></tr>";
168                elseif ($valeur)
169                        $ret .= "<tr><td class=\"champ\"><strong>".zotspip_traduire_champ($champ)."</strong></td><td class=\"valeur\">$valeur</td></tr>";
170        }
171        $ret .= '</table>';
172        return $ret;
173}
174
175// Exporte les items dans le format demandé
176function zotspip_export ($id, $format) {
177        if (is_array($id)) $id = implode(',',$id);
178        include_spip('inc/zotspip');
179        return zotero_get("items/?itemKey=$id&format=$format");
180}
181
182// Renvoie le content-type correspondant à un format d'export
183function zotspip_content_type ($format) {
184        switch ($format) {
185                case 'bibtex':
186                        $ctype = "application/x-bibtex";
187                        break;
188                case 'mods':
189                        $ctype = "application/mods+xml";
190                        break;
191                case 'refer':
192                        $ctype = "application/x-research-info-systems" ;
193                        break;
194                case 'rdf_bibliontology':
195                case 'rdf_dc':
196                case 'rdf_zotero':
197                        $ctype = "application/rdf+xml";
198                        break;
199                case 'ris':
200                        $ctype = "application/x-research-info-systems";
201                        break;
202                case 'wikipedia':
203                        $ctype = "text/x-wiki";
204                        break;
205                default:
206                        $ctype = '';
207                        break;
208        }
209        return ($ctype) ? 'Content-Type: '.$ctype : '';
210}
211
212// Indique le nom du fichier à télécharger
213function zotspip_content_disposition ($format) {
214        switch ($format) {
215                case 'bibtex':
216                        $ext = 'bib';
217                        break;
218                case 'mods':
219                        $ext = 'xml';
220                        break;
221                case 'refer':
222                case 'wikipedia':
223                        $ext = 'txt';
224                        break;
225                case 'rdf_bibliontology':
226                case 'rdf_dc':
227                case 'rdf_zotero':
228                        $ext = 'rdf';
229                        break;
230                case 'ris':
231                        $ext = 'ris';
232                        break;
233                default:
234                        $ext = '';
235                        break;
236        }
237        return ($ext) ? 'Content-Disposition: attachment; filename=export.'.$ext : '';
238}
239
240// Récupère un fichier distant
241function zotspip_recuperer_fichier($fichier) {
242        include_spip('inc/distant');
243        include_spip('inc/config');
244        return spip_file_get_contents(copie_locale($fichier.'?key='.lire_config('zotspip/api_key')));
245}
246
247// Récupérer les références les plus récentes
248// La variable d'environnement depuis peut être de la forme depuis=2008, depuis=2ans ou depuis=1an
249function critere_zotsip_depuis($idb, &$boucles, $crit) {
250        $boucle = &$boucles[$idb];
251        $table = $boucle->id_table;
252        $boucle->where[] = "zotspip_calcul_depuis(\$Pile[0]['depuis'],$table)";
253}
254function zotspip_calcul_depuis($depuis,$table) {
255        $annee = false;
256        if (is_numeric($depuis)) $annee = intval($depuis);
257        elseif (substr($depuis,-2)=='an' && is_numeric(substr($depuis,0,-2))) $annee = 1 + intval(date('Y')) - intval(substr($depuis,0,-2)); // L'année en cours compte pour un
258        elseif (substr($depuis,-3)=='ans' && is_numeric(substr($depuis,0,-3))) $annee = 1 + intval(date('Y')) - intval(substr($depuis,0,-3));
259        if ($annee) return array('>=',"$table.annee",$annee);
260        else return array();
261}
262
263// Renvoie le schéma de données Zotero
264function schema_zotero($entree = '') {
265        static $schema = NULL;
266        if (is_null($chema)) {
267                lire_fichier_securise(_DIR_TMP . 'schema_zotero.php', $schema);
268                $schema = @unserialize($schema);
269        }
270        if (!$entree)
271                return $schema;
272        else
273                return $schema[$entree];
274}
275
276function balise_SCHEMA_ZOTERO_dist($p) {
277        $entree = interprete_argument_balise(1,$p);
278        if (!$entree) $entree='""';
279        $p->code = "schema_zotero($entree)";
280        return $p;
281}
282
283// Permet de trier la liste des types de références à partir de leur traduction
284// Utilisation : [(#SCHEMA_ZOTERO{itemTypes}|zotspip_trier_itemTypes})]
285function zotspip_trier_itemTypes($itemTypes,$inclure_note=false) {
286        $l = array();
287        foreach ($itemTypes as $itemType)
288                if($inclure_note || $itemType != 'note')
289                        $l[$itemType] = zotspip_traduire_type($itemType);
290        asort($l);
291        return array_keys($l);
292}
293
294// Fournit une liste complète de l'ensemble des types d'auteurs (en fusionnant les listes de chaque itemType)
295// Utilisation : [(#SCHEMA_ZOTERO{creatorTypes}|zotspip_liste_creatorTypes_complete)]
296function zotspip_liste_creatorTypes_complete($creatorTypes) {
297        $retour = array();
298        foreach ($creatorTypes as $creatorType)
299                $retour = array_merge($retour,array_diff($creatorType,$retour));
300        return $retour;
301}
302
303// Renvoie l'URL de visualisation d'un item sur zotero.org
304function voir_sur_zotero($id_zitem){
305        if(lire_config('zotspip/type_librairie')=='user')
306                return "https://www.zotero.org/".lire_config('zotspip/username')."/items/itemKey/$id_zitem";
307        else
308                return "https://www.zotero.org/groups/".lire_config('zotspip/username')."/items/itemKey/$id_zitem";
309}
310
311// Renvoie l'URL de modification d'un item sur zotero.org
312function modifier_sur_zotero($id_zitem){
313        if(lire_config('zotspip/type_librairie')=='user')
314                return "https://www.zotero.org/".lire_config('zotspip/username')."/items/itemKey/$id_zitem/mode/edit";
315        else
316                return "https://www.zotero.org/groups/".lire_config('zotspip/username')."/items/itemKey/$id_zitem/mode/edit";
317}
318
319// Fonction renvoyant le tableau adequat pour la configuration de l'ordre des types de documents
320function zotspip_configurer_ordre_types($ordre) {
321        if (!is_array($ordre)) $ordre=array();
322        $ordre = array_flip($ordre);
323        // Il faut completer par rapport au schema Zotero (au cas ou le schema change)
324        $zotero = schema_zotero('itemTypes');
325        $zotero[]='attachment'; // Ajouter les pieces jointes non presentes dans le schema
326        $ordre = array_merge($ordre,array_flip($zotero));
327        // Ajout des chaines de langue
328        foreach ($ordre as $cle => $val)
329                $ordre[$cle] = zotspip_traduire_type($cle);
330        return $ordre;
331}
332
333// Le critere qui permet le tri par type (selon l'ordre defini)
334function critere_par_type_zotero($idb, &$boucles, $crit) {
335        $boucle = &$boucles[$idb];
336        $id_table = $boucle->id_table;
337        include_spip('inc/config');
338        $config = lire_config('zotspip/ordre_types');
339        if (is_array($config) && count($config))
340                $boucle->order[] = "\"FIELD($id_table.type,'".implode("','",$config)."')\"";
341        else
342                $boucle->order[] = "'$id_table.type'";
343}
344
345// Renvoie le premier auteur a partir du champs auteurs de la table zitems
346function zotspip_premier_auteur($auteurs) {
347        $auteurs = explode(', ',$auteurs);
348        return $auteurs[0];
349}
350
351// Renvoie le tableau des id passes à [ref=XXX]
352function zotspip_ids_ref($ids) {
353        $ids = explode(',',$ids);
354        foreach ($ids as $cle => $id) $ids[$cle] = trim($id); // (on supprime les espaces inutiles)
355        foreach ($ids as $cle => $id) {
356                if ($p=strpos($id,'@'))
357                        $ids[$cle] = substr($id,0,$p); // on ne garde que la partie avant le @
358        }
359        return $ids;
360}
361
362// Renvoie le tableau des positions/suffixes passés à [ref=XXX]
363function zotspip_suffixes_ref($ids) {
364        $ret = array();
365        $ids = explode(',',$ids);
366        foreach ($ids as $cle => $id) $ids[$cle] = trim($id); // (on supprime les espaces inutiles)
367        foreach ($ids as $cle => $id) {
368                if ($p=strpos($id,'@')) {
369                        $id_zitem = substr($id,0,$p); // id_zitem est avant le @
370                        $ret[$id_zitem] = substr($id,$p+1); // suffixe apres le @
371                        }
372        }
373        return $ret;
374}
375
376// Utilise pour les [ref=XXX] les div ne sont pas pertinents dans une note
377function zotspip_div_en_span($texte) {
378        return preg_replace('#div#U','span',$texte);
379}
380
381
382?>
Note: See TracBrowser for help on using the repository browser.