View source
<?php
function biblio_ris_views_api() {
return array(
'api' => 2,
'path' => drupal_get_path('module', 'biblio_ris') . '/views',
);
}
function biblio_ris_menu() {
global $user;
$items = array();
$base = variable_get('biblio_base', 'biblio');
$items["{$base}/export/ris"] = array(
'title' => '',
'page callback' => 'biblio_ris_biblio_export',
'access callback' => 'user_access',
'access arguments' => array(
'show export links',
),
'type' => MENU_CALLBACK,
);
return $items;
}
function biblio_ris_biblio_import_options() {
return array(
'biblio_ris' => t('RIS'),
);
}
function biblio_ris_biblio_mapper_options() {
return array(
'ris' => array(
'title' => t('RIS'),
'export' => TRUE,
),
);
}
function biblio_ris_form_biblio_node_form_alter(&$form, &$form_state) {
global $user;
if (phpversion() > 5 && !isset($form_state['storage']) && !isset($form['#node']->nid)) {
if (!isset($form_state['storage'])) {
$form['biblio_ris_paste'] = array(
'#type' => 'fieldset',
'#title' => t('Paste RIS Record'),
'#weight' => -20,
'#collapsible' => TRUE,
'#collapsed' => TRUE,
);
$form['biblio_ris_paste']['paste_data_ris'] = array(
'#type' => 'textarea',
'#title' => t('RIS'),
'#required' => FALSE,
'#default_value' => '',
'#description' => t('Paste a single RIS record here'),
'#size' => 60,
'#weight' => -4,
);
$form['biblio_ris_paste']['paste_submit'] = array(
'#type' => 'submit',
'#value' => t('Populate using RIS record'),
);
}
$form['#validate'] = array_merge(array(
'biblio_ris_form_biblio_node_form_validate',
), $form['#validate']);
}
$biblio_ris_id = isset($form_state['values']['biblio_ris_id']) ? $form_state['values']['biblio_ris_id'] : '';
$biblio_ris_md5 = isset($form_state['values']['biblio_ris_md5']) ? $form_state['values']['biblio_ris_md5'] : '';
$form['biblio_ris_id'] = array(
'#type' => 'value',
'#value' => $biblio_ris_id,
);
$form['biblio_ris_md5'] = array(
'#type' => 'value',
'#value' => $biblio_ris_md5,
);
}
function biblio_ris_form_biblio_node_form_validate($form, &$form_state) {
global $user;
$node_data = array();
if (strlen($form_state['values']['paste_data_ris'])) {
$node_data = _biblio_ris_import_string($form_state['values']['paste_data_ris']);
}
if (!empty($node_data)) {
$form_state['values'] = array_merge($form_state['values'], (array) $node_data);
$form_state['storage']['biblio_type'] = $node_data->biblio_type;
return;
}
return;
}
function biblio_ris_biblio_export_link_settings() {
return array(
'ris' => t('RIS'),
);
}
function biblio_ris_link($type, $node = NULL, $teaser = FALSE) {
if ($type != 'node' || $node->type != 'biblio') {
return;
}
return biblio_ris_biblio_export_link($node->nid);
}
function biblio_ris_biblio_export_link($nid = NULL) {
$show_link = variable_get('biblio_export_links', array(
'ris' => TRUE,
));
if (!$show_link['ris'] || !biblio_access('export')) {
return array();
}
$base = variable_get('biblio_base', 'biblio');
if (module_exists('popups') && !empty($nid)) {
$link = array(
'attributes' => array(
'class' => 'popups',
'title' => t("Click to get the RIS output"),
),
);
}
else {
$link = array(
'attributes' => array(
'title' => t("Click to download the RIS formatted file"),
),
);
}
$link['href'] = "{$base}/export/ris/{$nid}";
$link['title'] = t('RIS');
return array(
'biblio_ris' => $link,
);
}
function biblio_ris_nodeapi(&$node, $op, $a3 = NULL, $a4 = NULL) {
if ($node->type != 'biblio') {
return;
}
$callback = '_biblio_ris_' . str_replace(' ', '_', $op);
if (function_exists($callback)) {
return $callback($node, $a3, $a4);
}
return;
}
function _biblio_ris_delete($node) {
db_query('DELETE FROM {biblio_ris} WHERE nid = %d', $node->nid);
}
function _biblio_ris_insert($node) {
if (!isset($node->biblio_ris_md5)) {
return;
}
drupal_write_record('biblio_ris', $node);
}
function biblio_ris_biblio_import($file, $terms = array(), $batch = FALSE, $session_id = NULL, $save = TRUE, $string = FALSE) {
$nids = array();
$dups = array();
list($nids, $dups) = _biblio_ris_import($file, $terms, $batch, $session_id);
return array(
$nids,
$dups,
);
}
function biblio_ris_biblio_export($nid = null) {
$popup = FALSE;
if ($nid === null && isset($_SESSION['last_biblio_query']) && !empty($_SESSION['last_biblio_query'])) {
$query = $_SESSION['last_biblio_query'];
$params = $_SESSION['last_biblio_query_terms'];
}
elseif (!empty($nid)) {
$query = db_rewrite_sql("SELECT DISTINCT(n.nid) FROM {node} n WHERE n.nid=%d ");
$params[] = $nid;
}
else {
return;
}
$result = db_query($query, $params);
$count = 0;
if (module_exists('popups') && $nid) {
$popup = TRUE;
}
else {
drupal_set_header('Content-type: applications/x-research-info-systems');
drupal_set_header('Content-Disposition: attachment; filename="Drupal-Biblio.ris"');
}
while ($node = db_fetch_object($result)) {
$node = node_load($node->nid, FALSE, TRUE);
if (variable_get('biblio_hide_bibtex_braces', 0)) {
$node->title = biblio_remove_brace($node->title);
}
if (!$popup) {
print _biblio_ris_export($node);
}
else {
$popup_data .= _biblio_ris_export($node);
}
}
if ($popup && !empty($popup_data)) {
return '<pre>' . $popup_data . '</pre>';
}
}
function _biblio_ris_import_string($string) {
$tag = '';
$node = new stdClass();
$lines = preg_split('/[\\r\\n]/', $string, -1, PREG_SPLIT_NO_EMPTY);
foreach ($lines as $line) {
$line_len = strlen($line);
if ($line_len > 3) {
$start = strpos($line, ' -');
if ($start !== FALSE) {
$tag = drupal_substr($line, $start - 2, 2);
$data = trim(drupal_substr($line, $start + 3));
}
else {
$data = $line;
}
}
if ($line_len > 3 && !empty($tag)) {
if ($tag == 'ER') {
if (!empty($node)) {
$node->biblio_ris_md5 = md5(serialize($node));
if (empty($node->title)) {
$node->title = t("Untitled");
}
if (!($dup = biblio_ris_check_md5($node->biblio_ris_md5))) {
return $node;
}
else {
$message = t('The RIS node that you are trying to paste into the form already exists in the database, see ');
$message .= l('node/' . $dup, 'node/' . $dup);
form_set_error('paste_data', $message);
return;
}
}
}
else {
_biblio_ris_parse_line($tag, $data, $node);
}
}
}
}
function _biblio_ris_import($file, $terms = array(), $batch = FALSE, $session_id = NULL) {
ini_set('auto_detect_line_endings', true);
if (!($fp = fopen($file->filepath, "r"))) {
drupal_set_message(t("Could not open RIS input file for reading."), 'error');
return;
}
$tag = '';
$nids = array();
$dups = array();
$unmapped = array();
$node = new stdClass();
while (!feof($fp)) {
$line = fgets($fp);
$line = preg_replace('/[^\\r\\n\\t\\x20-\\xFF]/', '', $line);
$line_len = strlen($line);
if ($line_len > 3) {
$start = strpos($line, ' -');
if ($start !== FALSE) {
$tag = drupal_substr($line, $start - 2, 2);
$data = trim(drupal_substr($line, $start + 3));
}
else {
$data = $line;
}
}
if ($line_len > 3 && !empty($tag)) {
if ($tag == 'ER') {
if (!empty($node)) {
$node->biblio_ris_md5 = md5(serialize($node));
if (empty($node->title)) {
$node->title = t("Untitled");
}
if (!empty($terms)) {
if (!isset($node->taxonomy)) {
$node->taxonomy = array();
}
$node->taxonomy = array_merge($terms, $node->taxonomy);
}
if (!($dup = biblio_ris_check_md5($node->biblio_ris_md5))) {
biblio_save_node($node, $batch, $session_id);
if (!empty($node->nid)) {
$nids[] = $node->nid;
}
}
else {
$dups[] = $dup;
}
}
$node = new stdClass();
$node->biblio_contributors = array();
}
else {
_biblio_ris_parse_line($tag, $data, $node, $unmapped);
}
}
}
fclose($fp);
if (!empty($unmapped)) {
$ignored_tags = array_unique($unmapped);
$message = t("The following elements were ignored because they do not map to any biblio fields: ");
$message .= implode(', ', $ignored_tags);
if (user_access('administer biblio')) {
$message .= '. ' . t('Click !url if you wish to check the field mapping', array(
'!url' => l(t('here'), 'admin/settings/biblio/iomap/edit/ris'),
));
}
drupal_set_message($message, 'warning');
}
return array(
$nids,
$dups,
);
}
function _biblio_ris_parse_line($tag, $data, $node, &$unmapped) {
switch ($tag) {
case 'TY':
$node->biblio_type = _biblio_ris_type_map($data);
break;
case 'A1':
case 'AU':
$node->biblio_contributors[1][] = array(
'name' => $data,
'auth_type' => _biblio_get_auth_type(1, $node->biblio_type),
);
break;
case 'DA':
if (!isset($node->biblio_year) || empty($node->biblio_year)) {
$node->biblio_year = ($end = strpos($data, "/")) ? substr($data, 0, $end) : $data;
}
$node->biblio_date = $data;
break;
case 'Y1':
case 'PY':
if (!isset($node->biblio_year) || empty($node->biblio_year)) {
$node->biblio_year = ($end = strpos($data, "/")) ? substr($data, 0, $end) : $data;
}
if (!isset($node->biblio_date) || empty($node->biblio_date)) {
$node->biblio_date = $data;
}
break;
case 'A2':
case 'ED':
$node->biblio_contributors[2][] = array(
'name' => $data,
'auth_type' => _biblio_get_auth_type(2, $node->biblio_type),
);
break;
case 'KW':
$node->biblio_keywords[] = $data;
break;
case 'SP':
case 'EP':
$node->biblio_pages .= $tag == "SP" ? $data : " - " . $data;
break;
case 'A3':
$node->biblio_contributors[5][] = array(
'name' => $data,
'auth_type' => _biblio_get_auth_type(5, $node->biblio_type),
);
break;
case 'BT':
if ($node->biblio_type == 100) {
$node->title = $data;
}
else {
$node->biblio_secondary_title = $data;
}
break;
default:
if ($field = _biblio_ris_field_map($tag)) {
$node->{$field} .= $data;
}
else {
if (!in_array($tag, $unmapped)) {
$unmapped[] = $tag;
}
}
}
}
function _biblio_ris_export($node) {
$reverse = TRUE;
$ris = "";
$ris .= "TY - " . _biblio_ris_type_map($node->biblio_type, $reverse) . "\r\n";
if (!empty($node->title)) {
$ris .= "T1 - " . trim($node->title) . "\r\n";
}
switch ($node->biblio_type) {
case 100:
case 101:
case 103:
case 104:
case 105:
case 108:
case 119:
if (!empty($node->biblio_secondary_title)) {
$ris .= "T2 - " . trim($node->biblio_secondary_title) . "\r\n";
}
break;
case 102:
if (!empty($node->biblio_secondary_title)) {
$ris .= "JF - " . trim($node->biblio_secondary_title) . "\r\n";
}
unset($node->biblio_secondary_title);
break;
}
if (isset($node->biblio_year) && $node->biblio_year < 9998) {
$ris .= "Y1 - " . trim($node->biblio_year) . "\r\n";
}
if (isset($node->biblio_contributors[1])) {
foreach ($node->biblio_contributors[1] as $auth) {
$ris .= "A1 - " . trim($auth['name']) . "\r\n";
}
}
if (isset($node->biblio_contributors[2])) {
foreach ($node->biblio_contributors[2] as $auth) {
$ris .= "ED - " . trim($auth['name']) . "\r\n";
}
}
$kw_array = array();
if (!empty($node->terms)) {
foreach ($node->terms as $term) {
$kw_array[] = $term->name;
}
}
if (!empty($node->biblio_keywords)) {
foreach ($node->biblio_keywords as $term) {
$kw_array[] = $term;
}
}
if (!empty($kw_array)) {
$kw_array = array_unique($kw_array);
foreach ($kw_array as $term) {
$ris .= "KW - " . trim($term) . "\r\n";
}
}
$abst = "";
if (!empty($node->biblio_abst_e)) {
$abst .= trim($node->biblio_abst_e);
}
if ($abst) {
$search = array(
"/\r/",
"/\n/",
);
$replace = " ";
$abst = preg_replace($search, $replace, $abst);
$ris .= "AB - " . $abst . "\r\n";
}
$skip_fields = array(
'biblio_year',
'biblio_abst_e',
'biblio_abst_f',
'biblio_type',
);
$fields = drupal_schema_fields_sql('biblio');
$fields = array_diff($fields, $skip_fields);
foreach ($fields as $field) {
if (!empty($node->{$field})) {
$ris .= _biblio_ris_format_entry($field, $node->{$field});
}
}
$ris .= "ER - \r\n\r\n";
return $ris;
}
function _biblio_ris_format_entry($key, $value) {
$reverse = TRUE;
$tag = _biblio_ris_field_map($key, $reverse);
if (!empty($tag)) {
return "{$tag} - " . trim($value) . "\r\n";
}
}
function _biblio_ris_type_map($type, $reverse = FALSE) {
static $map = array();
if (empty($map)) {
$map = biblio_get_map('type_map', 'ris');
}
if ($reverse) {
return ($tag = array_search($type, $map)) ? $tag : 'Generic';
}
return isset($map[$type]) ? $map[$type] : 129;
}
function _biblio_ris_field_map($field, $reverse = FALSE) {
static $fmap = array();
if (empty($fmap)) {
$fmap = biblio_get_map('field_map', 'ris');
}
if ($reverse) {
return ($tag = array_search($field, $fmap)) ? $tag : '';
}
return !empty($fmap[$field]) ? $fmap[$field] : '';
}
function biblio_ris_ris_map_reset($type = NULL) {
module_load_include('install', 'biblio_ris', 'biblio_ris');
_reset_ris_map($type);
}
function biblio_ris_check_md5($md5) {
static $ris_md5s = array();
if (empty($ris_md5s)) {
$result = db_query("SELECT * FROM {biblio_ris} ");
while ($row = db_fetch_object($result)) {
$ris_md5s[$row->biblio_ris_md5] = $row->nid;
}
}
if (isset($ris_md5s[$md5])) {
return $ris_md5s[$md5];
}
else {
$ris_md5s[$md5] = TRUE;
return;
}
}
