forum.module 25.1 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
      $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"));
Dries Buytaert's avatar
   
Dries Buytaert committed
42
      $output .= form_radios(t("Default order"), "forum_order", variable_get("forum_order", 1), $forder, t("The default display order for topics."));
43
      $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
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
46

Dries Buytaert's avatar
   
Dries Buytaert committed
47
48
49
  return $output;
}

Dries Buytaert's avatar
Dries Buytaert committed
50
51
function forum_taxonomy($op, $type, $object) {
  if ($type == "vocabulary" && ($op == "insert" || $op == "update")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
52
    if (variable_get("forum_nav_vocabulary", "") == "" && in_array("forum", $object["nodes"])) {
Dries Buytaert's avatar
Dries Buytaert committed
53
54
55
56
57
58
      // 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
59
function forum_load($node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
60
  $forum = db_fetch_object(db_query("SELECT * FROM {forum} WHERE nid = %d", $node->nid));
Dries Buytaert's avatar
   
Dries Buytaert committed
61
62
63
64

  return $forum;
}

65
66
67
68
69
70
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
71
      $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
72

Dries Buytaert's avatar
   
Dries Buytaert committed
73
      $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
74

Dries Buytaert's avatar
   
Dries Buytaert committed
75
      if ($content) {
Dries Buytaert's avatar
   
Dries Buytaert committed
76
        $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
77
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
78

79
      $blocks["subject"] = t("Forum topics");
Dries Buytaert's avatar
   
Dries Buytaert committed
80
      $blocks["content"] = $content;
Dries Buytaert's avatar
   
Dries Buytaert committed
81
82
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
83

Dries Buytaert's avatar
   
Dries Buytaert committed
84
85
86
  return $blocks;
}

87
function forum_link($type, $node = 0, $main = 0) {
Dries Buytaert's avatar
Dries Buytaert committed
88
  global $user;
Dries Buytaert's avatar
   
Dries Buytaert committed
89

Dries Buytaert's avatar
   
Dries Buytaert committed
90
91
  $links = array();

Dries Buytaert's avatar
   
Dries Buytaert committed
92
  if ($type == "page" && user_access("access content")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
93
    $links[] = l(t("forums"), "forum");
Dries Buytaert's avatar
   
Dries Buytaert committed
94
95
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
96
  if ($type == "system" && user_access("create forum topics")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
97
      menu("node/add/forum",t("forum topic"), "page");
Dries Buytaert's avatar
   
Dries Buytaert committed
98
99
  }

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

Dries Buytaert's avatar
Dries Buytaert committed
103
    $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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120

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

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

Dries Buytaert's avatar
   
Dries Buytaert committed
129
  return $links;
Dries Buytaert's avatar
   
Dries Buytaert committed
130
131
}

Dries Buytaert's avatar
   
Dries Buytaert committed
132
133
134
135
136
137
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
138
function forum_view($node, $main = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
139

Dries Buytaert's avatar
   
Dries Buytaert committed
140
141
142
143
144
145
146
  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
147
148
149
150
151
    // 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
152
    theme("breadcrumb", $breadcrumb);
153
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
154
155
156
157
  // prepair the node content
  $node = forum_content($node);
  // print the node
  theme("node", $node, $main);
Dries Buytaert's avatar
   
Dries Buytaert committed
158
159
}

160
161
162
163
function forum_validate(&$node) {
  // Make sure all fields are set properly:
  $node->icon = $node->icon ? $node->icon : "";
  $node->shadow = $node->shadow ? $node->shadow : 0;
164
  $node->tid = $node->tid ? $node->tid : 0;
165
166
167
168
169
170
  // 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
171
172
173
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
174
function forum_form(&$node, &$help, &$error) {
Dries Buytaert's avatar
Dries Buytaert committed
175
176
177
  if ($node->tid) {
    // editing
    $tid = $node->tid;
178
179
  }
  else {
Dries Buytaert's avatar
Dries Buytaert committed
180
181
    // new topic
    $tid = arg(3);
182
183
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
184
185
186
  // outputs the compose guidelines
  $help = variable_get("forum_help", "");

Dries Buytaert's avatar
   
Dries Buytaert committed
187
  $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
188
189
190
191
192

  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
193

194
  $output .= form_textarea(t("Body"), "body", $node->body, 60, 10);
Dries Buytaert's avatar
   
Dries Buytaert committed
195
196
197
198

  return $output;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
199
function forum_insert($node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
200
  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
201
202
203
}

function forum_update($node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
204
  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
205
206
207
}

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

Dries Buytaert's avatar
   
Dries Buytaert committed
211
function _forum_num_comments($nid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
212
  $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
213
214
215
  return ($value) ? $value->count : 0;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
216
function _forum_last_comment($nid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
217
  $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
218
219
220
  return ($value) ? format_date($value->timestamp, "small") : "&nbsp;";
}

Dries Buytaert's avatar
   
Dries Buytaert committed
221
function _forum_last_reply($nid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
222
  $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
223
224
225
226
227
  return $value;
}

function _forum_format($topic) {
  if ($topic) {
Dries Buytaert's avatar
   
Dries Buytaert committed
228
    return t("%date<br />by %author", array("%date" => format_date($topic->timestamp, "small"), "%author" => format_name($topic)));
Dries Buytaert's avatar
   
Dries Buytaert committed
229
230
231
232
233
234
235
236
237
238
239
240
241
  }
  else {
    return message_na();
  }
}

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

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

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

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

Dries Buytaert's avatar
   
Dries Buytaert committed
259
    cache_set("forum:$tid", serialize($forums), 1);
Dries Buytaert's avatar
   
Dries Buytaert committed
260
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
261
262
263
  else {
    $forums = unserialize($cache->data);
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283

  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
284

Dries Buytaert's avatar
   
Dries Buytaert committed
285
286
287
288
  return $parents;
}

function _forum_num_topics($term) {
Dries Buytaert's avatar
   
Dries Buytaert committed
289
  $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
290
291
292
293
  return ($value) ? $value->count : 0;
}

function _forum_num_replies($term) {
Dries Buytaert's avatar
   
Dries Buytaert committed
294
  $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
295
296
297
298
  return ($value) ? $value->count : 0;
}

function _forum_topics_read($uid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
299
  $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
300
301
302
303
304
305
306
307
308

  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
309
  $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
310

Dries Buytaert's avatar
   
Dries Buytaert committed
311
  $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
312
313
314
315
316
317

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

  return $value;
}

Dries Buytaert's avatar
Dries Buytaert committed
318
function forum_get_topics($tid, $sortby, $forum_per_page) {
Dries Buytaert's avatar
   
Dries Buytaert committed
319
  global $user, $forum_topic_list_header;
Dries Buytaert's avatar
   
Dries Buytaert committed
320

Dries Buytaert's avatar
   
Dries Buytaert committed
321
  $forum_topic_list_header = array(
322
323
      array("data" => "&nbsp;"),
      array("data" => t("Topic"), "field" => "n.title"),
Dries Buytaert's avatar
   
Dries Buytaert committed
324
      array("data" => t("Replies"), "field" => "num_comments"),
Dries Buytaert's avatar
   
Dries Buytaert committed
325
326
327
      array("data" => t("Created"), "field" => "n.created"),
      array("data" => t("Last reply"), "field" => "date_sort", "sort" => "desc"),
  );
Dries Buytaert's avatar
   
Dries Buytaert committed
328
329

  $sql_sortby = _forum_get_topic_order($sortby);
Dries Buytaert's avatar
   
Dries Buytaert committed
330
  for ($i = 0; $i < count($forum_topic_list_header); $i++) {
Dries Buytaert's avatar
   
Dries Buytaert committed
331
332
333
334
335
336
337
    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
338
  $check_tid = $tid ? "'". check_query($tid). "'" : "NULL";
Dries Buytaert's avatar
   
Dries Buytaert committed
339

Dries Buytaert's avatar
Dries Buytaert committed
340
  // show topics with the correct tid, or in the forum but with shadow = 1
Dries Buytaert's avatar
   
Dries Buytaert committed
341
342
  // @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
343
  $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
344
  $sql .= tablesort_sql($forum_topic_list_header);
Dries Buytaert's avatar
Dries Buytaert committed
345

Dries Buytaert's avatar
Dries Buytaert committed
346
  $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
347

Dries Buytaert's avatar
Dries Buytaert committed
348
  $result = pager_query($sql, $forum_per_page, 0, $sql_count);
Dries Buytaert's avatar
   
Dries Buytaert committed
349
350
351
352
  $topic_num = db_num_rows($result);

  $n = 0;
  while ($topic = db_fetch_object($result)) {
Dries Buytaert's avatar
Dries Buytaert committed
353
354
355
356
357
    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
358
359
      }
      else {
Dries Buytaert's avatar
Dries Buytaert committed
360
361
        if (!$history && $user->uid) {
          $topic->new_replies = 0;
Dries Buytaert's avatar
   
Dries Buytaert committed
362
363
364
          $topic->new = 1;
        }
        else {
Dries Buytaert's avatar
   
Dries Buytaert committed
365
          $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
366
367
368
369
370
371
372
373

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

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

Dries Buytaert's avatar
Dries Buytaert committed
387
  return $topics;
Dries Buytaert's avatar
   
Dries Buytaert committed
388
389
}

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

Dries Buytaert's avatar
   
Dries Buytaert committed
397
  $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
398
399
400
401

  return $nid ? $nid : 0;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
402
function _forum_message_taxonomy() {
Dries Buytaert's avatar
   
Dries Buytaert committed
403
  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 %created and bound to the node type \"forum topic\".  The vocabulary's %terms define the forums.  If you define a term as a \"Container\", the term is not a forum itself, but rather holds forums.  This lets you group your forums.", array('%created' => l(t('created'), 'admin/taxonomy/add/vocabulary'), '%terms' => l(t('terms'), 'admin/taxonomy', array('title' => t('add terms')))));
Dries Buytaert's avatar
   
Dries Buytaert committed
404
405
}

Dries Buytaert's avatar
   
Dries Buytaert committed
406
function forum_page() {
Dries Buytaert's avatar
   
Dries Buytaert committed
407
  global $sortby, $forum_per_page, $from, $user;
Dries Buytaert's avatar
   
Dries Buytaert committed
408

Dries Buytaert's avatar
   
Dries Buytaert committed
409
  $op = $_POST["op"];
Dries Buytaert's avatar
   
Dries Buytaert committed
410

Dries Buytaert's avatar
   
Dries Buytaert committed
411
  if (user_access("access content")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
412
    if (module_exist("taxonomy")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
413
      $tid = arg(1);
Dries Buytaert's avatar
   
Dries Buytaert committed
414

Dries Buytaert's avatar
Dries Buytaert committed
415
416
417
418
419
      if (arg(2) == "new") {
        if ($nid = _forum_new($tid)) {
          drupal_goto(url("node/view/$nid"));
        }
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
420

Dries Buytaert's avatar
   
Dries Buytaert committed
421
      if (empty($sortby)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
422
        $sortby = isset($user->sortby) ? $user->sortby : variable_get("forum_order", 1);
Dries Buytaert's avatar
   
Dries Buytaert committed
423
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
424

Dries Buytaert's avatar
   
Dries Buytaert committed
425
426
427
      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
428

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

Dries Buytaert's avatar
   
Dries Buytaert committed
431
432
      $forums = forum_get_forums($tid);
      $parents = forum_get_parents($tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
433
434
435
      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
436

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

Dries Buytaert's avatar
   
Dries Buytaert committed
454
/*
Dries Buytaert's avatar
   
Dries Buytaert committed
455
** Theme functions
Dries Buytaert's avatar
   
Dries Buytaert committed
456
*/
Dries Buytaert's avatar
   
Dries Buytaert committed
457

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

Dries Buytaert's avatar
   
Dries Buytaert committed
461
  $title = t("Forums");
Dries Buytaert's avatar
   
Dries Buytaert committed
462

Dries Buytaert's avatar
   
Dries Buytaert committed
463
464
465
  /*
  ** Breadcrumb navigation:
  */
Dries Buytaert's avatar
   
Dries Buytaert committed
466
  $breadcrumb[] = l(t("Home"), "");
Dries Buytaert's avatar
   
Dries Buytaert committed
467
  $breadcrumb[] = l($title, "forum");
Dries Buytaert's avatar
   
Dries Buytaert committed
468
469

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

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

Dries Buytaert's avatar
   
Dries Buytaert committed
485
486
487
488
489
490
491
492
    if ($tid && !in_array($tid, variable_get("forum_containers", array()))) {
      $output .= theme("forum_theme_topic_list", $tid, $topics, $sortby, $forum_per_page, $offset);
    }
    $output .= "</div>";
  }
  else {
    $title = t("No forums defined");
    $output = '';
Dries Buytaert's avatar
   
Dries Buytaert committed
493
494
  }

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

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

Dries Buytaert's avatar
   
Dries Buytaert committed
504
505
  if ($forums) {

Dries Buytaert's avatar
   
Dries Buytaert committed
506
    $header = array(t("Forum"), t("Topics"), t("Posts"), t("Last post"));
Dries Buytaert's avatar
   
Dries Buytaert committed
507
508

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

Dries Buytaert's avatar
   
Dries Buytaert committed
519
        $links = array();
Dries Buytaert's avatar
   
Dries Buytaert committed
520

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

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

      $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
539
      $description .= "</div>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
540
541
542
543
544

      $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
545
546
        array("data" => ($forum->container ? "" : _forum_format($forum->last_post)), "class" => "last-reply")

Dries Buytaert's avatar
   
Dries Buytaert committed
547
548
       );

Dries Buytaert's avatar
   
Dries Buytaert committed
549
550
551
    }
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
552
  return table($header, $rows);
Dries Buytaert's avatar
   
Dries Buytaert committed
553
554
555
}


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

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

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

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


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

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

Dries Buytaert's avatar
   
Dries Buytaert committed
593
594
595
  return $output;
}

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

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

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

Dries Buytaert's avatar
   
Dries Buytaert committed
611
    // default
Dries Buytaert's avatar
   
Dries Buytaert committed
612
    $file = $base_path ."/forum-$icon.gif";
Dries Buytaert's avatar
   
Dries Buytaert committed
613

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

function _forum_user_last_visit($nid) {
  global $user;
  static $history;
  if (!$history) {
Dries Buytaert's avatar
   
Dries Buytaert committed
625
    $result = db_query("SELECT nid, timestamp FROM {history} WHERE uid = %d", $user->uid);
Dries Buytaert's avatar
   
Dries Buytaert committed
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
    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
650
function forum_help($section = "admin/help#forum") {
Dries Buytaert's avatar
   
Dries Buytaert committed
651
652
653
  $output = "";

  switch ($section) {
Dries Buytaert's avatar
   
Dries Buytaert committed
654
    case 'admin/help#forum':
Dries Buytaert's avatar
   
Dries Buytaert committed
655
      $output .= "<h3>Creating a forum</h3>";
Dries Buytaert's avatar
   
Dries Buytaert committed
656
      $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
657
      $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
658
      $output .= "<h4>Icons</h4>";
Dries Buytaert's avatar
   
Dries Buytaert committed
659
      $output .= "<p>To disable icons, set the icon path as blank in %forums.</p>";
Dries Buytaert's avatar
   
Dries Buytaert committed
660
      $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
661
      $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
662
      break;
Dries Buytaert's avatar
   
Dries Buytaert committed
663
    case 'admin/system/modules#description':
Dries Buytaert's avatar
   
Dries Buytaert committed
664
      $output = t("Enable threaded discussions about general topics.");
Dries Buytaert's avatar
   
Dries Buytaert committed
665
666
      break;
    case 'admin/system/modules/forum':
Dries Buytaert's avatar
   
Dries Buytaert committed
667
      $output = _forum_message_taxonomy();
Dries Buytaert's avatar
   
Dries Buytaert committed
668
669
      break;
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
670

Dries Buytaert's avatar
   
Dries Buytaert committed
671
  return $output;
Dries Buytaert's avatar
   
Dries Buytaert committed
672
673
674
}

?>