taxonomy.module 51.8 KB
Newer Older
Dries's avatar
 
Dries committed
1
<?php
Kjartan's avatar
Kjartan committed
2
// $Id$
Dries's avatar
 
Dries committed
3

Dries's avatar
 
Dries committed
4 5 6 7 8
/**
 * @file
 * Enables the organization of content into categories.
 */

Dries's avatar
 
Dries committed
9 10 11
/**
 * Implementation of hook_perm().
 */
Kjartan's avatar
Kjartan committed
12
function taxonomy_perm() {
Dries's avatar
 
Dries committed
13
  return array('administer taxonomy');
Kjartan's avatar
Kjartan committed
14
}
Dries's avatar
 
Dries committed
15

Dries's avatar
 
Dries committed
16 17 18 19 20 21 22 23 24 25 26
/**
 * Implementation of hook_link().
 *
 * This hook is extended with $type = 'taxonomy terms' to allow themes to
 * print lists of terms associated with a node. Themes can print taxonomy
 * links with:
 *
 * if (module_exist('taxonomy')) {
 *   $this->links(taxonomy_link('taxonomy terms', $node));
 * }
 */
Dries's avatar
 
Dries committed
27
function taxonomy_link($type, $node = NULL) {
Dries's avatar
 
Dries committed
28
  if ($type == 'taxonomy terms' && $node != NULL) {
Kjartan's avatar
 
Kjartan committed
29
    $links = array();
Dries's avatar
 
Dries committed
30
    if (array_key_exists('taxonomy', $node)) {
31
      foreach ($node->taxonomy as $term) {
32 33
        $links['taxonomy_term_'. $term->tid] = array(
          '#title' => $term->name,
34
          '#href' => taxonomy_term_path($term),
35 36
          '#attributes' => array('rel' => 'tag', 'title' => strip_tags($term->description))
        );
Dries's avatar
 
Dries committed
37
      }
Dries's avatar
 
Dries committed
38
    }
Kjartan's avatar
Kjartan committed
39

40 41 42 43 44 45 46
    // We call this hook again because some modules and themes call taxonomy_link('taxonomy terms') directly
    foreach (module_implements('link_alter') AS $module) {
      $function = $module .'_link_alter';
      $function($node, $links);
    }

    return $links;
47 48 49
  }
}

50 51 52 53 54 55 56 57
function taxonomy_term_path($term) {
  $vocabulary = taxonomy_get_vocabulary($term->vid);
  if ($vocabulary->module != 'taxonomy' && $path = module_invoke($vocabulary->module, 'term_path', $term)) {
    return $path;
  }
  return 'taxonomy/term/'. $term->tid;
}

Dries's avatar
 
Dries committed
58 59 60
/**
 * Implementation of hook_menu().
 */
Dries's avatar
 
Dries committed
61
function taxonomy_menu($may_cache) {
Dries's avatar
 
Dries committed
62
  $items = array();
Dries's avatar
 
Dries committed
63

Dries's avatar
 
Dries committed
64
  if ($may_cache) {
65 66 67
    $items[] = array('path' => 'admin/taxonomy',
      'title' => t('categories'),
      'callback' => 'taxonomy_overview_vocabularies',
Dries's avatar
 
Dries committed
68
      'access' => user_access('administer taxonomy'));
69

70 71 72 73
    $items[] = array('path' => 'admin/taxonomy/list',
      'title' => t('list'),
      'type' => MENU_DEFAULT_LOCAL_TASK,
      'weight' => -10);
74

75 76 77
    $items[] = array('path' => 'admin/taxonomy/add/vocabulary',
      'title' => t('add vocabulary'),
      'callback' => 'taxonomy_admin_vocabulary_edit',
Dries's avatar
 
Dries committed
78 79 80
      'access' => user_access('administer taxonomy'),
      'type' => MENU_LOCAL_TASK);

81 82 83
    $items[] = array('path' => 'admin/taxonomy/edit/vocabulary',
      'title' => t('edit vocabulary'),
      'callback' => 'taxonomy_admin_vocabulary_edit',
84 85 86
      'access' => user_access('administer taxonomy'),
      'type' => MENU_CALLBACK);

87 88 89
    $items[] = array('path' => 'admin/taxonomy/edit/term',
      'title' => t('edit term'),
      'callback' => 'taxonomy_admin_term_edit',
90 91 92
      'access' => user_access('administer taxonomy'),
      'type' => MENU_CALLBACK);

93 94
    $items[] = array('path' => 'taxonomy/term',
      'title' => t('taxonomy term'),
Dries's avatar
 
Dries committed
95 96 97
      'callback' => 'taxonomy_term_page',
      'access' => user_access('access content'),
      'type' => MENU_CALLBACK);
Steven Wittens's avatar
Steven Wittens committed
98

99 100
    $items[] = array('path' => 'taxonomy/autocomplete',
      'title' => t('autocomplete taxonomy'),
Steven Wittens's avatar
Steven Wittens committed
101 102 103
      'callback' => 'taxonomy_autocomplete',
      'access' => user_access('access content'),
      'type' => MENU_CALLBACK);
Dries's avatar
 
Dries committed
104
  }
Dries's avatar
Dries committed
105 106
  else {
    if (is_numeric(arg(2))) {
107 108 109 110
      $items[] = array('path' => 'admin/taxonomy/' . arg(2),
        'title' => t('list terms'),
        'callback' => 'taxonomy_overview_terms',
        'callback arguments' => array(arg(2)),
Dries's avatar
Dries committed
111 112 113
        'access' => user_access('administer taxonomy'),
        'type' => MENU_CALLBACK);

114 115 116 117
      $items[] = array('path' => 'admin/taxonomy/' . arg(2) . '/list',
        'title' => t('list'),
        'type' => MENU_DEFAULT_LOCAL_TASK,
        'weight' => -10);
Dries's avatar
Dries committed
118

119 120
      $items[] = array('path' => 'admin/taxonomy/' . arg(2) . '/add/term',
        'title' => t('add term'),
121 122
        'callback' => 'taxonomy_form_term',
        'callback arguments' => array(array('vid' => arg(2))),
Dries's avatar
Dries committed
123 124 125 126
        'access' => user_access('administer taxonomy'),
        'type' => MENU_LOCAL_TASK);
    }
  }
Dries's avatar
 
Dries committed
127

Dries's avatar
 
Dries committed
128 129
  return $items;
}
Dries's avatar
 
