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

4
function forum_system($field){
Dries's avatar
   
Dries committed
5
6
7
8
9
10
  $output = "";

  if ($field == "description") { $output = forum_help("admin/system/modules"); }
  else if ($field == "admin_help") { $output = forum_help("admin/system/modules/forum"); };

  return $output;
11
12
}

Dries's avatar
   
Dries committed
13
function forum_node($field) {
Dries's avatar
   
Dries committed
14
  $info["name"] = t("forum topic");
Dries's avatar
   
Dries committed
15
16
17
18
19
20
21
22
23
  $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's avatar
   
Dries committed
24
  if ($op == "create") {
Dries's avatar
   
Dries committed
25
    return user_access("create forum topics");
Dries's avatar
   
Dries committed
26
  }
Dries's avatar
   
Dries committed
27
28
}

Dries's avatar
   
Dries committed
29
function forum_perm() {
Dries's avatar
   
Dries committed
30
  return array("create forum topics");
Dries's avatar
   
Dries committed
31
}
Dries's avatar
   
Dries committed
32

33
function forum_settings() {
Dries's avatar
   
Dries committed
34

Dries's avatar
   
Dries committed
35
  if (module_exist("taxonomy")) {
Dries's avatar
   
Dries committed
36
    $vocs[0] = "<". t("none") .">";
Dries's avatar
   
Dries committed
37
38
39
40
    foreach (taxonomy_get_vocabularies("forum") as $vid => $voc) {
      $vocs[$vid] = $voc->name;
    }

Dries's avatar
   
Dries committed
41
    if ($voc) {
42
43
44
45
      $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."));
      $output .= form_textfield(t("Topic icons path"), "forum_topic_icon_path", variable_get("forum_topic_icon_path", ""), 30, 255, t("The path to the topic icons.  Leave blank to disable icons."));
      $output .= form_textfield(t("Folder icons path"), "forum_folder_icon_path", variable_get("forum_folder_icon_path", ""), 30, 255,t( "The path to the <b>default</b>, <b>hot</b>, <b>new</b>, <b>hot & new</b>, and <b>closed</b> folder icons.  Leave blank to disable icons."));
Dries's avatar
   
Dries committed
46
      $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);
47
      $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's avatar
   
Dries committed
48
      $number = array(10 => 10, 25 => 25, 50 => 50, 75 => 75, 100 => 100);
49
50
51
52
      $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's avatar
   
Dries committed
53
54
55
56
57
58
59
60
    }
    else {
      $output .= _forum_message_taxonomy();
    }
  }
  else {
    $output .= _forum_message_taxonomy();
  }
Dries's avatar
   
Dries committed
61

Dries's avatar
   
Dries committed
62
63
64
  return $output;
}

Dries's avatar
Dries committed
65
66
function forum_taxonomy($op, $type, $object) {
  if ($type == "vocabulary" && ($op == "insert" || $op == "update")) {
Dries's avatar
   
Dries committed
67
    if (variable_get("forum_nav_vocabulary", "") == "" && in_array("forum", $object["nodes"])) {
Dries's avatar
Dries committed
68
69
70
71
72
73
      // since none is already set, silently set this vocabulary as the navigation vocabulary
      variable_set("forum_nav_vocabulary", $object["vid"]);
    }
  }
}

Dries's avatar
   
Dries committed
74
function forum_load($node) {
Dries's avatar
   
Dries committed
75
  $forum = db_fetch_object(db_query("SELECT * FROM {forum} WHERE nid = %d", $node->nid));
Dries's avatar
   
Dries committed
76
77
78
79

  return $forum;
}

