You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

439 lines
17 KiB

<?php
if (!defined('_ECRIRE_INC_VERSION')) {
return;
}
// Cette balise teste si la connexion à Zotero fonctionne
function balise_TESTER_CONNEXION_ZOTERO_dist($p) {
$p->code = "zotspip_tester_connexion_zotero()";
return $p;
}
function zotspip_tester_connexion_zotero() {
include_spip('inc/zotspip');
$feed = zotero_get('items/?format=atom&limit=1');
return $feed ? ' ' : '';
}
// Mets en forme une référence bibliographique
// On peut passer le nom d'un style CSL en argument (optionel).
// Le second argument (optionel) peut être une liste d'auteurs, tableau ou string séparée par des points-virgules, à souligner.
function balise_REFERENCE_dist($p) {
$csljson = champ_sql('csljson', $p);
$annee = champ_sql('annee', $p);
$_lang = champ_sql('lang', $p);
$style = interprete_argument_balise(1,$p);
$souligne = interprete_argument_balise(2,$p);
$date = champ_sql('date', $p);
if (!$style) $style='""';
if (!$souligne) $souligne='array()';
$p->code = "zotspip_calculer_reference($csljson,$annee,$style,$souligne,$date,htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang']))";
return $p;
}
function zotspip_calculer_reference($csljson,$annee,$style,$souligne,$date,$lang) {
include_spip('lib/citeproc-php/CiteProc');
include_spip('inc/config');
static $citeproc = array();
if (!$style) {
include_spip('inc/config');
$style = lire_config('zotspip/csl_defaut') ? lire_config('zotspip/csl_defaut') : 'apa';
}
$data = json_decode($csljson);
if (isset($data->issued->raw) && lire_config('zotspip/corriger_date')) { // Correction de la date de publication (si fournie brute et si option activée)
unset($data->issued->raw);
// Gestion des cas où la date est de la forme yyyy-mm ou yyyy-mm-dd
if (preg_match('#^([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})$#',trim($date),$matches))
$data->issued->{'date-parts'} = array(array($matches[1],$matches[2],$matches[3]));
elseif (preg_match('#^([0-9]{4})-([0-9]{1,2})$#',trim($date),$matches))
$data->issued->{'date-parts'} = array(array($matches[1],$matches[2]));
else
$data->issued->{'date-parts'} = array(array($annee));
}
if (!is_array($souligne)) $souligne = explode(';',$souligne);
if (count($souligne)){
foreach ($souligne as $aut_souligne) {
if(!strpos($aut_souligne,',')) $aut_souligne .= ', ';
$aut_souligne = explode(',',$aut_souligne);
if (is_array($data->author))
foreach ($data->author as $cle => $author)
if ($author->family == trim($aut_souligne[0]) && $author->given == trim($aut_souligne[1]))
$data->author[$cle]->family = '§§'.$data->author[$cle]->family.'§§';
if (is_array($data->editor))
foreach ($data->editor as $cle => $editor)
if ($editor->family == trim($aut_souligne[0]) && $editor->given == trim($aut_souligne[1]))
$data->editor[$cle]->family = '§§'.$data->editor[$cle]->family.'§§';
}
}
if (!isset($citeproc[$style])) {
include_spip('inc/distant');
$csl = spip_file_get_contents(find_in_path("csl/$style.csl"));
// Si le style demande n'est pas disponible, message d'erreur et se rabattre sur apa.csl
if (!$csl) {
erreur_squelette(_T('zotspip:message_erreur_style_csl',array('style'=>$style)));
$csl = spip_file_get_contents(find_in_path("csl/apa.csl"));
}
$citeproc[$style] = new citeproc($csl,$lang);
}
$ret = $citeproc[$style]->render($data, 'bibliography');
if (count($souligne))
$ret = preg_replace(',§§(.+)§§,U','<span style="text-decoration:underline;">$1</span>',$ret);
return $ret;
}
// Lister les styles CSL disponibles
function balise_LISTER_CSL_dist($p) {
$p->code = "zotspip_lister_csl()";
return $p;
}
function zotspip_lister_csl(){
static $liste_csl = null;
if (is_null($liste_csl)){
$liste_csl = array();
$match = ".+[.]csl$";
$liste = find_all_in_path('csl/', $match);
if (count($liste)){
foreach($liste as $fichier=>$chemin) {
$style = spip_file_get_contents($chemin);
$csl = substr($fichier,0,-4);
if (preg_match('#\<title\>(.*)\</title\>#',$style,$matches))
$liste_csl[$csl] = $matches[1];
else
$liste_csl[$csl] = $csl;
}
}
}
return $liste_csl;
}
// Traduire le type de reference
function zotspip_traduire_type($type) {
return ($type!='') ? _T('zotero:itemtypes_'.strtolower($type)) : '';
}
// Traduire le champ Zotero
function zotspip_traduire_champ($champ) {
return ($champ!='') ? _T('zotero:itemfields_'.strtolower($champ)) : '';
}
// Traduire le type d'auteur
function zotspip_traduire_createur($type) {
return ($type!='') ? _T('zotero:creatortypes_'.strtolower($type)) : '';
}
// Fonction utilisée dans pre_typo pour traiter les raccourcis [ref=xxxx]
function zotspip_traiter_raccourci_ref_dist($texte) {
$texte = preg_replace('#\[ref=(.*)\]#U','[[&#32;<ref|id=$1>]]',$texte);
return $texte;
}
// Afficher l'icône du document
// On peut optionnellement ajouter mimetype et fichier pour distinguer les icônes dans le cadre des pièces jointes
function zotspip_icone_type($type, $mimetype=NULL, $fichier=NULL) {
$alt = zotspip_traduire_type($type);
if ($type=='attachment' && !is_null($fichier) && !$fichier) $type = 'attachment-web-link'; // Si fichier n'est pas renseigné, c'est un lien sur le web
if ($type=='attachment' && $fichier && $mimetype=='text/html') $type = 'attachment-snapshot';
if ($type=='attachment' && $fichier && $mimetype=='application/pdf') $type = 'attachment-pdf';
$chemin = find_in_path("images/zotero/$type.png");
if (!$chemin) $chemin = find_in_path("images/zotero/item.png");
return "<img src=\"$chemin\" height=\"16\" width=\"16\" alt=\"$alt\"/>";
}
// Renvoie un tableau HTML avec le détail de l'item
function balise_ZITEM_DETAILS_dist($p) {
$json = champ_sql('json', $p);
$p->code = "zotspip_calculer_zitem_details($json)";
return $p;
}
function zotspip_calculer_zitem_details($json) {
$ret = '<table class="zitem_details spip">';
$data = json_decode($json,true);
if (!is_array($data)) return '';
foreach ($data as $champ => $valeur) {
if ($champ=='itemType')
$ret .= "<tr><td class=\"champ\"><strong>".zotspip_traduire_champ($champ)."</strong></td><td class=\"valeur\">".zotspip_traduire_type($valeur)."</td></tr>";
elseif ($champ=='creators')
foreach ($valeur as $creator)
$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>";
elseif ($champ=='tags' && count($valeur)>0) {
$tags = array();
foreach ($valeur as $tag)
$tags[] = $tag['tag'];
$tags = implode(' &middot; ',$tags);
$ret .= "<tr><td class=\"champ\"><strong>"._T('zotero:itemfields_tags')."</strong></td><td class=\"valeur\">$tags</td></tr>";
}
elseif ($champ=='mimeType')
$ret .= "<tr><td class=\"champ\"><strong>MIME</strong></td><td class=\"valeur\">$valeur</td></tr>";
elseif ($champ=='url')
$ret .= "<tr><td class=\"champ\"><strong>".zotspip_traduire_champ($champ)."</strong></td><td class=\"valeur\"><a href=\"$valeur\">$valeur</a></td></tr>";
elseif ($valeur)
$ret .= "<tr><td class=\"champ\"><strong>".zotspip_traduire_champ($champ)."</strong></td><td class=\"valeur\">$valeur</td></tr>";
}
$ret .= '</table>';
return $ret;
}
// Exporte les items dans le format demandé
function zotspip_export ($id, $format) {
if (is_array($id)) $id = implode(',',$id);
include_spip('inc/zotspip');
return zotero_get("items/?itemKey=$id&format=$format");
}
// Renvoie le content-type correspondant à un format d'export
function zotspip_content_type ($format) {
switch ($format) {
case 'bibtex':
$ctype = "application/x-bibtex";
break;
case 'mods':
$ctype = "application/mods+xml";
break;
case 'refer':
$ctype = "application/x-research-info-systems" ;
break;
case 'rdf_bibliontology':
case 'rdf_dc':
case 'rdf_zotero':
$ctype = "application/rdf+xml";
break;
case 'ris':
$ctype = "application/x-research-info-systems";
break;
case 'wikipedia':
$ctype = "text/x-wiki";
break;
default:
$ctype = '';
break;
}
return ($ctype) ? 'Content-Type: '.$ctype : '';
}
// Indique le nom du fichier à télécharger
function zotspip_content_disposition ($format) {
switch ($format) {
case 'bibtex':
$ext = 'bib';
break;
case 'mods':
$ext = 'xml';
break;
case 'refer':
case 'wikipedia':
$ext = 'txt';
break;
case 'rdf_bibliontology':
case 'rdf_dc':
case 'rdf_zotero':
$ext = 'rdf';
break;
case 'ris':
$ext = 'ris';
break;
default:
$ext = '';
break;
}
return ($ext) ? 'Content-Disposition: attachment; filename=export.'.$ext : '';
}
// Récupère un fichier distant
function zotspip_recuperer_fichier($fichier, $titre, $id_zitem, $mimetype, $json) {
$snapshot = (substr($fichier,-4) == 'view'); // Il s'agit d'un snapshot
if ($snapshot) {
$url_snapshot = substr($fichier,0,-5).'?key='.lire_config('zotspip/api_key');
$json = json_decode($json, true);
$filename = $json['filename'];
}
$url_distante = $fichier.'?key='.lire_config('zotspip/api_key');
$titre = translitteration($titre);
// Recuperer la bonne extension de fichier en fonction du type mime
include_spip('base/abstract_sql');
$ext = sql_getfetsel('extension','spip_types_documents','mime_type='.sql_quote($mimetype));
// On nettoie et on ajoute l'extension
if ($ext) {
if (substr($titre,-1*(strlen($ext)+1))=='.'.$ext) $titre = substr($titre,0,-1*(strlen($ext)+1));
$titre = preg_replace(',[[:punct:][:space:]]+,u', ' ', $titre);
$titre = preg_replace(',\.([^.]+)$,', '', $titre);
$titre .= '.'.$ext;
}
$url_locale = _DIR_VAR."cache-zotspip/$id_zitem/$titre";
if (!@file_exists($url_locale)) {
include_spip('inc/distant');
include_spip('inc/flock');
sous_repertoire(_DIR_VAR."cache-zotspip");
sous_repertoire(_DIR_VAR."cache-zotspip/$id_zitem");
ecrire_fichier($url_locale,recuperer_page($url_distante,false,false,_COPIE_LOCALE_MAX_SIZE));
if ($snapshot) {
// Dans ce cas, il faut télécharger le zip, le dezipper et renommer les fichiers en appliquant base64_decode().
sous_repertoire(_DIR_CACHE."tmp-zotspip");
ecrire_fichier(_DIR_CACHE."tmp-zotspip/$id_zitem.zip",recuperer_page($url_snapshot,false,false,_COPIE_LOCALE_MAX_SIZE));
include_spip('inc/pclzip');
$zip = new PclZip(_DIR_CACHE."tmp-zotspip/$id_zitem.zip");
$zip->extract(PCLZIP_OPT_PATH,_DIR_VAR."cache-zotspip/$id_zitem",PCLZIP_CB_PRE_EXTRACT, 'zotspip_decode_64_nom');
supprimer_fichier(_DIR_CACHE."tmp-zotspip/$id_zitem.zip");
}
}
include_spip('inc/headers');
redirige_par_entete($url_locale);
}
// Utiliser pour renommer correctement les fichiers du snapshot
function zotspip_decode_64_nom($p_event, &$p_header){
$info = pathinfo($p_header['filename']);
$p_header['filename'] = $info['dirname'].'/'.base64_decode(substr($info['basename'],0,-5));
return 1;
}
// Récupérer les références les plus récentes
// La variable d'environnement depuis peut être de la forme depuis=2008, depuis=2ans ou depuis=1an
function critere_zotsip_depuis($idb, &$boucles, $crit) {
$boucle = &$boucles[$idb];
$table = $boucle->id_table;
$boucle->where[] = "zotspip_calcul_depuis(\$Pile[0]['depuis'],'$table')";
}
function zotspip_calcul_depuis($depuis,$table) {
$annee = false;
if (is_numeric($depuis)) $annee = intval($depuis);
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
elseif (substr($depuis,-3)=='ans' && is_numeric(substr($depuis,0,-3))) $annee = 1 + intval(date('Y')) - intval(substr($depuis,0,-3));
elseif (substr($depuis,-1)=='a' && is_numeric(substr($depuis,0,-1))) $annee = 1 + intval(date('Y')) - intval(substr($depuis,0,-1));
elseif (substr($depuis,-5)=='years' && is_numeric(substr($depuis,0,-5))) $annee = 1 + intval(date('Y')) - intval(substr($depuis,0,-5)); // Prise en charge de l'anglais
elseif (substr($depuis,-4)=='year' && is_numeric(substr($depuis,0,-4))) $annee = 1 + intval(date('Y')) - intval(substr($depuis,0,-4));
elseif (substr($depuis,-1)=='y' && is_numeric(substr($depuis,0,-1))) $annee = 1 + intval(date('Y')) - intval(substr($depuis,0,-1));
elseif (substr($depuis,-4)=='años' && is_numeric(substr($depuis,0,-4))) $annee = 1 + intval(date('Y')) - intval(substr($depuis,0,-4)); // Prise en charge et de l'espagnol
elseif (substr($depuis,-3)=='año' && is_numeric(substr($depuis,0,-3))) $annee = 1 + intval(date('Y')) - intval(substr($depuis,0,-3));
if ($annee) return array('>=',"$table.annee",$annee);
else return array();
}
// Renvoie le schéma de données Zotero
function schema_zotero($entree = '') {
static $schema = NULL;
if (is_null($chema)) {
lire_fichier_securise(_DIR_TMP . 'schema_zotero.php', $schema);
$schema = @unserialize($schema);
}
if (!$entree)
return $schema;
else
return $schema[$entree];
}
function balise_SCHEMA_ZOTERO_dist($p) {
$entree = interprete_argument_balise(1,$p);
if (!$entree) $entree='""';
$p->code = "schema_zotero($entree)";
return $p;
}
// Permet de trier la liste des types de références à partir de leur traduction
// Utilisation : [(#SCHEMA_ZOTERO{itemTypes}|zotspip_trier_itemTypes})]
function zotspip_trier_itemTypes($itemTypes,$inclure_note=false) {
$l = array();
foreach ($itemTypes as $itemType)
if($inclure_note || $itemType != 'note')
$l[$itemType] = zotspip_traduire_type($itemType);
asort($l);
return array_keys($l);
}
// Fournit une liste complète de l'ensemble des types d'auteurs (en fusionnant les listes de chaque itemType)
// Utilisation : [(#SCHEMA_ZOTERO{creatorTypes}|zotspip_liste_creatorTypes_complete)]
function zotspip_liste_creatorTypes_complete($creatorTypes) {
$retour = array();
foreach ($creatorTypes as $creatorType)
$retour = array_merge($retour,array_diff($creatorType,$retour));
return $retour;
}
// Renvoie l'URL de visualisation d'un item sur zotero.org
function voir_sur_zotero($id_zitem){
if(lire_config('zotspip/type_librairie')=='user')
return "https://www.zotero.org/".lire_config('zotspip/username')."/items/itemKey/$id_zitem";
else
return "https://www.zotero.org/groups/".lire_config('zotspip/username')."/items/itemKey/$id_zitem";
}
// Renvoie l'URL de modification d'un item sur zotero.org
function modifier_sur_zotero($id_zitem){
if(lire_config('zotspip/type_librairie')=='user')
return "https://www.zotero.org/".lire_config('zotspip/username')."/items/itemKey/$id_zitem/mode/edit";
else
return "https://www.zotero.org/groups/".lire_config('zotspip/username')."/items/itemKey/$id_zitem/mode/edit";
}
// Fonction renvoyant le tableau adequat pour la configuration de l'ordre des types de documents
function zotspip_configurer_ordre_types($ordre) {
if (!is_array($ordre)) $ordre=array();
$ordre = array_flip($ordre);
// Il faut completer par rapport au schema Zotero (au cas ou le schema change)
$zotero = schema_zotero('itemTypes');
$zotero[]='attachment'; // Ajouter les pieces jointes non presentes dans le schema
$ordre = array_merge($ordre,array_flip($zotero));
// Ajout des chaines de langue
foreach ($ordre as $cle => $val)
$ordre[$cle] = zotspip_traduire_type($cle);
return $ordre;
}
// Le critere qui permet le tri par type (selon l'ordre defini)
function critere_par_type_zotero($idb, &$boucles, $crit) {
$boucle = &$boucles[$idb];
$id_table = $boucle->id_table;
include_spip('inc/config');
$config = lire_config('zotspip/ordre_types');
if (is_array($config) && count($config))
$boucle->order[] = "\"FIELD($id_table.type_ref,'".implode("','",$config)."')\"";
else
$boucle->order[] = "'$id_table.type_ref'";
}
// Renvoie le premier auteur a partir du champs auteurs de la table zitems
function zotspip_premier_auteur($auteurs) {
$auteurs = explode(', ',$auteurs);
return $auteurs[0];
}
// Renvoie le tableau des id passes à [ref=XXX]
function zotspip_ids_ref($ids) {
$ids = explode(',',$ids);
foreach ($ids as $cle => $id) $ids[$cle] = trim($id); // (on supprime les espaces inutiles)
foreach ($ids as $cle => $id) {
if ($p=strpos($id,'@'))
$ids[$cle] = substr($id,0,$p); // on ne garde que la partie avant le @
}
return $ids;
}
// Renvoie le tableau des positions/suffixes passés à [ref=XXX]
function zotspip_suffixes_ref($ids) {
$ret = array();
$ids = explode(',',$ids);
foreach ($ids as $cle => $id) $ids[$cle] = trim($id); // (on supprime les espaces inutiles)
foreach ($ids as $cle => $id) {
if ($p=strpos($id,'@')) {
$id_zitem = substr($id,0,$p); // id_zitem est avant le @
$ret[$id_zitem] = substr($id,$p+1); // suffixe apres le @
}
}
return $ret;
}
// Utilise pour les [ref=XXX] les div ne sont pas pertinents dans une note
function zotspip_div_en_span($texte) {
return preg_replace('#div#U','span',$texte);
}