Dries committed
130

131 132 133 134
/**
 * List and manage vocabularies.
 */
function taxonomy_overview_vocabularies() {
135
  $vocabularies = taxonomy_get_vocabularies();
136
  $rows = array();
137 138 139 140 141 142
  foreach ($vocabularies as $vocabulary) {
    $types = array();
    foreach ($vocabulary->nodes as $type) {
      $node_type = node_get_name($type);
      $types[] = $node_type ? $node_type : $type;
    }
143 144 145 146 147 148 149 150
    $rows[] = array('name' => check_plain($vocabulary->name),
      'type' => implode(', ', $types),
      'edit' => l(t('edit vocabulary'), "admin/taxonomy/edit/vocabulary/$vocabulary->vid"),
      'list' => l(t('list terms'), "admin/taxonomy/$vocabulary->vid"),
      'add' => l(t('add terms'), "admin/taxonomy/$vocabulary->vid/add/term")
    );
  }
  if (empty($rows)) {
drumm's avatar
drumm committed
151
    $rows[] = array(array('data' => t('No categories available.'), 'colspan' => '5', 'class' => 'message'));
152
  }
drumm's avatar
drumm committed
153
  $header = array(t('Name'), t('Type'), array('data' => t('Operations'), 'colspan' => '3'));
154

155
  return theme('table', $header, $rows, array('id' => 'taxonomy'));
156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198
}

/**
 * Display a tree of all the terms in a vocabulary, with options to edit
 * each one.
 */
function taxonomy_overview_terms($vid) {
  $destination = drupal_get_destination();

  $header = array(t('Name'), t('Operations'));
  $vocabulary = taxonomy_get_vocabulary($vid);

  drupal_set_title(check_plain($vocabulary->name));
  $start_from      = $_GET['page'] ? $_GET['page'] : 0;
  $total_entries   = 0;  // total count for pager
  $page_increment  = 25; // number of tids per page
  $displayed_count = 0;  // number of tids shown

  $tree = taxonomy_get_tree($vocabulary->vid);
  foreach ($tree as $term) {
    $total_entries++; // we're counting all-totals, not displayed
    if (($start_from && ($start_from * $page_increment) >= $total_entries) || ($displayed_count == $page_increment)) { continue; }
    $rows[] = array(_taxonomy_depth($term->depth) . ' ' . l($term->name, "taxonomy/term/$term->tid"), l(t('edit'), "admin/taxonomy/edit/term/$term->tid", array(), $destination));
    $displayed_count++; // we're counting tids displayed
  }

  if (!$rows) {
    $rows[] = array(array('data' => t('No terms available.'), 'colspan' => '2'));
  }

  $GLOBALS['pager_page_array'][] = $start_from;  // FIXME
  $GLOBALS['pager_total'][] = intval($total_entries / $page_increment) + 1; // FIXME

  if ($total_entries >= $page_increment) {
    $rows[] = array(array('data' => theme('pager', NULL, $page_increment), 'colspan' => '2'));
  }

  return theme('table', $header, $rows, array('id' => 'taxonomy'));
}

/**
 * Display form for adding and editing vocabularies.
 */
Kjartan's avatar
Kjartan committed
199
function taxonomy_form_vocabulary($edit = array()) {
200 201 202 203
  $form['name'] = array('#type' => 'textfield',
    '#title' => t('Vocabulary name'),
    '#default_value' => $edit['name'],
    '#maxlength' => 64,
204
    '#description' => t('The name for this vocabulary. Example: "Topic".'),
205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255
    '#required' => TRUE,
  );
  $form['description'] = array('#type' => 'textarea',
    '#title' => t('Description'),
    '#default_value' => $edit['description'],
    '#description' => t('Description of the vocabulary; can be used by modules.'),
  );
  $form['help'] = array('#type' => 'textfield',
    '#title' => t('Help text'),
    '#default_value' => $edit['help'],
    '#maxlength' => 255,
    '#description' => t('Instructions to present to the user when choosing a term.'),
  );
  $form['nodes'] = array('#type' => 'checkboxes',
    '#title' => t('Types'),
    '#default_value' => $edit['nodes'],
    '#options' => node_get_types(),
    '#description' => t('A list of node types you want to associate with this vocabulary.'),
    '#required' => TRUE,
  );
  $form['hierarchy'] = array('#type' => 'radios',
    '#title' => t('Hierarchy'),
    '#default_value' => $edit['hierarchy'],
    '#options' => array(t('Disabled'), t('Single'), t('Multiple')),
    '#description' => t('Allows <a href="%help-url">a tree-like hierarchy</a> between terms of this vocabulary.', array('%help-url' => url('admin/help/taxonomy', NULL, NULL, 'hierarchy'))),
  );
  $form['relations'] = array('#type' => 'checkbox',
    '#title' => t('Related terms'),
    '#default_value' => $edit['relations'],
    '#description' => t('Allows <a href="%help-url">related terms</a> in this vocabulary.', array('%help-url' => url('admin/help/taxonomy', NULL, NULL, 'related-terms'))),
  );
  $form['tags'] = array('#type' => 'checkbox',
    '#title' => t('Free tagging'),
    '#default_value' => $edit['tags'],
    '#description' => t('Content is categorized by typing terms instead of choosing from a list.'),
  );
  $form['multiple'] = array('#type' => 'checkbox',
    '#title' => t('Multiple select'),
    '#default_value' => $edit['multiple'],
    '#description' => t('Allows nodes to have more than one term from this vocabulary (always true for free tagging).'),
  );
  $form['required'] = array('#type' => 'checkbox',
    '#title' => t('Required'),
    '#default_value' => $edit['required'],
    '#description' => t('If enabled, every node <strong>must</strong> have at least one term in this vocabulary.'),
  );
  $form['weight'] = array('#type' => 'weight',
    '#title' => t('Weight'),
    '#default_value' => $edit['weight'],
    '#description' => t('In listings, the heavier vocabularies will sink and the lighter vocabularies will be positioned nearer the top.'),
  );
256

257 258 259 260
  // Add extra vocabulary form elements.
  $extra = module_invoke_all('taxonomy', 'form', 'vocabulary');
  if (is_array($extra)) {
    foreach ($extra as $key => $element) {
261
      $extra[$key]['#weight'] = isset($extra[$key]['#weight']) ? $extra[$key]['#weight'] : -18;
262 263 264
    }
    $form = array_merge($form, $extra);
  }
Dries's avatar
 
Dries committed
265

266
  $form['submit'] = array('#type' => 'submit', '#value' => t('Submit'));
Dries's avatar
 
Dries committed
267
  if ($edit['vid']) {
268
    $form['delete'] = array('#type' => 'submit', '#value' => t('Delete'));
269
    $form['vid'] = array('#type' => 'value', '#value' => $edit['vid']);
270
    $form['module'] = array('#type' => 'value', '#value' => $edit['module']);
Dries's avatar
 
Dries committed
271
  }
272
  return drupal_get_form('taxonomy_form_vocabulary', $form);
Kjartan's avatar
Kjartan committed
273
}
Kjartan's avatar
Kjartan committed
274

