forum.module 27.5 KB
Newer Older
Dries Buytaert's avatar
   
Dries Buytaert committed
1
2
3
<?php
// $Id$

4
5
6
7
/**
 * Implementation of hook_help().
 */
function forum_help($section) {
Dries Buytaert's avatar
   
Dries Buytaert committed
8
9
  switch ($section) {
    case 'admin/help#forum':
10
      return t("
Dries Buytaert's avatar
   
Dries Buytaert committed
11
12
13
14
15
      <h3>Creating a forum</h3>
      <p>The forum module uses taxonomy to organize itself. To create a forum you first have to create a <a href=\"%taxonomy\">taxonomy vocabulary</a>. When doing this, choose a sensible name for it (such as \"fora\") and make sure under \"Types\" that \"forum\" is selected. Once you have done this, <a href=\"%taxo-terms\">add some terms</a> to it. Each term will become a forum. If you fill in the description field, users will be given additonal information about the forum on the main forum page. For example: \"troubleshooting\" - \"Please ask your questions here.\"</p>
      <p>When you are happy with your vocabulary, go to <a href=\"%forums\">administer &raquo; configutation &raquo; modules &raquo; forum</a> and set <strong>Forum vocabulary</strong> to the one you have just created. There will now be fora active on the site. For users to access them they must have the \"access content\" <a href=\"%permission\">permission</a> and to create a topic they must have the \"create forum topics\" <a href=\"%permission\">permission</a>. These permissions can be set in the <a href=\"%permission\">permission</a> pages.</p>
      <h4>Icons</h4>
      <p>To disable icons, set the icon path as blank in <a href=\"%forums\">administer &raquo; configutation &raquo; modules &raquo; forum</a>.</p>
16
      <p>All files in the icon directory are assumed to be images. You may use images of whatever size you wish, but it is recommended to use 15x15 or 16x16.</p>", array("%taxonomy" => url('admin/taxonomy/add/vocabulary'), '%taxo-terms' => url('admin/taxonomy'), '%forums' => url('admin/settings/forum'), '%permission' => url('admin/user/configure/permission')));
Dries Buytaert's avatar
   
Dries Buytaert committed
17
    case 'admin/modules#description':
18
      return t('Enable threaded discussions about general topics.');
Dries Buytaert's avatar
   
Dries Buytaert committed
19
    case 'admin/settings/forum':
20
      return t("Forums are threaded discussions based on the taxonomy system.  For the forums to work, the taxonomy module has to be installed and enabled.  When activated, a taxonomy vocabulary (eg. \"forums\") needs to be <a href=\"%created\">created</a> and bound to the node type \"forum topic\".", array('%created' => url('admin/taxonomy/add/vocabulary')));
Dries Buytaert's avatar
   
Dries Buytaert committed
21
    case 'node/add/forum':
22
      return variable_get('forum_help', '');
Dries Buytaert's avatar
   
Dries Buytaert committed
23
    case 'node/add#forum':
24
      return t('A forum is a threaded discussion, enabling users to communicate about a particular topic.');
Dries Buytaert's avatar
   
Dries Buytaert committed
25
26
27
  }
}

28
29
30
/**
 * Implementation of hook_node_name().
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
31
function forum_node_name($node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
32
  return t('forum topic');
Dries Buytaert's avatar
   
Dries Buytaert committed
33
34
}

35
36
37
/**
 * Implementation of hook_access().
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
38
function forum_access($op, $node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
39
  if ($op == 'view') {
Dries Buytaert's avatar
   
Dries Buytaert committed
40
41
    return $node->status;
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
42
43
  if ($op == 'create') {
    return user_access('create forum topics');
Dries Buytaert's avatar
   
Dries Buytaert committed
44
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
45
46
}

47
48
49
/**
 * Implementation of hook_perm().
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
50
function forum_perm() {
Dries Buytaert's avatar
   
Dries Buytaert committed
51
  return array('create forum topics');
Dries Buytaert's avatar
   
Dries Buytaert committed
52
}
Dries Buytaert's avatar
   
Dries Buytaert committed
53

54
55
56
/**
 * Implementation of hook_settings().
 */
57
function forum_settings() {
Dries Buytaert's avatar
   
Dries Buytaert committed
58

Dries Buytaert's avatar
   
Dries Buytaert committed
59
60
61
  if (module_exist('taxonomy')) {
    $vocs[0] = '<'. t('none') .'>';
    foreach (taxonomy_get_vocabularies('forum') as $vid => $voc) {
Dries Buytaert's avatar
   
Dries Buytaert committed
62
63
64
      $vocs[$vid] = $voc->name;
    }

Dries Buytaert's avatar
   
Dries Buytaert committed
65
    if ($voc) {
Dries Buytaert's avatar
   
Dries Buytaert committed
66
      $group  = form_select(t('Forum vocabulary'), 'forum_nav_vocabulary', variable_get('forum_nav_vocabulary', ''), $vocs, t("The taxonomy vocabulary that will be used as the navigation tree.  The vacabulary's terms define the forums."));
67
      $group .= _taxonomy_term_select(t('Containers'), 'forum_containers', variable_get('forum_containers', array()), variable_get('forum_nav_vocabulary', ''), t('You can choose forums which will not have topics, but will be just containers for other forums.  This lets you both group and nest forums.'), 1, '<'. t('none') .'>');
68

Dries Buytaert's avatar
   
Dries Buytaert committed
69
      $output = form_group(t('Forum structure settings'), $group);
70

Dries Buytaert's avatar
   
Dries Buytaert committed
71
      $group  = form_textarea(t('Explanation or submission guidelines'), 'forum_help', variable_get('forum_help', ''), 70, 5, t('This text will be displayed at the top of the forum submission form.  Useful for helping or instructing your users.'));
72
      $group .= form_textfield(t('Forum icon path'), 'forum_icon_path', variable_get('forum_icon_path', ''), 30, 255, t('The path to the forum icons.  Leave blank to disable icons.  Don\'t add a trailing slash.  Default icons are available in the "misc" directory.'));
Dries Buytaert's avatar
   
Dries Buytaert committed
73
      $number = drupal_map_assoc(array(5, 10, 15, 20, 25, 30, 35, 40, 50, 60, 80, 100, 10000));
Dries Buytaert's avatar
   
Dries Buytaert committed
74
      $group .= form_select(t('Hot topic threshold'), 'forum_hot_topic', variable_get('forum_hot_topic', 15), $number, t('The number of posts a topic must have to be considered <strong>hot</strong>.'));
Dries Buytaert's avatar
   
Dries Buytaert committed
75
      $number = drupal_map_assoc(array(10, 25, 50, 75, 100));
Dries Buytaert's avatar
   
Dries Buytaert committed
76
77
78
      $group .= form_select(t('Topics per page'), 'forum_per_page', variable_get('forum_per_page', 25), $number, t('The default number of topics displayed per page; links to browse older messages are automatically being displayed.'));
      $forder = array(1 => t('Date - newest first'), 2 => t('Date - oldest first'), 3 => t('Posts - most active first'), 4=> t('Posts - least active first'));
      $group .= form_radios(t('Default order'), 'forum_order', variable_get('forum_order', '1'), $forder, t('The default display order for topics.'));
Dries Buytaert's avatar
   
Dries Buytaert committed
79
      $output .= form_group(t('Forum viewing options'), $group);
80

Dries Buytaert's avatar
   
Dries Buytaert committed
81
      $group = form_textfield(t('Number of topics in block'), 'forum_block_num', variable_get('forum_block_num', '5'), 5, 5, t('The number of topics to show in the "Forum topics" block.  To enable the block, go to the <a href="%block-administration">block administration</a> page.', array('%block-administration' => url('admin/block'))));
Dries Buytaert's avatar
   
Dries Buytaert committed
82
      $output .= form_group(t('"Forum topic" block settings'), $group);
Dries Buytaert's avatar
   
Dries Buytaert committed
83
84
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
85

Dries Buytaert's avatar
   
Dries Buytaert committed
86
87
88
  return $output;
}

89
90
91
/**
 * Implementation of hook_taxonomy().
 */
Dries Buytaert's avatar
Dries Buytaert committed
92
function forum_taxonomy($op, $type, $object) {
Dries Buytaert's avatar
   
Dries Buytaert committed
93
94
  if ($type == 'vocabulary' && ($op == 'insert' || $op == 'update')) {
    if (variable_get('forum_nav_vocabulary', '') == '' && in_array('forum', $object['nodes'])) {
Dries Buytaert's avatar
Dries Buytaert committed
95
      // since none is already set, silently set this vocabulary as the navigation vocabulary
Dries Buytaert's avatar
   
Dries Buytaert committed
96
      variable_set('forum_nav_vocabulary', $object['vid']);
Dries Buytaert's avatar
Dries Buytaert committed
97
98
99
100
    }
  }
}

101
102
103
/**
 * Implementation of hook_load().
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
104
function forum_load($node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
105
  $forum = db_fetch_object(db_query('SELECT * FROM {forum} WHERE nid = %d', $node->nid));
Dries Buytaert's avatar
   
Dries Buytaert committed
106
107
108
109

  return $forum;
}

110
111
112
113
114
115
/**
 * Implementation of hook_block().
 *
 * Generates a block containing the currently active forum topics and the
 * most recently added forum topics.
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
116
function forum_block($op = 'list', $delta = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
117
118
  global $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
119
120
  if ($op == 'list') {
    $blocks[0]['info'] = t('Forum topics');
121
122
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
123
    if (user_access('access content')) {
Dries Buytaert's avatar
   
Dries Buytaert committed
124
      $content  = node_title_list(db_query_range("SELECT n.nid, n.title, GREATEST(n.created, MAX(c.timestamp)) AS sort FROM {node} n LEFT JOIN {comments} c ON n.nid = c.nid WHERE n.type = 'forum' AND n.status = 1 GROUP BY n.nid, n.title, n.created ORDER BY sort DESC", 0, variable_get('forum_block_num', '5')), t('Active forum topics:'));
Dries Buytaert's avatar
   
Dries Buytaert committed
125

Dries Buytaert's avatar
   
Dries Buytaert committed
126
      $content .= node_title_list(db_query_range("SELECT nid, title FROM {node} WHERE type = 'forum' AND status = 1 ORDER BY nid DESC", 0, variable_get('forum_block_num', '5')), t('New forum topics:'));
Dries Buytaert's avatar
   
Dries Buytaert committed
127

Dries Buytaert's avatar
   
Dries Buytaert committed
128
      if ($content) {
129
        $content .= '<div class="more-link">'. l(t('more'), 'forum', array('title' => t('Read the latest forum topics.'))) .'</div>';
Dries Buytaert's avatar
   
Dries Buytaert committed
130
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
131

Dries Buytaert's avatar
   
Dries Buytaert committed
132
133
      $blocks['subject'] = t('Forum topics');
      $blocks['content'] = $content;
Dries Buytaert's avatar
   
Dries Buytaert committed
134
135
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
136

Dries Buytaert's avatar
   
Dries Buytaert committed
137
138
139
  return $blocks;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
140
141
142
/**
 * Implementation of hook_link().
 */
143
function forum_link($type, $node = 0, $main = 0) {
Dries Buytaert's avatar
Dries Buytaert committed
144
  global $user;
Dries Buytaert's avatar
   
Dries Buytaert committed
145

Dries Buytaert's avatar
   
Dries Buytaert committed
146
147
  $links = array();

Dries Buytaert's avatar
   
Dries Buytaert committed
148
149
  if ($type == 'page' && user_access('access content')) {
    $links[] = l(t('forums'), 'forum');
Dries Buytaert's avatar
   
Dries Buytaert committed
150
151
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
152
  if (!$main && $type == 'node' && $node->type == 'forum') {
Dries Buytaert's avatar
   
Dries Buytaert committed
153
154
    // get previous and next topic

Dries Buytaert's avatar
   
Dries Buytaert committed
155
    $result = db_query('SELECT n.nid, n.title, GREATEST(n.created, MAX(c.timestamp)) AS date_sort, COUNT(c.nid) AS num_comments FROM {node} n INNER JOIN {forum} f ON n.nid = f.nid INNER JOIN {comments} c ON n.nid = c.nid WHERE n.nid = f.nid AND f.tid = %d AND n.status = 1 GROUP BY n.nid, n.title, n.created ORDER BY '. _forum_get_topic_order(isset($user->sortby) ? $user->sortby : variable_get('forum_order', 1)), $node->tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172

    while ($topic = db_fetch_object($result)) {
      if ($stop == 1) {
        $next->nid = $topic->nid;
        $next->title = $topic->title;
        break;
      }
      if ($topic->nid == $node->nid) {
        $stop = 1;
      }
      else {
        $prev->nid = $topic->nid;
        $prev->title = $topic->title;
      }
    }

    if ($prev) {
Dries Buytaert's avatar
   
Dries Buytaert committed
173
      $links[] = l(t('previous forum topic'), "node/$prev->nid", array('title' => $prev->title));
Dries Buytaert's avatar
   
Dries Buytaert committed
174
175
176
    }

    if ($next) {
Dries Buytaert's avatar
   
Dries Buytaert committed
177
      $links[] = l(t('next forum topic'), "node/$next->nid", array('title' => $next->title));
Dries Buytaert's avatar
   
Dries Buytaert committed
178
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
179
180
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
181
  return $links;
Dries Buytaert's avatar
   
Dries Buytaert committed
182
183
}

Dries Buytaert's avatar
   
Dries Buytaert committed
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
/**
 * Implementation of hook_menu().
 */
function forum_menu() {
  $items = array();

  $items[] = array('path' => 'node/add/forum', 'title' => t('forum topic'),
    'access' => user_access('create forum topics'));
  $items[] = array('path' => 'forum', 'title' => t('forums'),
    'callback' => 'forum_page',
    'access' => user_access('access content'),
    'type' => MENU_CALLBACK);

  return $items;
}

200
201
202
/**
 * Implementation of hook_content().
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
203
204
function forum_content($node, $teaser = FALSE) {
  return node_prepare($node, $teaser);
Dries Buytaert's avatar
   
Dries Buytaert committed
205
206
}

207
208
209
/**
 * Implementation of hook_view().
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
210
function forum_view($node, $teaser = FALSE, $page = FALSE) {
Dries Buytaert's avatar
   
Dries Buytaert committed
211

Dries Buytaert's avatar
   
Dries Buytaert committed
212
  if ($page) {
Dries Buytaert's avatar
   
Dries Buytaert committed
213
    $vocabulary = taxonomy_get_vocabulary(variable_get('forum_nav_vocabulary', ''));
Dries Buytaert's avatar
   
Dries Buytaert committed
214
    // Breadcrumb navigation
Dries Buytaert's avatar
   
Dries Buytaert committed
215
216
    $breadcrumb = array();
    $breadcrumb[] = array('path' => 'forum', 'title' => $vocabulary->name);
Dries Buytaert's avatar
   
Dries Buytaert committed
217
    if ($parents = taxonomy_get_parents_all($node->tid)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
218
219
      $parents = array_reverse($parents);
      foreach ($parents as $p) {
Dries Buytaert's avatar
   
Dries Buytaert committed
220
        $breadcrumb[] = array('path' => 'forum/'. $p->tid, 'title' => $p->name);
Dries Buytaert's avatar
   
Dries Buytaert committed
221
222
      }
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
223
224
    $breadcrumb[] = array('path' => 'node/'. $node->nid);
    menu_set_location($breadcrumb);
225
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
226

Dries Buytaert's avatar
   
Dries Buytaert committed
227
  return theme('node', forum_content($node, $teaser), $teaser, $page);
Dries Buytaert's avatar
   
Dries Buytaert committed
228
229
}

230
231
232
233
234
235
/**
 * Implementation of hook_validate().
 *
 * Check in particular that only a "leaf" term in the associated taxonomy
 * vocabulary is selected, not a "container" term.
 */
236
237
function forum_validate(&$node) {
  // Make sure all fields are set properly:
Dries Buytaert's avatar
   
Dries Buytaert committed
238
  $node->icon = $node->icon ? $node->icon : '';
239
  $node->shadow = $node->shadow ? $node->shadow : 0;
Dries Buytaert's avatar
   
Dries Buytaert committed
240
241
242

  if ($node->taxonomy) {
    // Extract the node's proper topic ID.
Dries Buytaert's avatar
   
Dries Buytaert committed
243
    $vocabulary = variable_get('forum_nav_vocabulary', '');
244
    $containers = variable_get('forum_containers', array());
Dries Buytaert's avatar
   
Dries Buytaert committed
245
    foreach ($node->taxonomy as $term) {
Dries Buytaert's avatar
   
Dries Buytaert committed
246
      if (db_result(db_query('SELECT COUNT(*) FROM {term_data} WHERE tid = %d AND vid = %d', $term, $vocabulary))) {
247
248
249
250
251
252
253
        if (in_array($term, $containers)) {
          $term = taxonomy_get_term($term);
          $error['taxonomy'] = theme('error', t('The item \'%forum\' is only a container for forums. Please select one of the forums below it.', array('%forum' => $term->name)));
        }
        else {
          $node->tid = $term;
        }
Dries Buytaert's avatar
   
Dries Buytaert committed
254
      }
255
    }
Dries Buytaert's avatar
Dries Buytaert committed
256
  }
257
  return $error;
Dries Buytaert's avatar
Dries Buytaert committed
258
259
}

260
261
262
/**
 * Implementation of hook_form().
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
263
function forum_form(&$node, &$error) {
Dries Buytaert's avatar
   
Dries Buytaert committed
264
  if (!$node->nid) {
Dries Buytaert's avatar
Dries Buytaert committed
265
    // new topic
Dries Buytaert's avatar
   
Dries Buytaert committed
266
    $node->taxonomy[] = arg(3);
267
268
  }

269
  $output = implode('', taxonomy_node_form('forum', $node, $error));
Dries Buytaert's avatar
Dries Buytaert committed
270
271
272

  if ($node->nid) {
    // if editing, give option to leave shadows
Dries Buytaert's avatar
   
Dries Buytaert committed
273
    $output .= form_checkbox(t('Leave shadow copy'), 'shadow', 1, $node->shadow, t('If you move this topic, you can leave a link in the old forum to the new forum.'));
Dries Buytaert's avatar
Dries Buytaert committed
274
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
275

Dries Buytaert's avatar
   
Dries Buytaert committed
276
  $output .= form_textarea(t('Body'), 'body', $node->body, 60, 10, filter_tips_short());
Dries Buytaert's avatar
   
Dries Buytaert committed
277
278
279
280

  return $output;
}

281
282
283
/**
 * Implementation of hook_insert().
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
284
function forum_insert($node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
285
  db_query('INSERT INTO {forum} (nid, shadow, tid) VALUES (%d, %d, %d)', $node->nid, $node->shadow, $node->tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
286
287
}

288
289
290
/**
 * Implementation of hook_update().
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
291
function forum_update($node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
292
  db_query('UPDATE {forum} SET shadow = %d, tid = %d WHERE nid = %d', $node->shadow, $node->tid, $node->nid);
Dries Buytaert's avatar
   
Dries Buytaert committed
293
294
}

295
296
297
/**
 * Implementation of hook_delete().
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
298
function forum_delete(&$node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
299
  db_query('DELETE FROM {forum} WHERE nid = %d', $node->nid);
Dries Buytaert's avatar
   
Dries Buytaert committed
300
}
Dries Buytaert's avatar
   
Dries Buytaert committed
301

Dries Buytaert's avatar
   
Dries Buytaert committed
302
function _forum_num_comments($nid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
303
  $value = db_fetch_object(db_query('SELECT COUNT(cid) AS count FROM {comments} WHERE nid = %d AND status = 0', $nid));
Dries Buytaert's avatar
   
Dries Buytaert committed
304
305
306
  return ($value) ? $value->count : 0;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
307
function _forum_last_comment($nid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
308
309
  $value = db_fetch_object(db_query_range('SELECT timestamp FROM {comments} WHERE nid = %d AND status = 0 ORDER BY timestamp DESC', $nid, 0, 1));
  return ($value) ? format_date($value->timestamp, 'small') : '&nbsp;';
Dries Buytaert's avatar
   
Dries Buytaert committed
310
311
}

Dries Buytaert's avatar
   
Dries Buytaert committed
312
function _forum_last_reply($nid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
313
  $value = db_fetch_object(db_query_range('SELECT c.timestamp, u.name, u.uid FROM {comments} c INNER JOIN {users} u ON c.uid = u.uid WHERE c.nid = %d AND c.status = 0 ORDER BY c.timestamp DESC', $nid, 0, 1));
Dries Buytaert's avatar
   
Dries Buytaert committed
314
315
316
317
318
  return $value;
}

function _forum_format($topic) {
  if ($topic) {
Dries Buytaert's avatar
   
Dries Buytaert committed
319
    return t('%time ago<br />by %author', array('%time' => format_interval(time() - $topic->timestamp), '%author' => format_name($topic)));
Dries Buytaert's avatar
   
Dries Buytaert committed
320
321
322
323
324
325
326
327
328
329
330
331
332
  }
  else {
    return message_na();
  }
}

function forum_get_forums($tid = 0) {
  global $user;

  if (!$tid) {
    $tid = 0;
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
333
  $cache = cache_get("forum:$tid");
Dries Buytaert's avatar
   
Dries Buytaert committed
334

Dries Buytaert's avatar
   
Dries Buytaert committed
335
  if (empty($cache)) {
336
    $forums = array();
Dries Buytaert's avatar
   
Dries Buytaert committed
337
    $_forums = taxonomy_get_tree(variable_get('forum_nav_vocabulary', ''), $tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
338
339
    $n = 0;
    foreach ($_forums as $forum) {
Dries Buytaert's avatar
   
Dries Buytaert committed
340
      if (in_array($forum->tid, variable_get('forum_containers', array()))) {
Dries Buytaert's avatar
   
Dries Buytaert committed
341
342
        $forum->container = 1;
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
343
344
345
      $forum->num_topics = _forum_num_topics($forum->tid);
      $forum->num_posts = _forum_num_replies($forum->tid) + $forum->num_topics;
      $forum->last_post = _forum_last_post($forum->tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
346
347
348
349
      $forums[$forum->tid] = $forum;
      $n++;
    }

Dries Buytaert's avatar
   
Dries Buytaert committed
350
    cache_set("forum:$tid", serialize($forums), 1);
Dries Buytaert's avatar
   
Dries Buytaert committed
351
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
352
353
354
  else {
    $forums = unserialize($cache->data);
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
355

Dries Buytaert's avatar
   
Dries Buytaert committed
356
357
358
359
  return $forums;
}

function _forum_num_topics($term) {
Dries Buytaert's avatar
   
Dries Buytaert committed
360
  return db_result(db_query('SELECT COUNT(*) FROM {forum} f INNER JOIN {node} n ON n.nid = f.nid WHERE f.tid = %d AND n.status = 1 AND f.shadow = 0', $term));
Dries Buytaert's avatar
   
Dries Buytaert committed
361
362
363
}

function _forum_num_replies($term) {
364
  return db_result(db_query("SELECT COUNT(*) AS count FROM {comments} c INNER JOIN {node} n ON n.nid = c.nid INNER JOIN {forum} f ON n.nid = f.nid WHERE f.tid = %d AND n.nid = f.nid AND n.nid = c.nid AND n.status = 1 AND c.status = 0 AND n.type = 'forum'", $term));
Dries Buytaert's avatar
   
Dries Buytaert committed
365
366
}

367
368
369
370
function _forum_topics_read($term, $uid) {
  // Calculate the number of topics the user has read. Assume all entries older
  // than NODE_NEW_LIMIT are read, and include the recent posts that user has
  // read.
Dries Buytaert's avatar
   
Dries Buytaert committed
371
372
  $ancient = db_result(db_query('SELECT COUNT(*) FROM {forum} f INNER JOIN {node} n ON f.nid = n.nid WHERE f.tid = %d AND n.status = 1 AND n.created <= %d AND f.shadow = 0', $term, NODE_NEW_LIMIT));
  $recent = db_result(db_query('SELECT COUNT(*) FROM {forum} f INNER JOIN {node} n ON f.nid = n.nid INNER JOIN {history} h ON n.nid = h.nid WHERE n.status = 1 AND f.tid = %d AND h.uid = %d AND n.created > %d AND f.shadow = 0', $term, $uid, NODE_NEW_LIMIT));
Dries Buytaert's avatar
   
Dries Buytaert committed
373

374
  return $ancient + $recent;
Dries Buytaert's avatar
   
Dries Buytaert committed
375
376
377
}

function _forum_last_post($term) {
Dries Buytaert's avatar
   
Dries Buytaert committed
378
  $topic = db_fetch_object(db_query_range("SELECT n.nid, n.created AS timestamp, u.name AS name, u.uid AS uid FROM {forum} f INNER JOIN {node} n ON n.nid = f.nid INNER JOIN {users} u ON n.uid = u.uid WHERE f.tid = %d AND n.nid = f.nid AND n.type = 'forum' AND n.status = 1 ORDER BY timestamp DESC", $term, 0, 1));
Dries Buytaert's avatar
   
Dries Buytaert committed
379

Dries Buytaert's avatar
   
Dries Buytaert committed
380
  $reply = db_fetch_object(db_query_range("SELECT n.nid, c.timestamp, u.name AS name, u.uid AS uid FROM {forum} f INNER JOIN {node} n ON n.nid = f.nid INNER JOIN {comments} c ON n.nid = c.nid INNER JOIN {users} u ON c.uid = u.uid WHERE f.tid = %d AND n.nid = f.nid AND n.type = 'forum' AND n.status = 1 AND c.status = 0 ORDER BY c.timestamp DESC", $term, 0, 1));
Dries Buytaert's avatar
   
Dries Buytaert committed
381
382
383
384
385
386

  $value = ($topic->timestamp > $reply->timestamp) ? $topic : $reply;

  return $value;
}

Dries Buytaert's avatar
Dries Buytaert committed
387
function forum_get_topics($tid, $sortby, $forum_per_page) {
Dries Buytaert's avatar
   
Dries Buytaert committed
388
  global $user, $forum_topic_list_header;
Dries Buytaert's avatar
   
Dries Buytaert committed
389

Dries Buytaert's avatar
   
Dries Buytaert committed
390
  $forum_topic_list_header = array(
Dries Buytaert's avatar
   
Dries Buytaert committed
391
392
393
394
395
    array('data' => '&nbsp;'),
    array('data' => t('Topic'), 'field' => 'n.title'),
    array('data' => t('Replies'), 'field' => 'num_comments'),
    array('data' => t('Created'), 'field' => 'n.created'),
    array('data' => t('Last reply'), 'field' => 'date_sort', 'sort' => 'desc'),
Dries Buytaert's avatar
   
Dries Buytaert committed
396
  );
Dries Buytaert's avatar
   
Dries Buytaert committed
397
398

  $sql_sortby = _forum_get_topic_order($sortby);
Dries Buytaert's avatar
   
Dries Buytaert committed
399
  for ($i = 0; $i < count($forum_topic_list_header); $i++) {
Dries Buytaert's avatar
   
Dries Buytaert committed
400
401
    if ($forum_topic_list_header[$i]['field'] == $sql_sortby) {
      $forum_topic_list_header[$i]['order'] = $sql_sortby;
Dries Buytaert's avatar
   
Dries Buytaert committed
402
403
404
405
406
    }
  }

  $term = taxonomy_get_term($tid);
  $voc = taxonomy_get_vocabulary($term->vid);
Dries Buytaert's avatar
   
Dries Buytaert committed
407
  $check_tid = $tid ? "'". check_query($tid) ."'" : 'NULL';
Dries Buytaert's avatar
   
Dries Buytaert committed
408

Dries Buytaert's avatar
Dries Buytaert committed
409
  // show topics with the correct tid, or in the forum but with shadow = 1
Dries Buytaert's avatar
   
Dries Buytaert committed
410
411
  // @TODO: this is not ANSI SQL! ("user error: 'n.created' isn't in GROUP BY")
  // @TODO: timestamp is a sql reserved word. are there more?
Dries Buytaert's avatar
Dries Buytaert committed
412
  $sql = "SELECT n.nid, n.title, u.name AS name, u.uid AS uid, n.created AS timestamp, GREATEST(n.created, MAX(c.timestamp)) AS date_sort, COUNT(c.nid) AS num_comments, n.comment AS comment_mode, f.tid FROM {node} n INNER JOIN {term_node} r ON n.nid = r.nid INNER JOIN {users} u ON n.uid = u.uid LEFT JOIN {comments} c ON n.nid = c.nid INNER JOIN {forum} f ON n.nid = f.nid WHERE n.nid = r.nid AND ((r.tid = $check_tid AND f.shadow = 1) OR f.tid = $check_tid) AND n.status = 1 AND n.type = 'forum' GROUP BY n.nid, n.title, u.name, u.uid, n.created, n.comment, f.tid";
Dries Buytaert's avatar
   
Dries Buytaert committed
413
  $sql .= tablesort_sql($forum_topic_list_header);
Dries Buytaert's avatar
Dries Buytaert committed
414

Dries Buytaert's avatar
Dries Buytaert committed
415
  $sql_count = "SELECT COUNT(DISTINCT(n.nid)) FROM {node} n INNER JOIN {forum} f ON n.nid = f.nid INNER JOIN {term_node} r ON n.nid = r.nid WHERE n.nid = r.nid AND ( (r.tid = $check_tid AND f.shadow = 1) OR f.tid = $check_tid) AND n.status = 1 AND n.type = 'forum'";
Dries Buytaert's avatar
   
Dries Buytaert committed
416

Dries Buytaert's avatar
Dries Buytaert committed
417
  $result = pager_query($sql, $forum_per_page, 0, $sql_count);
Dries Buytaert's avatar
   
Dries Buytaert committed
418
419
420
421
  $topic_num = db_num_rows($result);

  $n = 0;
  while ($topic = db_fetch_object($result)) {
Dries Buytaert's avatar
Dries Buytaert committed
422
423
424
425
426
    if ($user->uid) {
      $history = _forum_user_last_visit($topic->nid);
      // folder is new if topic is new or there are new comments since last visit
      if ($topic->shadow > 0) {
        $topic->new = 0;
Dries Buytaert's avatar
   
Dries Buytaert committed
427
428
      }
      else {
Dries Buytaert's avatar
   
Dries Buytaert committed
429
        $topic->new_replies = db_result(db_query('SELECT COUNT(c.nid) FROM {node} n INNER JOIN {comments} c ON n.nid = c.nid WHERE n.nid = %d AND n.status = 1 AND c.status = 0 AND c.timestamp > %d', $topic->nid, $history));
430
        $topic->new = $topic->new_replies || ($topic->timestamp > $history);
Dries Buytaert's avatar
   
Dries Buytaert committed
431
      }
432
433
    }
    else {
434
      // Do not track "new replies" status for topics if the user is anonymous.
Dries Buytaert's avatar
Dries Buytaert committed
435
436
      $topic->new_replies = 0;
      $topic->new = 0;
437
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
438
439
440
441
442

    $topic->last_reply = _forum_last_reply($topic->nid);
    $topics[] = $topic;
  }

Dries Buytaert's avatar
Dries Buytaert committed
443
  return $topics;
Dries Buytaert's avatar
   
Dries Buytaert committed
444
445
}

Dries Buytaert's avatar
Dries Buytaert committed
446
function _forum_new($tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
447
  global $user;
Dries Buytaert's avatar
   
Dries Buytaert committed
448
  $result = db_query("SELECT n.nid FROM {node} n, {history} h, {forum} f WHERE n.type = 'forum' AND n.status = 1 AND h.nid = n.nid AND f.nid = h.nid AND f.tid = %d AND h.uid = %d", $tid, $user->uid);
Dries Buytaert's avatar
   
Dries Buytaert committed
449
450
451
452
  while ($r = db_fetch_object($result)) {
    $read[] = $r->nid;
  }

453
  $nid = db_result(db_query_range("SELECT n.nid FROM {node} n INNER JOIN {forum} f ON n.nid = f.nid WHERE n.type = 'forum' AND f.nid = n.nid AND n.status = 1 AND f.tid = %d ". ($read ? 'AND NOT (n.nid IN ('. implode(',', $read) .')) ' : '') .'ORDER BY created', $tid, 0, 1));
Dries Buytaert's avatar
   
Dries Buytaert committed
454
455
456
457

  return $nid ? $nid : 0;
}

458
/**
459
 * Menu callback; prints a forum listing.
460
461
 */
function forum_page($tid = 0, $display = 'all') {
Dries Buytaert's avatar
   
Dries Buytaert committed
462
  global $sortby, $forum_per_page, $from, $user;
Dries Buytaert's avatar
   
Dries Buytaert committed
463

Dries Buytaert's avatar
   
Dries Buytaert committed
464
  $op = $_POST['op'];
Dries Buytaert's avatar
   
Dries Buytaert committed
465

Dries Buytaert's avatar
   
Dries Buytaert committed
466
  if (module_exist('taxonomy')) {
467
    if ($display == 'new') {
Dries Buytaert's avatar
   
Dries Buytaert committed
468
      if ($nid = _forum_new($tid)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
469
        drupal_goto("node/$nid");
Dries Buytaert's avatar
   
Dries Buytaert committed
470
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
471
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
472
473
474
475
    else {
      if (empty($sortby)) {
        $sortby = isset($user->sortby) ? $user->sortby : variable_get('forum_order', 1);
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
476

Dries Buytaert's avatar
   
Dries Buytaert committed
477
478
479
      if (empty($forum_per_page)) {
        $forum_per_page = isset($user->forum_per_page) ? $user->forum_per_page : variable_get('forum_per_page', 25);
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
480

Dries Buytaert's avatar
   
Dries Buytaert committed
481
      $offset = ($from / $forum_per_page) + 1;
Dries Buytaert's avatar
   
Dries Buytaert committed
482

Dries Buytaert's avatar
   
Dries Buytaert committed
483
484
485
486
487
      $forums = forum_get_forums($tid);
      $parents = taxonomy_get_parents_all($tid);
      if ($tid && !in_array($tid, variable_get('forum_containers', array()))) {
        $topics = forum_get_topics($tid, $sortby, $forum_per_page);
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
488

Dries Buytaert's avatar
   
Dries Buytaert committed
489
      print theme('forum_display', $forums, $topics, $parents, $tid, $sortby, $forum_per_page, $offset);
Dries Buytaert's avatar
   
Dries Buytaert committed
490
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
491
492
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
493
    print theme('page', forum_help('admin/settings/forum'), t('Warning'));
Dries Buytaert's avatar
   
Dries Buytaert committed
494
495
496
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
497
/**
Dries Buytaert's avatar
   
Dries Buytaert committed
498
499
500
 * @addtogroup themeable
 * @{
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
501
502

/**
Dries Buytaert's avatar
   
Dries Buytaert committed
503
504
505
506
507
508
509
510
511
512
513
514
 * Format the forum body.
 *
 * @param forums
 * @param topics
 * @param parents
 * @param tid
 * @param sortby
 * @param forum_per_page
 * @param offset
 *
 * @return the output for the forum body.
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
515
function theme_forum_display($forums, $topics, $parents, $tid, $sortby, $forum_per_page, $offset) {
Dries Buytaert's avatar
   
Dries Buytaert committed
516
  global $user;
Dries Buytaert's avatar
   
Dries Buytaert committed
517
  // forum list, topics list, topic browser and 'add new topic' link
Dries Buytaert's avatar
   
Dries Buytaert committed
518

Dries Buytaert's avatar
   
Dries Buytaert committed
519
520
  $vocabulary = taxonomy_get_vocabulary(variable_get('forum_nav_vocabulary', ''));
  $title = $vocabulary->name;
Dries Buytaert's avatar
   
Dries Buytaert committed
521

Dries Buytaert's avatar
   
Dries Buytaert committed
522
523
  // Breadcrumb navigation:
  $breadcrumb = array();
Dries Buytaert's avatar
   
Dries Buytaert committed
524
  if ($tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
525
    $breadcrumb[] = array('path' => 'forum', 'title' => $title);
Dries Buytaert's avatar
   
Dries Buytaert committed
526
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
527
528

  if ($parents) {
Dries Buytaert's avatar
   
Dries Buytaert committed
529
530
    $parents = array_reverse($parents);
    foreach ($parents as $p) {
531
532
      if ($p->tid == $tid) {
        $title = $p->name;
Dries Buytaert's avatar
   
Dries Buytaert committed
533
534
      }
      else {
Dries Buytaert's avatar
   
Dries Buytaert committed
535
        $breadcrumb[] = array('path' => 'forum/'. $p->tid, 'title' => $p->name);
Dries Buytaert's avatar
   
Dries Buytaert committed
536
537
538
      }
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
539
540
  $breadcrumb[] = array('path' => $_GET['q']);
  menu_set_location($breadcrumb);
Dries Buytaert's avatar
   
Dries Buytaert committed
541

Dries Buytaert's avatar
   
Dries Buytaert committed
542
  if (count($forums) || count($parents)) {
543
544
    $output  = '<div id="forum">';
    $output .= '<ul>';
Dries Buytaert's avatar
   
Dries Buytaert committed
545
546
547

    if (module_exist('tracker')) {
      if ($user->uid) {
548
        $output .= ' <li>'. l(t('Track your forum discussions.'), "tracker/$user->uid") .'</li>';
Dries Buytaert's avatar
   
Dries Buytaert committed
549
550
      }

551
      $output .= ' <li>'. l(t('Track active forum discussions.'), 'tracker') .'</li>';
Dries Buytaert's avatar
   
Dries Buytaert committed
552
553
554
    }

    if (user_access('create forum topics')) {
555
      $output .= '<li>'. l(t('Post new forum topic.'), "node/add/forum/$tid") .'</li>';
Dries Buytaert's avatar
   
Dries Buytaert committed
556
557
    }
    else if ($user->uid) {
558
      $output .= '<li>'. t('You are not allowed to post a new forum topic.') .'</li>';
Dries Buytaert's avatar
   
Dries Buytaert committed
559
560
561
562
    }
    else {
      $output .= '<li>'. t('<a href="%login">Login</a> to post a new forum topic.', array('%login' => url('user/login'))) .'</li>';
    }
563
    $output .= '</ul>';
Dries Buytaert's avatar
   
Dries Buytaert committed
564

Dries Buytaert's avatar
   
Dries Buytaert committed
565
    $output .= theme('forum_list', $forums, $parents, $tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
566

Dries Buytaert's avatar
   
Dries Buytaert committed
567
568
    if ($tid && !in_array($tid, variable_get('forum_containers', array()))) {
      $output .= theme('forum_topic_list', $tid, $topics, $sortby, $forum_per_page, $offset);
Dries Buytaert's avatar
   
Dries Buytaert committed
569
    }
570
    $output .= '</div>';
Dries Buytaert's avatar
   
Dries Buytaert committed
571
572
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
573
    $title = t('No forums defined');
Dries Buytaert's avatar
   
Dries Buytaert committed
574
    $output = '';
Dries Buytaert's avatar
   
Dries Buytaert committed
575
576
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
577
  print theme('page', $output, $title);
Dries Buytaert's avatar
   
Dries Buytaert committed
578
579
}

Dries Buytaert's avatar
   
Dries Buytaert committed
580
/**
Dries Buytaert's avatar
   
Dries Buytaert committed
581
582
583
584
585
586
587
588
 * Format the forum listing.
 *
 * @param forums
 * @param parents
 * @param tid
 *
 * @return output for the forum listing.
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
589
function theme_forum_list($forums, $parents, $tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
590
591
  global $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
592
593
  if ($forums) {

Dries Buytaert's avatar
   
Dries Buytaert committed
594
    $header = array(t('Forum'), t('Topics'), t('Posts'), t('Last post'));
Dries Buytaert's avatar
   
Dries Buytaert committed
595
596

    foreach ($forums as $forum) {
Dries Buytaert's avatar
   
Dries Buytaert committed
597
      if ($forum->container) {
598
599
        $description  = '<div style="margin-left: '. ($forum->depth * 30) ."px;\">\n";
        $description .= ' <div class="name">'. l($forum->name, "forum/$forum->tid") ."</div>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
600
601
602
603
604
605

        if ($forum->description) {
          $description .= " <div class=\"description\">$forum->description</div>\n";
        }
        $description .= "</div>\n";

Dries Buytaert's avatar
   
Dries Buytaert committed
606
        $rows[] = array(array('data' => $description, 'class' => 'container', 'colspan' => 4));
607
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
608
      else {
609
        $forum->old_topics = _forum_topics_read($forum->tid, $user->uid);
Dries Buytaert's avatar
   
Dries Buytaert committed
610
611
612
        if ($user->uid) {
          $new_topics = $forum->num_topics - $forum->old_topics;
        }
Dries Buytaert's avatar
   
Dries Buytaert committed
613
614
615
        else {
          $new_topics = 0;
        }
Dries Buytaert's avatar
   
Dries Buytaert committed
616

Dries Buytaert's avatar
   
Dries Buytaert committed
617
        $links = array();
Dries Buytaert's avatar
   
Dries Buytaert committed
618

619
620
        $description  = '<div style="margin-left: '. ($forum->depth * 30) ."px;\">\n";
        $description .= ' <div class="name">'. l($forum->name, "forum/$forum->tid") ."</div>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
621

Dries Buytaert's avatar
   
Dries Buytaert committed
622
623
624
625
        if ($forum->description) {
          $description .= " <div class=\"description\">$forum->description</div>\n";
        }
        if ($links) {
626
          $description .= ' <div class="links">'. t('Jump to: %links', array('%links' => implode(', ', $links))) .".</div>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
627
628
        }
        $description .= "</div>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
629

Dries Buytaert's avatar
   
Dries Buytaert committed
630
        $rows[] = array(
Dries Buytaert's avatar
   
Dries Buytaert committed
631
          array('data' => $description, 'class' => 'forum'),
632
          array('data' => $forum->num_topics . ($new_topics ? '<br />'. l(t('%a new', array('%a' => $new_topics)), "forum/$forum->tid", NULL, NULL, 'new') : ''), 'class' => 'topics'),
Dries Buytaert's avatar
   
Dries Buytaert committed
633
634
          array('data' => $forum->num_posts, 'class' => 'posts'),
          array('data' => _forum_format($forum->last_post), 'class' => 'last-reply'));
Dries Buytaert's avatar
   
Dries Buytaert committed
635
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
636
637
638
    }
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
639
  return theme('table', $header, $rows);
Dries Buytaert's avatar
   
Dries Buytaert committed
640
641
}

Dries Buytaert's avatar
   
Dries Buytaert committed
642
/**
Dries Buytaert's avatar
   
Dries Buytaert committed
643
644
645
646
647
648
649
650
651
652
 * Format the topic listing.
 *
 * @param tid
 * @param topics
 * @param sortby
 * @param forum_per_page
 * @param offset
 *
 * @return output for the topic list.
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
653
function theme_forum_topic_list($tid, $topics, $sortby, $forum_per_page, $offset) {
Dries Buytaert's avatar
   
Dries Buytaert committed
654
  global $id, $status, $pager_total, $forum_topic_list_header;
Dries Buytaert's avatar
   
Dries Buytaert committed
655
656

  if ($topics) {
Dries Buytaert's avatar
   
Dries Buytaert committed
657

Dries Buytaert's avatar
   
Dries Buytaert committed
658
659
    foreach ($topics as $topic) {
      // folder is new if topic is new or there are new comments since last visit
Dries Buytaert's avatar
Dries Buytaert committed
660
      if ($topic->tid != $tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
661
        $rows[] = array(
Dries Buytaert's avatar
   
Dries Buytaert committed
662
663
664
          array('data' => _forum_icon($topic->new, $topic->num_comments, $topic->comment_mode), 'class' => 'icon'),
          array('data' => $topic->title, 'class' => 'title'),
          array('data' => l(t('This topic has been moved'), "forum/$topic->tid"), 'colspan' => '3')
Dries Buytaert's avatar
   
Dries Buytaert committed
665
        );
Dries Buytaert's avatar
   
Dries Buytaert committed
666
667
      }
      else {
Dries Buytaert's avatar
   
Dries Buytaert committed
668
        $rows[] = array(
Dries Buytaert's avatar
   
Dries Buytaert committed
669
          array('data' => _forum_icon($topic->new, $topic->num_comments, $topic->comment_mode), 'class' => 'icon'),
Dries Buytaert's avatar
   
Dries Buytaert committed
670
671
          array('data' => l($topic->title, "node/$topic->nid"), 'class' => 'topic'),
          array('data' => $topic->num_comments . ($topic->new_replies ? '<br />'. l(t('%a new', array('%a' => $topic->new_replies)), "node/$topic->nid", NULL, NULL, 'new') : ''), 'class' => 'replies'),
Dries Buytaert's avatar
   
Dries Buytaert committed
672
673
          array('data' => _forum_format($topic), 'class' => 'created'),
          array('data' => _forum_format($topic->last_reply), 'class' => 'last-reply')
Dries Buytaert's avatar
   
Dries Buytaert committed
674
        );
Dries Buytaert's avatar
   
Dries Buytaert committed
675
676
677
      }
    }

Dries Buytaert's avatar
   
Dries Buytaert committed
678
679
    if ($pager = theme('pager', NULL, $forum_per_page, 0, tablesort_pager())) {
      $rows[] = array(array('data' => $pager, 'colspan' => '5', 'class' => 'pager'));
Dries Buytaert's avatar
   
Dries Buytaert committed
680
681
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
682

Dries Buytaert's avatar
   
Dries Buytaert committed
683
  $output .= theme('table', $forum_topic_list_header, $rows);
Dries Buytaert's avatar
   
Dries Buytaert committed
684

Dries Buytaert's avatar
   
Dries Buytaert committed
685
686
687
  return $output;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
688
/** @} End of addtogroup themeable */
Dries Buytaert's avatar
   
Dries Buytaert committed
689

Dries Buytaert's avatar
   
Dries Buytaert committed
690
function _forum_icon($new_posts, $num_posts = 0, $comment_mode = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
691

Dries Buytaert's avatar
   
Dries Buytaert committed
692
  $base_path = variable_get('forum_icon_path', '');
Dries Buytaert's avatar
   
Dries Buytaert committed
693
  if ($base_path) {
Dries Buytaert's avatar
   
Dries Buytaert committed
694
695
    if ($num_posts > variable_get('forum_hot_topic', 15)) {
      $icon = $new_posts ? 'hot-new' : 'hot';
Dries Buytaert's avatar
   
Dries Buytaert committed
696
697
    }
    else {
Dries Buytaert's avatar
   
Dries Buytaert committed
698
      $icon = $new_posts ? 'new' : 'default';
Dries Buytaert's avatar
   
Dries Buytaert committed
699
700
701
    }

    if ($comment_mode == 1) {
Dries Buytaert's avatar
   
Dries Buytaert committed
702
      $icon = 'closed';
Dries Buytaert's avatar
   
Dries Buytaert committed
703
704
    }

Dries Buytaert's avatar
   
Dries Buytaert committed
705
    // default
Dries Buytaert's avatar
   
Dries Buytaert committed
706
    $file = $base_path ."/forum-$icon.png";
Dries Buytaert's avatar
   
Dries Buytaert committed
707

Dries Buytaert's avatar
   
Dries Buytaert committed
708
    $output = "<img src=\"$file\" alt=\"\" title=\"\" />";
Dries Buytaert's avatar
   
Dries Buytaert committed
709
710
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
711
    $output = '&nbsp;';
Dries Buytaert's avatar
   
Dries Buytaert committed
712
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
713
714
715
716
717
718

  if ($new_posts) {
    $output = "<a name=\"new\">$output</a>";
  }

  return $output;
Dries Buytaert's avatar
   
Dries Buytaert committed
719
720
721
722
}

function _forum_user_last_visit($nid) {
  global $user;
723
724
725
  static $history = array();

  if (empty($history)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
726
    $result = db_query('SELECT nid, timestamp FROM {history} WHERE uid = %d', $user->uid);
Dries Buytaert's avatar
   
Dries Buytaert committed
727
    while ($t = db_fetch_object($result)) {
728
      $history[$t->nid] = $t->timestamp > NODE_NEW_LIMIT ? $t->timestamp : NODE_NEW_LIMIT;
Dries Buytaert's avatar
   
Dries Buytaert committed
729
730
    }
  }
731
  return $history[$nid] ? $history[$nid] : NODE_NEW_LIMIT;
Dries Buytaert's avatar
   
Dries Buytaert committed
732
733
734
735
736
}

function _forum_get_topic_order($sortby) {
  switch ($sortby) {
    case 1:
Dries Buytaert's avatar
   
Dries Buytaert committed
737
      return 'date_sort DESC';
Dries Buytaert's avatar
   
Dries Buytaert committed
738
739
      break;
    case 2:
Dries Buytaert's avatar
   
Dries Buytaert committed
740
      return 'date_sort ASC';
Dries Buytaert's avatar
   
Dries Buytaert committed
741
742
      break;
    case 3:
Dries Buytaert's avatar
   
Dries Buytaert committed
743
      return 'num_comments DESC';
Dries Buytaert's avatar
   
Dries Buytaert committed
744
745
      break;
    case 4:
Dries Buytaert's avatar
   
Dries Buytaert committed
746
      return 'num_comments ASC';
Dries Buytaert's avatar
   
Dries Buytaert committed
747
748
749
750
      break;
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
751
?>