taxonomy.module 38.3 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
function taxonomy_feed($taxonomy) {
  global $id, $type;
Dries's avatar
   
Dries committed
6

Dries's avatar
   
Dries committed
7
  if ($type == 'voc') {
Dries's avatar
   
Dries committed
8
    //TODO - vocabulary feed.
Kjartan's avatar
Kjartan committed
9
10
  }
  else {
Dries's avatar
   
Dries committed
11
12
    $result = taxonomy_select_nodes($taxonomy, 0);
    $term = taxonomy_get_term($taxonomy->tids[0]);
Dries's avatar
   
Dries committed
13
14
15
    $channel['link'] = url("taxonomy/view/$taxonomy->operator/$taxonomy->str_tids", NULL, NULL, TRUE);
    $channel['title'] = variable_get('site_name', 'drupal') .' - '. $term->name;
    $channel['description'] = $term->description;
Kjartan's avatar
Kjartan committed
16
    node_feed($result, $channel);
Dries's avatar
   
Dries committed
17
  }
Kjartan's avatar
Kjartan committed
18
}
Dries's avatar
   
Dries committed
19

Dries's avatar
   
Dries committed
20
21
22
/**
 * Implementation of hook_perm().
 */
Kjartan's avatar
Kjartan committed
23
function taxonomy_perm() {
Dries's avatar
   
Dries committed
24
  return array('administer taxonomy');
Kjartan's avatar
Kjartan committed
25
}
Dries's avatar
   
Dries committed
26

Dries's avatar
   
Dries committed
27
28
29
30
31
32
33
34
35
36
37
/**
 * 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
38
function taxonomy_link($type, $node = NULL) {
Dries's avatar
   
Dries committed
39
  if ($type == 'taxonomy terms' && $node != NULL) {
Kjartan's avatar
   
Kjartan committed
40
    $links = array();
Dries's avatar
   
Dries committed
41
42
43
    if ($node->taxonomy) {
      foreach ($node->taxonomy as $tid) {
        $term = taxonomy_get_term($tid);
44
        $links[] = l($term->name, "taxonomy/page/or/$term->tid", $term->description ? array ('title' => $term->description) : array());
Dries's avatar
   
Dries committed
45
46
47
48
49
      }
    }
    else {
      $links = array();
      foreach (taxonomy_node_get_terms($node->nid) as $term) {
50
        $links[] = l($term->name, "taxonomy/page/or/$term->tid", $term->description ? array ('title' => $term->description) : array());
Dries's avatar
   
Dries committed
51
      }
Dries's avatar
   
Dries committed
52
53
54
55

    }
    return $links;
  }
Kjartan's avatar
Kjartan committed
56
57
}

Dries's avatar
   
Dries committed
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
/**
 * Implementation of hook_menu().
 */
function taxonomy_menu() {
  $items = array();
  $items[] = array('path' => 'admin/taxonomy', 'title' => t('categories'),
    'callback' => 'taxonomy_admin',
    'access' => user_access('administer taxonomy'));
  $items[] = array('path' => 'admin/taxonomy/add/vocabulary', 'title' => t('add vocabulary'),
    'callback' => 'taxonomy_admin',
    'access' => user_access('administer taxonomy'),
    'type' => MENU_LOCAL_TASK);
  $items[] = array('path' => 'taxonomy', 'title' => t('taxonomy'),
    'callback' => 'taxonomy_page',
    'access' => user_access('access content'),
    'type' => MENU_CALLBACK);
  return $items;
}
Dries's avatar
   
Dries committed
76

Kjartan's avatar
Kjartan committed
77
function taxonomy_form_vocabulary($edit = array()) {
Dries's avatar
   
Dries committed
78
  foreach (node_list() as $type) {
Dries's avatar
   
Dries committed
79
    $nodetypes[$type] = node_invoke($type, 'node_name');
Kjartan's avatar
Kjartan committed
80
  }
Dries's avatar
   
Dries committed
81

Dries's avatar
   
Dries committed
82
83
84
85
86
87
88
89
90
91
  $form .= form_textfield(t('Vocabulary name'), 'name', $edit['name'], 50, 64, t('Required') .'. '. t('The name for this vocabulary.  Example: "Topic"') .'.');
  $form .= form_textarea(t('Description'), 'description', $edit['description'], 60, 5, t('Optional') .'. '. t('Description of the vocabulary; can be used by modules.'));
  $form .= form_textfield(t('Help text'), 'help', $edit['help'], 50, 255, t('Optional') .'. '. t('Instructions to present to the user when choosing a term.') .'.');
  $form .= form_checkboxes(t('Types'), 'nodes', explode(',', $edit['nodes']), $nodetypes, t('Required') .'. '. t('A list of node types you want to associate with this vocabulary.'));
  $form .= form_checkbox(t('Related terms'), 'relations', 1, $edit['relations'], t('Optional') .'. '. t('Allows <a href="%help-url">related terms</a> in this vocabulary.', array('%help-url' => url('admin/taxonomy/help', NULL, NULL, 'related-terms'))));
  $form .= form_radios(t('Hierarchy'), 'hierarchy', $edit['hierarchy'], array(t('Disabled'), t('Single'), t('Multiple')), t('Optional') .'. '. t('Allows <a href="%help-url">a tree-like hierarchy</a> between terms of this vocabulary.', array('%help-url' => url('admin/taxonomy/help', NULL, NULL, 'hierarchy'))), '');
  $form .= form_checkbox(t('Multiple select'), 'multiple', 1, $edit['multiple'], t('Optional') .'. '. t('Allows nodes to have more than one term in this vocabulary.'));
  $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.'));
  $form .= form_weight(t('Weight'), 'weight', $edit['weight'], 10, t('Optional. In listings, the heavier vocabularies will sink and the lighter vocabularies will be positioned nearer the top.'));
  $form .= form_submit(t('Submit'));
Dries's avatar
   
Dries committed
92

Dries's avatar
   
Dries committed
93
94
95
  if ($edit['vid']) {
    $form .= form_submit(t('Delete'));
    $form .= form_hidden('vid', $edit['vid']);
Dries's avatar
   
Dries committed
96
97
  }

Kjartan's avatar
Kjartan committed
98
99
  return form($form);
}
Kjartan's avatar
Kjartan committed
100