275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291
/**
 * Accept the form submission for a vocabulary and save the results.
 */
function taxonomy_form_vocabulary_submit($form_id, $form_values) {
  // Fix up the nodes array to remove unchecked nodes.
  $form_values['nodes'] = array_filter($form_values['nodes']);
  switch (taxonomy_save_vocabulary($form_values)) {
  case SAVED_NEW:
    drupal_set_message(t('Created new vocabulary %name.', array('%name' => theme('placeholder', $form_values['name']))));
    break;
  case SAVED_UPDATED:
    drupal_set_message(t('Updated vocabulary %name.', array('%name' => theme('placeholder', $form_values['name']))));
    break;
  }
  return 'admin/taxonomy';
}

292
function taxonomy_save_vocabulary(&$edit) {
293
  $edit['nodes'] = empty($edit['nodes']) ? array() : $edit['nodes'];
Dries's avatar
 
Dries committed
294

Dries's avatar
 
Dries committed
295
  if ($edit['vid'] && $edit['name']) {
296
    db_query("UPDATE {vocabulary} SET name = '%s', description = '%s', help = '%s', multiple = %d, required = %d, hierarchy = %d, relations = %d, tags = %d, weight = %d, module = '%s' WHERE vid = %d", $edit['name'], $edit['description'], $edit['help'], $edit['multiple'], $edit['required'], $edit['hierarchy'], $edit['relations'], $edit['tags'], $edit['weight'], isset($edit['module']) ? $edit['module'] : 'taxonomy', $edit['vid']);
Dries's avatar
 
Dries committed
297
    db_query("DELETE FROM {vocabulary_node_types} WHERE vid = %d", $edit['vid']);
298
    foreach ($edit['nodes'] as $type => $selected) {
Dries's avatar
 
Dries committed
299 300
      db_query("INSERT INTO {vocabulary_node_types} (vid, type) VALUES (%d, '%s')", $edit['vid'], $type);
    }
Dries's avatar
 
Dries committed
301
    module_invoke_all('taxonomy', 'update', 'vocabulary', $edit);
302
    $status = SAVED_UPDATED;
Dries's avatar
 
Dries committed
303
  }
Dries's avatar
 
Dries committed
304
  else if ($edit['vid']) {
305
    $status = taxonomy_del_vocabulary($edit['vid']);
Kjartan's avatar
Kjartan committed
306 307
  }
  else {
308 309
    $edit['vid'] = db_next_id('{vocabulary}_vid');
    db_query("INSERT INTO {vocabulary} (vid, name, description, help, multiple, required, hierarchy, relations, tags, weight, module) VALUES (%d, '%s', '%s', '%s', %d, %d, %d, %d, %d, %d, '%s')", $edit['vid'], $edit['name'], $edit['description'], $edit['help'], $edit['multiple'], $edit['required'], $edit['hierarchy'], $edit['relations'], $edit['tags'], $edit['weight'], isset($edit['module']) ? $edit['module'] : 'taxonomy');
310
    foreach ($edit['nodes'] as $type => $selected) {
Dries's avatar
 
Dries committed
311 312
      db_query("INSERT INTO {vocabulary_node_types} (vid, type) VALUES (%d, '%s')", $edit['vid'], $type);
    }
Dries's avatar
 
Dries committed
313
    module_invoke_all('taxonomy', 'insert', 'vocabulary', $edit);
314
    $status = SAVED_NEW;
Kjartan's avatar
Kjartan committed
315
  }
Dries's avatar
 
Dries committed
316 317

  cache_clear_all();
Dries's avatar
 
Dries committed
318

319
  return $status;
Kjartan's avatar
Kjartan committed
320
}
Dries's avatar
 
Dries committed
321

Kjartan's avatar
Kjartan committed
322
function taxonomy_del_vocabulary($vid) {
323
  $vocabulary = (array) taxonomy_get_vocabulary($vid);
Dries's avatar
 
Dries committed
324

Dries's avatar
 
Dries committed
325
  db_query('DELETE FROM {vocabulary} WHERE vid = %d', $vid);
Dries's avatar
 
Dries committed
326
  db_query('DELETE FROM {vocabulary_node_types} WHERE vid = %d', $vid);
Dries's avatar
 
Dries committed
327
  $result = db_query('SELECT tid FROM {term_data} WHERE vid = %d', $vid);
Kjartan's avatar
Kjartan committed
328 329
  while ($term = db_fetch_object($result)) {
    taxonomy_del_term($term->tid);
Dries's avatar
 
Dries committed
330
  }
Dries's avatar
 
Dries committed
331

Dries's avatar
 
Dries committed
332
  module_invoke_all('taxonomy', 'delete', 'vocabulary', $vocabulary);
Dries's avatar
 
Dries committed
333

Dries's avatar
 
Dries committed
334 335
  cache_clear_all();

336
  return SAVED_DELETED;
Dries's avatar
 
Dries committed
337 338 339 340 341
}

