',
'#weight' => 10,
);
}
}
}
/**
* This function implements what is essentially disabling of a taxonomy field,
* but leaving it on the form so that values can be recreated by
* taxonomy_node_save() upon save.
*/
function _calais_disable_taxonomy_field(&$field) {
$field['#type'] = 'hidden';
$field['#maxlength'] = CALAIS_TERM_MAXLENGTH;
}
/**
* Render the form for the Calais taxonomy & suggestions
*/
function calais_keywords_form(&$form_state, $node) {
drupal_set_title(t('Calais Terms: ') . check_plain($node->title));
$path = drupal_get_path('module', 'calais');
drupal_add_css("$path/calais.css");
drupal_add_js("$path/calais.js", 'module');
$vocabs = calais_get_vocabularies($node->type);
$form = array();
$form['#node'] = $node;
$form['nid'] = array('#type' => 'value', '#value' => $node->nid);
$form['vid'] = array('#type' => 'value', '#value' => $node->vid);
uasort($vocabs, '_calais_vocab_cmp');
$weight = 0;
foreach ($vocabs as $vocabulary) {
$vocabulary->weight = $weight++;
$keywords = calais_get_keywords($node->nid, $node->type, $vocabulary->vid);
$suggestions = theme('calais_suggestions', $vocabulary->vid, $keywords[$vocabulary->vid]);
$current_tags = _calais_get_current_tags($node, $vocabulary->vid);
$has_keywords = sizeof($keywords[$vocabulary->vid]);
// If there are keywords available, make these vocabs appear at the top of the long list
if ($has_keywords) {
$vocabulary->weight -= 100;
}
// If there are no keywords but existing terms, make these vocabs appear next
if (!$has_keywords && !empty($current_tags)) {
$vocabulary->weight -= 50;
}
$form['taxonomy']['tags'][$vocabulary->vid] = array(
'#type' => 'textfield',
'#title' => $vocabulary->name,
'#description' => $suggestions,
'#required' => $vocabulary->required,
'#default_value' => $current_tags,
'#autocomplete_path' => 'taxonomy/autocomplete/'. $vocabulary->vid,
'#weight' => $vocabulary->weight,
'#size' => 75,
'#maxlength' => CALAIS_TERM_MAXLENGTH,
);
if ($has_keywords) {
$form['taxonomy']['tags'][$vocabulary->vid]['#attributes'] = array(
'class' => 'keywords_available',
);
}
}
$form['taxonomy']['#tree'] = TRUE;
// Add buttons a top and bottom
$form['submit1'] = array('#type' => 'submit', '#value' => t('Save'), '#weight' => -200);
$form['submit2'] = array('#type' => 'submit', '#value' => t('Save'), '#weight' => 200);
return $form;
}
/**
* Provide validation for the Calais free tagging taxonomy terms.
*
* The essence of this was clipped from taxonomy_node_validate()
*/
function calais_keywords_form_validate($form, &$form_state) {
$node = (object)$form_state['values'];
taxonomy_node_validate($node);
}
/**
* Update the node for any Calais keyword modifications.
*/
function calais_keywords_form_submit($form, &$form_state) {
$node = (object)$form_state['values'];
// Fill in terms from other non-Calais vocabularies as to not remove them
$taxonomy = taxonomy_node_get_terms($node);
$vocabs = calais_get_vocabularies($node->type);
foreach ($taxonomy as $term){
if (!isset($vocabs[$term->vid]))
$node->taxonomy[] = $term;
}
taxonomy_node_save($node, $node->taxonomy);
// Query for Node Terms directly. Some wierd caching (I think) with taxonomy_node_get_terms
// made it so newly created terms were not returned. This next block of code happens to be
// VERY interested in newly created terms, so I have to query directly. Boo! :( - ff
$result = db_query('SELECT t.* FROM {term_node} r
INNER JOIN {term_data} t ON r.tid = t.tid
WHERE r.vid = %d ORDER BY t.weight, t.name', $node->vid);
while ($term = db_fetch_object($result)) {
$calais_term = calais_get_node_term_by_name($node->nid, $term->name);
if($calais_term && $term->vid == $calais_term->vid) {
if (empty($calais_term->tdid) || $calais_term->tdid != $term->tid) {
$calais_term->tdid = $term->tid;
calais_save_term($calais_term);
}
}
}
drupal_set_message(t('Calais settings have been saved.'));
$form_state['redirect'] = "node/{$node->nid}";
}
/**
* Remove term relationship to a node for a particular vocabulary.
*
* @param $node The node to remove terms
* @param $vid The vocabulary whose terms will be removed from the node
*/
function calais_remove_terms_for_node($node, $vid) {
db_query('DELETE FROM {term_node} WHERE vid = %d AND tid IN (SELECT d.tid FROM {term_data} AS d WHERE d.vid = %d)', $node->vid, $vid);
}
/**
* Process the node and get all specified terms for the current vocabulary
*/
function _calais_get_current_tags($node, $vid) {
if (!isset($node->taxonomy))
return NULL;
$terms = $node->taxonomy;
$current_tags = taxonomy_implode_tags($terms, $vid);
$current_tags .= (array_key_exists('tags', $terms) ? $terms['tags'][$vid] : NULL);
return $current_tags;
}
/**
* Theme function to render the suggestions for a particular vocabulary
*/
function theme_calais_suggestions($vid, $terms) {
$score_value = array(0 => 'Low', 1 => 'Low', 2 => 'Moderate', 3 => 'High');
if (sizeof($terms)) {
$suggestions .= "