Kjartan's avatar
Kjartan committed
101
function taxonomy_save_vocabulary($edit) {
Dries's avatar
   
Dries committed
102
103
  if (!$edit['nodes']) {
    $edit['nodes'] = array();
Dries's avatar
   
Dries committed
104
105
  }

Dries's avatar
   
Dries committed
106
107
108
109
110
  $data = array('name' => $edit['name'], 'nodes' => implode(',', $edit['nodes']), 'description' => $edit['description'], 'help' => $edit['help'], 'multiple' => $edit['multiple'], 'required' => $edit['required'], 'hierarchy' => $edit['hierarchy'], 'relations' => $edit['relations'], 'weight' => $edit['weight']);
  if ($edit['vid'] && $edit['name']) {
    db_query('UPDATE {vocabulary} SET '. _prepare_update($data) .' WHERE vid = %d', $edit['vid']);
    module_invoke_all('taxonomy', 'update', 'vocabulary', $edit);
    $message = t('updated vocabulary "%name".', array('%name' => $edit['name']));
Dries's avatar
   
Dries committed
111
  }
Dries's avatar
   
Dries committed
112
113
  else if ($edit['vid']) {
    $message = taxonomy_del_vocabulary($edit['vid']);
Kjartan's avatar
Kjartan committed
114
115
  }
  else {
Dries's avatar
   
Dries committed
116
117
118
119
    $data['vid'] = $edit['vid'] = db_next_id('{vocabulary}_vid');
    db_query('INSERT INTO {vocabulary} '. _prepare_insert($data, 1) .' VALUES '. _prepare_insert($data, 2));
    module_invoke_all('taxonomy', 'insert', 'vocabulary', $edit);
    $message = t('created new vocabulary "%name".', array('%name' => $edit['name']));
Kjartan's avatar
Kjartan committed
120
  }
Dries's avatar
   
Dries committed
121
122

  cache_clear_all();
Dries's avatar
   
Dries committed
123

Dries's avatar
   
Dries committed
124
125
  drupal_set_message($message);
  return $edit;
Kjartan's avatar
Kjartan committed
126
}
Dries's avatar
   
Dries committed
127

Kjartan's avatar
Kjartan committed
128
function taxonomy_del_vocabulary($vid) {
Dries's avatar
   
Dries committed
129
130
  $vocabulary = taxonomy_get_vocabulary($vid);

Dries's avatar
   
Dries committed
131
132
  db_query('DELETE FROM {vocabulary} WHERE vid = %d', $vid);
  $result = db_query('SELECT tid FROM {term_data} WHERE vid = %d', $vid);
Kjartan's avatar
Kjartan committed
133
134
  while ($term = db_fetch_object($result)) {
    taxonomy_del_term($term->tid);
Dries's avatar
   
Dries committed
135
  }
Dries's avatar
   
Dries committed
136

Dries's avatar
   
Dries committed
137
  module_invoke_all('taxonomy', 'delete', 'vocabulary', $vocabulary);
Dries's avatar
   
Dries committed
138

Dries's avatar
   
Dries committed
139
140
  cache_clear_all();

Dries's avatar
   
Dries committed
141
  return t('deleted vocabulary "%name".', array('%name' => $vocabulary->name));
Dries's avatar
   
Dries committed
142
143
144
145
146
}

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

Dries's avatar
   
Dries committed
147
148
149
150
151
  $form .= form_hidden('confirm', 1);
  $form .= form_hidden('type', 'vocabulary');
  $form .= form_hidden('vid', $vid);
  $form .= form_submit(t('Delete'));
  $form .= form_submit(t('Cancel'));
Dries's avatar
   
Dries committed
152

Dries's avatar
   
Dries committed
153
  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's avatar
Kjartan committed
154
}
Dries's avatar
   
Dries committed
155

Kjartan's avatar
Kjartan committed
156
function taxonomy_form_term($edit = array()) {
Dries's avatar
   
Dries committed
157
  $vocabulary_id = isset($edit['vid']) ? $edit['vid'] : arg(4);
Kjartan's avatar
Kjartan committed
158
  $vocabulary = taxonomy_get_vocabulary($vocabulary_id);
Dries's avatar
   
Dries committed
159

Dries's avatar
   
Dries committed
160
161
  $form = form_textfield(t('Term name'), 'name', $edit['name'], 50, 64, t('Required') .'. '. t('The name for this term.  Example: "Linux".'));
  $form .= form_textarea(t('Description'), 'description', $edit['description'], 60, 5, t('Optional') .'. '. t('A description of the term.'));
Dries's avatar
   
Dries committed
162

Kjartan's avatar
Kjartan committed
163
  if ($vocabulary->hierarchy) {
Dries's avatar
   
Dries committed
164
165
    $parent = array_keys(taxonomy_get_parents($edit['tid']));
    $children = taxonomy_get_tree($vocabulary_id, $edit['tid']);
Dries's avatar
   
Dries committed
166

Dries's avatar
   
Dries committed
167
    // A term can't be the child of itself, nor of its children.
Dries's avatar
   
Dries committed
168
169
170
    foreach ($children as $child) {
      $exclude[] = $child->tid;
    }
Dries's avatar
   
Dries committed
171
    $exclude[] = $edit['tid'];
Dries's avatar
   
Dries committed
172

Kjartan's avatar
Kjartan committed
173
    if ($vocabulary->hierarchy == 1) {
Dries's avatar
   
Dries committed
174
      $form .= _taxonomy_term_select(t('Parent'), 'parent', $parent, $vocabulary_id, t('Required') .'. '. l(t('Parent term'), 'admin/taxonomy/help', NULL, NULL, 'parent') .'.', 0, '<'. t('root') .'>', $exclude);
Dries's avatar
   
Dries committed
175
    }
Kjartan's avatar
Kjartan committed
176
    elseif ($vocabulary->hierarchy == 2) {
Dries's avatar
   
Dries committed
177
      $form .= _taxonomy_term_select(t('Parents'), 'parent', $parent, $vocabulary_id, t('Required') .'. '. l(t('Parent terms'), 'admin/taxonomy/help', NULL, NULL, 'parent') .'.', 1, '<'. t('root') .'>', $exclude);
Dries's avatar
   
Dries committed
178
    }
Kjartan's avatar
Kjartan committed
179
  }
Dries's avatar
   
Dries committed
180

181
  if ($vocabulary->relations) {
Dries's avatar
   
Dries committed
182
    $form .= _taxonomy_term_select(t('Related terms'), 'relations', array_keys(taxonomy_get_related($edit['tid'])), $vocabulary_id, t('Optional') .'. ', 1, '<'. t('none') .'>', array($edit['tid']));
183
184
  }

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

Dries's avatar
   
Dries committed
190
191
192
  if ($edit['tid']) {
    $form .= form_submit(t('Delete'));
    $form .= form_hidden('tid', $edit['tid']);
Dries's avatar
   
Dries committed
193
194
  }

Kjartan's avatar
Kjartan committed
195
196
  return form($form);
}
Dries's avatar
   