80
81
82
83
84
85
function forum_block($op = "list", $delta = 0) {
  if ($op == "list") {
    $blocks[0]["info"] = t("Forum topics");
  }
  else {
    if (user_access("access content")) {
Dries's avatar
   
Dries committed
86
      $content = node_title_list(db_query_range("SELECT n.nid, n.title, u.uid, u.name, GREATEST(n.created, MAX(c.timestamp)) AS sort FROM {node} n INNER JOIN {forum} f ON n.nid = f.nid INNER JOIN {comments} c ON n.nid = c.nid LEFT JOIN {users} u ON n.uid = u.uid WHERE n.type = 'forum' AND n.nid = f.nid AND n.status = 1 GROUP BY n.nid, n.title, n.created, u.uid, u.name ORDER BY sort DESC", 0, variable_get("forum_block_num", "5")), t("Active forum topics:"));
Dries's avatar
   
Dries committed
87

Dries's avatar
   
Dries committed
88
      $content .= node_title_list(db_query_range("SELECT n.nid, n.title, u.uid, u.name FROM {node} n INNER JOIN {forum} f ON n.nid = f.nid LEFT JOIN {users} u ON n.uid = u.uid WHERE n.type = 'forum' ORDER BY n.nid DESC", 0, variable_get("forum_block_num", "5")), t("New forum topics:"));
Dries's avatar
   
Dries committed
89

Dries's avatar
   
Dries committed
90
91
      if ($content) {
        $content .= "<div id=\"forum_more\" style=\"text-align: right;\">". l(t("more"), "forum", array("title" => t("Read the latest forum topics."))) ."</div>";
Dries's avatar
   
Dries committed
92
      }
Dries's avatar
   
Dries committed
93

94
      $blocks["subject"] = t("Forum topics");
Dries's avatar
   
Dries committed
95
      $blocks["content"] = $content;
Dries's avatar
   
Dries committed
96
97
    }
  }
Dries's avatar
   
Dries committed
98

Dries's avatar
   
Dries committed
99
100
101
  return $blocks;
}

102
function forum_link($type, $node = 0, $main = 0) {
Dries's avatar
Dries committed
103
  global $user;
Dries's avatar
   
Dries committed
104

Dries's avatar
   
Dries committed
105
106
  $links = array();

Dries's avatar
   
Dries committed
107
  if ($type == "page" && user_access("access content")) {
Dries's avatar
   
Dries committed
108
    $links[] = l(t("forums"), "forum");
Dries's avatar
   
Dries committed
109
110
  }

111
  if (!$main && $type == "node" && $node->type == "forum") {
Dries's avatar
   
Dries committed
112
113
    // get previous and next topic

Dries's avatar
   
Dries committed
114
    $result = db_query("SELECT n.nid, n.title, n.body, n.path, 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.body, n.created ORDER BY ". _forum_get_topic_order(isset($user->sortby) ? $user->sortby : variable_get("forum_order",1)), $node->tid);
Dries's avatar
   
Dries committed
115
116
117
118
119
120

    while ($topic = db_fetch_object($result)) {
      if ($stop == 1) {
        $next->nid = $topic->nid;
        $next->title = $topic->title;
        $next->body = $topic->body;
Dries's avatar
   
Dries committed
121
        $next->path = $topic->path;
Dries's avatar
   
Dries committed
122
123
124
125
126
127
128
129
130
        break;
      }
      if ($topic->nid == $node->nid) {
        $stop = 1;
      }
      else {
        $prev->nid = $topic->nid;
        $prev->title = $topic->title;
        $prev->body = $topic->body;
Dries's avatar
   
Dries committed
131
        $prev->path = $topic->path;
Dries's avatar
   
Dries committed
132
133
134
135
      }
    }

    if ($prev) {
Dries's avatar
   
Dries committed
136
      $links[] = l(t("previous forum topic"), node_url($prev), array("title" => $prev->title .": ". substr(strip_tags($prev->body), 0, 100)."..."));
Dries's avatar
   
Dries committed
137
138
139
    }

    if ($next) {
Dries's avatar
   
Dries committed
140
      $links[] = l(t("next forum topic"), node_url($next), array("title" => $next->title .": ". substr(strip_tags($next->body), 0, 100)."..."));
Dries's avatar
   
Dries committed
141
    }
Dries's avatar
   
Dries committed
142
143
  }

Dries's avatar
   
Dries committed
144
  return $links;
Dries's avatar
   
Dries committed
145
146
}

Dries's avatar
   
