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

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

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

Dries Buytaert's avatar
   
Dries Buytaert 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 Buytaert's avatar
   
Dries Buytaert committed
27
function taxonomy_link($type, $node = NULL) {
Dries Buytaert's avatar
   
Dries Buytaert committed
28
  if ($type == 'taxonomy terms' && $node != NULL) {
Kjartan Mannes's avatar
   
Kjartan Mannes committed
29
    $links = array();
Dries Buytaert's avatar
   
Dries Buytaert committed
30
    if (array_key_exists('taxonomy', $node)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
31
32
      foreach ($node->taxonomy as $tid) {
        $term = taxonomy_get_term($tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
33
        $links[] = l($term->name, 'taxonomy/term/'. $term->tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
34
35
36
37
38
      }
    }
    else {
      $links = array();
      foreach (taxonomy_node_get_terms($node->nid) as $term) {
Dries Buytaert's avatar
   
Dries Buytaert committed
39
        $links[] = l($term->name, 'taxonomy/term/'. $term->tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
40
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
41
42
43
44

    }
    return $links;
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
45
46
}

Dries Buytaert's avatar
   
Dries Buytaert committed
47
48
49
/**
 * Implementation of hook_menu().
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
50
function taxonomy_menu($may_cache) {
Dries Buytaert's avatar
   
Dries Buytaert committed
51
  $items = array();
Dries Buytaert's avatar
   
Dries Buytaert committed
52

Dries Buytaert's avatar
   
Dries Buytaert committed
53
54
55
56
  if ($may_cache) {
    $items[] = array('path' => 'admin/taxonomy', 'title' => t('categories'),
      'callback' => 'taxonomy_admin',
      'access' => user_access('administer taxonomy'));
57

Dries Buytaert's avatar
   
Dries Buytaert committed
58
59
    $items[] = array('path' => 'admin/taxonomy/list', 'title' => t('list'),
      'type' => MENU_DEFAULT_LOCAL_TASK, 'weight' => -10);
60

Dries Buytaert's avatar
   
Dries Buytaert committed
61
62
63
64
65
    $items[] = array('path' => 'admin/taxonomy/add/vocabulary', 'title' => t('add vocabulary'),
      'callback' => 'taxonomy_admin',
      'access' => user_access('administer taxonomy'),
      'type' => MENU_LOCAL_TASK);

66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
    $items[] = array('path' => 'admin/taxonomy/edit/vocabulary', 'title' => t('edit vocabulary'),
      'callback' => 'taxonomy_admin',
      'access' => user_access('administer taxonomy'),
      'type' => MENU_CALLBACK);

    $items[] = array('path' => 'admin/taxonomy/preview/vocabulary', 'title' => t('preview vocabulary'),
      'callback' => 'taxonomy_admin',
      'access' => user_access('administer taxonomy'),
      'type' => MENU_CALLBACK);

    $items[] = array('path' => 'admin/taxonomy/add/term', 'title' => t('add term'),
      'callback' => 'taxonomy_admin',
      'access' => user_access('administer taxonomy'),
      'type' => MENU_CALLBACK);

    $items[] = array('path' => 'admin/taxonomy/edit/term', 'title' => t('edit term'),
      'callback' => 'taxonomy_admin',
      'access' => user_access('administer taxonomy'),
      'type' => MENU_CALLBACK);

Dries Buytaert's avatar
   
Dries Buytaert committed
86
87
88
89
90
91
    $items[] = array('path' => 'taxonomy/term', 'title' => t('taxonomy term'),
      'callback' => 'taxonomy_term_page',
      'access' => user_access('access content'),
      'type' => MENU_CALLBACK);
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
92
93
  return $items;
}
Dries Buytaert's avatar
 
Dries Buytaert committed
94

95
96
97
98
99
100
101
102
103
104
/**
 * Implementation of hook_block().
 *
 * Generates a block with all categories.
 */
function taxonomy_block($op = 'list', $delta = 0) {
  if ($op == 'list') {
    $blocks[0]['info'] = t('Categories');
    return $blocks;
  }
105
  else if ($op == 'view' && user_access('access content')) {
106
    $result = db_query(db_rewrite_sql('SELECT d.tid, d.name, MAX(n.created) AS updated, COUNT(*) AS count FROM {term_data} d INNER JOIN {term_node} USING (tid) INNER JOIN {node} n USING (nid) WHERE n.status = 1 GROUP BY d.tid, d.name ORDER BY updated DESC, d.name'));
107
108
    $items = array();
    while ($category = db_fetch_object($result)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
109
      $items[] = l($category->name .' ('. $category->count .')', 'taxonomy/term/'. $category->tid) .'<br />'. t('%time ago', array('%time' => format_interval(time() - $category->updated)));
110
111
112
113
114
115
116
117
    }

    $block['subject'] = t('Categories');
    $block['content'] = theme('item_list', $items);
    return $block;
  }
}

Kjartan Mannes's avatar
Kjartan Mannes committed
118
function taxonomy_form_vocabulary($edit = array()) {
Dries Buytaert's avatar
   
Dries Buytaert committed
119
120
121
  foreach (array_merge(node_list(), $edit['nodes']) as $type) {
    $node_type = node_invoke($type, 'node_name');
    $nodes[$type] = $node_type ? $node_type : $type;
Kjartan Mannes's avatar
Kjartan Mannes committed
122
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
123

Dries Buytaert's avatar
   
Dries Buytaert committed
124
125
126
  $form .= form_textfield(t('Vocabulary name'), 'name', $edit['name'], 50, 64, t('The name for this vocabulary.  Example: "Topic".'), NULL, TRUE);
  $form .= form_textarea(t('Description'), 'description', $edit['description'], 60, 5, t('Description of the vocabulary; can be used by modules.'));
  $form .= form_textfield(t('Help text'), 'help', $edit['help'], 50, 255, t('Instructions to present to the user when choosing a term.'));
Dries Buytaert's avatar
   
Dries Buytaert committed
127
  $form .= form_checkboxes(t('Types'), 'nodes', $edit['nodes'], $nodes, t('A list of node types you want to associate with this vocabulary.'), NULL, TRUE);
128
129
  $form .= form_checkbox(t('Related terms'), 'relations', 1, $edit['relations'], t('Allows <a href="%help-url">related terms</a> in this vocabulary.', array('%help-url' => url('admin/help/taxonomy', NULL, NULL, 'related-terms'))));
  $form .= form_radios(t('Hierarchy'), 'hierarchy', $edit['hierarchy'], array(t('Disabled'), t('Single'), t('Multiple')), 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'))));
Dries Buytaert's avatar
   
Dries Buytaert committed
130
  $form .= form_checkbox(t('Multiple select'), 'multiple', 1, $edit['multiple'], t('Allows nodes to have more than one term in this vocabulary.'));
Dries Buytaert's avatar
   
Dries Buytaert committed
131
  $form .= form_checkbox(t('Required'), 'required', 1, $edit['required'], t('If enabled, every node <strong>must</strong> have at least one term in this vocabulary.'));
Dries Buytaert's avatar
   
Dries Buytaert committed
132
  $form .= form_weight(t('Weight'), 'weight', $edit['weight'], 10, t('In listings, the heavier vocabularies will sink and the lighter vocabularies will be positioned nearer the top.'));
Dries Buytaert's avatar
   
Dries Buytaert committed
133
  $form .= form_submit(t('Submit'));
Dries Buytaert's avatar
 
Dries Buytaert committed
134

Dries Buytaert's avatar
   
Dries Buytaert committed
135
136
137
  if ($edit['vid']) {
    $form .= form_submit(t('Delete'));
    $form .= form_hidden('vid', $edit['vid']);
Dries Buytaert's avatar
 
Dries Buytaert committed
138
139
  }

Kjartan Mannes's avatar
Kjartan Mannes committed
140
141
  return form($form);
}
Kjartan Mannes's avatar
Kjartan Mannes committed
142

Kjartan Mannes's avatar
Kjartan Mannes committed
143
function taxonomy_save_vocabulary($edit) {
Dries Buytaert's avatar
   
Dries Buytaert committed
144
145
  if (!$edit['nodes']) {
    $edit['nodes'] = array();
Dries Buytaert's avatar
   
Dries Buytaert committed
146
147
  }

148
  $data = array('name' => $edit['name'], 'description' => $edit['description'], 'help' => $edit['help'], 'multiple' => $edit['multiple'], 'required' => $edit['required'], 'hierarchy' => $edit['hierarchy'], 'relations' => $edit['relations'], 'weight' => $edit['weight'],  'module' => isset($edit['module']) ? $edit['module'] : 'taxonomy');
Dries Buytaert's avatar
   
Dries Buytaert committed
149
  if ($edit['vid'] && $edit['name']) {
Dries Buytaert's avatar
   
Dries Buytaert committed
150
    db_query('UPDATE {vocabulary} SET '. _taxonomy_prepare_update($data) .' WHERE vid = %d', $edit['vid']);
Dries Buytaert's avatar
   
Dries Buytaert committed
151
152
153
154
    db_query("DELETE FROM {vocabulary_node_types} WHERE vid = %d", $edit['vid']);
    foreach ($edit['nodes'] as $type) {
      db_query("INSERT INTO {vocabulary_node_types} (vid, type) VALUES (%d, '%s')", $edit['vid'], $type);
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
155
    module_invoke_all('taxonomy', 'update', 'vocabulary', $edit);
Dries Buytaert's avatar
   
Dries Buytaert committed
156
    $message = t('Updated vocabulary %name.', array('%name' => '<em>'. $edit['name'] .'</em>'));
Dries Buytaert's avatar
 
Dries Buytaert committed
157
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
158
159
  else if ($edit['vid']) {
    $message = taxonomy_del_vocabulary($edit['vid']);
Kjartan Mannes's avatar
Kjartan Mannes committed
160
161
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
162
    $data['vid'] = $edit['vid'] = db_next_id('{vocabulary}_vid');
Dries Buytaert's avatar
   
Dries Buytaert committed
163
    db_query('INSERT INTO {vocabulary} '. _taxonomy_prepare_insert($data, 1) .' VALUES '. _taxonomy_prepare_insert($data, 2));
Dries Buytaert's avatar
   
Dries Buytaert committed
164
165
166
    foreach ($edit['nodes'] as $type) {
      db_query("INSERT INTO {vocabulary_node_types} (vid, type) VALUES (%d, '%s')", $edit['vid'], $type);
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
167
    module_invoke_all('taxonomy', 'insert', 'vocabulary', $edit);
Dries Buytaert's avatar
   
Dries Buytaert committed
168
    $message = t('Created new vocabulary %name.', array('%name' => '<em>'. $edit['name'] .'</em>'));
Kjartan Mannes's avatar
Kjartan Mannes committed
169
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
170
171

  cache_clear_all();
Dries Buytaert's avatar
   
Dries Buytaert committed
172

Dries Buytaert's avatar
   
Dries Buytaert committed
173
  drupal_set_message($message);
174

Dries Buytaert's avatar
   
Dries Buytaert committed
175
  return $edit;
Kjartan Mannes's avatar
Kjartan Mannes committed
176
}
Dries Buytaert's avatar
 
Dries Buytaert committed
177

Kjartan Mannes's avatar
Kjartan Mannes committed
178
function taxonomy_del_vocabulary($vid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
179
180
  $vocabulary = taxonomy_get_vocabulary($vid);

Dries Buytaert's avatar
   
Dries Buytaert committed
181
  db_query('DELETE FROM {vocabulary} WHERE vid = %d', $vid);
Dries Buytaert's avatar
   
Dries Buytaert committed
182
  db_query('DELETE FROM {vocabulary_node_types} WHERE vid = %d', $vid);
Dries Buytaert's avatar
   
Dries Buytaert committed
183
  $result = db_query('SELECT tid FROM {term_data} WHERE vid = %d', $vid);
Kjartan Mannes's avatar
Kjartan Mannes committed
184
185
  while ($term = db_fetch_object($result)) {
    taxonomy_del_term($term->tid);
Dries Buytaert's avatar
 
Dries Buytaert committed
186
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
187

Dries Buytaert's avatar
   
Dries Buytaert committed
188
  module_invoke_all('taxonomy', 'delete', 'vocabulary', $vocabulary);
Dries Buytaert's avatar
   
Dries Buytaert committed
189

Dries Buytaert's avatar
   
Dries Buytaert committed
190
191
  cache_clear_all();

Dries Buytaert's avatar
   
Dries Buytaert committed
192
  return t('deleted vocabulary "%name".', array('%name' => $vocabulary->name));
Dries Buytaert's avatar
   
Dries Buytaert committed
193
194
195
196
197
}

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

Dries Buytaert's avatar
   
Dries Buytaert committed
198
199
200
201
  $form .= form_hidden('confirm', 1);
  $form .= form_hidden('type', 'vocabulary');
  $form .= form_hidden('vid', $vid);
  $form .= form_submit(t('Delete'));
Dries Buytaert's avatar
   
Dries Buytaert committed
202

Dries Buytaert's avatar
   
Dries Buytaert committed
203
  return form(form_item(t('Delete vocabulary "%name"', array('%name' => $vocabulary->name)), $form, t('Are you sure you want to delete the vocabulary and all its terms?')));
Kjartan Mannes's avatar
Kjartan Mannes committed
204
}
Dries Buytaert's avatar
 
Dries Buytaert committed
205

Kjartan Mannes's avatar
Kjartan Mannes committed
206
function taxonomy_form_term($edit = array()) {
Dries Buytaert's avatar
   
Dries Buytaert committed
207
  $vocabulary_id = isset($edit['vid']) ? $edit['vid'] : arg(4);
Kjartan Mannes's avatar
Kjartan Mannes committed
208
  $vocabulary = taxonomy_get_vocabulary($vocabulary_id);
Dries Buytaert's avatar
   
Dries Buytaert committed
209

Dries Buytaert's avatar
   
Dries Buytaert committed
210
211
  $form = form_textfield(t('Term name'), 'name', $edit['name'], 50, 64, t('The name for this term.  Example: "Linux".'), NULL, TRUE);
  $form .= form_textarea(t('Description'), 'description', $edit['description'], 60, 5, t('A description of the term.'));
Dries Buytaert's avatar
 
Dries Buytaert committed
212

Kjartan Mannes's avatar
Kjartan Mannes committed
213
  if ($vocabulary->hierarchy) {
Dries Buytaert's avatar
   
Dries Buytaert committed
214
215
    $parent = array_keys(taxonomy_get_parents($edit['tid']));
    $children = taxonomy_get_tree($vocabulary_id, $edit['tid']);
Dries Buytaert's avatar
   
Dries Buytaert committed
216

Dries Buytaert's avatar
   
Dries Buytaert committed
217
    // A term can't be the child of itself, nor of its children.
Dries Buytaert's avatar
   
Dries Buytaert committed
218
219
220
    foreach ($children as $child) {
      $exclude[] = $child->tid;
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
221
    $exclude[] = $edit['tid'];
Dries Buytaert's avatar
   
Dries Buytaert committed
222

Kjartan Mannes's avatar
Kjartan Mannes committed
223
    if ($vocabulary->hierarchy == 1) {
224
      $form .= _taxonomy_term_select(t('Parent'), 'parent', $parent, $vocabulary_id, l(t('Parent term'), 'admin/help/taxonomy', NULL, NULL, 'parent') .'.', 0, '<'. t('root') .'>', $exclude);
Dries Buytaert's avatar
 
Dries Buytaert committed
225
    }
Kjartan Mannes's avatar
Kjartan Mannes committed
226
    elseif ($vocabulary->hierarchy == 2) {
227
      $form .= _taxonomy_term_select(t('Parents'), 'parent', $parent, $vocabulary_id, l(t('Parent terms'), 'admin/help/taxonomy', NULL, NULL, 'parent') .'.', 1, '<'. t('root') .'>', $exclude);
Dries Buytaert's avatar
 
Dries Buytaert committed
228
    }
Kjartan Mannes's avatar
Kjartan Mannes committed
229
  }
Dries Buytaert's avatar
 
Dries Buytaert committed
230

231
  if ($vocabulary->relations) {
Dries Buytaert's avatar
   
Dries Buytaert committed
232
    $form .= _taxonomy_term_select(t('Related terms'), 'relations', array_keys(taxonomy_get_related($edit['tid'])), $vocabulary_id, NULL, 1, '<'. t('none') .'>', array($edit['tid']));
233
234
  }

235
  $form .= form_textarea(t('Synonyms'), 'synonyms', implode("\n", taxonomy_get_synonyms($edit['tid'])), 30, 5, t('<a href="%help-url">Synonyms</a> of this term, one synonym per line.', array('%help-url' => url('admin/help/taxonomy', NULL, NULL, 'synonyms'))));
Dries Buytaert's avatar
   
Dries Buytaert committed
236
  $form .= form_weight(t('Weight'), 'weight', $edit['weight'], 10, t('In listings, the heavier terms will sink and the lighter terms will be positioned nearer the top.'));
Dries Buytaert's avatar
   
Dries Buytaert committed
237
238
  $form .= form_hidden('vid', $vocabulary->vid);
  $form .= form_submit(t('Submit'));
Kjartan Mannes's avatar
Kjartan Mannes committed
239

Dries Buytaert's avatar
   
Dries Buytaert committed
240
241
242
  if ($edit['tid']) {
    $form .= form_submit(t('Delete'));
    $form .= form_hidden('tid', $edit['tid']);
Dries Buytaert's avatar
 
Dries Buytaert committed
243
244
  }

Kjartan Mannes's avatar
Kjartan Mannes committed
245
246
  return form($form);
}
Dries Buytaert's avatar
 
Dries Buytaert committed
247

Kjartan Mannes's avatar
Kjartan Mannes committed
248
function taxonomy_save_term($edit) {
Dries Buytaert's avatar
   
Dries Buytaert committed
249
250
  if ($edit['tid'] && $edit['name']) {
    $data = array('name' => $edit['name'], 'description' => $edit['description'], 'weight' => $edit['weight']);
Dries Buytaert's avatar
 
Dries Buytaert committed
251

Dries Buytaert's avatar
   
Dries Buytaert committed
252
    db_query('UPDATE {term_data} SET '. _taxonomy_prepare_update($data) .' WHERE tid = %d', $edit['tid']);
Dries Buytaert's avatar
   
Dries Buytaert committed
253
    module_invoke_all('taxonomy', 'update', 'term', $edit);
Dries Buytaert's avatar
   
Dries Buytaert committed
254
    $message = t('The term %term has been updated.', array('%term' => '<em>'. $edit['name'] .'</em>'));
Kjartan Mannes's avatar
Kjartan Mannes committed
255
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
256
257
  else if ($edit['tid']) {
    return taxonomy_del_term($edit['tid']);
Kjartan Mannes's avatar
Kjartan Mannes committed
258
259
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
260
261
    $edit['tid'] = db_next_id('{term_data}_tid');
    $data = array('tid' => $edit['tid'], 'name' => $edit['name'], 'description' => $edit['description'], 'vid' => $edit['vid'], 'weight' => $edit['weight']);
Dries Buytaert's avatar
   
Dries Buytaert committed
262
    db_query('INSERT INTO {term_data} '. _taxonomy_prepare_insert($data, 1) .' VALUES '. _taxonomy_prepare_insert($data, 2));
Dries Buytaert's avatar
   
Dries Buytaert committed
263
    module_invoke_all('taxonomy', 'insert', 'term', $edit);
Dries Buytaert's avatar
   
Dries Buytaert committed
264
    $message = t('Created new term %term.', array('%term' => '<em>'. $edit['name'] .'</em>'));
Kjartan Mannes's avatar
Kjartan Mannes committed
265
  }
Dries Buytaert's avatar
 
Dries Buytaert committed
266

Dries Buytaert's avatar
   
Dries Buytaert committed
267
268
269
  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 Mannes's avatar
Kjartan Mannes committed
270
      if ($related_id != 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
271
        db_query('INSERT INTO {term_relation} (tid1, tid2) VALUES (%d, %d)', $edit['tid'], $related_id);
Dries Buytaert's avatar
 
Dries Buytaert committed
272
      }
Kjartan Mannes's avatar
Kjartan Mannes committed
273
    }
Kjartan Mannes's avatar
Kjartan Mannes committed
274
  }
Dries Buytaert's avatar
 
Dries Buytaert committed
275

Dries Buytaert's avatar
   
Dries Buytaert committed
276
277
278
  db_query('DELETE FROM {term_hierarchy} WHERE tid = %d', $edit['tid']);
  if (!isset($edit['parent'])) {
    $edit['parent'] = 0;
Kjartan Mannes's avatar
Kjartan Mannes committed
279
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
280
281
282
  if (is_array($edit['parent'])) {
    foreach ($edit['parent'] as $parent) {
      db_query('INSERT INTO {term_hierarchy} (tid, parent) VALUES (%d, %d)', $edit['tid'], $parent);
Dries Buytaert's avatar
 
Dries Buytaert committed
283
    }
Kjartan Mannes's avatar
Kjartan Mannes committed
284
285
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
286
    db_query('INSERT INTO {term_hierarchy} (tid, parent) VALUES (%d, %d)', $edit['tid'], $edit['parent'][0]);
Dries Buytaert's avatar
 
Dries Buytaert committed
287
288
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
289
290
291
  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 Buytaert's avatar
   
Dries Buytaert committed
292
      if ($synonym) {
Dries Buytaert's avatar
   
Dries Buytaert committed
293
        db_query("INSERT INTO {term_synonym} (tid, name) VALUES (%d, '%s')", $edit['tid'], chop($synonym));
Dries Buytaert's avatar
   
Dries Buytaert committed
294
      }
Kjartan Mannes's avatar
Kjartan Mannes committed
295
    }
Dries Buytaert's avatar
 
Dries Buytaert committed
296
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
297

Dries Buytaert's avatar
   
Dries Buytaert committed
298
299
  cache_clear_all();

Dries Buytaert's avatar
   
Dries Buytaert committed
300
  drupal_set_message($message);
Dries Buytaert's avatar
   
Dries Buytaert committed
301
  return $edit;
Kjartan Mannes's avatar
Kjartan Mannes committed
302
}
Dries Buytaert's avatar
 
Dries Buytaert committed
303

Kjartan Mannes's avatar
Kjartan Mannes committed
304
function taxonomy_del_term($tid) {
305
306
307
308
309
310
311
312
313
314
315
316
317
318
  $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 Buytaert's avatar
   
Dries Buytaert committed
319

320
      $term = taxonomy_get_term($tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
321

322
323
324
325
326
      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 Buytaert's avatar
   
Dries Buytaert committed
327

328
      module_invoke_all('taxonomy', 'delete', 'term', $term);
329
      drupal_set_message(t('Deleted term "%name".', array('%name' => $term->name)));
330
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
331

332
333
    $tids = $orphans;
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
334

Dries Buytaert's avatar
   
Dries Buytaert committed
335
  cache_clear_all();
Dries Buytaert's avatar
   
Dries Buytaert committed
336
337
338
339
340
}

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

Dries Buytaert's avatar
   
Dries Buytaert committed
341
342
343
344
  $form .= form_hidden('confirm', 1);
  $form .= form_hidden('type', 'term');
  $form .= form_hidden('tid', $tid);
  $form .= form_submit(t('Delete'));
Dries Buytaert's avatar
   
Dries Buytaert committed
345

346
347
348
  $output = form(form_item(t('Delete term "%name" and all its children', array('%name' => $term->name)), $form, t('Are you sure you want to delete the term and all its children (if any)?')));

  return $output;
Kjartan Mannes's avatar
Kjartan Mannes committed
349
}
Dries Buytaert's avatar
 
Dries Buytaert committed
350

Dries Buytaert's avatar
   
Dries Buytaert committed
351
352
353
/**
 * Generate a tabular listing of administrative functions for vocabularies.
 */
Kjartan Mannes's avatar
Kjartan Mannes committed
354
function taxonomy_overview() {
Dries Buytaert's avatar
   
Dries Buytaert committed
355
  $header = array(t('Name'), t('Type'), array('data' => t('Operations'), 'colspan' => '3'));
Dries Buytaert's avatar
   
Dries Buytaert committed
356

Kjartan Mannes's avatar
Kjartan Mannes committed
357
  $vocabularies = taxonomy_get_vocabularies();
Dries Buytaert's avatar
   
Dries Buytaert committed
358

Kjartan Mannes's avatar
Kjartan Mannes committed
359
  foreach ($vocabularies as $vocabulary) {
360
361
362
363
364
365
    if ($vocabulary->module == 'taxonomy') { // only show vocabularies that can be configured through the vocabulary module
      $types = array();
      foreach($vocabulary->nodes as $type) {
        $node_type = node_invoke($type, 'node_name');
        $types[] = $node_type ? $node_type : $type;
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
366

367
      $rows[] = array($vocabulary->name, array('data' => implode(', ', $types), 'align' => 'center'), l(t('edit vocabulary'), "admin/taxonomy/edit/vocabulary/$vocabulary->vid"), l(t('add term'), "admin/taxonomy/add/term/$vocabulary->vid"), l(t('preview form'), "admin/taxonomy/preview/vocabulary/$vocabulary->vid"));
Kjartan Mannes's avatar
Kjartan Mannes committed
368

369
370
371
      $tree = taxonomy_get_tree($vocabulary->vid);
      if ($tree) {
        unset($data);
Kjartan Mannes's avatar
Kjartan Mannes committed
372
      foreach ($tree as $term) {
Dries Buytaert's avatar
   
Dries Buytaert committed
373
        $data .= _taxonomy_depth($term->depth) .' '. $term->name .' ('. l(t('edit term'), "admin/taxonomy/edit/term/$term->tid") .')<br />';
Dries Buytaert's avatar
 
Dries Buytaert committed
374
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
375
      $rows[] = array(array('data' => $data, 'colspan' => '5'));
376
      }
Dries Buytaert's avatar
 
Dries Buytaert committed
377
378
379
    }
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
380
381
382
383
  if (!$rows) {
    $rows[] = array(array('data' => t('No categories available.'), 'colspan' => '5'));
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
384
  return theme('table', $header, $rows);
Kjartan Mannes's avatar
Kjartan Mannes committed
385
386
}

Dries Buytaert's avatar
   
Dries Buytaert committed
387
388
389
/**
 * Generate a form element for selecting terms from a vocabulary.
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
390
function taxonomy_form($vid, $value = 0, $help = NULL, $name = 'taxonomy') {
Dries Buytaert's avatar
   
Dries Buytaert committed
391
  $vocabulary = taxonomy_get_vocabulary($vid);
392
  $help = ($help) ? $help : $vocabulary->help;
Kjartan Mannes's avatar
Kjartan Mannes committed
393
394
395
396
  if ($vocabulary->required) {
    $blank = 0;
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
397
    $blank = '<'. t('none') .'>';
Kjartan Mannes's avatar
Kjartan Mannes committed
398
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
399

Dries Buytaert's avatar
   
Dries Buytaert committed
400
  return _taxonomy_term_select($vocabulary->name, $name, $value, $vid, $help, intval($vocabulary->multiple), $blank);
Kjartan Mannes's avatar
Kjartan Mannes committed
401
}
Dries Buytaert's avatar
 
Dries Buytaert committed
402

Dries Buytaert's avatar
   
Dries Buytaert committed
403
404
405
406
407
408
/**
 * Return an array of all vocabulary objects.
 *
 * @param $type
 *   If set, return only those vocabularies associated with this node type.
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
409
410
function taxonomy_get_vocabularies($type = NULL) {

Kjartan Mannes's avatar
Kjartan Mannes committed
411
  if ($type) {
Dries Buytaert's avatar
   
Dries Buytaert committed
412
    $result = db_query("SELECT v.*, n.type FROM {vocabulary_node_types} n INNER JOIN {vocabulary} v ON v.vid = n.vid WHERE n.type = '%s' ORDER BY v.weight, v.name", $type);
Kjartan Mannes's avatar
Kjartan Mannes committed
413
414
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
415
    $result = db_query('SELECT v.*, n.type FROM {vocabulary_node_types} n INNER JOIN {vocabulary} v ON v.vid = n.vid ORDER BY v.weight, v.name');
Kjartan Mannes's avatar
Kjartan Mannes committed
416
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
417

Kjartan Mannes's avatar
Kjartan Mannes committed
418
  $vocabularies = array();
Dries Buytaert's avatar
   
Dries Buytaert committed
419
  $node_types = array();
Kjartan Mannes's avatar
Kjartan Mannes committed
420
  while ($voc = db_fetch_object($result)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
421
422
423
424
    $node_types[$voc->vid][] = $voc->type;
    unset($voc->type);
    $voc->nodes = $node_types[$voc->vid];
    $vocabularies[$voc->vid] = $voc;
Dries Buytaert's avatar
 
Dries Buytaert committed
425
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
426

Kjartan Mannes's avatar
Kjartan Mannes committed
427
428
  return $vocabularies;
}
Dries Buytaert's avatar
 
Dries Buytaert committed
429

Dries Buytaert's avatar
   
Dries Buytaert committed
430
431
432
/**
 * Generate a form for selecting terms to associate with a node.
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
433
function taxonomy_node_form($type, $node = '', $help = NULL, $name = 'taxonomy') {
Kjartan Mannes's avatar
Kjartan Mannes committed
434
435
436
  if (!$node->taxonomy) {
    if ($node->nid) {
      $terms = array_keys(taxonomy_node_get_terms($node->nid));
Kjartan Mannes's avatar
Kjartan Mannes committed
437
438
    }
    else {
Kjartan Mannes's avatar
Kjartan Mannes committed
439
      $terms = 0;
Dries Buytaert's avatar
 
Dries Buytaert committed
440
    }
Kjartan Mannes's avatar
Kjartan Mannes committed
441
442
443
444
  }
  else {
    $terms = $node->taxonomy;
  }
Dries Buytaert's avatar
 
Dries Buytaert committed
445

Dries Buytaert's avatar
   
Dries Buytaert committed
446
  $c = db_query("SELECT v.*, n.type FROM {vocabulary} v INNER JOIN {vocabulary_node_types} n ON v.vid = n.vid WHERE n.type = '%s' ORDER BY v.weight, v.name", $type);
Kjartan Mannes's avatar
Kjartan Mannes committed
447
  while ($vocabulary = db_fetch_object($c)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
448
    $result[] = taxonomy_form($vocabulary->vid, $terms, $help, $name);
Dries Buytaert's avatar
 
Dries Buytaert committed
449
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
450
451
  return $result ? $result : array();
}
Dries Buytaert's avatar
 
Dries Buytaert committed
452

Dries Buytaert's avatar
   
Dries Buytaert committed
453
454
455
/**
 * Determine whether a node mentions the name of a term.
 */
Kjartan Mannes's avatar
Kjartan Mannes committed
456
function taxonomy_node_has_term($nid, $tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
457
  $term_name = db_result(db_query('SELECT name FROM {term_data} WHERE tid = %d', $tid));
Dries Buytaert's avatar
 
Dries Buytaert committed
458

459
  return db_result(db_query("SELECT COUNT(n.nid) FROM {node} n WHERE n.nid = %d AND ((n.title LIKE '%%%s%%') OR (n.body LIKE '%%%s%%'))", $nid, $term_name, $term_name));
Kjartan Mannes's avatar
Kjartan Mannes committed
460
461
}

Dries Buytaert's avatar
   
Dries Buytaert committed
462
463
464
465
466
/**
 * Find all terms associated to the given node, within one vocabulary.
 */
function taxonomy_node_get_terms_by_vocabulary($nid, $vid, $key = 'tid') {
  $result = db_query('SELECT t.* FROM {term_data} t, {term_node} r WHERE t.tid = r.tid AND t.vid = %d AND r.nid = %d ORDER BY weight', $vid, $nid);
Kjartan Mannes's avatar
Kjartan Mannes committed
467
468
469
  $terms = array();
  while ($term = db_fetch_object($result)) {
    $terms[$term->$key] = $term;
Dries Buytaert's avatar
 
Dries Buytaert committed
470
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
471
472
473
  return $terms;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
474
475
476
477
/**
 * Find all terms associated to the given node.
 */
function taxonomy_node_get_terms($nid, $key = 'tid') {
Kjartan Mannes's avatar
Kjartan Mannes committed
478
  static $terms;
Dries Buytaert's avatar
 
Dries Buytaert committed
479

Dries Buytaert's avatar
   
Dries Buytaert committed
480
  if (!isset($terms[$nid])) {
Dries Buytaert's avatar
   
Dries Buytaert committed
481
    $result = db_query('SELECT t.* FROM {term_data} t, {term_node} r WHERE r.tid = t.tid AND r.nid = %d ORDER BY weight, name', $nid);
Kjartan Mannes's avatar
Kjartan Mannes committed
482
    $terms[$nid] = array();
Dries Buytaert's avatar
 
Dries Buytaert committed
483
    while ($term = db_fetch_object($result)) {
Kjartan Mannes's avatar
Kjartan Mannes committed
484
      $terms[$nid][$term->$key] = $term;
Dries Buytaert's avatar
 
Dries Buytaert committed
485
486
    }
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
487
488
  return $terms[$nid];
}
Dries Buytaert's avatar
 
Dries Buytaert committed
489

Dries Buytaert's avatar
   
Dries Buytaert committed
490
491
492
/**
 * Save term associations for a given node.
 */
Kjartan Mannes's avatar
Kjartan Mannes committed
493
494
function taxonomy_node_save($nid, $terms) {
  taxonomy_node_delete($nid);
Dries Buytaert's avatar
 
Dries Buytaert committed
495

Kjartan Mannes's avatar
Kjartan Mannes committed
496
  if ($terms) {
Dries Buytaert's avatar
   
Dries Buytaert committed
497
    foreach ($terms as $term) {
498
      if ($term) {
Dries Buytaert's avatar
   
Dries Buytaert committed
499
        db_query('INSERT INTO {term_node} (nid, tid) VALUES (%d, %d)', $nid, $term);
500
      }
Dries Buytaert's avatar
 
Dries Buytaert committed
501
502
    }
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
503
}
Dries Buytaert's avatar
 
Dries Buytaert committed
504

Dries Buytaert's avatar
   
Dries Buytaert committed
505
506
507
/**
 * Remove associations of a node to its terms.
 */
Kjartan Mannes's avatar
Kjartan Mannes committed
508
function taxonomy_node_delete($nid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
509
  db_query('DELETE FROM {term_node} WHERE nid = %d', $nid);
Kjartan Mannes's avatar
Kjartan Mannes committed
510
}
Dries Buytaert's avatar
 
Dries Buytaert committed
511

Dries Buytaert's avatar
   
Dries Buytaert committed
512
513
514
515
/**
 * Find all term objects related to a given term ID.
 */
function taxonomy_get_related($tid, $key = 'tid') {
Kjartan Mannes's avatar
Kjartan Mannes committed
516
  if ($tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
517
    $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 Mannes's avatar
Kjartan Mannes committed
518
519
520
    $related = array();
    while ($term = db_fetch_object($result)) {
      $related[$term->$key] = $term;
Dries Buytaert's avatar
 
Dries Buytaert committed
521
    }
Kjartan Mannes's avatar
Kjartan Mannes committed
522
    return $related;
Dries Buytaert's avatar
 
Dries Buytaert committed
523
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
524
525
  else {
    return array();
Dries Buytaert's avatar
 
Dries Buytaert committed
526
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
527
}
Dries Buytaert's avatar
 
Dries Buytaert committed
528

Dries Buytaert's avatar
   
Dries Buytaert committed
529
530
531
532
/**
 * Find all parents of a given term ID.
 */
function taxonomy_get_parents($tid, $key = 'tid') {
Kjartan Mannes's avatar
Kjartan Mannes committed
533
  if ($tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
534
    $result = db_query('SELECT t.* FROM {term_hierarchy} h, {term_data} t WHERE h.parent = t.tid AND h.tid = %d ORDER BY weight, name', $tid);
Kjartan Mannes's avatar
Kjartan Mannes committed
535
536
537
    $parents = array();
    while ($parent = db_fetch_object($result)) {
      $parents[$parent->$key] = $parent;
Dries Buytaert's avatar
   
Dries Buytaert committed
538
    }
Kjartan Mannes's avatar
Kjartan Mannes committed
539
    return $parents;
Dries Buytaert's avatar
 
Dries Buytaert committed
540
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
541
542
543
544
  else {
    return array();
  }
}
Dries Buytaert's avatar
 
Dries Buytaert committed
545

Dries Buytaert's avatar
   
Dries Buytaert committed
546
547
548
549
/**
 * Find all ancestors of a given term ID.
 */
function taxonomy_get_parents_all($tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
550
551
552
553
554
555
556
557
558
559
560
561
  $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 Buytaert's avatar
   
Dries Buytaert committed
562
563
564
565
/**
 * Find all children of a term ID.
 */
function taxonomy_get_children($tid, $vid = 0, $key = 'tid') {
Kjartan Mannes's avatar
Kjartan Mannes committed
566
  if ($vid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
567
    $result = db_query('SELECT t.* FROM {term_hierarchy} h, {term_data} t WHERE t.vid = %d AND h.tid = t.tid AND h.parent = %d ORDER BY weight, name', $vid, $tid);
Dries Buytaert's avatar
 
Dries Buytaert committed
568
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
569
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
570
    $result = db_query('SELECT t.* FROM {term_hierarchy} h, {term_data} t WHERE h.tid = t.tid AND parent = %d ORDER BY weight', $tid);
Kjartan Mannes's avatar
Kjartan Mannes committed
571
572
573
574
575
576
577
  }
  $children = array();
  while ($term = db_fetch_object($result)) {
    $children[$term->$key] = $term;
  }
  return $children;
}
Dries Buytaert's avatar
 
Dries Buytaert committed
578

Dries Buytaert's avatar
   
Dries Buytaert committed
579
580
581
582
583
584
585
586
587
588
589
590
591
/**
 * Create a hierarchical representation of a vocabulary.
 *
 * @param $vid
 *   Which vocabulary to generate the tree for.
 *
 * @param $parent
 *   The term ID under which to generate the tree. If 0, generate the tree
 *   for the entire vocabulary.
 *
 * @param $depth
 *   Internal use only.
 *
Dries Buytaert's avatar
   
Dries Buytaert committed
592
593
594
 * @param $max_depth
 *   The number of levels of the tree to return. Leave NULL to return all levels.
 *
Dries Buytaert's avatar
   
Dries Buytaert committed
595
596
597
598
599
 * @return
 *   An array of all term objects in the tree. Each term object is extended
 *   to have "depth" and "parents" attributes in addition to its normal ones.
 */
function taxonomy_get_tree($vid, $parent = 0, $depth = -1, $max_depth = NULL) {
Dries Buytaert's avatar
   
Dries Buytaert committed
600
  static $children, $parents, $terms;
Dries Buytaert's avatar
   
Dries Buytaert committed
601

Kjartan Mannes's avatar
Kjartan Mannes committed
602
  $depth++;
Dries Buytaert's avatar
   
Dries Buytaert committed
603

Dries Buytaert's avatar
   
Dries Buytaert committed
604
605
606
607
  // We cache trees, so it's not CPU-intensive to call get_tree() on a term
  // and its children, too.
  if (!isset($children[$vid])) {
    $children[$vid] = array();
Dries Buytaert's avatar
   
Dries Buytaert committed
608

Dries Buytaert's avatar
   
Dries Buytaert committed
609
    $result = db_query('SELECT t.*, parent FROM {term_data} t, {term_hierarchy} h WHERE t.tid = h.tid AND t.vid = %d ORDER BY weight, name', $vid);
Dries Buytaert's avatar
   
Dries Buytaert committed
610
    while ($term = db_fetch_object($result)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
611
612
613
      $children[$vid][$term->parent][] = $term->tid;
      $parents[$vid][$term->tid][] = $term->parent;
      $terms[$vid][$term->tid] = $term;
Dries Buytaert's avatar
 
Dries Buytaert committed
614
615
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
616

Dries Buytaert's avatar
   
Dries Buytaert committed
617
  $max_depth = (is_null($max_depth)) ? count($children[$vid]) : $max_depth;
Dries Buytaert's avatar
   
Dries Buytaert committed
618
619
  if ($children[$vid][$parent]) {
    foreach ($children[$vid][$parent] as $child) {
Dries Buytaert's avatar
   
Dries Buytaert committed
620
      if ($max_depth > $depth) {
Dries Buytaert's avatar
   
Dries Buytaert committed
621
622
623
624
625
        $terms[$vid][$child]->depth = $depth;
        // The "parent" attribute is not useful, as it would show one parent only.
        unset($terms[$vid][$child]->parent);
        $terms[$vid][$child]->parents = $parents[$vid][$child];
        $tree[] = $terms[$vid][$child];
Dries Buytaert's avatar
   
Dries Buytaert committed
626

Dries Buytaert's avatar
   
Dries Buytaert committed
627
        $tree = array_merge($tree, taxonomy_get_tree($vid, $child, $depth, $max_depth));
Dries Buytaert's avatar
   
Dries Buytaert committed
628
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
629
    }
Kjartan Mannes's avatar
Kjartan Mannes committed
630
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
631

Dries Buytaert's avatar
   
Dries Buytaert committed
632
  return $tree ? $tree : array();
Kjartan Mannes's avatar
Kjartan Mannes committed
633
}
Dries Buytaert's avatar
 
Dries Buytaert committed
634

Dries Buytaert's avatar
   
Dries Buytaert committed
635
636
637
/**
 * Return an array of synonyms of the given term ID.
 */
Kjartan Mannes's avatar
Kjartan Mannes committed
638
639
function taxonomy_get_synonyms($tid) {
  if ($tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
640
    $result = db_query('SELECT name FROM {term_synonym} WHERE tid = %d', $tid);
Kjartan Mannes's avatar
Kjartan Mannes committed
641
    while ($synonym = db_fetch_array($result)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
642
      $synonyms[] = $synonym['name'];
Dries Buytaert's avatar
 
Dries Buytaert committed
643
    }
Kjartan Mannes's avatar
Kjartan Mannes committed
644
    return $synonyms ? $synonyms : array();
Dries Buytaert's avatar
 
Dries Buytaert committed
645
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
646
647
  else {
    return array();
Dries Buytaert's avatar
   
Dries Buytaert committed
648
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
649
}
Dries Buytaert's avatar
   
Dries Buytaert committed
650

Dries Buytaert's avatar
   
Dries Buytaert committed
651
652
653
654
655
/**
 * Return the term object that has the given string as a synonym.
 */
function taxonomy_get_synonym_root($synonym) {
  return db_fetch_object(db_query("SELECT * FROM {term_synonym} s, {term_data} t WHERE t.tid = s.tid AND s.name = '%s'", $synonym));
Kjartan Mannes's avatar
Kjartan Mannes committed
656
}
Dries Buytaert's avatar
   
Dries Buytaert committed
657

Dries Buytaert's avatar
   
Dries Buytaert committed
658
659
660
/**
 * Given a term id, count the number of published nodes in it.
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
661
function taxonomy_term_count_nodes($tid, $type = 0) {
Kjartan Mannes's avatar
Kjartan Mannes committed
662
  static $count;
Dries Buytaert's avatar
   
Dries Buytaert committed
663

Dries Buytaert's avatar
   
Dries Buytaert committed
664
665
666
  if (!isset($count[$type])) {
    // $type == 0 always evaluates true is $type is a string
    if (is_numeric($type)) {
667
      $result = db_query(db_rewrite_sql('SELECT t.tid, COUNT(n.nid) AS c FROM {term_node} t INNER JOIN {node} n ON t.nid = n.nid WHERE n.status = 1 GROUP BY t.tid'));
Dries Buytaert's avatar
   
Dries Buytaert committed
668
669
    }
    else {
670
      $result = db_query(db_rewrite_sql("SELECT t.tid, COUNT((n.nid) AS c FROM {term_node} t, {node} n WHERE t.nid = n.nid AND n.status = 1 AND n.type = '%s' GROUP BY t.tid"), $type);
Dries Buytaert's avatar
   
Dries Buytaert committed
671
    }
Kjartan Mannes's avatar
Kjartan Mannes committed
672
    while ($term = db_fetch_object($result)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
673
      $count[$type][$term->tid] = $term->c;
Dries Buytaert's avatar
   
Dries Buytaert committed
674
675
676
    }
  }

Kjartan Mannes's avatar
Kjartan Mannes committed
677
  foreach (_taxonomy_term_children($tid) as $c) {
Dries Buytaert's avatar
   
Dries Buytaert committed
678
    $children_count += taxonomy_term_count_nodes($c, $type);
Kjartan Mannes's avatar
Kjartan Mannes committed
679
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
680
  return $count[$type][$tid] + $children_count;
Kjartan Mannes's avatar
Kjartan Mannes committed
681
682
}

Dries Buytaert's avatar
   
Dries Buytaert committed
683
684
685
/**
 * Helper for taxonomy_term_count_nodes().
 */
Kjartan Mannes's avatar
Kjartan Mannes committed
686
687
function _taxonomy_term_children($tid) {
  static $children;
Dries Buytaert's avatar
   
Dries Buytaert committed
688

Dries Buytaert's avatar
   
Dries Buytaert committed
689
  if (!isset($children)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
690
    $result = db_query('SELECT tid, parent FROM {term_hierarchy}');
Kjartan Mannes's avatar
Kjartan Mannes committed
691
692
    while ($term = db_fetch_object($result)) {
      $children[$term->parent][] = $term->tid;
Dries Buytaert's avatar
   
Dries Buytaert committed
693
    }
Dries Buytaert's avatar
 
Dries Buytaert committed
694
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
695
696
  return $children[$tid] ? $children[$tid] : array();
}
Dries Buytaert's avatar
 
Dries Buytaert committed
697

Dries Buytaert's avatar
   
Dries Buytaert committed
698
/**
Dries Buytaert's avatar
   
Dries Buytaert committed
699
 * Try to map a string to an existing term, as for glossary use.
Dries Buytaert's avatar
   
Dries Buytaert committed
700
 *
Dries Buytaert's avatar
   
Dries Buytaert committed
701
702
703
704
705
706
707
708
 * Provides a case-insensitive and trimmed mapping, to maximize the
 * likelihood of a successful match.
 *
 * @param name
 *   Name of the term to search for.
 *
 * @return
 *   An array of matching term objects.
Dries Buytaert's avatar
   
Dries Buytaert committed
709
710
 */
function taxonomy_get_term_by_name($name) {
Dries Buytaert's avatar
   
Dries Buytaert committed
711
  $db_result = db_query("SELECT * FROM {term_data} WHERE LOWER('%s') LIKE LOWER(name)", trim($name));
Dries Buytaert's avatar
   
Dries Buytaert committed
712
713
714
715
716
717
718
719
  $result = array();
  while ($term = db_fetch_object($db_result)) {
    $result[] = $term;
  }

  return $result;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
720
721
722
/**
 * Return the vocabulary object matching a vocabulary ID.
 */
Kjartan Mannes's avatar
Kjartan Mannes committed
723
function taxonomy_get_vocabulary($vid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
724
725
726
727
728
729
730
731
732
733
  $result = db_query('SELECT v.*, n.type FROM {vocabulary_node_types} n INNER JOIN {vocabulary} v ON v.vid = n.vid WHERE v.vid = %d ORDER BY v.weight, v.name', $vid);
  $node_types = array();
  while ($voc = db_fetch_object($result)) {
    $node_types[] = $voc->type;
    unset($voc->type);
    $voc->nodes = $node_types;
    $vocabulary = $voc;
  }

  return $vocabulary;
Kjartan Mannes's avatar
Kjartan Mannes committed
734
}
Dries Buytaert's avatar
 
Dries Buytaert committed
735

Dries Buytaert's avatar
   
Dries Buytaert committed
736
737
738
/**
 * Return the term object matching a term ID.
 */
Kjartan Mannes's avatar
Kjartan Mannes committed
739
740
function taxonomy_get_term($tid) {
  // simple cache using a static var?
Dries Buytaert's avatar
   
Dries Buytaert committed
741
  return db_fetch_object(db_query('SELECT * FROM {term_data} WHERE tid = %d', $tid));
Kjartan Mannes's avatar
Kjartan Mannes committed
742
}
Dries Buytaert's avatar
 
Dries Buytaert committed
743

Kjartan Mannes's avatar
Kjartan Mannes committed
744
function _taxonomy_term_select($title, $name, $value, $vocabulary_id, $description, $multiple, $blank, $exclude = array()) {
Dries Buytaert's avatar
   
Dries Buytaert committed
745
  $tree = taxonomy_get_tree($vocabulary_id);
Dries Buytaert's avatar
Dries Buytaert committed
746
747
748
  if ($blank) {
    $options[] = array('tid' => 0, 'name' => $blank);
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
749
750
751
  if ($tree) {
    foreach ($tree as $term) {
      if (!in_array($term->tid, $exclude)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
752
        $options[] = array('tid' => $term->tid, 'name' => _taxonomy_depth($term->depth, '-').$term->name);
Dries Buytaert's avatar
 
Dries Buytaert committed
753
754
      }
    }
Kjartan Mannes's avatar
Kjartan Mannes committed
755
756
757
758
759
    if (!$blank && !$value) {
      // required but without a predefined value, so set first as predefined
      $value = $tree[0]->tid;
    }
  }
Dries Buytaert's avatar
 
Dries Buytaert committed
760

Kjartan Mannes's avatar
Kjartan Mannes committed
761
  if (count($options) > 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
762
    foreach ($options as $option) {
Dries Buytaert's avatar
   
Dries Buytaert committed
763
      $select .= '<option value="'. $option['tid'] .'"'. (is_array($value) ? (in_array($option['tid'], $value) ? ' selected="selected"' : '') : ($option['tid'] == $value ? ' selected="selected"' : '')) .'>'. check_form($option['name']) .'</option>';
Kjartan Mannes's avatar
Kjartan Mannes committed
764
    }
Dries Buytaert's avatar
 
Dries Buytaert committed
765

Dries Buytaert's avatar
   
Dries Buytaert committed
766
    $size = min(12, count($options));
Dries Buytaert's avatar
 
Dries Buytaert committed
767

Dries Buytaert's avatar
   
Dries Buytaert committed
768
    return form_item($title, "<select name=\"edit[$name][]\"". ($multiple ? " multiple=\"multiple\" size=\"$size\"" : '') . ($extra ? " $extra" : '') .' class="'. _form_get_class('', false, _form_get_error($name)) ."\">$select</select>", $description, NULL, false, _form_get_error($name));
Dries Buytaert's avatar
 
Dries Buytaert committed
769
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
770
}
Dries Buytaert's avatar
 
Dries Buytaert committed
771

Kjartan Mannes's avatar
Kjartan Mannes committed
772
773
774
function _taxonomy_depth($depth, $graphic = '--') {
  for ($n = 0; $n < $depth; $n++) {
    $result .= $graphic;
Dries Buytaert's avatar
 
Dries Buytaert committed
775
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
776
777
  return $result;
}
Dries Buytaert's avatar
 
Dries Buytaert committed
778

Dries Buytaert's avatar
   
Dries Buytaert committed
779
function _taxonomy_prepare_update($data) {
Kjartan Mannes's avatar
Kjartan Mannes committed
780
  foreach ($data as $key => $value) {
Dries Buytaert's avatar
   
Dries Buytaert committed
781
    $q[] = "$key = '". str_replace('%', '%%', db_escape_string($value)) ."'";
Dries Buytaert's avatar
 
Dries Buytaert committed
782
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
783
  $result = implode(', ', $q);
Kjartan Mannes's avatar
Kjartan Mannes committed
784
785
  return $result;
}
Dries Buytaert's avatar
 
Dries Buytaert committed
786

Dries Buytaert's avatar
   
Dries Buytaert committed
787
function _taxonomy_prepare_insert($data, $stage) {
Kjartan Mannes's avatar
Kjartan Mannes committed
788
  if ($stage == 1) {
Dries Buytaert's avatar
   
Dries Buytaert committed
789
    $result = implode(', ', array_keys($data));
Kjartan Mannes's avatar
Kjartan Mannes committed
790
791
792
  }
  else {
    foreach (array_values($data) as $value) {
Dries Buytaert's avatar
   
Dries Buytaert committed
793
      $q[] = "'". str_replace('%', '%%', db_escape_string($value)) ."'";
Dries Buytaert's avatar
 
Dries Buytaert committed
794
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
795
    $result = implode(', ', $q);
Dries Buytaert's avatar
 
Dries Buytaert committed
796
  }
Kjartan Mannes's avatar
Kjartan Mannes committed
797
798
  return "($result)";
}
Dries Buytaert's avatar
   
Dries Buytaert committed
799

Dries Buytaert's avatar
   
Dries Buytaert committed
800
801
802
/**
 * Finds all nodes that match selected taxonomy conditions.
 *
Dries Buytaert's avatar
   
Dries Buytaert committed
803
804
805
806
807
808
809
 * @param $tids
 *   An array of term IDs to match.
 * @param $operator
 *   How to interpret multiple IDs in the array. Can be "or" or "and".
 * @param $depth
 *   How many levels deep to traverse the taxonomy tree. Can be a nonnegative
 *   integer or "all".
Dries Buytaert's avatar
   
Dries Buytaert committed
810
811
812
813
814
815
 * @param $pager
 *   Whether the nodes are to be used with a pager (the case on most Drupal
 *   pages) or not (in an XML feed, for example).
 * @return
 *   A resource identifier pointing to the query results.
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
816
817
818
819
820
821
822
823
824
825
function taxonomy_select_nodes($tids = array(), $operator = 'or', $depth = 0, $pager = TRUE) {
  if (count($tids) > 0) {
    // For each term ID, generate an array of descendant term IDs to the right depth.
    $descendant_tids = array();
    if ($depth === 'all') {
      $depth = NULL;
    }
    foreach ($tids as $index => $tid) {
      $term = taxonomy_get_term($tid);
      $tree = taxonomy_get_tree($term->vid, $tid, -1, $depth);
Steven Wittens's avatar
Steven Wittens committed
826
      $descendant_tids[] = array_merge(array($tid), array_map('_taxonomy_get_tid_from_term', $tree));
827
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
828

Dries Buytaert's avatar
   
Dries Buytaert committed
829
830
    if ($operator == 'or') {
      $str_tids = implode(',', call_user_func_array('array_merge', $descendant_tids));
Dries Buytaert's avatar
   
Dries Buytaert committed
831
832
      $sql = 'SELECT n.nid, n.sticky, n.created FROM {node} n INNER JOIN {term_node} tn ON n.nid = tn.nid WHERE tn.tid IN ('. $str_tids .') AND n.status = 1 ORDER BY n.sticky DESC, n.created DESC';
      $sql_count = 'SELECT COUNT(n.nid) FROM {node} n INNER JOIN {term_node} tn ON n.nid = tn.nid WHERE tn.tid IN ('. $str_tids .') AND n.status = 1';
Dries Buytaert's avatar
   
Dries Buytaert committed
833
834
835
836
837
838
839
840
    }
    else {
      $joins = '';
      $wheres = '';
      foreach ($descendant_tids as $index => $tids) {
        $joins .= ' INNER JOIN {term_node} tn'. $index .' ON n.nid = tn'. $index .'.nid';
        $wheres .= ' AND tn'. $index .'.tid IN ('. implode(',', $tids) .')';
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
841
      $sql = 'SELECT n.nid, n.sticky, n.created FROM {node} n '. $joins .' WHERE n.status = 1 '. $wheres .' ORDER BY n.sticky DESC, n.created DESC';
842
      $sql_count = 'SELECT COUNT(n.nid) FROM {node} n '. $joins .' WHERE n.status = 1 ' . $wheres;
843
    }
844
845
    $sql = db_rewrite_sql($sql);
    $sql_count = db_rewrite_sql($sql_count);
846
    if ($pager) {
Steven Wittens's avatar
Steven Wittens committed
847
      $result = pager_query($sql, variable_get('default_nodes_main', 10), 0, $sql_count);
848
849
850
851
    }
    else {
      $result = db_query_range($sql, 0, 15);
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
852
853
854
855
856
  }

  return $result;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
857
858
859
/**
 * Accepts the result of a pager_query() call, such as that performed by
 * taxonomy_select_nodes(), and formats each node along with a pager.
Dries Buytaert's avatar
   
Dries Buytaert committed
860
861
*/
function taxonomy_render_nodes($result) {
862
863
864
865
866
867
868
869
  if (db_num_rows($result) > 0) {
    while ($node = db_fetch_object($result)) {
      $output .= node_view(node_load(array('nid' => $node->nid)), 1);
    }
    $output .= theme('pager', NULL, variable_get('default_nodes_main', 10), 0);
  }
  else {
    $output .= t('There are currently no posts in this category.');
Dries Buytaert's avatar
   
Dries Buytaert committed
870
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
871
  return $output;
Dries Buytaert's avatar
   
Dries Buytaert committed
872
873
}

Dries Buytaert's avatar
   
Dries Buytaert committed
874
875
876
/**
 * Implementation of hook_nodeapi().
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
877
878
function taxonomy_nodeapi($node, $op, $arg = 0) {
  switch ($op) {
Dries Buytaert's avatar
   
Dries Buytaert committed
879
    case 'insert':
Dries Buytaert's avatar
   
Dries Buytaert committed
880
881
      taxonomy_node_save($node->nid, $node->taxonomy);
      break;
Dries Buytaert's avatar
   
Dries Buytaert committed
882
    case 'update':
Dries Buytaert's avatar
   
Dries Buytaert committed