Dries committed
197

Kjartan's avatar
Kjartan committed
198
function taxonomy_save_term($edit) {
Dries's avatar
   
Dries committed
199
200
  if ($edit['tid'] && $edit['name']) {
    $data = array('name' => $edit['name'], 'description' => $edit['description'], 'weight' => $edit['weight']);
Dries's avatar
   
Dries committed
201

Dries's avatar
   
Dries committed
202
203
204
    db_query('UPDATE {term_data} SET '. _prepare_update($data) .' WHERE tid = %d', $edit['tid']);
    module_invoke_all('taxonomy', 'update', 'term', $edit);
    $message = t('the term "%a" has been updated.', array('%a' => $edit['name']));
Kjartan's avatar
Kjartan committed
205
  }
Dries's avatar
   
Dries committed
206
207
  else if ($edit['tid']) {
    return taxonomy_del_term($edit['tid']);
Kjartan's avatar
Kjartan committed
208
209
  }
  else {
Dries's avatar
   
Dries committed
210
211
212
213
214
    $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']);
    db_query('INSERT INTO {term_data} '. _prepare_insert($data, 1) .' VALUES '. _prepare_insert($data, 2));
    module_invoke_all('taxonomy', 'insert', 'term', $edit);
    $message = t('created new term "%name".', array('%name' => $edit['name']));
Kjartan's avatar
Kjartan committed
215
  }
Dries's avatar
   
Dries committed
216

Dries's avatar
   
Dries committed
217
218
219
  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
220
      if ($related_id != 0) {
Dries's avatar
   
Dries committed
221
        db_query('INSERT INTO {term_relation} (tid1, tid2) VALUES (%d, %d)', $edit['tid'], $related_id);
Dries's avatar
   
Dries committed
222
      }
Kjartan's avatar
Kjartan committed
223
    }
Kjartan's avatar
Kjartan committed
224
  }
Dries's avatar
   
Dries committed
225

Dries's avatar
   
Dries committed
226
227
228
  db_query('DELETE FROM {term_hierarchy} WHERE tid = %d', $edit['tid']);
  if (!isset($edit['parent'])) {
    $edit['parent'] = 0;
Kjartan's avatar
Kjartan committed
229
  }
Dries's avatar
   
Dries committed
230
231
232
  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's avatar
   
Dries committed
233
    }
Kjartan's avatar
Kjartan committed
234
235
  }
  else {
Dries's avatar
   
Dries committed
236
    db_query('INSERT INTO {term_hierarchy} (tid, parent) VALUES (%d, %d)', $edit['tid'], $edit['parent'][0]);
Dries's avatar
   
Dries committed
237
238
  }

Dries's avatar
   
Dries committed
239
240
241
  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
242
      if ($synonym) {
Dries's avatar
   
Dries committed
243
        db_query("INSERT INTO {term_synonym} (tid, name) VALUES (%d, '%s')", $edit['tid'], chop($synonym));
Dries's avatar
   
Dries committed
244
      }
Kjartan's avatar
Kjartan committed
245
    }
Dries's avatar
   
Dries committed
246
  }
Dries's avatar
   
Dries committed
247

Dries's avatar
   
Dries committed
248
249
  cache_clear_all();

Dries's avatar
   
Dries committed
250
  drupal_set_message($message);
Dries's avatar
   
Dries committed
251
  return $edit;
Kjartan's avatar
Kjartan committed
252
}
Dries's avatar
   
Dries committed
253

Kjartan's avatar
Kjartan committed
254
function taxonomy_del_term($tid) {
Dries's avatar
   
Dries committed
255
256
  $term = taxonomy_get_term($tid);

Dries's avatar
   
Dries committed
257
258
259
260
261
  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
262

Dries's avatar
   
Dries committed
263
  module_invoke_all('taxonomy', 'delete', 'term', $term);
Dries's avatar
   
Dries committed
264

Dries's avatar
   
Dries committed
265
266
  cache_clear_all();

Dries's avatar
   
Dries committed
267
  return t('deleted term "%name".', array('%name' => $term->name));
Dries's avatar
   
Dries committed
268
269
270
271
272
}

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

Dries's avatar
   
Dries committed
273
274
275
276
277
  $form .= form_hidden('confirm', 1);
  $form .= form_hidden('type', 'term');
  $form .= form_hidden('tid', $tid);
  $form .= form_submit(t('Delete'));
  $form .= form_submit(t('Cancel'));
Dries's avatar
   
Dries committed
278

Dries's avatar
   
Dries committed
279
  return form(form_item(t('Delete term "%name"', array('%name' => $term->name)), $form, t('Are you sure you want to delete the term?')));
Kjartan's avatar
Kjartan committed
280
}
Dries's avatar
   
Dries committed
281

Dries's avatar
   
Dries committed
282
283
284
/**
 * Generate a tabular listing of administrative functions for vocabularies.
 */