Dries committed
147
function forum_view($node, $main = 0) {
Dries's avatar
   
Dries committed
148

Dries's avatar
   
Dries committed
149
150
151
152
153
154
155
156

  $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);

157
  if (!$main) {
Dries's avatar
   
Dries committed
158
    $node->title = l($voc->name, "forum") ." &raquo; ". l($term_data->name, "forum/$term_data->tid") ." &raquo; $node->title";
159
  }
Dries's avatar
   
Dries committed
160

Dries's avatar
   
Dries committed
161
162
163
  $node->teaser = check_output($node->teaser);
  $node->body = check_output($node->body);

Dries's avatar
   
Dries committed
164
  theme("node", $node, $main);
Dries's avatar
   
Dries committed
165
166
}

167
168
169
170
function forum_validate(&$node) {
  // Make sure all fields are set properly:
  $node->icon = $node->icon ? $node->icon : "";
  $node->shadow = $node->shadow ? $node->shadow : 0;
171
  $node->tid = $node->tid ? $node->tid : 0;
172
173
174
175
176
177
  // 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's avatar
Dries committed
178
179
180
  }
}

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

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

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

  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's avatar
   
Dries committed
200

Dries's avatar
   
Dries committed
201
  if ($icon_path = variable_get("forum_topic_icon_path", "")) {
Dries's avatar
   
Dries committed
202
203
204
205
206
207
208
    if ($node->icon) {
      // we are editing post
      if ($dir = @opendir($icon_path)) {
        $icon_num = 0;
        while($icon = readdir($dir)) {
          if ($icon == '.' || $icon == '..') {continue;}
          if ($node->icon == $icon) {$checked = "checked";} else {$checked = "";}
Dries's avatar
   
Dries committed
209
          $radio .= "<input type=\"radio\" name=\"edit[icon_num]\" value=\"$icon_num\" $checked /><img src=\"$icon_path$icon\" alt=\"\" title=\"\" /> \n";
Dries's avatar
   
Dries committed
210
211
212
213
214
215
216
217
218
219
220
          $icon_num++;
        }
        closedir($dir);
      }
    }
    else {
      if ($dir = @opendir($icon_path)) {
        $icon_num = 0;
        while($icon = readdir($dir)) {
          if ($icon == '.' || $icon == '..') {continue;}
          if ($node->icon_num == $icon_num) {$checked = "checked";} else {$checked = "";}
Dries's avatar
   
Dries committed
221
          $radio .= "<input type=\"radio\" name=\"edit[icon_num]\" value=\"$icon_num\" $checked /><img src=\"$icon_path$icon\" alt=\"\" title=\"\" /> \n";
Dries's avatar
   
Dries committed
222
223
224
225
226
227
228
          $icon_num++;
        }
        closedir($dir);
      }
    }
    $output .= form_item(t("Topic icon"), $radio);
  }
Dries's avatar
Dries committed
229
  $output .= form_textarea(t("Body"), "body", $node->body, 60, 10);
Dries's avatar
   
Dries committed
230
231
232
233

  return $output;
}

Dries's avatar
   
Dries committed
234
235
function forum_insert($node) {
  $node->icon = _forum_decode_icon($node);
Dries's avatar
   
Dries committed
236
  db_query("INSERT INTO {forum} (nid, icon, shadow, tid) VALUES (%d, '%s', %d, %d)", $node->nid, $node->icon, $node->shadow, $node->tid[0]);
Dries's avatar
   
Dries committed
237
238
239
240
}

function forum_update($node) {
  $node->icon = _forum_decode_icon($node);
Dries's avatar
   
Dries committed
241
  db_query("UPDATE {forum} SET icon = '%s', shadow = %d, tid = %d WHERE nid = %d", $node->icon, $node->shadow, $node->tid[0], $node->nid);
Dries's avatar
   
Dries committed
242
243
244
245
}

