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

function forum_node($field) {
Dries Buytaert's avatar
   
Dries Buytaert committed
5
  $info["name"] = t("forum topic");
Dries Buytaert's avatar
   
Dries Buytaert committed
6
7
8
9
10
11
12
13
14
  $info["description"] = t("A forum is a threaded discussion, enabling users to communicate about a particular topic.");

  return $info[$field];
}

function forum_access($op, $node) {
  if ($op == "view") {
    return $node->status;
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
15
  if ($op == "create") {
Dries Buytaert's avatar
   
Dries Buytaert committed
16
    return user_access("create forum topics");
Dries Buytaert's avatar
   
Dries Buytaert committed
17
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
18
19
}

Dries Buytaert's avatar
   
Dries Buytaert committed
20
function forum_perm() {
Dries Buytaert's avatar
   
Dries Buytaert committed
21
  return array("create forum topics");
Dries Buytaert's avatar
   
Dries Buytaert committed
22
}
Dries Buytaert's avatar
   
Dries Buytaert committed
23

24
function forum_settings() {
Dries Buytaert's avatar
   
Dries Buytaert committed
25

Dries Buytaert's avatar
   
Dries Buytaert committed
26
  if (module_exist("taxonomy")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
27
    $vocs[0] = "<". t("none") .">";
Dries Buytaert's avatar
   
Dries Buytaert committed
28
29
30
31
    foreach (taxonomy_get_vocabularies("forum") as $vid => $voc) {
      $vocs[$vid] = $voc->name;
    }

Dries Buytaert's avatar
   
Dries Buytaert committed
32
    if ($voc) {
33
34
      $output .= 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."));
      $output .= 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."));
Dries Buytaert's avatar
   
Dries Buytaert committed
35
      $output .= _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."), 1, t("<none>"));
Dries Buytaert's avatar
   
Dries Buytaert committed
36
      $output .= 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
37
      $number = array(5 => 5, 10 => 10, 15 => 15, 20 => 20, 25 => 25, 30 => 30, 35 => 35, 40 => 40, 50 => 50, 60 => 60, 80 => 80, 100 => 100, 10000 => 10000);
38
      $output .= 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 <b>hot</b>."));
Dries Buytaert's avatar
   
Dries Buytaert committed
39
      $number = array(10 => 10, 25 => 25, 50 => 50, 75 => 75, 100 => 100);
40
41
42
43
      $output .= 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"));
      $output .= form_select(t("Default order"), "forum_order", variable_get("forum_order", 1), $forder, t("The default display order for topics."));
      $output .= form_textfield(t("Number of topics in block"), "forum_block_num", variable_get("forum_block_num", "5"), 5, 5, t("The number of topics in the <b>Forum topics</b>-block.  To enable the block, click ". l("here", "admin/block") ."."));
Dries Buytaert's avatar
   
Dries Buytaert committed
44
45
46
47
48
49
50
51
    }
    else {
      $output .= _forum_message_taxonomy();
    }
  }
  else {
    $output .= _forum_message_taxonomy();
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
52

Dries Buytaert's avatar
   
Dries Buytaert committed
53
54
55
  return $output;
}

Dries Buytaert's avatar
Dries Buytaert committed
56
57
function forum_taxonomy($op, $type, $object) {
  if ($type == "vocabulary" && ($op == "insert" || $op == "update")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
58
    if (variable_get("forum_nav_vocabulary", "") == "" && in_array("forum", $object["nodes"])) {
Dries Buytaert's avatar
Dries Buytaert committed
59
60
61
62
63
64
      // since none is already set, silently set this vocabulary as the navigation vocabulary
      variable_set("forum_nav_vocabulary", $object["vid"]);
    }
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
65
function forum_load($node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
66
  $forum = db_fetch_object(db_query("SELECT * FROM {forum} WHERE nid = %d", $node->nid));
Dries Buytaert's avatar
   
Dries Buytaert committed
67
68
69
70

  return $forum;
}

71
72
73
74
75
76
function forum_block($op = "list", $delta = 0) {
  if ($op == "list") {
    $blocks[0]["info"] = t("Forum topics");
  }
  else {
    if (user_access("access content")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
77
      $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
78

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

Dries Buytaert's avatar
   
Dries Buytaert committed
81
      if ($content) {
Dries Buytaert's avatar
   
Dries Buytaert committed
82
        $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
83
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
84

85
      $blocks["subject"] = t("Forum topics");
Dries Buytaert's avatar
   
Dries Buytaert committed
86
      $blocks["content"] = $content;
Dries Buytaert's avatar
   
Dries Buytaert committed
87
88
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
89

Dries Buytaert's avatar
   
Dries Buytaert committed
90
91
92
  return $blocks;
}

93
function forum_link($type, $node = 0, $main = 0) {
Dries Buytaert's avatar
Dries Buytaert committed
94
  global $user;
Dries Buytaert's avatar
   
Dries Buytaert committed
95

Dries Buytaert's avatar
   
Dries Buytaert committed
96
97
  $links = array();

Dries Buytaert's avatar
   
Dries Buytaert committed
98
  if ($type == "page" && user_access("access content")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
99
    $links[] = l(t("forums"), "forum");
Dries Buytaert's avatar
   
Dries Buytaert committed
100
101
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
102
103
104
105
  if ($type == "system" && user_access("create forum topics")) {
      menu("node/add/forum",t("forum topic"), "forum_page");
  }

106
  if (!$main && $type == "node" && $node->type == "forum") {
Dries Buytaert's avatar
   
Dries Buytaert committed
107
108
    // get previous and next topic

Dries Buytaert's avatar
Dries Buytaert committed
109
    $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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126

    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
127
      $links[] = l(t("previous forum topic"), "node/view/$prev->nid", array("title" => $prev->title));
Dries Buytaert's avatar
   
Dries Buytaert committed
128
129
130
    }

    if ($next) {
Dries Buytaert's avatar
Dries Buytaert committed
131
      $links[] = l(t("next forum topic"), "node/view/$next->nid", array("title" => $next->title));
Dries Buytaert's avatar
   
Dries Buytaert committed
132
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
133
134
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
135
  return $links;
Dries Buytaert's avatar
   
Dries Buytaert committed
136
137
}

Dries Buytaert's avatar
   
Dries Buytaert committed
138
139
140
141
142
143
function forum_content($node) {
  $node->teaser = check_output($node->teaser);
  $node->body = check_output($node->body);
  return $node;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
144
function forum_view($node, $main = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
145

Dries Buytaert's avatar
   
Dries Buytaert committed
146
147
148
149
150
151
152
  if ($main == 0) {
    $term_data = array_shift(taxonomy_node_get_terms($node->nid));
    if (!$term_data) {
      // we are previewing
      $term_data = taxonomy_get_term($node->taxonomy[0]);
    }
    $voc = taxonomy_get_vocabulary($term_data->vid);
Dries Buytaert's avatar
   
Dries Buytaert committed
153
154
155
156
157
    // Breadcrumb navigation
    $breadcrumb[] = l(t("Home"), NULL);
    $breadcrumb[] = l(t("Forums"), "forum");
    $breadcrumb[] = l($term_data->name, "forum/$term_data->tid");
    // print the breadcrumb
Dries Buytaert's avatar
   
Dries Buytaert committed
158
    theme("breadcrumb", $breadcrumb);
159
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
160
161
162
163
  // prepair the node content
  $node = forum_content($node);
  // print the node
  theme("node", $node, $main);
Dries Buytaert's avatar
   
Dries Buytaert committed
164
165
}

166
167
168
169
function forum_validate(&$node) {
  // Make sure all fields are set properly:
  $node->icon = $node->icon ? $node->icon : "";
  $node->shadow = $node->shadow ? $node->shadow : 0;
170
  $node->tid = $node->tid ? $node->tid : 0;
171
172
173
174
175
176
  // We use the validate hook to remember the old taxonomy terms:
  if ($node->tid) {
    $node->taxonomy = array_keys(taxonomy_node_get_terms($node->nid));
    if (!in_array($node->tid[0], $node->taxonomy)) {
      $node->taxonomy[] = $node->tid[0];
    }
Dries Buytaert's avatar
Dries Buytaert committed
177
178
179
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
180
function forum_form(&$node, &$help, &$error) {
Dries Buytaert's avatar
Dries Buytaert committed
181
182
183
  if ($node->tid) {
    // editing
    $tid = $node->tid;
184
185
  }
  else {
Dries Buytaert's avatar
Dries Buytaert committed
186
187
    // new topic
    $tid = arg(3);
188
189
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
190
191
192
  // outputs the compose guidelines
  $help = variable_get("forum_help", "");

Dries Buytaert's avatar
   
Dries Buytaert committed
193
  $output .= _taxonomy_term_select(t("Forum"), "tid", $tid, variable_get("forum_nav_vocabulary", ""), "", 0, "", variable_get("forum_containers", array()));
Dries Buytaert's avatar
Dries Buytaert committed
194
195
196
197
198

  if ($node->nid) {
    // if editing, give option to leave shadows
    $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
199

200
  $output .= form_textarea(t("Body"), "body", $node->body, 60, 10);
Dries Buytaert's avatar
   
Dries Buytaert committed
201
202
203
204

  return $output;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
205
function forum_insert($node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
206
  db_query("INSERT INTO {forum} (nid, shadow, tid) VALUES (%d, %d, %d)", $node->nid, $node->shadow, $node->tid[0]);
Dries Buytaert's avatar
   
Dries Buytaert committed
207
208
209
}

function forum_update($node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
210
  db_query("UPDATE {forum} SET shadow = %d, tid = %d WHERE nid = %d", $node->shadow, $node->tid[0], $node->nid);
Dries Buytaert's avatar
   
Dries Buytaert committed
211
212
213
}

function forum_delete(&$node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
214
  db_query("DELETE FROM {forum} WHERE nid = %d", $node->nid);
Dries Buytaert's avatar
   
Dries Buytaert committed
215
}
Dries Buytaert's avatar
   
Dries Buytaert committed
216

Dries Buytaert's avatar
   
Dries Buytaert committed
217
function _forum_num_comments($nid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
218
  $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
219
220
221
  return ($value) ? $value->count : 0;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
222
function _forum_last_comment($nid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
223
  $value = db_fetch_object(db_query_range("SELECT timestamp FROM {comments} WHERE nid = %d AND status = 0 ORDER BY timestamp DESC", $nid, 0, 1));
Dries Buytaert's avatar
   
Dries Buytaert committed
224
225
226
  return ($value) ? format_date($value->timestamp, "small") : "&nbsp;";
}

Dries Buytaert's avatar
   
Dries Buytaert committed
227
function _forum_last_reply($nid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
228
  $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
229
230
231
232
233
  return $value;
}

function _forum_format($topic) {
  if ($topic) {
Dries Buytaert's avatar
   
Dries Buytaert committed
234
    return t("%date<br />by %author", array("%date" => format_date($topic->timestamp, "small"), "%author" => format_name($topic)));
Dries Buytaert's avatar
   
Dries Buytaert committed
235
236
237
238
239
240
241
242
243
244
245
246
247
  }
  else {
    return message_na();
  }
}

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

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

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

Dries Buytaert's avatar
   
Dries Buytaert committed
250
  if (empty($cache)) {
251
    $forums = array();
Dries Buytaert's avatar
   
Dries Buytaert committed
252
    $_forums = taxonomy_get_tree(variable_get("forum_nav_vocabulary", ""), $tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
253
254
    $n = 0;
    foreach ($_forums as $forum) {
Dries Buytaert's avatar
   
Dries Buytaert committed
255
256
257
      if (in_array($forum->tid, variable_get("forum_containers", array()))) {
        $forum->container = 1;
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
258
259
260
      $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
261
262
263
264
      $forums[$forum->tid] = $forum;
      $n++;
    }

Dries Buytaert's avatar
   
Dries Buytaert committed
265
    cache_set("forum:$tid", serialize($forums), 1);
Dries Buytaert's avatar
   
Dries Buytaert committed
266
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
267
268
269
  else {
    $forums = unserialize($cache->data);
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289

  if ($user->uid && $forums) {
    foreach (_forum_topics_read($user->uid) as $tid => $old) {
      if ($forums[$tid]) {
        $forums[$tid]->old_topics = $old;
      }
    }
  }
  return $forums;
}

function forum_get_parents($tid) {
  if ($tid) {
    $parents[] = taxonomy_get_term($tid);
  }
  $n = 0;
  while ($parent = taxonomy_get_parents($parents[$n]->tid)) {
    $parents = array_merge($parents, $parent);
    $n++;
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
290

Dries Buytaert's avatar
   
Dries Buytaert committed
291
292
293
294
  return $parents;
}

function _forum_num_topics($term) {
Dries Buytaert's avatar
   
Dries Buytaert committed
295
  $value = db_fetch_object(db_query("SELECT COUNT(n.nid) AS count FROM {node} n INNER JOIN {forum} f ON n.nid = f.nid WHERE f.tid = %d AND n.nid = f.nid AND n.status = 1 AND n.type = 'forum'", $term));
Dries Buytaert's avatar
   
Dries Buytaert committed
296
297
298
299
  return ($value) ? $value->count : 0;
}

function _forum_num_replies($term) {
Dries Buytaert's avatar
   
Dries Buytaert committed
300
  $value = db_fetch_object(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
301
302
303
304
  return ($value) ? $value->count : 0;
}

function _forum_topics_read($uid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
305
  $result = db_query("SELECT tid, count(*) AS c FROM {history} h INNER JOIN {node} n ON n.nid = h.nid INNER JOIN {forum} f ON n.nid = f.nid WHERE f.nid = n.nid AND n.nid = h.nid AND n.type = 'forum' AND n.status = 1 AND h.uid = %d GROUP BY tid", $uid);
Dries Buytaert's avatar
   
Dries Buytaert committed
306
307
308
309
310
311
312
313
314

  while ($obj = db_fetch_object($result)) {
    $topics_read[$obj->tid] = $obj->c;
  }

  return $topics_read ? $topics_read : array();
}

function _forum_last_post($term) {
Dries Buytaert's avatar
   
Dries Buytaert committed
315
  $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
316

Dries Buytaert's avatar
   
Dries Buytaert committed
317
  $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
318
319
320
321
322
323

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

  return $value;
}

Dries Buytaert's avatar
Dries Buytaert committed
324
function forum_get_topics($tid, $sortby, $forum_per_page) {
Dries Buytaert's avatar
   
Dries Buytaert committed
325
  global $user, $forum_topic_list_header;
Dries Buytaert's avatar
   
Dries Buytaert committed
326

Dries Buytaert's avatar
   
Dries Buytaert committed
327
  $forum_topic_list_header = array(
328
329
      array("data" => "&nbsp;"),
      array("data" => t("Topic"), "field" => "n.title"),
Dries Buytaert's avatar
   
Dries Buytaert committed
330
      array("data" => t("Replies"), "field" => "num_comments"),
Dries Buytaert's avatar
   
Dries Buytaert committed
331
332
333
      array("data" => t("Created"), "field" => "n.created"),
      array("data" => t("Last reply"), "field" => "date_sort", "sort" => "desc"),
  );
Dries Buytaert's avatar
   
Dries Buytaert committed
334
335

  $sql_sortby = _forum_get_topic_order($sortby);
Dries Buytaert's avatar
   
Dries Buytaert committed
336
  for ($i = 0; $i < count($forum_topic_list_header); $i++) {
Dries Buytaert's avatar
   
Dries Buytaert committed
337
338
339
340
341
342
343
    if ($forum_topic_list_header[$i]["field"] == $sql_sortby) {
      $forum_topic_list_header[$i]["order"] = $sql_sortby;
    }
  }

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

Dries Buytaert's avatar
Dries Buytaert committed
346
  // show topics with the correct tid, or in the forum but with shadow = 1
Dries Buytaert's avatar
Dries Buytaert committed
347
  $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
348
  $sql .= tablesort_sql($forum_topic_list_header);
Dries Buytaert's avatar
Dries Buytaert committed
349

Dries Buytaert's avatar
Dries Buytaert committed
350
  $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
351

Dries Buytaert's avatar
Dries Buytaert committed
352
  $result = pager_query($sql, $forum_per_page, 0, $sql_count);
Dries Buytaert's avatar
   
Dries Buytaert committed
353
354
355
356
  $topic_num = db_num_rows($result);

  $n = 0;
  while ($topic = db_fetch_object($result)) {
Dries Buytaert's avatar
Dries Buytaert committed
357
358
359
360
361
    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
362
363
      }
      else {
Dries Buytaert's avatar
Dries Buytaert committed
364
365
        if (!$history && $user->uid) {
          $topic->new_replies = 0;
Dries Buytaert's avatar
   
Dries Buytaert committed
366
367
368
          $topic->new = 1;
        }
        else {
Dries Buytaert's avatar
   
Dries Buytaert committed
369
          $comments = db_result(db_query("SELECT COUNT(c.nid) FROM {node} n INNER JOIN {comments} c ON n.nid = c.nid WHERE n.nid = '$topic->nid' AND n.status = 1 AND c.status = 0 AND timestamp > '$history' GROUP BY n.nid"));
Dries Buytaert's avatar
Dries Buytaert committed
370
371
372
373
374
375
376
377

          $topic->new_replies = $comments ? $comments : 0;
          if ($topic->new_replies) {
            $topic->new = 1;
          }
          else {
            $topic->new = 0;
          }
Dries Buytaert's avatar
   
Dries Buytaert committed
378
379
        }
      }
Dries Buytaert's avatar
Dries Buytaert committed
380
381
382
383
384
385
     }
     else {
      // you're not logged in eh?
      $topic->new_replies = 0;
      $topic->new = 0;
     }
Dries Buytaert's avatar
   
Dries Buytaert committed
386
387
388
389
390

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

Dries Buytaert's avatar
Dries Buytaert committed
391
  return $topics;
Dries Buytaert's avatar
   
Dries Buytaert committed
392
393
}

Dries Buytaert's avatar
Dries Buytaert committed
394
function _forum_new($tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
395
  global $user;
Dries Buytaert's avatar
   
Dries Buytaert committed
396
  $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
397
398
399
400
  while ($r = db_fetch_object($result)) {
    $read[] = $r->nid;
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
401
  $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
402
403
404
405

  return $nid ? $nid : 0;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
406
407
408
409
function _forum_message_taxonomy() {
  return t("For the forums to work, the taxonomy module has to be installed and enabled.  When activated, a taxonomy vocubulary needs to be created, bound to the forum module.  The vocabulary's terms define the forums.");
}

Dries Buytaert's avatar
   
Dries Buytaert committed
410
function forum_page() {
Dries Buytaert's avatar
   
Dries Buytaert committed
411
  global $sortby, $forum_per_page, $from, $user;
Dries Buytaert's avatar
   
Dries Buytaert committed
412

Dries Buytaert's avatar
   
Dries Buytaert committed
413
  $op = $_POST["op"];
Dries Buytaert's avatar
   
Dries Buytaert committed
414

Dries Buytaert's avatar
   
Dries Buytaert committed
415
  if (user_access("access content")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
416
    if (module_exist("taxonomy")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
417
      $tid = arg(1);
Dries Buytaert's avatar
   
Dries Buytaert committed
418

Dries Buytaert's avatar
Dries Buytaert committed
419
420
421
422
423
      if (arg(2) == "new") {
        if ($nid = _forum_new($tid)) {
          drupal_goto(url("node/view/$nid"));
        }
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
424

Dries Buytaert's avatar
   
Dries Buytaert committed
425
      if (empty($sortby)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
426
        $sortby = isset($user->sortby) ? $user->sortby : variable_get("forum_order", 1);
Dries Buytaert's avatar
   
Dries Buytaert committed
427
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
428

Dries Buytaert's avatar
   
Dries Buytaert committed
429
430
431
      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
432

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

Dries Buytaert's avatar
   
Dries Buytaert committed
435
436
      $forums = forum_get_forums($tid);
      $parents = forum_get_parents($tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
437
438
439
      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
440

Dries Buytaert's avatar
   
Dries Buytaert committed
441
      theme("forum_theme_display", $forums, $topics, $parents, $tid, $sortby, $forum_per_page, $offset);
Dries Buytaert's avatar
   
Dries Buytaert committed
442
443
    }
    else {
Dries Buytaert's avatar
   
Dries Buytaert committed
444
445
446
      theme("header");
      theme("box", t("Warning"), _forum_message_taxonomy());
      theme("footer");
Dries Buytaert's avatar
   
Dries Buytaert committed
447
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
448
449
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
450
451
452
    theme("header");
    theme("box", t("Access denied"), message_access());
    theme("footer");
Dries Buytaert's avatar
   
Dries Buytaert committed
453
454
455
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
456
/*
Dries Buytaert's avatar
   
Dries Buytaert committed
457
** Theme functions
Dries Buytaert's avatar
   
Dries Buytaert committed
458
*/
Dries Buytaert's avatar
   
Dries Buytaert committed
459

Dries Buytaert's avatar
   
Dries Buytaert committed
460
function forum_theme_display($forums, $topics, $parents, $tid, $sortby, $forum_per_page, $offset) {
Dries Buytaert's avatar
   
Dries Buytaert committed
461
  // forum list, topics list, topic browser and "add new topic" link
Dries Buytaert's avatar
   
Dries Buytaert committed
462

Dries Buytaert's avatar
   
Dries Buytaert committed
463

Dries Buytaert's avatar
   
Dries Buytaert committed
464
465
466
  /*
  ** Breadcrumb navigation:
  */
Dries Buytaert's avatar
   
Dries Buytaert committed
467

Dries Buytaert's avatar
   
Dries Buytaert committed
468
469
  $breadcrumb[] = l(t("Home"), "");
  $breadcrumb[] = l(t("Forums"), "forum");
Dries Buytaert's avatar
   
Dries Buytaert committed
470
471

  if ($parents) {
Dries Buytaert's avatar
   
Dries Buytaert committed
472
473
    $parents = array_reverse($parents);
    foreach ($parents as $p) {
474
475
      if ($p->tid == $tid) {
        $title = $p->name;
Dries Buytaert's avatar
   
Dries Buytaert committed
476
477
      }
      else {
Dries Buytaert's avatar
   
Dries Buytaert committed
478
        $breadcrumb[] = l($p->name, "forum/$p->tid");
Dries Buytaert's avatar
   
Dries Buytaert committed
479
480
481
482
      }
    }
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
483
484
485
  $output  = "<div id=\"forum\">";
  $output .= theme("forum_theme_list", $forums, $parents, $tid);

Dries Buytaert's avatar
   
Dries Buytaert committed
486
  if ($tid && !in_array($tid, variable_get("forum_containers", array()))) {
Dries Buytaert's avatar
   
Dries Buytaert committed
487
488
489
490
491
    $output .= theme("forum_theme_topic_list", $tid, $topics, $sortby, $forum_per_page, $offset);
  }

  $output .= "</div>";

492
  theme("header");
Dries Buytaert's avatar
   
Dries Buytaert committed
493
  theme("breadcrumb", $breadcrumb);
Dries Buytaert's avatar
   
Dries Buytaert committed
494
  theme("box", $title, $output);
Dries Buytaert's avatar
   
Dries Buytaert committed
495
496
497
498
499
500
  theme("footer");
}

function forum_theme_list($forums, $parents, $tid) {
  global $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
501
502
  if ($forums) {

Dries Buytaert's avatar
   
Dries Buytaert committed
503
    $header = array(t("Forum"), t("Topics"), t("Posts"), t("Last post"));
Dries Buytaert's avatar
   
Dries Buytaert committed
504
505

    foreach ($forums as $forum) {
Dries Buytaert's avatar
   
Dries Buytaert committed
506
507
508
509
      if ($forum->container) {
        $forum->num_topics = "";
        $forum->num_posts = "";
        $forum->last_post = "";
510
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
511
512
513
514
      else {
        if ($user->uid) {
          $new_topics = $forum->num_topics - $forum->old_topics;
        }
Dries Buytaert's avatar
   
Dries Buytaert committed
515

Dries Buytaert's avatar
   
Dries Buytaert committed
516
        $links = array();
Dries Buytaert's avatar
   
Dries Buytaert committed
517

Dries Buytaert's avatar
   
Dries Buytaert committed
518
519
520
        if ($forum->last_post) {
          $links[] = l(t("the most recent topic"), "node/view/". $forum->last_post->nid);
        }
Dries Buytaert's avatar
   
Dries Buytaert committed
521

Dries Buytaert's avatar
   
Dries Buytaert committed
522
523
524
        if ($new_topics) {
          $links[] = l(t("the first new topic"), "forum/$forum->tid/new");
        }
Dries Buytaert's avatar
   
Dries Buytaert committed
525
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
526
527
528
529
530
531
532
533
534
535

      $description  = "<div class=\"forum\" style=\"margin-left: ". ($forum->depth * 30) ."px;\">\n";
      $description .= " <div class=\"name\">". l($forum->name, "forum/$forum->tid") ."</div>\n";

      if ($forum->description) {
        $description .= " <div class=\"description\">$forum->description</div>\n";
      }
      if ($links) {
        $description .= " <div class=\"navigation\">". t("Jump to: %links", array("%links" => implode(", ", $links))) .".</div>\n";
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
536
      $description .= "</div>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
537
538
539
540
541

      $rows[] = array(
        array("data" => $description, "class" => "description"),
        array("data" => $forum->num_topics . ($new_topics ? "<br />(".t("%a new", array("%a" => $new_topics)).")" : ""), "class" => "topics"),
        array("data" => $forum->num_posts, "class" => "posts"),
Dries Buytaert's avatar
   
Dries Buytaert committed
542
543
        array("data" => ($forum->container ? "" : _forum_format($forum->last_post)), "class" => "last-reply")

Dries Buytaert's avatar
   
Dries Buytaert committed
544
545
       );

Dries Buytaert's avatar
   
Dries Buytaert committed
546
547
548
    }
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
549
  return table($header, $rows);
Dries Buytaert's avatar
   
Dries Buytaert committed
550
551
552
}


Dries Buytaert's avatar
   
Dries Buytaert committed
553
function forum_theme_topic_list($tid, $topics, $sortby, $forum_per_page, $offset) {
Dries Buytaert's avatar
   
Dries Buytaert committed
554
  global $id, $status, $user, $pager_total, $forum_topic_list_header;
Dries Buytaert's avatar
   
Dries Buytaert committed
555
556

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

Dries Buytaert's avatar
   
Dries Buytaert committed
558
559
    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
560
      if ($topic->tid != $tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
561
        $rows[] = array(
Dries Buytaert's avatar
   
Dries Buytaert committed
562
          array("data" => _forum_icon($topic->new, $topic->num_comments, $topic->comment_mode), "class" => "icon"),
Dries Buytaert's avatar
   
Dries Buytaert committed
563
          array("data" => $topic->title, "class" => "title"),
Dries Buytaert's avatar
   
Dries Buytaert committed
564
          array("data" => l(t("This topic has been moved"), "forum/$topic->tid"), "colspan" => "3")
Dries Buytaert's avatar
   
Dries Buytaert committed
565
        );
Dries Buytaert's avatar
   
Dries Buytaert committed
566
567
      }
      else {
Dries Buytaert's avatar
   
Dries Buytaert committed
568
        $rows[] = array(
Dries Buytaert's avatar
   
Dries Buytaert committed
569
          array("data" => _forum_icon($topic->new, $topic->num_comments, $topic->comment_mode), "class" => "icon"),
Dries Buytaert's avatar
   
Dries Buytaert committed
570
571
          array("data" => l($topic->title, "node/view/$topic->nid"), "class" => "topic"),
          array("data" => $topic->num_comments . ($topic->new_replies ? "<br />(".t("%a new", array("%a" => $topic->new_replies)).")" : ""), "class" => "replies"),
Dries Buytaert's avatar
   
Dries Buytaert committed
572
573
          array("data" => _forum_format($topic), "class" => "created"),
          array("data" => _forum_format($topic->last_reply), "class" => "last-reply")
Dries Buytaert's avatar
   
Dries Buytaert committed
574
        );
Dries Buytaert's avatar
   
Dries Buytaert committed
575
576
577
      }
    }

Dries Buytaert's avatar
   
Dries Buytaert committed
578
    if ($pager = pager_display(NULL, $forum_per_page, 0, "default", tablesort_pager())) {
Dries Buytaert's avatar
   
Dries Buytaert committed
579
      $rows[] = array(array("data" => $pager, "colspan" => "5", "class" => "pager"));
Dries Buytaert's avatar
   
Dries Buytaert committed
580
581
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
582
583


Dries Buytaert's avatar
Dries Buytaert committed
584
  if (user_access("create forum topics")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
585
    $output = l(t("create new forum topic"), "node/add/forum/$tid") ."<br /><br />";
Dries Buytaert's avatar
   
Dries Buytaert committed
586
587
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
588
  $output .= table($forum_topic_list_header, $rows);
Dries Buytaert's avatar
   
Dries Buytaert committed
589

Dries Buytaert's avatar
   
Dries Buytaert committed
590
591
592
  return $output;
}

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

Dries Buytaert's avatar
   
Dries Buytaert committed
595
  $base_path = variable_get("forum_icon_path", "");
Dries Buytaert's avatar
   
Dries Buytaert committed
596
597
  if ($base_path) {
    if ($num_posts > variable_get("forum_hot_topic", 15)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
598
      $icon = $new_posts ? "hot-new" : "hot";
Dries Buytaert's avatar
   
Dries Buytaert committed
599
600
601
602
603
604
605
606
607
    }
    else {
      $icon = $new_posts ? "new" : "default";
    }

    if ($comment_mode == 1) {
      $icon = "closed";
    }

Dries Buytaert's avatar
   
Dries Buytaert committed
608
    // default
Dries Buytaert's avatar
   
Dries Buytaert committed
609
    $file = $base_path ."/forum-$icon.gif";
Dries Buytaert's avatar
   
Dries Buytaert committed
610

Dries Buytaert's avatar
   
Dries Buytaert committed
611
    return "<img src=\"$file\" alt=\"\" title=\"\" />";
Dries Buytaert's avatar
   
Dries Buytaert committed
612
613
614
615
616
617
618
619
620
621
  }
  else {
    return "&nbsp;";
  }
}

function _forum_user_last_visit($nid) {
  global $user;
  static $history;
  if (!$history) {
Dries Buytaert's avatar
   
Dries Buytaert committed
622
    $result = db_query("SELECT nid, timestamp FROM {history} WHERE uid = %d", $user->uid);
Dries Buytaert's avatar
   
Dries Buytaert committed
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
    while ($t = db_fetch_object($result)) {
      $history[$t->nid] = $t->timestamp;
    }
  }
  return $history[$nid] ? $history[$nid] : 0;
}

function _forum_get_topic_order($sortby) {
  switch ($sortby) {
    case 1:
      return "date_sort DESC";
      break;
    case 2:
      return "date_sort ASC";
      break;
    case 3:
      return "num_comments DESC";
      break;
    case 4:
      return "num_comments ASC";
      break;
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
647
function forum_help($section = "admin/help#forum") {
Dries Buytaert's avatar
   
Dries Buytaert committed
648
649
650
  $output = "";

  switch ($section) {
Dries Buytaert's avatar
   
Dries Buytaert committed
651
    case 'admin/help#forum':
Dries Buytaert's avatar
   
Dries Buytaert committed
652
      $output .= "<h3>Creating a forum</h3>";
Dries Buytaert's avatar
   
Dries Buytaert committed
653
      $output .= "<p>The forum module uses taxonomy to organize itself. To create a forum you first have to create a %taxonomy. 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, %taxo-terms 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>";
Dries Buytaert's avatar
   
Dries Buytaert committed
654
      $output .= "<p>When you are happy with your vocabulary, go to %forums and set <b>Forum vocabulary</b> 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\" %permission and to create a topic they must have the \"create forum topics\" %permission. These permissions can be set in the %permission pages.</p>";
Dries Buytaert's avatar
   
Dries Buytaert committed
655
      $output .= "<h4>Icons</h4>";
Dries Buytaert's avatar
   
Dries Buytaert committed
656
      $output .= "<p>To disable icons, set the icon path as blank in %forums.</p>";
Dries Buytaert's avatar
   
Dries Buytaert committed
657
      $output .= "<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>";
Dries Buytaert's avatar
   
Dries Buytaert committed
658
      $output = t($output, array("%taxonomy" => l(t("taxonomy vocabulary"), "admin/taxonomy/add/vocabulary"), "%taxo-terms" => l(t("add some terms"), "admin/taxonomy"), "%forums" => l(t("administer") ." &raquo; ". t("configutation") ." &raquo; ". t("modules") ." &raquo; ". t("forum"), "admin/system/modules/forum"), "%permission" => l(t("permission"), "admin/user/permission")));
Dries Buytaert's avatar
   
Dries Buytaert committed
659
      break;
Dries Buytaert's avatar
   
Dries Buytaert committed
660
    case 'admin/system/modules#description':
Dries Buytaert's avatar
   
Dries Buytaert committed
661
      $output = t("Enable threaded discussions about general topics.");
Dries Buytaert's avatar
   
Dries Buytaert committed
662
663
      break;
    case 'admin/system/modules/forum':
Dries Buytaert's avatar
   
Dries Buytaert committed
664
      $output = t("Forums are threaded discussions based on the taxonomy system so you must first %taxonomy-create of type \"forum\" to place the forum tree in. Then %taxonomy-add to this taxonomy. Each term becomes the name of a forum. If you define a term as a \"Container\" (See below) the term is not a forum itself, but rather holds forms. This lets you group your forums.", array("%taxonomy-create" => l(t("create a taxonomy"), "admin/taxonomy/add/vocabulary"), "%taxonomy" => l(t("add terms"), "admin/taxonomy")));
Dries Buytaert's avatar
   
Dries Buytaert committed
665
666
      break;
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
667

Dries Buytaert's avatar
   
Dries Buytaert committed
668
  return $output;
Dries Buytaert's avatar
   
Dries Buytaert committed
669
670
671
}

?>