function _taxonomy_confirm_del_vocabulary($vid) {
  $vocabulary = taxonomy_get_vocabulary($vid);

342 343 344 345
  $form['type'] = array('#type' => 'value', '#value' => 'vocabulary');
  $form['vid'] = array('#type' => 'value', '#value' => $vid);
  $form['name'] = array('#type' => 'value', '#value' => $vocabulary->name);
  return confirm_form('taxonomy_vocabulary_confirm_delete', $form,
346 347 348
                  t('Are you sure you want to delete the vocabulary %title?',
                  array('%title' => theme('placeholder', $vocabulary->name))),
                  'admin/taxonomy', t('Deleting a vocabulary will delete all the terms in it. This action cannot be undone.'),
349
                  t('Delete'),
350
                  t('Cancel'));
Kjartan's avatar
Kjartan committed
351
}
Dries's avatar
 
Dries committed
352

353 354 355 356 357 358
function taxonomy_vocabulary_confirm_delete_submit($form_id, $form_values) {
  $status = taxonomy_del_vocabulary($form_values['vid']);
  drupal_set_message(t('Deleted vocabulary %name.', array('%name' => theme('placeholder', $form_values['name']))));
  return 'admin/taxonomy';
}

Kjartan's avatar
Kjartan committed
359
function taxonomy_form_term($edit = array()) {
Dries's avatar
 
Dries committed
360
  $vocabulary_id = isset($edit['vid']) ? $edit['vid'] : arg(4);
Kjartan's avatar
Kjartan committed
361
  $vocabulary = taxonomy_get_vocabulary($vocabulary_id);
Dries's avatar
 
Dries committed
362

363
  $form['name'] = array('#type' => 'textfield', '#title' => t('Term name'), '#default_value' => $edit['name'], '#maxlength' => 64, '#description' => t('The name for this term. Example: "Linux".'), '#required' => TRUE);
364

365
  $form['description'] = array('#type' => 'textarea', '#title' => t('Description'), '#default_value' => $edit['description'], '#description' => t('A description of the term.'));
Dries's avatar
 
Dries committed
366

Kjartan's avatar
Kjartan committed
367
  if ($vocabulary->hierarchy) {
Dries's avatar
 
Dries committed
368 369
    $parent = array_keys(taxonomy_get_parents($edit['tid']));
    $children = taxonomy_get_tree($vocabulary_id, $edit['tid']);
Dries's avatar
 
Dries committed
370

Dries's avatar
 
Dries committed
371
    // A term can't be the child of itself, nor of its children.
Dries's avatar
 
Dries committed
372 373 374
    foreach ($children as $child) {
      $exclude[] = $child->tid;
    }
Dries's avatar
 
Dries committed
375
    $exclude[] = $edit['tid'];
Dries's avatar
 
Dries committed
376

Kjartan's avatar
Kjartan committed
377
    if ($vocabulary->hierarchy == 1) {
378
      $form['parent'] = _taxonomy_term_select(t('Parent'), 'parent', $parent, $vocabulary_id, l(t('Parent term'), 'admin/help/taxonomy', NULL, NULL, 'parent') .'.', 0, '<'. t('root') .'>', $exclude);
Dries's avatar
 
Dries committed
379
    }
Kjartan's avatar
Kjartan committed
380
    elseif ($vocabulary->hierarchy == 2) {
381
      $form['parent'] = _taxonomy_term_select(t('Parents'), 'parent', $parent, $vocabulary_id, l(t('Parent terms'), 'admin/help/taxonomy', NULL, NULL, 'parent') .'.', 1, '<'. t('root') .'>', $exclude);
Dries's avatar
 
Dries committed
382
    }
Kjartan's avatar
Kjartan committed
383
  }
Dries's avatar
 
Dries committed
384

385
  if ($vocabulary->relations) {
386
    $form['relations'] = _taxonomy_term_select(t('Related terms'), 'relations', array_keys(taxonomy_get_related($edit['tid'])), $vocabulary_id, NULL, 1, '<'. t('none') .'>', array($edit['tid']));
387 388
  }

389 390
  $form['synonyms'] = array('#type' => 'textarea', '#title' => t('Synonyms'), '#default_value' => implode("\n", taxonomy_get_synonyms($edit['tid'])), '#description' => t('<a href="%help-url">Synonyms</a> of this term, one synonym per line.', array('%help-url' => url('admin/help/taxonomy', NULL, NULL, 'synonyms'))));
  $form['weight'] = array('#type' => 'weight', '#title' => t('Weight'), '#default_value' => $edit['weight'], '#description' => t('In listings, the heavier terms will sink and the lighter terms will be positioned nearer the top.'));
391 392 393 394 395

  // Add extra term form elements.
  $extra = module_invoke_all('taxonomy', 'term', 'vocabulary');
  if (is_array($extra)) {
    foreach ($extra as $key => $element) {
396
      $extra[$key]['#weight'] = isset($extra[$key]['#weight']) ? $extra[$key]['#weight'] : -18;
397 398 399 400 401
    }
    $form = array_merge($form, $extra);
  }


402
  $form['vid'] = array('#type' => 'value', '#value' => $vocabulary->vid);
403
  $form['submit'] = array('#type' => 'submit', '#value' => t('Submit'));
Kjartan's avatar
Kjartan committed
404

Dries's avatar
 
Dries committed
405
  if ($edit['tid']) {
406
    $form['delete'] = array('#type' => 'submit', '#value' => t('Delete'));
407
    $form['tid'] = array('#type' => 'value', '#value' => $edit['tid']);
Dries's avatar
 
Dries committed
408
  }
409
  else {
410
    $form['destination'] = array('#type' => 'hidden', '#value' => $_GET['q']);
411
  }
Dries's avatar
 
Dries committed
412

413
  return drupal_get_form('taxonomy_form_term', $form);
Kjartan's avatar
Kjartan committed
414
}
Dries's avatar
 
Dries committed
415

416 417 418 419 420 421 422 423 424 425 426 427 428 429 430
/**
 * Accept the form submission for a taxonomy term and save the result.
 */