function _forum_decode_icon($node) {
  // to prevent malicious users
Dries's avatar
   
Dries committed
246
  if ($icon_path = variable_get("forum_topic_icon_path", "")) {
Dries's avatar
   
Dries committed
247
248
249
250
251
252
253
254
255
256
257
258
259
260
    if ($dir = @opendir($icon_path)) {
      $icon_num = 0;
      while($icon = readdir($dir)) {
        if ($icon == '.' || $icon == '..') {continue;}
        if ($icon_num == $node->icon_num) {$myicon = $icon;}
        $icon_num++;
      }
      closedir($dir);
    }
  }
  return $myicon;
}

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

Dries's avatar
   
Dries committed
264
function _forum_num_comments($nid) {
Dries's avatar
   
Dries committed
265
  $value = db_fetch_object(db_query("SELECT COUNT(cid) AS count FROM {comments} WHERE nid = %d AND status = 0", $nid));
Dries's avatar
   
Dries committed
266
267
268
  return ($value) ? $value->count : 0;
}

Dries's avatar
   
Dries committed
269
function _forum_last_comment($nid) {
Dries's avatar
   
Dries committed
270
  $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's avatar
   
Dries committed
271
272
273
  return ($value) ? format_date($value->timestamp, "small") : "&nbsp;";
}

Dries's avatar
   