Kjartan's avatar
Kjartan committed
285
function taxonomy_overview() {
Dries's avatar
   
Dries committed
286
  $header = array(t('name'), t('node types'), array('data' => t('operations'), 'colspan' => 3));
Dries's avatar
   
Dries committed
287

Kjartan's avatar
Kjartan committed
288
  $vocabularies = taxonomy_get_vocabularies();
Dries's avatar
   
Dries committed
289

Kjartan's avatar
Kjartan committed
290
291
  foreach ($vocabularies as $vocabulary) {
    $links = array();
Dries's avatar
   
Dries committed
292
    $types = array();
Dries's avatar
   
Dries committed
293
294
    foreach(explode(',', $vocabulary->nodes) as $type) {
      $types[] = node_invoke($type, 'node_name');
Dries's avatar
   
Dries committed
295
    }
Dries's avatar
   
Dries committed
296
    $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's avatar
Kjartan committed
297

Dries's avatar
   
Dries committed
298
    $tree = taxonomy_get_tree($vocabulary->vid);
Kjartan's avatar
Kjartan committed
299
    if ($tree) {
Dries's avatar
   
Dries committed
300
      unset($data);
Kjartan's avatar
Kjartan committed
301
      foreach ($tree as $term) {
Dries's avatar
   
Dries committed
302
        $data .= _taxonomy_depth($term->depth) .' '. $term->name .' ('. l(t('edit term'), "admin/taxonomy/edit/term/$term->tid") .')<br />';
Dries's avatar
   
Dries committed
303
      }
Dries's avatar
   
Dries committed
304
      $rows[] = array(array('data' => $data, 'colspan' => 5));
Dries's avatar
   
Dries committed
305
306
307
    }
  }

Dries's avatar
   
Dries committed
308
  return theme('table', $header, $rows);
Kjartan's avatar
Kjartan committed
309
310
}

Dries's avatar
   
Dries committed
311
312
313
/**
 * Generate a form element for selecting terms from a vocabulary.
 */
Dries's avatar
   
Dries committed
314
function taxonomy_form($vid, $value = 0, $error = array(), $help = NULL, $name = 'taxonomy') {
Dries's avatar
   
Dries committed
315
  $vocabulary = taxonomy_get_vocabulary($vid);
316
  $help = ($help) ? $help : $vocabulary->help;
Kjartan's avatar
Kjartan committed
317
318
319
320
  if ($vocabulary->required) {
    $blank = 0;
  }
  else {
Dries's avatar
   
Dries committed
321
    $blank = '<'. t('none') .'>';
Kjartan's avatar
Kjartan committed
322
  }
Dries's avatar
   
Dries committed
323

324
  $help .= $error['taxonomy'];
Dries's avatar
   
Dries committed
325

Dries's avatar
   
Dries committed
326
  return _taxonomy_term_select($vocabulary->name, $name, $value, $vid, $help, intval($vocabulary->multiple), $blank);
Kjartan's avatar
Kjartan committed
327
}
Dries's avatar
   
Dries committed
328

Dries's avatar
   
Dries committed
329
330
331
332
333
334
335
/**
 * Return an array of all vocabulary objects.
 *
 * @param $type
 *   If set, return only those vocabularies associated with this node type.
 */
function taxonomy_get_vocabularies($type = '', $key = 'vid') {
Kjartan's avatar
Kjartan committed
336
  if ($type) {
Dries's avatar
   
Dries committed
337
    $result = db_query("SELECT * FROM {vocabulary} WHERE nodes LIKE '%%%s%%' ORDER BY weight, name", $type);
Kjartan's avatar
Kjartan committed
338
339
  }
  else {
Dries's avatar
   
Dries committed
340
    $result = db_query('SELECT * FROM {vocabulary} ORDER BY weight, name');
Kjartan's avatar
Kjartan committed
341
342
343
344
  }
  $vocabularies = array();
  while ($voc = db_fetch_object($result)) {
    $vocabularies[$voc->$key] = $voc;
Dries's avatar
   
Dries committed
345
  }
Dries's avatar
   
Dries committed
346

Kjartan's avatar
Kjartan committed
347
348
  return $vocabularies;
}
Dries's avatar
   
Dries committed
349

Dries's avatar
   
Dries committed
350
351
352
/**
 * Generate a form for selecting terms to associate with a node.
 */
Dries's avatar
   
Dries committed
353
function taxonomy_node_form($type, $node = '', $error = array(), $help = NULL, $name = 'taxonomy') {
Kjartan's avatar
Kjartan committed
354
355
356
  if (!$node->taxonomy) {
    if ($node->nid) {
      $terms = array_keys(taxonomy_node_get_terms($node->nid));
Kjartan's avatar
Kjartan committed
357
358
    }
    else {
Kjartan's avatar
Kjartan committed
359
      $terms = 0;
Dries's avatar
   
Dries committed
360
    }
Kjartan's avatar
Kjartan committed
361
362
363
364
  }
  else {
    $terms = $node->taxonomy;
  }
Dries's avatar
   
Dries committed
365

Dries's avatar
   
Dries committed
366
  $c = db_query("SELECT * FROM {vocabulary} WHERE nodes LIKE '%%%s%%' ORDER BY weight, name", $type);
Kjartan's avatar
Kjartan committed
367
  while ($vocabulary = db_fetch_object($c)) {
Dries's avatar
   
Dries committed
368
    $result[] = taxonomy_form($vocabulary->vid, $terms, $error, $help, $name);
Dries's avatar
   
Dries committed
369
  }
Kjartan's avatar
Kjartan committed
370
371
  return $result ? $result : array();
}
Dries's avatar
   
Dries committed
372

Dries's avatar
   
Dries committed
373
374
375
/**
 * Determine whether a node mentions the name of a term.
 */
Kjartan's avatar
Kjartan committed
376
function taxonomy_node_has_term($nid, $tid) {
Dries's avatar
   
Dries committed
377
  $term_name = db_result(db_query('SELECT name FROM {term_data} WHERE tid = %d', $tid));
Dries's avatar
   
Dries committed
378

Dries's avatar
   
Dries committed
379
  return db_result(db_query("SELECT COUNT(n.nid) FROM {node} n WHERE n.nid = %d AND ((n.body LIKE '%%%s%%') OR (n.body LIKE '%%%s%%'))", $nid, $term_name, $term_name));
Kjartan's avatar
Kjartan committed
380
381
}

Dries's avatar
   
Dries committed
382
383
384
385
386
/**
 * 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's avatar
Kjartan committed
387
388
389
  $terms = array();
  while ($term = db_fetch_object($result)) {
    $terms[$term->$key] = $term;
Dries's avatar
   
Dries committed
390
  }
Kjartan's avatar
Kjartan committed
391
392
393
  return $terms;
}

Dries's avatar
   
Dries committed
394
395
396
397
/**
 * Find all terms associated to the given node.
 */