function taxonomy_form_term_submit($form_id, $form_values) {
  switch (taxonomy_save_term($form_values)) {
    case SAVED_NEW:
      drupal_set_message(t('Created new term %term.', array('%term' => theme('placeholder', $form_values['name']))));
      break;
    case SAVED_UPDATED:
      drupal_set_message(t('The term %term has been updated.', array('%term' => theme('placeholder', $form_values['name']))));
      break;
  }
  return 'admin/taxonomy';
}

431
function taxonomy_save_term(&$edit) {
Dries's avatar
 
Dries committed
432
  if ($edit['tid'] && $edit['name']) {
433
    db_query("UPDATE {term_data} SET name = '%s', description = '%s', weight = %d WHERE tid = %d", $edit['name'], $edit['description'], $edit['weight'], $edit['tid']);
Dries's avatar
 
Dries committed
434
    module_invoke_all('taxonomy', 'update', 'term', $edit);
435
    $status = SAVED_UPDATED;
Kjartan's avatar
Kjartan committed
436
  }
Dries's avatar
 
Dries committed
437 438
  else if ($edit['tid']) {
    return taxonomy_del_term($edit['tid']);
Kjartan's avatar
Kjartan committed
439 440
  }
  else {
Dries's avatar
 
Dries committed
441
    $edit['tid'] = db_next_id('{term_data}_tid');
442
    db_query("INSERT INTO {term_data} (tid, name, description, vid, weight) VALUES (%d, '%s', '%s', %d, %d)", $edit['tid'], $edit['name'], $edit['description'], $edit['vid'], $edit['weight']);
Dries's avatar
 
Dries committed
443
    module_invoke_all('taxonomy', 'insert', 'term', $edit);
444
    $status = SAVED_NEW;
Kjartan's avatar
Kjartan committed
445
  }
Dries's avatar
 
Dries committed
446

Dries's avatar
 
Dries committed
447 448 449
  db_query('DELETE FROM {term_relation} WHERE tid1 = %d OR tid2 = %d', $edit['tid'], $edit['tid']);
  if ($edit['relations']) {
    foreach ($edit['relations'] as $related_id) {
Kjartan's avatar
Kjartan committed
450
      if ($related_id != 0) {
Dries's avatar
 
Dries committed
451
        db_query('INSERT INTO {term_relation} (tid1, tid2) VALUES (%d, %d)', $edit['tid'], $related_id);
Dries's avatar
 
Dries committed
452
      }
Kjartan's avatar
Kjartan committed
453
    }
Kjartan's avatar
Kjartan committed
454
  }
Dries's avatar
 
Dries committed
455

Dries's avatar
 
Dries committed
456
  db_query('DELETE FROM {term_hierarchy} WHERE tid = %d', $edit['tid']);
457
  if (!isset($edit['parent']) || empty($edit['parent'])) {
458
    $edit['parent'] = array(0);
Kjartan's avatar
Kjartan committed
459
  }
Dries's avatar
 
Dries committed
460 461
  if (is_array($edit['parent'])) {
    foreach ($edit['parent'] as $parent) {
462 463 464 465 466 467 468 469
      if (is_array($parent)) {
        foreach ($parent as $tid) {
          db_query('INSERT INTO {term_hierarchy} (tid, parent) VALUES (%d, %d)', $edit['tid'], $tid);
        }
      }
      else {
        db_query('INSERT INTO {term_hierarchy} (tid, parent) VALUES (%d, %d)', $edit['tid'], $parent);
      }
Dries's avatar
 
Dries committed
470
    }
Kjartan's avatar
Kjartan committed
471
  }
472 473 474
  else {
    db_query('INSERT INTO {term_hierarchy} (tid, parent) VALUES (%d, %d)', $edit['tid'], $edit['parent']);
  }
Dries's avatar
 
Dries committed
475

Dries's avatar
 
Dries committed
476 477 478
  db_query('DELETE FROM {term_synonym} WHERE tid = %d', $edit['tid']);
  if ($edit['synonyms']) {
    foreach (explode ("\n", str_replace("\r", '', $edit['synonyms'])) as $synonym) {
Dries's avatar
 
Dries committed
479
      if ($synonym) {
Dries's avatar
 
Dries committed
480
        db_query("INSERT INTO {term_synonym} (tid, name) VALUES (%d, '%s')", $edit['tid'], chop($synonym));
Dries's avatar
 
Dries committed
481
      }
Kjartan's avatar
Kjartan committed
482
    }
Dries's avatar
 
Dries committed
483
  }
Dries's avatar
 
Dries committed
484

Dries's avatar
 
Dries committed
485 486
  cache_clear_all();

487
  return $status;
Kjartan's avatar
Kjartan committed
488
}
Dries's avatar
 
Dries committed
489

Kjartan's avatar
Kjartan committed
490
function taxonomy_del_term($tid) {
491 492 493 494 495 496 497 498 499 500 501 502 503 504
  $tids = array($tid);
  while ($tids) {
    $children_tids = $orphans = array();
    foreach ($tids as $tid) {
      // See if any of the term's children are about to be become orphans:
      if ($children = taxonomy_get_children($tid)) {
        foreach ($children as $child) {
          // If the term has multiple parents, we don't delete it.
          $parents = taxonomy_get_parents($child->tid);
          if (count($parents) == 1) {
            $orphans[] = $child->tid;
          }
        }
      }
Dries's avatar
 
Dries committed
505

506
      $term = (array) taxonomy_get_term($tid);
Dries's avatar
 
Dries committed
507

508 509 510 511 512
      db_query('DELETE FROM {term_data} WHERE tid = %d', $tid);
      db_query('DELETE FROM {term_hierarchy} WHERE tid = %d', $tid);
      db_query('DELETE FROM {term_relation} WHERE tid1 = %d OR tid2 = %d', $tid, $tid);
      db_query('DELETE FROM {term_synonym} WHERE tid = %d', $tid);
      db_query('DELETE FROM {term_node} WHERE tid = %d', $tid);
Dries's avatar
 
Dries committed
513

514 515
      module_invoke_all('taxonomy', 'delete', 'term', $term);
    }
Dries's avatar
 
Dries committed
516

517 518
    $tids = $orphans;
  }
Dries's avatar
 
Dries committed
519

Dries's avatar
 
Dries committed
520
  cache_clear_all();
521 522

  return SAVED_DELETED;
Dries's avatar
 
Dries committed
523 524 525 526 527
}