Dries committed
274
function _forum_last_reply($nid) {
Dries's avatar
   
Dries committed
275
  $value = db_fetch_object(db_query_range("SELECT c.timestamp, u.name, u.uid FROM {comments} c LEFT 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's avatar
   
Dries committed
276
277
278
279
280
  return $value;
}

function _forum_format($topic) {
  if ($topic) {
Dries's avatar
   
Dries committed
281
    return t("%date<br />by %author", array("%date" => format_date($topic->timestamp, "small"), "%author" => format_name($topic)));
Dries's avatar
   
Dries committed
282
283
284
285
286
287
288
289
290
291
292
293
294
  }
  else {
    return message_na();
  }
}

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

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

Dries's avatar
   
Dries committed
295
  $cache = cache_get("forum:$tid");
Dries's avatar
   
Dries committed
296

Dries's avatar
   
Dries committed
297
  if (empty($cache)) {
298
    $forums = array();
Dries's avatar
   
Dries committed
299
    $_forums = taxonomy_get_tree(variable_get("forum_nav_vocabulary", ""), $tid);
Dries's avatar
   
Dries committed
300
301
    $n = 0;
    foreach ($_forums as $forum) {
Dries's avatar
   
Dries committed
302
303
304
      $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's avatar
   
Dries committed
305
306
307
308
      $forums[$forum->tid] = $forum;
      $n++;
    }

Dries's avatar
   
Dries committed
309
    cache_set("forum:$tid", serialize($forums), 1);
Dries's avatar
   
Dries committed
310
  }
Dries's avatar
   
Dries committed
311
312
313
  else {
    $forums = unserialize($cache->data);
  }
Dries's avatar
   
Dries committed
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333

  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's avatar
   
Dries committed
334

Dries's avatar
   
Dries committed
335
336
337
338
  return $parents;
}

function _forum_num_topics($term) {
Dries's avatar
   
Dries committed
339
  $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's avatar
   
Dries committed
340
341
342
343
  return ($value) ? $value->count : 0;
}

function _forum_num_replies($term) {
Dries's avatar
   
Dries committed
344
  $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's avatar
   
Dries committed
345
346
347
348
  return ($value) ? $value->count : 0;
}

function _forum_topics_read($uid) {
Dries's avatar
   
Dries committed
349
  $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's avatar
   
Dries committed
350
351
352
353
354
355
356
357
358

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

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

function _forum_last_post($term) {
Dries's avatar
   
Dries committed
359
  $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 LEFT 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's avatar
   
Dries committed
360

Dries's avatar
   
Dries committed
361
  $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 LEFT 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's avatar
   
Dries committed
362
363
364
365
366
367

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

  return $value;
}

Dries's avatar
Dries committed
368
function forum_get_topics($tid, $sortby, $forum_per_page) {
Dries's avatar
   
Dries committed
369
370
371
372
373
374
375
  global $user;

  $term = taxonomy_get_term($tid);
  $voc = taxonomy_get_vocabulary($term->vid);

  $sql_sortby = _forum_get_topic_order($sortby);

Dries's avatar
Dries committed
376
  // show topics with the correct tid, or in the forum but with shadow = 1
Dries's avatar
   
Dries committed
377
  $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, f.icon, n.comment AS comment_mode, f.tid FROM {node} n INNER JOIN {term_node} r ON n.nid = r.nid LEFT 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_query($tid)."' AND f.shadow = 1) OR f.tid = '".check_query($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, f.icon ORDER BY $sql_sortby";
Dries's avatar
Dries committed
378

Dries's avatar
   
Dries committed
379
  $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_query($tid)."' AND f.shadow = 1) OR f.tid = '".check_query($tid)."') AND n.status = 1 AND n.type = 'forum'";
Dries's avatar
   
Dries committed
380

Dries's avatar
Dries committed
381
  $result = pager_query($sql, $forum_per_page, 0, $sql_count);
Dries's avatar
   
Dries committed
382
383
384
385
  $topic_num = db_num_rows($result);

  $n = 0;
  while ($topic = db_fetch_object($result)) {
Dries's avatar
Dries committed
386
387
388
389
390
    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's avatar
   
Dries committed
391
392
      }
      else {
Dries's avatar
Dries committed
393
394
        if (!$history && $user->uid) {
          $topic->new_replies = 0;
Dries's avatar
   
Dries committed
395
396
397
          $topic->new = 1;
        }
        else {
Dries's avatar
   
Dries committed
398
          $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's avatar
Dries committed
399
400
401
402
403
404
405
406

          $topic->new_replies = $comments ? $comments : 0;
          if ($topic->new_replies) {
            $topic->new = 1;
          }
          else {
            $topic->new = 0;
          }
Dries's avatar
   
Dries committed
407
408
        }
      }
Dries's avatar
Dries committed
409
410
411
412
413
414
     }
     else {
      // you're not logged in eh?
      $topic->new_replies = 0;
      $topic->new = 0;
     }
Dries's avatar
   
Dries committed
415
416
417
418
419

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

Dries's avatar
Dries committed
420
  return $topics;
Dries's avatar
   
Dries committed
421
422
}

Dries's avatar
Dries committed
423
function _forum_new($tid) {
Dries's avatar
   
Dries committed
424
  global $user;
Dries's avatar
   
Dries committed
425
  $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's avatar
   
Dries committed
426
427
428
429
  while ($r = db_fetch_object($result)) {
    $read[] = $r->nid;
  }

Dries's avatar
   
Dries committed
430
  $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's avatar
   
Dries committed
431
432
433
434

  return $nid ? $nid : 0;
}

Dries's avatar
   
Dries committed
435
436
437
438
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's avatar
   
Dries committed
439
function forum_page() {
Dries's avatar
   
Dries committed
440
  global $sortby, $forum_per_page, $from, $user;
Dries's avatar
   
Dries committed
441

Dries's avatar
   
Dries committed
442
  $op = $_POST["op"];
Dries's avatar
   
Dries committed
443

Dries's avatar
   
Dries committed
444
  if (user_access("access content")) {
Dries's avatar
   
Dries committed
445
    if (module_exist("taxonomy")) {
Dries's avatar
   
Dries committed
446
      $tid = arg(1);
447
      if ($op == t("Update settings") && $user->uid) {
Dries's avatar
   
Dries committed
448
449
        $user = user_save($user, array("sortby" => $sortby, "forum_per_page" => $forum_per_page));
      }
Dries's avatar
   
Dries committed
450

Dries's avatar
Dries committed
451
452
453
454
455
      if (arg(2) == "new") {
        if ($nid = _forum_new($tid)) {
          drupal_goto(url("node/view/$nid"));
        }
      }
Dries's avatar
   
Dries committed
456

Dries's avatar
   
Dries committed
457
458
459
      if (empty($sortby)) {
        $sortby = isset($user->sortby) ? $user->sortby : variable_get("forum_order",1);
      }
Dries's avatar
   
Dries committed
460

Dries's avatar
   
Dries committed
461
462
463
      if (empty($forum_per_page)) {
        $forum_per_page = isset($user->forum_per_page) ? $user->forum_per_page : variable_get("forum_per_page", 25);
      }
Dries's avatar
   
Dries committed
464

Dries's avatar
Dries committed
465
      $offset = ($from / $forum_per_page) + 1;
Dries's avatar
   
Dries committed
466

Dries's avatar
   
Dries committed
467
468
      $forums = forum_get_forums($tid);
      $parents = forum_get_parents($tid);
Dries's avatar
   
Dries committed
469
      $topics = forum_get_topics($tid, $sortby, $forum_per_page);
Dries's avatar
   
Dries committed
470

Dries's avatar
   
Dries committed
471
      theme("forum_theme_display", $forums, $topics, $parents, $tid, $sortby, $forum_per_page, $offset);
Dries's avatar
   
Dries committed
472
473
    }
    else {
Dries's avatar
   
Dries committed
474
475
476
      theme("header");
      theme("box", t("Warning"), _forum_message_taxonomy());
      theme("footer");
Dries's avatar
   
Dries committed
477
    }
Dries's avatar
   
Dries committed
478
479
  }
  else {
Dries's avatar
   
Dries committed
480
481
482
    theme("header");
    theme("box", t("Access denied"), message_access());
    theme("footer");
Dries's avatar
   
Dries committed
483
484
485
  }
}

Dries's avatar
   
Dries committed
486
/*
Dries's avatar
   
Dries committed
487
** Theme functions
Dries's avatar
   
Dries committed
488
*/
Dries's avatar
   
Dries committed
489

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

Dries's avatar
   
Dries committed
493
  theme("header");
Dries's avatar
   
Dries committed
494

Dries's avatar
   
Dries committed
495
496
497
  /*
  ** Breadcrumb navigation:
  */
Dries's avatar
   
Dries committed
498

Dries's avatar
   
Dries committed
499
500
501
502
503
  if ($tid) {
    $trail[] = l(t("Forums"), "forum");
  }
  else {
    $trail[] = t("Forums");
Dries's avatar
   
Dries committed
504
505
506
  }

  if ($parents) {
Dries's avatar
   
Dries committed
507
508
    $parents = array_reverse($parents);
    foreach ($parents as $p) {
Dries's avatar
   
Dries committed
509
      if ($tid != $p->tid) {
Dries's avatar
   
Dries committed
510
        $trail[] = l($p->name, "forum/$p->tid");
Dries's avatar
   
Dries committed
511
512
      }
      else {
Dries's avatar
   
Dries committed
513
        $trail[] = $p->name;
Dries's avatar
   
Dries committed
514
515
516
517
      }
    }
  }

Dries's avatar
   
Dries committed
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
  $output  = "<div id=\"forum\">";
  $output .= theme("forum_theme_list", $forums, $parents, $tid);

  if ($tid) {
    $output .= theme("forum_theme_topic_list", $tid, $topics, $sortby, $forum_per_page, $offset);
  }

  $output .= "</div>";

  theme("box", implode($trail, " &raquo; "), $output);
  theme("footer");
}

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

Dries's avatar
   
Dries committed
534
535
  if ($forums) {

Dries's avatar
   
Dries committed
536
    $header = array(array("data" => t("Forum"), "colspan" => "2"), t("Topics"), t("Posts"), t("Last post"));
Dries's avatar
   
Dries committed
537
538

    foreach ($forums as $forum) {
Dries's avatar
   
Dries committed
539
540
      if ($user->uid) {
        $new_topics = $forum->num_topics - $forum->old_topics;
541
      }
Dries's avatar
   
Dries committed
542

Dries's avatar
   
Dries committed
543
544
545
546
547
      $links = array();

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

Dries's avatar
   
Dries committed
549
550
      if ($new_topics) {
        $links[] = l(t("the first new topic"), "forum/$forum->tid/new");
Dries's avatar
   
Dries committed
551
      }
Dries's avatar
   
Dries committed
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572

      $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";
      }
      $description .="</div>\n";

      //if ($icon = _forum_get_folder_icon($new_topics)) {
      $rows[] = array(
        array("data" => $icon, "class" => "icon"),
        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"),
        array("data" => _forum_format($forum->last_post), "class" => "last-post")
       );

Dries's avatar
   
Dries committed
573
574
575
    }
  }