function taxonomy_node_get_terms($nid, $key = 'tid') {
Kjartan's avatar
Kjartan committed
398
  static $terms;
Dries's avatar
   
Dries committed
399

Dries's avatar
   
Dries committed
400
  if (!isset($terms[$nid])) {
Dries's avatar
   
Dries committed
401
    $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's avatar
Kjartan committed
402
    $terms[$nid] = array();
Dries's avatar
   
Dries committed
403
    while ($term = db_fetch_object($result)) {
Kjartan's avatar
Kjartan committed
404
      $terms[$nid][$term->$key] = $term;
Dries's avatar
   
Dries committed
405
406
    }
  }
Kjartan's avatar
Kjartan committed
407
408
  return $terms[$nid];
}
Dries's avatar
   
Dries committed
409

Dries's avatar
   
Dries committed
410
411
412
/**
 * Save term associations for a given node.
 */
Kjartan's avatar
Kjartan committed
413
414
function taxonomy_node_save($nid, $terms) {
  taxonomy_node_delete($nid);
Dries's avatar
   
Dries committed
415

Kjartan's avatar
Kjartan committed
416
  if ($terms) {
Dries's avatar
   
Dries committed
417
    foreach ($terms as $term) {
418
      if ($term) {
Dries's avatar
   
Dries committed
419
        db_query('INSERT INTO {term_node} (nid, tid) VALUES (%d, %d)', $nid, $term);
420
      }
Dries's avatar
   
Dries committed
421
422
    }
  }
Kjartan's avatar
Kjartan committed
423
}
Dries's avatar
   
Dries committed
424

Dries's avatar
   
Dries committed
425
426
427
/**
 * Remove associations of a node to its terms.
 */
Kjartan's avatar
Kjartan committed
428
function taxonomy_node_delete($nid) {
Dries's avatar
   
Dries committed
429
  db_query('DELETE FROM {term_node} WHERE nid = %d', $nid);
Kjartan's avatar
Kjartan committed
430
}
Dries's avatar
   
Dries committed
431

Dries's avatar
   
Dries committed
432
433
434
435
/**
 * Find all term objects related to a given term ID.
 */
function taxonomy_get_related($tid, $key = 'tid') {
Kjartan's avatar
Kjartan committed
436
  if ($tid) {
Dries's avatar
   
Dries committed
437
    $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
438
439
440
    $related = array();
    while ($term = db_fetch_object($result)) {
      $related[$term->$key] = $term;
Dries's avatar
   
Dries committed
441
    }
Kjartan's avatar
Kjartan committed
442
    return $related;
Dries's avatar
   
Dries committed
443
  }
Kjartan's avatar
Kjartan committed
444
445
  else {
    return array();
Dries's avatar
   
Dries committed
446
  }
Kjartan's avatar
Kjartan committed
447
}
Dries's avatar
   
Dries committed
448

Dries's avatar
   
Dries committed
449
450
451
452
/**
 * Find all parents of a given term ID.
 */
function taxonomy_get_parents($tid, $key = 'tid') {
Kjartan's avatar
Kjartan committed
453
  if ($tid) {
Dries's avatar
   
Dries committed
454
    $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's avatar
Kjartan committed
455
456
457
    $parents = array();
    while ($parent = db_fetch_object($result)) {
      $parents[$parent->$key] = $parent;
Dries's avatar
   
Dries committed
458
    }
Kjartan's avatar
Kjartan committed
459
    return $parents;
Dries's avatar
   
Dries committed
460
  }
Kjartan's avatar
Kjartan committed
461
462
463
464
  else {
    return array();
  }
}
Dries's avatar
   
Dries committed
465

Dries's avatar
   
Dries committed
466
467
468
469
/**
 * Find all ancestors of a given term ID.
 */