function _taxonomy_confirm_del_term($tid) {
  $term = taxonomy_get_term($tid);

528 529 530 531
  $form['type'] = array('#type' => 'value', '#value' => 'term');
  $form['name'] = array('#type' => 'value', '#value' => $term->name);
  $form['tid'] = array('#type' => 'value', '#value' => $tid);
  return confirm_form('taxonomy_term_confirm_delete', $form,
532 533
                  t('Are you sure you want to delete the term %title?',
                  array('%title' => theme('placeholder', $term->name))),
534 535 536
                  'admin/taxonomy',
                  t('Deleting a term will delete all its children if there are any. This action cannot be undone.'),
                  t('Delete'),
537
                  t('Cancel'));
Kjartan's avatar
Kjartan committed
538
}
Dries's avatar
 
Dries committed
539

540 541 542 543
function taxonomy_term_confirm_delete_submit($form_id, $form_values) {
  taxonomy_del_term($form_values['tid']);
  drupal_set_message(t('Deleted term %name.', array('%name' => theme('placeholder', $form_values['name']))));
  return 'admin/taxonomy';
Kjartan's avatar
Kjartan committed
544 545
}

Dries's avatar
 
Dries committed
546 547 548
/**
 * Generate a form element for selecting terms from a vocabulary.
 */
Dries's avatar
 
Dries committed
549
function taxonomy_form($vid, $value = 0, $help = NULL, $name = 'taxonomy') {
Dries's avatar
 
Dries committed
550
  $vocabulary = taxonomy_get_vocabulary($vid);
551
  $help = ($help) ? $help : $vocabulary->help;
Kjartan's avatar
Kjartan committed
552 553 554 555
  if ($vocabulary->required) {
    $blank = 0;
  }
  else {
Dries's avatar
 
Dries committed
556
    $blank = '<'. t('none') .'>';
Kjartan's avatar
Kjartan committed
557
  }
Dries's avatar
 
Dries committed
558

559
  return _taxonomy_term_select(check_plain($vocabulary->name), $name, $value, $vid, $help, intval($vocabulary->multiple), $blank);
Kjartan's avatar
Kjartan committed
560
}
Dries's avatar
 
Dries committed
561

562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581
/**
 * Generate a set of options for selecting a term from all vocabularies. Can be
 * passed to form_select.
 */
function taxonomy_form_all($free_tags = 0) {
  $vocabularies = taxonomy_get_vocabularies();
  $options = array();
  foreach ($vocabularies as $vid => $vocabulary) {
    if ($vocabulary->tags && !$free_tags) { continue; }
    $tree = taxonomy_get_tree($vid);
    $options[$vocabulary->name] = array();
    if ($tree) {
      foreach ($tree as $term) {
        $options[$vocabulary->name][$term->tid] = _taxonomy_depth($term->depth, '-') . $term->name;
      }
    }
  }
  return $options;
}

Dries's avatar
 
Dries committed
582 583 584 585 586 587
/**
 * Return an array of all vocabulary objects.
 *
 * @param $type
 *   If set, return only those vocabularies associated with this node type.
 */
Dries's avatar
 
Dries committed
588
function taxonomy_get_vocabularies($type = NULL) {
Kjartan's avatar
Kjartan committed
589
  if ($type) {
590
    $result = db_query(db_rewrite_sql("SELECT v.vid, v.*, n.type FROM {vocabulary} v LEFT JOIN {vocabulary_node_types} n ON v.vid = n.vid WHERE n.type = '%s' ORDER BY v.weight, v.name", 'v', 'vid'), $type);
Kjartan's avatar
Kjartan committed
591 592
  }
  else {
593
    $result = db_query(db_rewrite_sql('SELECT v.*, n.type FROM {vocabulary} v LEFT JOIN {vocabulary_node_types} n ON v.vid = n.vid ORDER BY v.weight, v.name', 'v', 'vid'));
Kjartan's avatar
Kjartan committed
594
  }
Dries's avatar
 
Dries committed
595

Kjartan's avatar
Kjartan committed
596
  $vocabularies = array();
Dries's avatar
 
Dries committed
597
  $node_types = array();
Kjartan's avatar
Kjartan committed
598
  while ($voc = db_fetch_object($result)) {
Dries's avatar
 
Dries committed
599 600 601 602
    $node_types[$voc->vid][] = $voc->type;
    unset($voc->type);
    $voc->nodes = $node_types[$voc->vid];
    $vocabularies[$voc->vid] = $voc;
Dries's avatar
 
Dries committed
603
  }
Dries's avatar
 
Dries committed
604

Kjartan's avatar
Kjartan committed
605 606
  return $vocabularies;
}
Dries's avatar
 
Dries committed
607

Dries's avatar
 
Dries committed
608 609 610
/**
 * Generate a form for selecting terms to associate with a node.
 */