Dries's avatar
   
Dries committed
576
  return table($header, $rows);
Dries's avatar
   
Dries committed
577
578
}

Dries's avatar
   
Dries committed
579
function forum_theme_topic_browser() {
Dries's avatar
   
Dries committed
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
  global $tid, $sortby, $forum_per_page, $offset;

  if (empty($sortby)) {
    $sortby = variable_get("forum_order",1);
  }
  if (empty($forum_per_page)) {
    $forum_per_page = variable_get("forum_per_page", 25);
  }

  $forum_per_page_options = array(10, 25, 50, 75, 100);
  foreach ($forum_per_page_options as $value) {
    $options .= " <option value=\"$value\"". ($forum_per_page == $value ? " selected=\"selected\"" : "") .">".t("%a topics per page", array("%a" => $value))."</option>\n";
  }

  $output .= "<select name=\"forum_per_page\">$options</select>\n";

  $options = "";
  $sortby_options = array(1 => t("Date - newest first"), 2 => t("Date - oldest first"), 3 => t("Posts - most active first"), 4=> t("Posts - least active first"));
  foreach ($sortby_options as $key => $value) {
    $options .= " <option value=\"$key\"". ($sortby == $key ? " selected=\"selected\"" : "") .">$value</option>\n";
  }

  $output .= "\n<select name=\"sortby\">$options</select>\n";
  $output .= form_hidden("tid", $tid);
  $output .= form_submit(t("Update settings"));
Dries's avatar
   
Dries committed
605
  return form($output);
Dries's avatar
   
Dries committed
606
607
}