function taxonomy_get_parents_all($tid) {
Dries's avatar
   
Dries committed
470
471
472
473
474
475
476
477
478
479
480
481
  $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
482
483
484
485
/**
 * Find all children of a term ID.
 */
function taxonomy_get_children($tid, $vid = 0, $key = 'tid') {
Kjartan's avatar
Kjartan committed
486
  if ($vid) {
Dries's avatar
   
Dries committed
487
    $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's avatar
   
Dries committed
488
  }
Kjartan's avatar
Kjartan committed
489
  else {
Dries's avatar
   
Dries committed
490
    $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's avatar
Kjartan committed
491
492
493
494
495
496
497
  }
  $children = array();
  while ($term = db_fetch_object($result)) {
    $children[$term->$key] = $term;
  }
  return $children;
}
Dries's avatar
   
Dries committed
498

Dries's avatar
   
Dries committed
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
/**
 * 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.
 *
 * @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's avatar
   
Dries committed
517
  static $children, $parents, $terms;
Dries's avatar
   
Dries committed
518

Kjartan's avatar
Kjartan committed
519
  $depth++;
Dries's avatar
   
Dries committed
520

Dries's avatar
   
Dries committed
521
522
523
524
  // 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's avatar
   
Dries committed
525

Dries's avatar
   
Dries committed
526
    $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's avatar
   
Dries committed
527
    while ($term = db_fetch_object($result)) {
Dries's avatar
   
Dries committed
528
529
530
      $children[$vid][$term->parent][] = $term->tid;
      $parents[$vid][$term->tid][] = $term->parent;
      $terms[$vid][$term->tid] = $term;
Dries's avatar
   
Dries committed
531
532
    }
  }
Dries's avatar
   
Dries committed
533

Dries's avatar
   
Dries committed
534
535
536
  $max_depth = ($max_depth == '') ? count($children[$vid]) : $max_depth;
  if ($children[$vid][$parent]) {
    foreach ($children[$vid][$parent] as $child) {
Dries's avatar
   
Dries committed
537
      if ($max_depth > $depth) {
Dries's avatar
   
Dries committed
538
539
540
541
542
        $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's avatar
   
Dries committed
543

Dries's avatar
   
Dries committed
544
        $tree = array_merge($tree, taxonomy_get_tree($vid, $child, $depth, $max_depth));
Dries's avatar
   
Dries committed
545
      }
Dries's avatar
   
Dries committed
546
    }
Kjartan's avatar
Kjartan committed
547
  }
Dries's avatar
   
Dries committed
548

Dries's avatar
   
Dries committed
549
  return $tree ? $tree : array();
Kjartan's avatar
Kjartan committed
550
}
Dries's avatar
   
Dries committed
551

Dries's avatar
   
Dries committed
552
553
554
/**
 * Return an array of synonyms of the given term ID.
 */
Kjartan's avatar
Kjartan committed
555
556
function taxonomy_get_synonyms($tid) {
  if ($tid) {
Dries's avatar
   
Dries committed
557
    $result = db_query('SELECT name FROM {term_synonym} WHERE tid = %d', $tid);
Kjartan's avatar
Kjartan committed
558
    while ($synonym = db_fetch_array($result)) {
Dries's avatar
   
Dries committed
559
      $synonyms[] = $synonym['name'];
Dries's avatar
   
Dries committed
560
    }
Kjartan's avatar
Kjartan committed
561
    return $synonyms ? $synonyms : array();
Dries's avatar
   
Dries committed
562
  }
Kjartan's avatar
Kjartan committed
563
564
  else {
    return array();
Dries's avatar
   
Dries committed
565
  }
Kjartan's avatar
Kjartan committed
566
}
Dries's avatar
   
Dries committed
567

Dries's avatar
   
Dries committed
568
569
570
571
572
/**
 * 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's avatar
Kjartan committed
573
}
Dries's avatar
   
Dries committed
574

Dries's avatar
   
Dries committed
575
576
577
/**
 * Given a term id, count the number of published nodes in it.
 */
Dries's avatar
   
Dries committed
578
function taxonomy_term_count_nodes($tid, $type = 0) {
Kjartan's avatar
Kjartan committed
579
  static $count;
Dries's avatar
   
Dries committed
580

Dries's avatar
   
Dries committed
581
582
583
  if (!isset($count[$type])) {
    // $type == 0 always evaluates true is $type is a string
    if (is_numeric($type)) {
Dries's avatar
   
Dries committed
584
      $result = db_query('SELECT t.tid, COUNT(*) AS c FROM {term_node} t INNER JOIN {node} n ON t.nid = n.nid WHERE n.status = 1 GROUP BY t.tid');
Dries's avatar
   
Dries committed
585
586
    }
    else {
Dries's avatar
   
Dries committed
587
      $result = db_query("SELECT t.tid, COUNT(*) 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's avatar
   
Dries committed
588
    }
Kjartan's avatar
Kjartan committed
589
    while ($term = db_fetch_object($result)) {
Dries's avatar
   
Dries committed
590
      $count[$type][$term->tid] = $term->c;
Dries's avatar
   
Dries committed
591
592
593
    }
  }

Kjartan's avatar
Kjartan committed
594
  foreach (_taxonomy_term_children($tid) as $c) {
Dries's avatar
   
Dries committed
595
    $children_count += taxonomy_term_count_nodes($c, $type);
Kjartan's avatar
Kjartan committed
596
  }
Dries's avatar
   
Dries committed
597
  return $count[$type][$tid] + $children_count;
Kjartan's avatar
Kjartan committed
598
599
}

Dries's avatar
   
Dries committed
600
601
602
/**
 * Helper for taxonomy_term_count_nodes().
 */
Kjartan's avatar
Kjartan committed
603
604
function _taxonomy_term_children($tid) {
  static $children;
Dries's avatar
   
Dries committed
605

Dries's avatar
   
Dries committed
606
  if (!isset($children)) {
Dries's avatar
   
Dries committed
607
    $result = db_query('SELECT tid, parent FROM {term_hierarchy}');
Kjartan's avatar
Kjartan committed
608
609
    while ($term = db_fetch_object($result)) {
      $children[$term->parent][] = $term->tid;
Dries's avatar
   
Dries committed
610
    }
Dries's avatar
   
Dries committed
611
  }
Kjartan's avatar
Kjartan committed
612
613
  return $children[$tid] ? $children[$tid] : array();
}
Dries's avatar
   
Dries committed
614

Dries's avatar
   
Dries committed
615
/**
Dries's avatar
   
Dries committed
616
617
618
619
620
621
622
 * Try to map a string to an existing vocabulary.
 *
 * Provides a case-insensitive and trimmed mapping, to maximize the
 * likelihood of a successful match.
 *
 * @param name
 *   Name of the vocabulary to search for.
Dries's avatar
   
Dries committed
623
 *
Dries's avatar
   
Dries committed
624
625
 * @return
 *   An array of matching vocabulary objects.
Dries's avatar
   
Dries committed
626
627
 */
function taxonomy_get_vocabulary_by_name($name) {
Dries's avatar
   
Dries committed
628
  $db_result = db_query("SELECT * FROM {vocabulary} WHERE LOWER('%s') LIKE LOWER(name)", trim($name));
Dries's avatar
   
Dries committed
629
630
631
632
633
634
635
636
637
  $result = array();
  while ($vocabulary = db_fetch_object($db_result)) {
    $result[] = $vocabulary;
  }

  return $result;
}

/**
Dries's avatar
   
Dries committed
638
 * Try to map a string to an existing term, as for glossary use.
Dries's avatar
   
Dries committed
639
 *
Dries's avatar
   
Dries committed
640
641
642
643
644
645
646
647
 * 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's avatar
   
Dries committed
648
649
 */
function taxonomy_get_term_by_name($name) {
Dries's avatar
   
Dries committed
650
  $db_result = db_query("SELECT * FROM {term_data} WHERE LOWER('%s') LIKE LOWER(name)", trim($name));
Dries's avatar
   
Dries committed
651
652
653
654
655
656
657
658
  $result = array();
  while ($term = db_fetch_object($db_result)) {
    $result[] = $term;
  }

  return $result;
}

Dries's avatar
   
Dries committed
659
660
661
/**
 * Return the vocabulary object matching a vocabulary ID.
 */
Kjartan's avatar
Kjartan committed
662
function taxonomy_get_vocabulary($vid) {
Dries's avatar
   
Dries committed
663
  return db_fetch_object(db_query('SELECT * FROM {vocabulary} WHERE vid = %d', $vid));
Kjartan's avatar
Kjartan committed
664
}
Dries's avatar
   
Dries committed
665

Dries's avatar
   
Dries committed
666
667
668
/**
 * Return the term object matching a term ID.
 */
Kjartan's avatar
Kjartan committed
669
670
function taxonomy_get_term($tid) {
  // simple cache using a static var?
Dries's avatar
   
Dries committed
671
  return db_fetch_object(db_query('SELECT * FROM {term_data} WHERE tid = %d', $tid));
Kjartan's avatar
Kjartan committed
672
}
Dries's avatar
   
Dries committed
673

Kjartan's avatar
Kjartan committed
674
function _taxonomy_term_select($title, $name, $value, $vocabulary_id, $description, $multiple, $blank, $exclude = array()) {
Dries's avatar
   
Dries committed
675
  $tree = taxonomy_get_tree($vocabulary_id);
Dries's avatar
Dries committed
676
677
678
  if ($blank) {
    $options[] = array('tid' => 0, 'name' => $blank);
  }
Kjartan's avatar
Kjartan committed
679
680
681
  if ($tree) {
    foreach ($tree as $term) {
      if (!in_array($term->tid, $exclude)) {
Dries's avatar
   
Dries committed
682
        $options[] = array('tid' => $term->tid, 'name' => _taxonomy_depth($term->depth, '-').$term->name);
Dries's avatar
   
Dries committed
683
684
      }
    }
Kjartan's avatar
Kjartan committed
685
686
687
688
689
    if (!$blank && !$value) {
      // required but without a predefined value, so set first as predefined
      $value = $tree[0]->tid;
    }
  }
Dries's avatar
   
Dries committed
690

Kjartan's avatar
Kjartan committed
691
  if (count($options) > 0) {
Dries's avatar
   
Dries committed
692
    foreach ($options as $option) {
Dries's avatar
   
Dries committed
693
      $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's avatar
Kjartan committed
694
    }
Dries's avatar
   
Dries committed
695

Dries's avatar
   
Dries committed
696
    $size = min(12, count($options));
Dries's avatar
   
Dries committed
697

Dries's avatar
   
Dries committed
698
    return form_item($title, "<select name=\"edit[$name][]\"". ($multiple ? " multiple=\"multiple\" size=\"$size\"" : '') . ($extra ? " $extra" : '') .">$select</select>", $description);
Dries's avatar
   
Dries committed
699
  }
Kjartan's avatar
Kjartan committed
700
}
Dries's avatar
   
Dries committed
701

Kjartan's avatar
Kjartan committed
702
703
704
function _taxonomy_depth($depth, $graphic = '--') {
  for ($n = 0; $n < $depth; $n++) {
    $result .= $graphic;
Dries's avatar
   
Dries committed
705
  }
Kjartan's avatar
Kjartan committed
706
707
  return $result;
}
Dries's avatar
   
Dries committed
708

Kjartan's avatar
Kjartan committed
709
710
711
function _prepare_update($data) {
  foreach ($data as $key => $value) {
    $q[] = "$key = '". check_query($value) ."'";
Dries's avatar
   
Dries committed
712
  }
Dries's avatar
   
Dries committed
713
  $result = implode(', ', $q);
Kjartan's avatar
Kjartan committed
714
715
  return $result;
}
Dries's avatar
   
Dries committed
716

Kjartan's avatar
Kjartan committed
717
718
function _prepare_insert($data, $stage) {
  if ($stage == 1) {
Dries's avatar
   
Dries committed
719
    $result = implode(', ', array_keys($data));
Kjartan's avatar
Kjartan committed
720
721
722
723
  }
  else {
    foreach (array_values($data) as $value) {
      $q[] = "'". check_query($value) ."'";
Dries's avatar
   
Dries committed
724
    }
Dries's avatar
   
Dries committed
725
    $result = implode(', ', $q);
Dries's avatar
   
Dries committed
726
  }
Kjartan's avatar
Kjartan committed
727
728
  return "($result)";
}
Dries's avatar
   
Dries committed
729

Dries's avatar
   
Dries committed
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
/**
 * Finds all nodes that match selected taxonomy conditions.
 *
 * @param $taxonomy
 *   An object containing the conditions to match. The attributes of this
 *   object are:
 *   - "tids": An array of term IDs to match.
 *   - "str_tids": A comma-separated list of the same IDs.
 *   - "operator": How to interpret multiple IDs in the array. Can be
 *     "or" or "and".
 *
 * @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.
 */
function taxonomy_select_nodes($taxonomy, $pager = TRUE) {
749
  if ($taxonomy->str_tids) {
Dries's avatar
   
Dries committed
750
    if ($taxonomy->operator == 'or') {
Dries's avatar
   
Dries committed
751
      $sql = "SELECT DISTINCT(n.nid), n.title, n.type, n.created, n.changed, n.uid, n.sticky, n.created, u.name FROM {node} n INNER JOIN {term_node} r ON n.nid = r.nid INNER JOIN {users} u ON n.uid = u.uid WHERE r.tid IN ($taxonomy->str_tids) AND n.status = 1 ORDER BY sticky DESC, created DESC";
Dries's avatar
   
Dries committed
752
      $sql_count = "SELECT COUNT(DISTINCT(n.nid)) FROM {node} n INNER JOIN {term_node} r ON n.nid = r.nid INNER JOIN {users} u ON n.uid = u.uid WHERE r.tid IN ($taxonomy->str_tids) AND n.status = 1";
753
754
    }
    else {
Dries's avatar
   
Dries committed
755
      $sql = "SELECT n.nid, n.title, n.type, n.created, n.changed, n.uid, u.name FROM {node} n INNER JOIN {term_node} r ON n.nid = r.nid INNER JOIN {users} u ON n.uid = u.uid WHERE r.tid IN ($taxonomy->str_tids) AND n.status = 1 GROUP BY n.nid, n.title, n.type, n.created, n.changed, n.uid, u.name HAVING COUNT(n.nid) = ". count($taxonomy->tids) ." ORDER BY sticky DESC, created DESC";
Dries's avatar
   
Dries committed
756

757
      // Special trick as we could not find anything better:
Dries's avatar
   
Dries committed
758
      $count = db_num_rows(db_query("SELECT n.nid FROM {node} n INNER JOIN {term_node} r ON n.nid = r.nid WHERE r.tid IN ($taxonomy->str_tids) AND n.status = 1 GROUP BY n.nid HAVING COUNT(n.nid) = ". count($taxonomy->tids)));
759
760
      $sql_count = "SELECT $count";
    }
Dries's avatar
   
Dries committed
761

762
    if ($pager) {
Dries's avatar
   
Dries committed
763
      $result = pager_query($sql, variable_get('default_nodes_main', 10) , 0, $sql_count);
764
765
766
767
    }
    else {
      $result = db_query_range($sql, 0, 15);
    }
Dries's avatar
   
Dries committed
768
769
770
771
772
  }

  return $result;
}

Dries's avatar
   
Dries committed
773
774
775
/**
 * 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's avatar
   
Dries committed
776
777
778
779
*/
function taxonomy_render_nodes($result) {

  while ($node = db_fetch_object($result)) {
Dries's avatar
   
Dries committed
780
    $output .= node_view(node_load(array('nid' => $node->nid, 'type' => $node->type)), 1);
Dries's avatar
   
Dries committed
781
  }
Dries's avatar
   
Dries committed
782
  $output .= theme('pager', NULL, variable_get('default_nodes_main', 10), 0);
Dries's avatar
   
Dries committed
783
  return $output;
Dries's avatar
   
Dries committed
784
785
}

Dries's avatar
   
Dries committed
786
787
788
/**
 * Implementation of hook_nodeapi().
 */
Dries's avatar
   
Dries committed
789
790
function taxonomy_nodeapi($node, $op, $arg = 0) {
  switch ($op) {
Dries's avatar
   
Dries committed
791
    case 'insert':
Dries's avatar
   
Dries committed
792
793
      taxonomy_node_save($node->nid, $node->taxonomy);
      break;
Dries's avatar
   
Dries committed
794
    case 'update':
Dries's avatar
   
Dries committed
795
796
      taxonomy_node_save($node->nid, $node->taxonomy);
      break;
Dries's avatar
   
Dries committed
797
    case 'delete':
Dries's avatar
   
Dries committed
798
799
800
801
802
      taxonomy_node_delete($node->nid);
      break;
  }
}

Kjartan's avatar
Kjartan committed
803
function taxonomy_page() {
Dries's avatar
   
Dries committed
804

Dries's avatar
   
Dries committed
805
806
  $taxonomy->operator = arg(2);
  $taxonomy->str_tids = check_query(arg(3));
Dries's avatar
   
Dries committed
807
  $taxonomy->tids = explode(',', $taxonomy->str_tids);
Dries's avatar
   
Dries committed
808

Dries's avatar
   
Dries committed
809
  if (ereg('^([0-9]+,){0,}[0-9]+$', $taxonomy->str_tids)) {
Dries's avatar
   
Dries committed
810
    switch (arg(1)) {
Dries's avatar
   
Dries committed
811
      case 'feed':
Dries's avatar
   
Dries committed
812
        taxonomy_feed($taxonomy);
Kjartan's avatar
Kjartan committed
813
      break;
Dries's avatar
   
Dries committed
814
      default:
Dries's avatar
   
Dries committed
815
      // Build title:
816
      $sql = 'SELECT name FROM {term_data} WHERE tid IN (%s)';
Dries's avatar
   
Dries committed
817
      $result = db_query($sql, $taxonomy->str_tids);
Kjartan's avatar
Kjartan committed
818
      $names = array();
Dries's avatar
   
Dries committed
819
820
821
      while ($term = db_fetch_object($result)) {
        $names[] = $term->name;
      }
Dries's avatar
   
Dries committed
822
823
824

      // Build breadcrumb based on first hierarchy of first term:
      $current->tid = $taxonomy->tids[0];
Dries's avatar
   
Dries committed
825
      $breadcrumbs = array(array('path' => $_GET['q']));
Dries's avatar
   
Dries committed
826
827
      while ($parents = taxonomy_get_parents($current->tid)) {
        $current = array_shift($parents);
Dries's avatar
   
Dries committed
828
        $breadcrumbs[] = array('path' => 'taxonomy/view/or/'. $current->tid, 'title' => $current->name);
Dries's avatar
   
Dries committed
829
830
      }
      $breadcrumbs = array_reverse($breadcrumbs);
Dries's avatar
   
Dries committed
831
      menu_set_location($breadcrumbs);
Dries's avatar
   
Dries committed
832

Dries's avatar
   
Dries committed
833
      drupal_set_html_head('<link rel="alternate" type="application/rss+xml" title="RSS - '. implode(' : ', $names) .'" href="'. url("taxonomy/feed/or/$taxonomy->str_tids") .'" />');
Dries's avatar
Dries committed
834

Dries's avatar
   
Dries committed
835
      $output = taxonomy_render_nodes(taxonomy_select_nodes($taxonomy));
Dries's avatar
   
Dries committed
836
      print theme('page', $output, implode(', ', $names));
Dries's avatar
   
Dries committed
837
      break;
Dries's avatar
   
Dries committed
838
839
840
841
    }
  }
  else {
    drupal_not_found();
Dries's avatar
   
Dries committed
842
  }
Kjartan's avatar
Kjartan committed
843
}
Dries's avatar
   
Dries committed
844

Dries's avatar
   
Dries committed
845
846
847
/**
 * Menu callback; dispatches to the proper taxonomy administration function.
 */
Kjartan's avatar
Kjartan committed
848
function taxonomy_admin() {
Dries's avatar
   
Dries committed
849
850
  $op = $_POST['op'];
  $edit = $_POST['edit'];
Kjartan's avatar
Kjartan committed
851

Dries's avatar
   
Dries committed
852
853
854
  if (empty($op)) {
    $op = arg(2);
  }
Dries's avatar
   
Dries committed
855

Dries's avatar
   
Dries committed
856
  switch ($op) {
Dries's avatar
   
Dries committed
857
858
    case 'add':
      if (arg(3) == 'vocabulary') {
Dries's avatar
   
Dries committed
859
860
        $output .= taxonomy_form_vocabulary();
      }
Dries's avatar
   
Dries committed
861
      else if (arg(3) == 'term') {
Dries's avatar
   
Dries committed
862
863
864
        $output .= taxonomy_form_term();
      }
      break;
Dries's avatar
   
Dries committed
865
866
    case 'edit':
      if (arg(3) == 'vocabulary') {
Dries's avatar