type);
foreach ($vocabs as $vocabulary) {
_calais_disable_taxonomy_field($form['taxonomy']['tags'][$vocabulary->vid]);
}
}
}
/**
* 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($nid) {
drupal_set_title(t('Calais Terms'));
$path = drupal_get_path('module', 'calais');
drupal_add_css("$path/calais.css");
drupal_add_js("$path/calais.js", 'module');
$node = node_load($nid);
$vocabs = calais_get_vocabularies($node->type);
$form = array();
$form['#node'] = $node;
$form['nid'] = array('#type' => 'value', '#value' => $node->nid);
foreach ($vocabs as $vocabulary) {
$keywords = calais_get_keywords($nid, $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]);
$form['calais'][$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['calais'][$vocabulary->vid]['#attributes'] = array(
'class' => 'keywords_available',
);
}
}
$form['calais']['#tree'] = TRUE;
$form['submit'] = array('#type' => 'submit', '#value' => t('Submit'), '#weight' => 45);
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_id, $form_values, $form) {
$node = (object)$form_values;
if (!empty($node->calais)) {
$terms = $node->calais;
foreach ($terms as $vid => $vid_value) {
$vocabulary = taxonomy_get_vocabulary($vid);
if (empty($vocabulary->tags)) {
// see form_get_error $key = implode('][', $element['#parents']);
// on why this is the key
form_set_error("calais][$vid", t('The %name vocabulary can not be modified in this way. It is not setup for Free Tagging.', array('%name' => $vocabulary->name)));
}
}
}
}
/**
* Update the node for any Calais keyword modifications.
*/
function calais_keywords_form_submit($form_id, $form_values) {
$node = (object)$form_values;
foreach ($node->calais as $vid => $vid_value) {
calais_remove_terms_for_node($node, $vid);
// This regexp allows the following types of user input:
// this, "somecmpany, llc", "and ""this"" w,o.rks", foo bar
$regexp = '%(?:^|,\ *)("(?>[^"]*)(?>""[^"]* )*"|(?: [^",]*))%x';
preg_match_all($regexp, $vid_value, $matches);
$terms = array_unique($matches[1]);
foreach ($terms as $term) {
// If a user has escaped a term (to demonstrate that it is a group,
// or includes a comma or quote character), we remove the escape
// formatting so to save the term into the database as the user intends.
$term = str_replace('""', '"', preg_replace('/^"(.*)"$/', '\1', $term));
$term = trim($term);
if ($term == "") { continue; }
$tid = calais_verify_and_get_term($vid, $term, 'taxonomy');
if ($tid) {
calais_assign_node_taxonomyterm($node->nid, $tid);
}
else {
watchdog('Calais', "Could not assign Taxonomy Term: $term");
}
}
}
return 'node/'. $node->nid;
}
/**
* Remove all terms on 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) {
$result = db_query('SELECT tid FROM {term_data} WHERE vid = %d', $vid);
while ($term = db_fetch_object($result)) {
db_query('DELETE FROM {term_node} WHERE nid = %d AND tid = %d', $node->nid, $term->tid);
}
}
/**
* Process the node and get all specified terms for the current vocabulary
*/
function _calais_get_current_tags($node, $vid) {
$current_tags = '';
if (isset($node->taxonomy)) {
$terms = $node->taxonomy;
$typed_terms = array();
foreach ($terms as $term) {
if ($term->vid == $vid) {
// Commas and quotes in terms are special cases, so encode 'em.
if (strpos($term->name, ',') !== FALSE || strpos($term->name, '"') !== FALSE) {
$term->name = '"'. str_replace('"', '""', $term->name) .'"';
}
$typed_terms[] = $term->name;
}
$current_tags = implode(',', $typed_terms) . (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) {
if (sizeof($terms)) {
$suggestions .= "