Dries's avatar
   
Dries committed
608
function forum_theme_topic_list($tid, $topics, $sortby, $forum_per_page, $offset) {
Dries's avatar
   
Dries committed
609
  global $id, $status, $user, $pager_total;
Dries's avatar
   
Dries committed
610
611

  if ($topics) {
Dries's avatar
   
Dries committed
612
613

    $header = array(array("data" => t("Topic"), "colspan" => "3"), t("Replies"), t("Posted"), t("Last post"));
Dries's avatar
   
Dries committed
614
615
616

    foreach ($topics as $topic) {
      // folder is new if topic is new or there are new comments since last visit
Dries's avatar
Dries committed
617
      if ($topic->tid != $tid) {
Dries's avatar
   
Dries committed
618
619
620
621
622
623
        $rows[] = array(
          array("data" => _forum_get_folder_icon($topic->new, $topic->num_comments, $topic->comment_mode), "class" => "icon"),
          array("data" =>_forum_get_icon($topic), "class" => "icon"),
          array("data" => $topic->title, "class" => "title"),
          array("data" => l(t("This topic has been moved"), "forum/$topic->tid"), "colspan" => 3)
        );
Dries's avatar
   
Dries committed
624
625
      }
      else {
Dries's avatar
   
Dries committed
626
627
628
629
630
631
632
633
        $rows[] = array(
          array("data" => _forum_get_folder_icon($topic->new, $topic->num_comments, $topic->comment_mode), "class" => "icon"),
          array("data" => _forum_get_icon($topic), "class" => "icon"),
          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"),
          array("data" => _forum_format($topic), "class" => "posted"),
          array("data" => _forum_format($topic->last_reply), "class" => "last-post")
        );
Dries's avatar
   
Dries committed
634
635
636
      }
    }

Dries's avatar
   
Dries committed
637
638
    $rows[] = array(array("data" => t("%a topics, %b topics per page, page %c of %d", array("%a" => $pager_total[0], "%b" => $forum_per_page, "%c" => $offset, "%d" => ceil($pager_total[0]/$forum_per_page))), "colspan" => "6", "class" => "statistics"));
    $rows[] = array(array("data" => theme("forum_theme_topic_browser", $sortby, $forum_per_page, $offset), "colspan" => "6", "class" => "settings"));
Dries's avatar
   
Dries committed
639

Dries's avatar
   
Dries committed
640
641
642
643
    if ($pager = pager_display(NULL, $forum_per_page, 0, "default")) {
      $rows[] = array(array("data" => $pager, "colspan" => "6", "class" => "pager"));
    }
  }
Dries's avatar
   
Dries committed
644
645


Dries's avatar
Dries committed
646
  if (user_access("create forum topics")) {
Dries's avatar
   
Dries committed
647
    $output = l(t("create new forum topic"), "node/add/forum/$tid") ."<br /><br />";
Dries's avatar
   
Dries committed
648
649
  }

Dries's avatar
   
Dries committed
650
651
  $output  .= table($header, $rows);

Dries's avatar
   
Dries committed
652
653
654
655
656
  return $output;
}


