View source
<?php
function biblio_get_keyword_by_name($name) {
static $keywords = array();
if (!($kid = array_search($name, $keywords))) {
$term = db_query("SELECT kd.kid, kd.word, COUNT(*) as use_count FROM {biblio_keyword_data} kd\n \t\t\t\t\t\t\t\tLEFT JOIN {biblio_keyword} bk on bk.kid = kd.kid\n \t\t\t\t\t\t\t\tWHERE LOWER(kd.word) = LOWER(:name)\n \t\t\t\t\t\t\t\tGROUP BY kd.kid, kd.word", array(
':name' => trim($name),
))
->fetchObject();
if ($term) {
$keywords[$term->kid] = $term;
return $keywords[$term->kid];
}
else {
return FALSE;
}
}
return $keywords[$kid];
}
function biblio_get_keyword_by_id($kid) {
static $keywords = array();
if (!isset($keywords[$kid])) {
$keywords[$kid] = db_query('SELECT * FROM {biblio_keyword_data} WHERE kid = :kid', array(
':kid' => $kid,
))
->fetchObject();
}
return $keywords[$kid];
}
function biblio_load_keywords($vid) {
$vids = isset($vid) ? array(
$vid,
) : array();
return biblio_load_keywords_multiple($vids);
}
function biblio_load_keywords_multiple($vids = array()) {
$keywords = array();
if (empty($vids)) {
return $keywords;
}
$query = db_select('biblio_keyword', 'bk');
$query
->innerJoin('biblio_keyword_data', 'bkd', 'bk.kid = bkd.kid');
$query
->addField('bk', 'vid');
$query
->fields('bkd', array(
'kid',
'word',
));
$query
->orderby('bk.vid');
$query
->orderby('bkd.word');
if (count($vids) == 1) {
$query
->condition('bk.vid', $vids[0]);
}
else {
$query
->condition('bk.vid', $vids, 'IN');
}
$query
->addMetaData('base_table', 'biblio_keyword');
$query
->addTag('node_access');
$result = $query
->execute();
foreach ($result as $keyword) {
$keywords[$keyword->vid][$keyword->kid] = $keyword->word;
}
return $keywords;
}
function biblio_update_keywords($node) {
$kids = biblio_insert_keywords($node, TRUE);
return $kids;
}
function biblio_insert_keywords($node, $update = FALSE) {
if (empty($node->biblio_keywords)) {
return;
}
$kw_vocab = variable_get('biblio_keyword_vocabulary', 0);
$freetagging = variable_get('biblio_keyword_freetagging', 0);
$taxo_terms = $typed_keywords = array();
$freetag_vocab = FALSE;
if (!is_array($node->biblio_keywords)) {
$typed_keywords = biblio_explode_keywords($node->biblio_keywords);
}
else {
$typed_keywords = $node->biblio_keywords;
}
if ($update) {
$and = db_and()
->condition('nid', $node->nid)
->condition('vid', $node->vid);
db_delete('biblio_keyword')
->condition($and)
->execute();
}
$vocabularies = module_invoke('taxonomy', 'get_vocabularies', 'biblio');
$vid = variable_get('biblio_keyword_vocabulary', 0);
if (variable_get('biblio_keyword_freetagging', 0) && $vid) {
$freetag_vocab = $vocabularies[variable_get('biblio_keyword_vocabulary', 0)];
}
if (isset($node->taxonomy) && is_array($node->taxonomy) && variable_get('biblio_copy_taxo_terms_to_keywords', 0)) {
foreach ($node->taxonomy as $vid => $term) {
if ($vid == 'copy_to_biblio' && $term == 0) {
$taxo_terms = array();
break;
}
if (is_array($term) && !empty($term)) {
foreach ($term as $tid) {
if ($tid) {
$term_obj = taxonomy_term_load($tid);
$taxo_terms[$term_obj->tid] = $term_obj->name;
}
}
}
elseif ($term) {
$term_obj = taxonomy_term_load($term);
$taxo_terms[$term_obj->tid] = $term_obj->name;
}
}
}
$keywords = array_merge($typed_keywords, $taxo_terms);
foreach ($keywords as $keyword) {
$word = is_object($keyword) ? trim($keyword->word) : trim($keyword);
if (!strlen(trim($word))) {
continue;
}
$kid = FALSE;
if ($kw = biblio_get_keyword_by_name($word)) {
$kid = $kw->kid;
}
if (!$kid) {
$kw = array(
'word' => trim($word),
);
$status = biblio_save_keyword($kw);
$kid = $kw['kid'];
}
if (!isset($inserted[$kid])) {
db_merge('biblio_keyword')
->key(array(
'kid' => $kid,
'vid' => $node->vid,
))
->fields(array(
'kid' => $kid,
'nid' => $node->nid,
'vid' => $node->vid,
))
->execute();
$inserted[$kid] = TRUE;
}
}
if ($freetagging && $freetag_vocab) {
$tids = array();
$ft_field = 'field_' . $freetag_vocab->machine_name;
$lang = isset($freetag_vocab->language) ? $freetag_vocab->language : 'und';
if (isset($node->{$ft_field}[$lang])) {
foreach ($node->{$ft_field}[$lang] as $tag) {
$tids[] = $tag['tid'];
}
}
foreach ($typed_keywords as $kw) {
if ($possibilities = taxonomy_term_load_multiple(array(), array(
'name' => trim($kw),
'vid' => $freetag_vocab->vid,
))) {
$term = array_pop($possibilities);
}
else {
$term = new stdClass();
$term->vid = $freetag_vocab->vid;
$term->name = $kw;
$term->vocabulary_machine_name = $freetag_vocab->machine_name;
taxonomy_term_save($term);
}
if (!in_array($term->tid, $tids)) {
$node->{$ft_field}[$lang][] = (array) $term;
}
}
}
return array_keys($inserted);
}
function biblio_save_keyword(&$keyword) {
if (!empty($keyword['kid']) && $keyword['word']) {
drupal_write_record('biblio_keyword_data', $keyword, 'kid');
$status = SAVED_UPDATED;
}
else {
drupal_write_record('biblio_keyword_data', $keyword);
$status = SAVED_NEW;
}
return $status;
}
function biblio_delete_orphan_keywords($force = FALSE) {
if (variable_get('biblio_keyword_orphan_autoclean', 0) || $force) {
$query = db_select('biblio_keyword', 'bk');
$active_kids = $query
->fields('bk', array(
'kid',
))
->groupBy('kid')
->execute()
->fetchCol();
$query = db_select('biblio_keyword_data', 'bkd');
$all_kids = $query
->fields('bkd', array(
'kid',
))
->groupBy('kid')
->execute()
->fetchCol();
$orphans = array_diff($all_kids, $active_kids);
if (!empty($orphans)) {
db_delete('biblio_keyword_data')
->condition('kid', $orphans, 'IN')
->execute();
}
}
return;
}
function biblio_delete_keywords($bid) {
$count = db_delete('biblio_keyword')
->condition('bid', $bid)
->execute();
return $count;
}
function biblio_delete_revision_keywords($vid) {
return db_delete('biblio_keyword')
->condition('vid', $vid)
->execute();
}
function biblio_delete_multiple_keywords($keywords) {
$count = 0;
foreach ($keywords as $kid) {
$count += biblio_delete_keyword($kid);
}
return $count;
}
function biblio_delete_keyword($keyword_id) {
db_delete('biblio_keyword')
->condition('kid', $keyword_id)
->execute();
return db_delete('biblio_keyword_data')
->condition('kid', $keyword_id)
->execute();
}
function biblio_explode_keywords($string) {
$sep = variable_get('biblio_keyword_sep', ',');
$regexp = '%(?:^|' . $sep . '\\ *)("(?>[^"]*)(?>""[^"]* )*"|(?: [^"' . $sep . ']*))%x';
preg_match_all($regexp, $string, $matches);
$keyword_array = array_unique($matches[1]);
$keywords = array();
foreach ($keyword_array as $keyword) {
$keyword = trim(str_replace('""', '"', preg_replace('/^"(.*)"$/', '\\1', $keyword)));
if ($keyword != "") {
$keywords[] = $keyword;
}
}
return $keywords;
}
function biblio_implode_keywords($keywords, $sep = '') {
if (empty($sep)) {
$sep = variable_get('biblio_keyword_sep', ',');
}
$string = '';
foreach ($keywords as $kid => $keyword) {
$string .= strlen($string) ? "{$sep} " : '';
if (strpos($keyword, $sep) !== FALSE) {
$string .= '"' . $keyword . '"';
}
else {
$string .= $keyword;
}
}
return $string;
}