611 612 613 614
function taxonomy_form_alter($form_id, &$form) {
  if (isset($form['type']) && $form['type']['#value'] .'_node_form' == $form_id) {
    $node = $form['#node'];

615
    if (!isset($node->taxonomy)) {
616 617 618 619 620 621
      if ($node->nid) {
        $terms = taxonomy_node_get_terms($node->nid);
      }
      else {
        $terms = array();
      }
Kjartan's avatar
Kjartan committed
622 623
    }
    else {
624
      $terms = $node->taxonomy;
Dries's avatar
 
Dries committed
625 626
    }

627
    $c = db_query(db_rewrite_sql("SELECT v.* FROM {vocabulary} v INNER JOIN {vocabulary_node_types} n ON v.vid = n.vid WHERE n.type = '%s' ORDER BY v.weight, v.name", 'v', 'vid'), $node->type);
Dries's avatar
Dries committed
628

629 630 631 632
    while ($vocabulary = db_fetch_object($c)) {
      if ($vocabulary->tags) {
        $typed_terms = array();
        foreach ($terms as $term) {
633
          // Extract terms belonging to the vocabulary in question.
634
          if ($term->vid == $vocabulary->vid) {
Dries's avatar
Dries committed
635

636 637 638 639 640 641 642
            // Commas and quotes in terms are special cases, so encode 'em.
            if (preg_match('/,/', $term->name) || preg_match('/"/', $term->name)) {
              $term->name = '"'.preg_replace('/"/', '""', $term->name).'"';
            }

            $typed_terms[] = $term->name;
          }
Dries's avatar
Dries committed
643
        }
644
        $typed_string = implode(', ', $typed_terms) . (array_key_exists('tags', $terms) ? $terms['tags'][$vocabulary->vid] : NULL);
645

646 647 648 649
        if ($vocabulary->help) {
          $help = $vocabulary->help;
        }
        else {
650
          $help = t('A comma-separated list of terms describing this content. Example: funny, bungee jumping, "Company, Inc.".');
651
        }
652 653 654 655 656 657 658
        $form['taxonomy']['tags'][$vocabulary->vid] = array('#type' => 'textfield',
          '#title' => $vocabulary->name,
          '#description' => $help,
          '#required' => $vocabulary->required,
          '#default_value' => $typed_string,
          '#autocomplete_path' => 'taxonomy/autocomplete/'. $vocabulary->vid,
          '#weight' => $vocabulary->weight,
659
          '#maxlength' => 255,
660
        );
661 662
      }
      else {
663 664 665 666 667 668 669 670
        // Extract terms belonging to the vocabulary in question.
        $default_terms = array();
        foreach ($terms as $term) {
          if ($term->vid == $vocabulary->vid) {
            $default_terms[$term->tid] = $term;
          }
        }
        $form['taxonomy'][$vocabulary->vid] = taxonomy_form($vocabulary->vid, array_keys($default_terms), $vocabulary->help);
671
        $form['taxonomy'][$vocabulary->vid]['#weight'] = $vocabulary->weight;
672
        $form['taxonomy'][$vocabulary->vid]['#required'] = $vocabulary->required;
673
      }
Dries's avatar
Dries committed
674
    }
675
    if (isset($form['taxonomy'])) {
676
      $form['taxonomy'] += array('#type' => 'fieldset', '#title' => t('Categories'), '#collapsible' => TRUE, '#collapsed' => FALSE, '#tree' => TRUE, '#weight' => -3);
Dries's avatar
Dries committed
677
    }
Dries's avatar
 
Dries committed
678
  }
Kjartan's avatar
Kjartan committed
679
}
Dries's avatar
 
Dries committed
680

Dries's avatar
 
Dries committed
681 682 683 684
/**
 * Find all terms associated to the given node, within one vocabulary.
 */
function taxonomy_node_get_terms_by_vocabulary($nid, $vid, $key = 'tid') {
685
  $result = db_query(db_rewrite_sql('SELECT t.tid, t.* FROM {term_data} t INNER JOIN {term_node} r ON r.tid = t.tid WHERE t.vid = %d AND r.nid = %d ORDER BY weight', 't', 'tid'), $vid, $nid);
Kjartan's avatar
Kjartan committed
686 687 688
  $terms = array();
  while ($term = db_fetch_object($result)) {
    $terms[$term->$key] = $term;
Dries's avatar
 
Dries committed
689
  }
Kjartan's avatar
Kjartan committed
690 691 692
  return $terms;
}

Dries's avatar
 
Dries committed
693
/**
694
 * Find all terms associated to the given node, ordered by vocabulary and term weight.
Dries's avatar
 
Dries committed
695 696
 */
function taxonomy_node_get_terms($nid, $key = 'tid') {
Kjartan's avatar
Kjartan committed
697
  static $terms;
Dries's avatar
 
Dries committed
698

Dries's avatar
 
Dries committed
699
  if (!isset($terms[$nid])) {
700
    $result = db_query(db_rewrite_sql('SELECT t.* FROM {term_node} r INNER JOIN {term_data} t ON r.tid = t.tid INNER JOIN {vocabulary} v ON t.vid = v.vid WHERE r.nid = %d ORDER BY v.weight, t.weight, t.name', 't', 'tid'), $nid);
Kjartan's avatar
Kjartan committed
701
    $terms[$nid] = array();
Dries's avatar
 
Dries committed
702
    while ($term = db_fetch_object($result)) {
Kjartan's avatar
Kjartan committed
703
      $terms[$nid][$term->$key] = $term;
Dries's avatar
 
Dries committed
704 705
    }
  }
Kjartan's avatar
Kjartan committed
706 707
  return $terms[$nid];
}
Dries's avatar
 
Dries committed
708

Dries's avatar
Dries committed
709 710 711 712 713 714 715 716 717 718
/**
 * Make sure incoming vids are free tagging enabled.
 */
function taxonomy_node_validate(&$node) {
  if ($node->taxonomy) {
    $terms = $node->taxonomy;
    if ($terms['tags']) {
      foreach ($terms['tags'] as $vid => $vid_value) {
        $vocabulary = taxonomy_get_vocabulary($vid);
        if (!$vocabulary->tags) {
719 720 721
          // see form_get_error $key = implode('][', $element['#parents']);
          // on why this is the key
          form_set_error("taxonomy][tags][$vid", t('The %name vocabulary can not be modified in this way.', array('%name' => theme('placeholder', $vocabulary->name))));
Dries's avatar
Dries committed
722 723 724 725 726 727
        }
      }
    }
  }
}

Dries's avatar
 
Dries committed
728 729 730
/**
 * Save term associations for a given node.
 */