function _forum_get_icon($node) {
Dries's avatar
   
Dries committed
657
  if (variable_get("forum_topic_icon_path", "") && $node->icon) {
Dries's avatar
   
Dries committed
658
    return "<img src=\"". variable_get("forum_topic_icon_path", "") ."$node->icon\" />";
Dries's avatar
   
Dries committed
659
660
661
662
663
664
665
666
  }
  else {
    return "&nbsp;";
  }
}

function _forum_get_folder_icon($new_posts, $num_posts = 0, $comment_mode = 0) {
  // "folder" icon because it's generally rendered as a folder
Dries's avatar
   
Dries committed
667

Dries's avatar
   
Dries committed
668

Dries's avatar
   
Dries committed
669
  $base_path = variable_get("forum_folder_icon_path", "");
Dries's avatar
   
Dries committed
670
671
672
673
674
675
676
677
678
679
680
681
  if ($base_path) {
    if ($num_posts > variable_get("forum_hot_topic", 15)) {
      $icon = $new_posts ? "hot_new" : "hot";
    }
    else {
      $icon = $new_posts ? "new" : "default";
    }

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

Dries's avatar
   
Dries committed
682
683
    // default
    $file = $base_path."/".$icon.".gif";
Dries's avatar
   
Dries committed
684

Dries's avatar
   
Dries committed
685
    return "<img src=\"$file\" alt=\"\" title=\"\" />";
Dries's avatar
   
Dries committed
686
687
688
689
690
691
692
693
694
695
  }
  else {
    return "&nbsp;";
  }
}

function _forum_user_last_visit($nid) {
  global $user;
  static $history;
  if (!$history) {
Dries's avatar
   
Dries committed
696
    $result = db_query("SELECT nid, timestamp FROM {history} WHERE uid = %d", $user->uid);
Dries's avatar
   
Dries committed
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
    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's avatar
   
Dries committed
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
function forum_help($section = "admin/forum/help") {
  $output = "";

  switch ($section) {
    case 'admin/help':
    case 'admin/forum/help':
      $output .= "<h3>Creating a forum</h3>";
      $output .= strtr("<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>", array("%taxonomy" => l(t("taxonomy vocabulary"), "admin/taxonomy/add/vocabulary"), "%taxo-terms" => l(t("add some terms"), "admin/taxonomy" ) ));
      $output .= strtr("<p>When you are happy with your vocabulary, go to ". l("site configuration &raquo; modules &raquo; forum","admin/system/modules/forum") ." 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>", array("%forums" => l(t("site configutation &raquo; modules &raquo; forum"), "admin/system/modules/forum"), "%permission" => l(t("permission"), "admin/user/permission") ));
      $output .= "<h4>Icons</h4>";
      $output .= strtr("<p>To disable icons, set the icon path as blank in %forums-icon.</p>",array("%forums-icon" => l(t("site configuration &raquo; modules &raquo; forums"), "admin/system/module/forum") ));
      $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 customary to use 15x15 or 16x16.</p>";
      break;
    case 'admin/system/modules':
      $output = "Enable threaded discussions about general topics.";
      break;
    case 'admin/system/modules/forum':
      $output = strtr("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") ));
      break;
  }
Dries's avatar
   
Dries committed
741

Dries's avatar
   
Dries committed
742
  return t($output);
Dries's avatar
   
Dries committed
743
744
745
}

?>