Kjartan's avatar
Kjartan committed
731
function taxonomy_node_save($nid, $terms) {
732
  taxonomy_node_delete($nid);
Dries's avatar
Dries committed
733 734 735

  // Free tagging vocabularies do not send their tids in the form,
  // so we'll detect them here and process them independently.
736
  if (isset($terms['tags'])) {
Dries's avatar
Dries committed
737 738 739 740 741 742 743 744
    $typed_input = $terms['tags'];
    unset($terms['tags']);

    foreach ($typed_input as $vid => $vid_value) {
      // 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);
745
      $typed_terms = array_unique($matches[1]);
Dries's avatar
Dries committed
746

747
      $inserted = array();
Dries's avatar
Dries committed
748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766
      foreach ($typed_terms as $typed_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 DB as the user intends.
        $typed_term = str_replace('""', '"', preg_replace('/^"(.*)"$/', '\1', $typed_term));
        $typed_term = trim($typed_term);
        if ($typed_term == "") { continue; }

        // See if the term exists in the chosen vocabulary
        // and return the tid, otherwise, add a new record.
        $possibilities = taxonomy_get_term_by_name($typed_term);
        $typed_term_tid = NULL; // tid match if any.
        foreach ($possibilities as $possibility) {
          if ($possibility->vid == $vid) {
            $typed_term_tid = $possibility->tid;
          }
        }

        if (!$typed_term_tid) {
767 768 769
          $edit = array('vid' => $vid, 'name' => $typed_term);
          $status = taxonomy_save_term($edit);
          $typed_term_tid = $edit['tid'];
Dries's avatar
Dries committed
770 771
        }

772 773 774 775 776
        // Defend against duplicate, different cased tags
        if (!isset($inserted[$typed_term_tid])) {
          db_query('INSERT INTO {term_node} (nid, tid) VALUES (%d, %d)', $nid, $typed_term_tid);
          $inserted[$typed_term_tid] = TRUE;
        }
Dries's avatar
Dries committed
777 778 779
      }
    }
  }
Dries's avatar
 
Dries committed
780

781
  if (is_array($terms)) {
Dries's avatar
 
Dries committed
782
    foreach ($terms as $term) {
783 784 785 786 787 788 789
      if (is_array($term)) {
        foreach ($term as $tid) {
          if ($tid) {
            db_query('INSERT INTO {term_node} (nid, tid) VALUES (%d, %d)', $nid, $tid);
          }
        }
      }
790 791 792
      else if (is_object($term)) {
        db_query('INSERT INTO {term_node} (nid, tid) VALUES (%d, %d)', $nid, $term->tid);
      }
793
      else if ($term) {
Dries's avatar
 
Dries committed
794
        db_query('INSERT INTO {term_node} (nid, tid) VALUES (%d, %d)', $nid, $term);
795
      }
Dries's avatar
 
Dries committed
796 797
    }
  }
Kjartan's avatar
Kjartan committed
798
}
Dries's avatar
 
Dries committed
799

Dries's avatar
 
Dries committed
800 801 802
/**
 * Remove associations of a node to its terms.
 */
Kjartan's avatar
Kjartan committed
803
function taxonomy_node_delete($nid) {
Dries's avatar
 
Dries committed
804
  db_query('DELETE FROM {term_node} WHERE nid = %d', $nid);
Kjartan's avatar
Kjartan committed
805
}
Dries's avatar
 
Dries committed
806

Dries's avatar
 
Dries committed
807 808 809 810
/**
 * Find all term objects related to a given term ID.
 */
function taxonomy_get_related($tid, $key = 'tid') {
Kjartan's avatar
Kjartan committed
811
  if ($tid) {
Dries's avatar
 
Dries committed
812
    $result = db_query('SELECT t.*, tid1, tid2 FROM {term_relation}, {term_data} t WHERE (t.tid = tid1 OR t.tid = tid2) AND (tid1 = %d OR tid2 = %d) AND t.tid != %d ORDER BY weight, name', $tid, $tid, $tid);
Kjartan's avatar
Kjartan committed
813 814 815
    $related = array();
    while ($term = db_fetch_object($result)) {
      $related[$term->$key] = $term;
Dries's avatar
 
Dries committed
816
    }
Kjartan's avatar
Kjartan committed
817
    return $related;
Dries's avatar
 
Dries committed
818
  }
Kjartan's avatar
Kjartan committed
819 820
  else {
    return array();
Dries's avatar
 
Dries committed
821
  }
Kjartan's avatar
Kjartan committed
822
}
Dries's avatar
 
Dries committed
823

Dries's avatar
 
Dries committed
824 825 826 827
/**
 * Find all parents of a given term ID.
 */
function taxonomy_get_parents($tid, $key = 'tid') {
Kjartan's avatar
Kjartan committed
828
  if ($tid) {
829
    $result = db_query(db_rewrite_sql('SELECT t.tid, t.* FROM {term_data} t INNER JOIN {term_hierarchy} h ON h.parent = t.tid WHERE h.tid = %d ORDER BY weight, name', 't', 'tid'), $tid);
Kjartan's avatar
Kjartan committed
830 831 832
    $parents = array();
    while ($parent = db_fetch_object($result)) {
      $parents[$parent->$key] = $parent;
Dries's avatar
 
Dries committed
833
    }
Kjartan's avatar
Kjartan committed
834
    return $parents;
Dries's avatar
 
Dries committed
835
  }
Kjartan's avatar
Kjartan committed
836 837 838 839
  else {
    return array();
  }
}
Dries's avatar
 
Dries committed
840

Dries's avatar
 
Dries committed
841 842 843 844
/**
 * Find all ancestors of a given term ID.
 */
function taxonomy_get_parents_all($tid) {
Dries's avatar
 
Dries committed
845 846 847 848 849 850 851 852 853 854 855 856
  $parents = array();
  if ($tid) {
    $parents[] = taxonomy_get_term($tid);
    $n = 0;
    while ($parent = taxonomy_get_parents($parents[$n]->tid)) {
      $parents = array_merge($parents, $parent);
      $n++;
    }
  }
  return $parents;
}

Dries's avatar
 
Dries committed
857 858 859 860
/**
 * Find all children of a term ID.
 */
function taxonomy_get_children($tid, $vid = 0, $key = 'tid') {
Kjartan's avatar
Kjartan committed
861
  if ($vid) {
862
    $result = db_query(db_rewrite_sql('SELECT t.* FROM {term_data} t INNER JOIN {term_hierarchy} h ON h.tid = t.tid WHERE t.vid = %d AND h.parent = %d ORDER BY weight, name', 't', 'tid'), $vid, $tid);