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

4
function forum_system($field){
Dries's avatar
   
Dries committed
5
  $system["description"] = t("Enable threaded discussions about general topics.");
6
7
8
  return $system[$field];
}

Dries's avatar
   
Dries committed
9
10
11
12
13
14
15
16
17
18
19
function forum_node($field) {
  $info["name"] = t("discussion forum");
  $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
20
21
22
  if ($op == "create") {
    return user_access("post content");
  }
Dries's avatar
   
Dries committed
23
24
}

Dries's avatar
   
Dries committed
25
26
27
function forum_perm() {
  return array("post forum topics without approval");
}
Dries's avatar
   
Dries committed
28

Dries's avatar
   
Dries committed
29
30
31
32
function forum_conf_options() {
  foreach (taxonomy_get_vocabularies("forum") as $vid => $voc) {
    $vocs[$vid] = $voc->name;
  }
33
  $output = "<a name=\"image_nav_vocabulary\"></a>";
Dries's avatar
   
Dries committed
34
35
  $output .= form_select("Forum vocabulary", "forum_nav_vocabulary", variable_get("forum_nav_vocabulary", ""), $vocs, t("The taxonomy vocabulary that will be used as the navigation tree."));
  $output .= _taxonomy_term_select("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's avatar
   
Dries committed
36
37

  $output .= form_textfield("Topic icons path", "forum_topic_icon_path", variable_get("forum_topic_icon_path", "images/forum/topics/"), 30, 255, "The path to the topic icons.  Leave blank to disable icons.");
Dries's avatar
   
Dries committed
38
  $output .= form_textfield("Folder icons path", "forum_folder_icon_path", variable_get("forum_folder_icon_path", "images/forum/folder/"), 30, 255, "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
39
  $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);
Dries's avatar
   
Dries committed
40
  $output .= form_select("Hot topic threshold", "forum_hot_topic", variable_get("forum_hot_topic", 15), $number, "The number of posts a topic must have to be considered <b>hot</b>.");
Dries's avatar
   
Dries committed
41
42
43
44
  $number = array(10 => 10, 25 => 25, 50 => 50, 75 => 75, 100 => 100);
  $output .= form_select("Topics per page", "forum_per_page", variable_get("forum_per_page", 25), $number, "The default number of topics displayed per page; links to browse older messages are automatically being displayed.");
  $forder = array(1 => "Date - newest first", 2 => "Date - oldest first", 3 => "Posts - most active first", 4=> "Posts - least active first");
  $output .= form_select("Default order", "forum_order", variable_get("forum_order", 1), $forder, "The default display order for topics.");
Dries's avatar
   
Dries committed
45
  $output .= form_textfield("Number of topics in block", "forum_block_num", variable_get("forum_block_num", "5"), 5, 5, "The number of topics in the <b>Forum topics</b>-block.  To enable the block, click ". la("here", array("mod" => "block")) .".");
Dries's avatar
   
Dries committed
46
  $output .= form_select("Internal caching", "forum_cache", variable_get("forum_cache", 0), array("disabled", "enabled"), "Cache internal datastructures for both anonymous and autheticated users.  When enabled, the forum data won't be 100% up to date with regards regard to the number of posts, the number of replies and the last topic being posted.  Enable when you have busy forum.");
Dries's avatar
   
Dries committed
47
48
49
50
51

  return $output;
}

function forum_save($op, $node) {
Dries's avatar
   
Dries committed
52
53
54
55
56
  if ($op == "approve") {
    return array("status" => 1);
  }

  if ($op == "create") {
Dries's avatar
   
Dries committed
57
58
59
60
61
62
    if (user_access("post forum topics without approval")) {
      $moderation = array("body" => filter($node->body), "moderate" => 0, "status" => 1);
    } else {
      $moderation = array("body" => filter($node->body), "moderate" => 1, "status" => 0);
    }
    return array_merge($moderation, array("tid", "icon_num", "shadow"));
Dries's avatar
   
Dries committed
63
64
  }

Dries's avatar
   
Dries committed
65
66
  if ($op == "decline") {
    return array("status" => 0);
Dries's avatar
   
Dries committed
67
68
69
  }

  if ($op == "update") {
Dries's avatar
   
Dries committed
70
71
72
73
74
75
76
77
78
    // if she changed the term, we could have to leave a shadow
    $old_terms = explode(",", $node->old_container);
    foreach ($node->taxonomy as $term) {
      if ($term && (!in_array($term, $old_terms)) && $node->shadow) {
        $shadow = $term;
        break;
      }
    }
    return array("body" => filter($node->body), "tid", "icon_num", "shadow" => $shadow, "old_container");
Dries's avatar
   
Dries committed
79
80
81
  }
}

Dries's avatar
   
Dries committed
82
83
84
85
86
87
function forum_load($node) {
  $forum = db_fetch_object(db_query("SELECT * FROM forum WHERE nid = '%d' AND shadow = 0", $node->nid));

  return $forum;
}

88
89
90
91
92
93
94
95
96
function forum_block($op = "list", $delta = 0) {
  if ($op == "list") {
    $blocks[0]["info"] = t("Forum topics");
  }
  else {
    if (user_access("access content")) {
      if (variable_get("forum_cache", 0)) {
        $content = cache_get("forum:block");
      }
Dries's avatar
   
Dries committed
97

98
99
100
101
102
103
      if (!$content) {
        $content = "<b>". t("Active forum topics:") ."</b><br />";
        $result = db_query("SELECT n.nid, n.title, n.body, GREATEST(n.created, MAX(c.timestamp)) AS sort FROM node n, forum f LEFT JOIN comments c ON c.nid = n.nid WHERE n.type = 'forum' AND n.nid = f.nid AND f.shadow = 0 AND n.status = 1 GROUP BY n.nid ORDER BY sort DESC LIMIT ". variable_get("forum_block_num", "5"));
        while ($node = db_fetch_object($result)) {
          $content .= "- ". l(check_output($node->title), array("id" => $node->nid), "node", "", array("title" => substr(strip_tags($node->body), 0, 100)."...")) ."<br />";
        }
Dries's avatar
   
Dries committed
104

105
106
107
108
109
110
        $content .= "<br />";
        $content .= "<b>". t("New forum topics:") ."</b><br />";
        $result = db_query("SELECT n.nid, n.title, n.body FROM node n LEFT JOIN forum f ON n.nid = f.nid WHERE n.type = 'forum' ORDER BY n.nid DESC LIMIT ". variable_get("forum_block_num", "5"));
        while ($node = db_fetch_object($result)) {
          $content .= "- ". l(check_output($node->title), array("id" => $node->nid), "node", "", array("title" => substr(strip_tags($node->body), 0, 100)."...")) ."<br />";
        }
Dries's avatar
   
Dries committed
111

112
113
114
        if ($content) {
          $content .= "<div align=\"right\">". lm(t("more"), array("mod" => "forum")) ."</div>";
        }
Dries's avatar
   
Dries committed
115

116
117
        cache_set("forum:block", $content, time() + 60 * 3);
      }
Dries's avatar
   
Dries committed
118

119
120
      $blocks["subject"] = t("Forum topics");
      $blocks["content"] = $content;
Dries's avatar
   
Dries committed
121
122
    }
  }
Dries's avatar
   
Dries committed
123

Dries's avatar
   
Dries committed
124
125
126
  return $blocks;
}

127
function forum_link($type, $node = 0, $main = 0) {
Dries's avatar
   
Dries committed
128
  if ($type == "page" && user_access("access content")) {
Dries's avatar
   
Dries committed
129
    $links[] = lm(t("forum"), array("mod" => "forum"));
Dries's avatar
   
Dries committed
130
131
  }

Dries's avatar
   
Dries committed
132
133
134
135
136
  if ($type == "menu.create" && user_access("post content")) {
    // I had complains that having this link leads people not to choose a forum, and always post in the first forum.
    #$links[] = lm(t("create forum topic"), array("mod" => "node", "op" => "add", "type" => "forum"), "", array("title" => t("Start a new forum topic.")));
  }

137
  if (!$main && $type == "node" && $node->type == "forum") {
Dries's avatar
   
Dries committed
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
    // get previous and next topic

    $sql = "SELECT n.nid, title, body, GREATEST(n.created, MAX(c.timestamp)) AS date_sort, COUNT(c.nid) AS num_comments FROM node n, term_node t, forum f LEFT JOIN comments c ON c.nid = n.nid WHERE n.nid = t.nid AND n.nid = f.nid AND t.tid = '%d' AND f.shadow = 0 AND n.status = 1 GROUP BY n.nid ORDER BY ". _forum_get_topic_order(isset($user->sortby) ? $user->sortby : variable_get("forum_order",1));

    $terms = array_keys(taxonomy_node_get_terms_by_vocabulary($node->nid, variable_get("forum_nav_vocabulary", "")));
    $result = db_query($sql, $terms[0]);

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

    if ($prev) {
Dries's avatar
   
Dries committed
163
      $links[] = l(t("previous forum topic"), array("id" => $prev->nid), "node", "", array("title" => $prev->title .": ". substr(strip_tags($prev->body), 0, 100)."..."));
Dries's avatar
   
Dries committed
164
165
166
    }

    if ($next) {
Dries's avatar
   
Dries committed
167
      $links[] = l(t("next forum topic"), array("id" => $next->nid), "node", "", array("title" => $next->title .": ". substr(strip_tags($next->body), 0, 100)."..."));
Dries's avatar
   
Dries committed
168
    }
Dries's avatar
   
Dries committed
169
170
  }

Dries's avatar
   
Dries committed
171
172
173
  return $links ? $links : array();
}

Dries's avatar
   
Dries committed
174
function forum_view($node, $main = 0) {
Dries's avatar
   
Dries committed
175
  global $theme;
Dries's avatar
   
Dries committed
176
177
178
179
180
181
182
183

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

184
185
  /* TODO: find out what this code was ment to do and either use it or not.
  
Dries's avatar
   
Dries committed
186
187
188
  $output .= "<p>"._forum_get_icon($node)." ".lm(check_output($voc->name), array("mod" => "forum"))." : ".lm(check_output($term_data->name), array("mod" => "forum", "tid" => $term_data->tid));

  $output .= " / <b>". check_output($node->title) ."</b><br>".t("%a by %b", array("%a" => format_date($node->created), "%b" => format_name($node)))."</p><p>". check_output($node->body, 1) ."</p>";
Dries's avatar
   
Dries committed
189
190
  $output .= "<p>". $theme->links(link_node($node, $main)) ."</p>";

Dries's avatar
   
Dries committed
191
  #$theme->box(t("Discussion forum"), $output);
192
  */
Dries's avatar
   
Dries committed
193

194
195
196
  if (!$main) {
    $node->title = _forum_get_icon($node)." ".lm(check_output($voc->name), array("mod" => "forum"))." : ".lm(check_output($term_data->name), array("mod" => "forum", "tid" => $term_data->tid)) . " / <b>". check_output($node->title) ."</b>";
  }
Dries's avatar
   
Dries committed
197
198

  $theme->node($node, $main);
Dries's avatar
   
Dries committed
199
200
201
}

function forum_form(&$node, &$help, &$error) {
Dries's avatar
   
Dries committed
202
203
204
205
  global $tid;
  if ($node->nid) {
    if ($node->taxonomy) {
      $tid = $node->taxonomy;
206
207
    }
    else {
Dries's avatar
   
Dries committed
208
209
210
211
212
213
      // editing: load category from taxonomy
      $tid = implode(",", array_keys(taxonomy_node_get_terms($node->nid)));
    }
    //$output .= implode("<p>", taxonomy_node_form("forum", $node));
    $output .= "<input type=\"hidden\" name=\"edit[old_container]\" value=\"".implode(",", array_keys(taxonomy_node_get_terms($node->nid)))."\">";
    $output .= form_checkbox(t("Leave shadow?"), "shadow", 1, 1, t("If you move this topic, you can leave a link in the old forum to the new forum."));
214
215
  }
  else {
Dries's avatar
   
Dries committed
216
217
218
    if ($node->taxonomy) {
      $tid = $node->taxonomy;
    }
219
220
  }

Dries's avatar
   
Dries committed
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
  $output .= _taxonomy_term_select("Forum", "taxonomy", $tid, variable_get("forum_nav_vocabulary", ""), "", 0, "", variable_get("forum_containers", array()));

  if ($icon_path = variable_get("forum_topic_icon_path", "images/forum/topics/")) {
    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 = "";}
          $radio .= "<input type=\"radio\" name=\"edit[icon_num]\" value=\"$icon_num\" $checked><img src=\"$icon_path$icon\"> \n";
          $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 = "";}
          $radio .= "<input type=\"radio\" name=\"edit[icon_num]\" value=\"$icon_num\" $checked><img src=\"$icon_path$icon\"> \n";
          $icon_num++;
        }
        closedir($dir);
      }
    }
    $output .= form_item(t("Topic icon"), $radio);
  }
  $output .= form_textarea("Body", "body", $node->body, 60, 10);
Dries's avatar
   
Dries committed
252
253
254
255

  return $output;
}

Dries's avatar
   
Dries committed
256
257
258
259
function forum_insert($node) {
  $node->icon = _forum_decode_icon($node);
  if (!$node->shadow) {
    db_query("INSERT INTO forum (nid, icon) VALUES ('%d', '%s')", $node->nid, $node->icon);
260
261
  }
  else {
Dries's avatar
   
Dries committed
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
    // we created a shadow, a link to a moved topic in a new forum
    db_query("INSERT INTO forum (nid, icon, shadow) VALUES ('%d', '%s', '%d')", $node->nid, $node->icon, $node->shadow);
  }

  if (variable_get("forum_cache", 0)) {
    cache_clear();
  }
}

function forum_update($node) {
  $node->icon = _forum_decode_icon($node);
  db_query("UPDATE forum SET icon = '%s' WHERE nid = '%d'", $node->icon, $node->nid);
  if ($node->shadow) {
    // insert in old forum a new topic, with link to new forum
    $node->nid = "";
    $node->type = "forum";
    $node->status = 1;
    $node->taxonomy = array($node->old_container);
    node_submit($node);
  }
}

function _forum_decode_icon($node) {
  // to prevent malicious users
  if ($icon_path = variable_get("forum_topic_icon_path", "images/forum/topics/")) {
    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) {
  db_query("DELETE FROM forum WHERE nid = '%d'", $node->nid);
}
Dries's avatar
   
Dries committed
303

Dries's avatar
   
Dries committed
304
305
function _forum_num_comments($nid) {
  $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
306
307
308
  return ($value) ? $value->count : 0;
}

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

Dries's avatar
   
Dries committed
314
315
316
317
318
319
320
function _forum_last_reply($nid) {
  $value = db_fetch_object(db_query("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 LIMIT 1", $nid));
  return $value;
}

function _forum_format($topic) {
  if ($topic) {
Dries's avatar
   
Dries committed
321
    return "<small>". format_date($topic->timestamp, "small")."<br>".t("by")." ". format_name($topic) ."</small>";
Dries's avatar
   
Dries committed
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
  }
  else {
    return message_na();
  }
}

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

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

  if (variable_get("forum_cache", 0)) {
    $forums = unserialize(cache_get("forum:$tid"));
  }

  if (!$forums) {
340
    $forums = array();
Dries's avatar
   
Dries committed
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
    taxonomy_get_tree(variable_get("forum_nav_vocabulary", ""), $_forums, $tid);
    $n = 0;
    foreach ($_forums as $forum) {
      if (in_array($forum->tid, variable_get("forum_containers", array()))) {
        $forum->container = 1;
      }
      else {
        $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);
      }
      $forums[$forum->tid] = $forum;
      $n++;
    }

    if (variable_get("forum_cache", 0)) {
      cache_set("forum:$tid", serialize($forums), time()+60*10);
    }
  }

  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++;
  }
  return $parents;
}

function _forum_num_topics($term) {
  $value = db_fetch_object(db_query("SELECT COUNT(n.nid) AS count FROM node n, term_node r, forum f WHERE r.tid = '%d' AND n.nid = r.nid AND n.nid = f.nid AND n.status = 1 AND n.type = 'forum' AND f.shadow = 0", $term));
  return ($value) ? $value->count : 0;
}

function _forum_num_replies($term) {
  $value = db_fetch_object(db_query("SELECT COUNT(*) AS count FROM comments c, term_node r, node n WHERE r.tid = '%d' AND n.nid = r.nid AND n.nid = c.nid AND n.status = 1 AND c.status = 0 AND n.type = 'forum'", $term));
  return ($value) ? $value->count : 0;
}

function _forum_topics_read($uid) {
  $result = db_query("SELECT tid, count(*) AS c FROM history h, term_node r, node n WHERE r.nid = h.nid AND n.nid = h.nid AND n.type = 'forum' AND n.status = 1 AND h.uid = '%d' GROUP BY tid", $uid);

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

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

function _forum_last_post($term) {
  $topic = db_fetch_object(db_query("SELECT n.nid, n.created AS timestamp, u.name AS name, u.uid AS uid FROM node n, term_node r LEFT JOIN users u ON n.uid = u.uid WHERE r.tid = '%d' AND n.nid = r.nid AND n.type = 'forum' AND n.status = 1 ORDER BY timestamp DESC LIMIT 1", $term));

Dries's avatar
   
Dries committed
407
  $reply = db_fetch_object(db_query("SELECT n.nid, c.timestamp, u.name AS name, u.uid AS uid FROM term_node r, node n LEFT JOIN comments c ON n.nid = c.nid LEFT JOIN users u ON c.uid = u.uid WHERE r.tid = '%d' AND n.nid = r.nid AND n.type = 'forum' AND n.status = 1 AND c.status = 0 ORDER BY c.timestamp DESC LIMIT 1", $term));
Dries's avatar
   
Dries committed
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483

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

  return $value;
}

function forum_get_topics($tid, $sortby, $forum_per_page, $offset) {
  global $user;

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

  $sql_sortby = _forum_get_topic_order($sortby);

  $sql = "
    SELECT n.nid, title, users.name AS name, users.uid AS uid, n.created AS timestamp, GREATEST(n.created, MAX(c.timestamp)) AS date_sort, COUNT(c.nid) AS num_comments, icon, n.comment AS comment_mode, shadow FROM node n, term_node r LEFT JOIN users ON n.uid = users.uid LEFT JOIN comments c ON c.nid = n.nid LEFT JOIN forum f ON n.nid = f.nid WHERE n.nid = r.nid AND r.tid = '%d' AND n.status = 1 AND n.type = 'forum' GROUP BY n.nid ORDER BY $sql_sortby";

  $result = db_query($sql, $tid);
  $topic_num = db_num_rows($result);

  $n = 0;
  while ($topic = db_fetch_object($result)) {
    if ($n < $offset) {
      $n++;
      continue;
    }

    $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;
    }
    else {
      if (!$history && $user->uid) {
        $topic->new_replies = 0;
        $topic->new = 1;
      }
      else {
        $comments = db_result(db_query("SELECT COUNT(c.nid) FROM node n LEFT JOIN comments c ON n.nid = c.nid WHERE n.nid = '$topic->nid' AND c.status = 0 AND timestamp > '$history' GROUP BY n.nid"));

        $topic->new_replies = $comments ? $comments : 0;
        if ($topic->new_replies) {
          $topic->new = 1;
        }
        else {
          $topic->new = 0;
        }
      }
    }

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

    $n++;
    if ($n == ($forum_per_page + $offset)) {
      break;
    }
  }

  return array($topics, $topic_num);
}

function _forum_first_new($tid) {
  global $user;
  $result = db_query("SELECT r.nid FROM node n, history h, term_node r WHERE n.type = 'forum' AND n.status = 1 AND h.nid = n.nid AND r.nid = h.nid AND r.tid = '%d' AND h.uid = '%d'   ", $tid, $user->uid);
  while ($r = db_fetch_object($result)) {
    $read[] = $r->nid;
  }

  if ($read) {
    $nid = db_result(db_query("SELECT r.nid AS c FROM node n LEFT JOIN term_node r ON r.nid = n.nid WHERE n.type = 'forum' AND n.status = 1 AND r.tid = '%d' AND NOT (r.nid IN (".implode(",", $read).")) ORDER BY created LIMIT 1", $tid));
  }

  return $nid ? $nid : 0;
}

Dries's avatar
   
Dries committed
484
function forum_page() {
Dries's avatar
   
Dries committed
485
  global $theme, $tid, $sortby, $forum_per_page, $offset, $op, $user;
Dries's avatar
   
Dries committed
486
487

  if (user_access("access content")) {
Dries's avatar
   
Dries committed
488
489
490
    if ($op == "Update settings") {
      $user = user_save($user, array("sortby" => $sortby, "forum_per_page" => $forum_per_page));
    }
Dries's avatar
   
Dries committed
491

Dries's avatar
   
Dries committed
492
493
494
495
    if ($op == "first_new") {
      if ($nid = _forum_first_new($tid)) {
        drupal_goto(drupal_url(array("id" => $nid), "node"));
      }
Dries's avatar
   
Dries committed
496
497
    }

Dries's avatar
   
Dries committed
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
    if (empty($sortby)) {
      $sortby = isset($user->sortby) ? $user->sortby : variable_get("forum_order",1);
    }
    if (empty($forum_per_page)) {
      $forum_per_page = isset($user->forum_per_page) ? $user->forum_per_page : variable_get("forum_per_page", 25);
    }
    if (empty($offset)) {
      $offset = 0;
    }

    $forums = forum_get_forums($tid);
    $parents = forum_get_parents($tid);
    if ($tid && !in_array($tid, variable_get("forum_containers", array()))) {
      list($topics, $topic_num) = forum_get_topics($tid, $sortby, $forum_per_page, $offset);
    }

Dries's avatar
   
Dries committed
514
    theme_invoke("forum_render", $forums, $topics, $topic_num, $parents, $tid, $sortby, $forum_per_page, $offset);
Dries's avatar
   
Dries committed
515
516
517
518
519
520
521
522
  }
  else {
    $theme->header();
    $theme->box(t("Access denied"), message_access());
    $theme->footer();
  }
}

Dries's avatar
   
Dries committed
523
524
525
526
527
528
529
530
/**
*** render functions
**/

function forum_render($forums, $topics, $topic_num, $parents, $tid, $sortby, $forum_per_page, $offset) {
  // forum list, topics list, topic browser and "add new topic" link
  global $theme;

Dries's avatar
   
Dries committed
531
  $output .= theme_invoke("forum_forum_list", $forums, $parents, $tid);
Dries's avatar
   
Dries committed
532
  if ($tid && !in_array($tid, variable_get("forum_containers", array()))) {
Dries's avatar
   
Dries committed
533
    $output .= theme_invoke("forum_topic_list", $topics, $topic_num, $sortby, $forum_per_page, $offset);
Dries's avatar
   
Dries committed
534
535
536
537
538
  }

  $theme->header();
  $theme->box(t("Discussion forum"), $output);
  if ($tid && !in_array($tid, variable_get("forum_containers", array()))) {
Dries's avatar
   
Dries committed
539
    $theme->box(t("Control panel"), theme_invoke("forum_topic_browser", $sortby, $forum_per_page, $offset));
Dries's avatar
   
Dries committed
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
  }
  $theme->footer();
}

function forum_forum_list($forums, $parents, $tid) {
  global $user;
  if ($parents) {
    foreach($parents as $p) {
      if ($tid != $p->tid) {
        $t[] = lm($p->name, array("mod" => "forum", "tid" => $p->tid));
      }
      else {
        $t[] = $p->name;
      }
    }
  }
Dries's avatar
   
Dries committed
556
  $t[] = lm(t("Discussion forum"), array("mod" => "forum"));
Dries's avatar
   
Dries committed
557

Dries's avatar
   
Dries committed
558
  $output .= "<table border=\"0\" cellpadding=\"5\" width=\"100%\">\n";
Dries's avatar
   
Dries committed
559
560
561
562
563
564
565
  $output .= " <tr><th colspan=\"3\" align=\"left\">".implode(" : ", array_reverse($t)) ."</th>";
  if ($forums) {
    $output .= "<th>". t("topics") ."</th><th>". t("posts") ."</th><th>". t("last post") ."</th></tr>";


    foreach ($forums as $forum) {
      if ($forum->container) {
Dries's avatar
   
Dries committed
566
        $output .= " <tr><td colspan=\"5\">". lm(check_output($forum->name), array("mod" => "forum", "tid" => $forum->tid))."<br /><small>". ($forum->description ? check_output($forum->description, 1) : "") ."</small></td></tr>";
567
568
      }
      else {
Dries's avatar
   
Dries committed
569
570
571
        if ($user->uid) $new_topics = $forum->num_topics - $forum->old_topics;
        $icon = _forum_get_folder_icon($new_topics);
        $output .= " <tr><td>&nbsp;</td><td>$icon</td>";
Dries's avatar
   
Dries committed
572
        $output .= "<td><table border=\"0\"><tr><td width=\"". ($forum->depth * 20) ."\">&nbsp;</td><td>".lm(check_output($forum->name), array("mod" => "forum", "tid" => $forum->tid))."<div style=\"padding-top: 5px;\">". check_output($forum->description, 1);
Dries's avatar
   
Dries committed
573
574
575

        $links = array();
        if ($forum->last_post) {
Dries's avatar
   
Dries committed
576
          $links[] = l(t("the most recent topic"), array("id" => $forum->last_post->nid));
Dries's avatar
   
Dries committed
577
578
        }
        if ($new_topics) {
Dries's avatar
   
Dries committed
579
          $links[] = lm(t("the first new topic"), array("mod" => "forum", "op" => "first_new", "tid" => $forum->tid));
Dries's avatar
   
Dries committed
580
581
582
        }

        if ($links) {
Dries's avatar
   
Dries committed
583
          $output .= "<br />Jump to: ". implode(", ", $links);
Dries's avatar
   
Dries committed
584
585
        }

Dries's avatar
   
Dries committed
586
        $output .= "</div></td></tr></table></td>";
Dries's avatar
   
Dries committed
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
        $output .= "<td align=\"center\">".$forum->num_topics.($new_topics ? "<br>(".t("%a new", array("%a" => $new_topics)).")" : "")."</td><td align=\"center\">".$forum->num_posts."</td><td align=\"center\">"._forum_format($forum->last_post)."</td></tr>";
      }
    }
  }
  $output .= "</table>\n";

  return $output;
}

function forum_topic_browser() {
  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"));
  return form(form_item(t("Topic viewing options"), $output, t("Select your preferred way to display the topics and click 'Update settings'.")));
}

function forum_topic_list($topics, $num_topics, $sortby, $forum_per_page, $offset) {
  global $theme, $id, $status, $tid, $user;

Dries's avatar
   
Dries committed
628
  $output .= "<div style=\"margin-left: 20px; margin-top: 5px; margin-bottom: 10px;\">" .t("%a topics, %b topics per page, page %c of %d", array("%a" => $num_topics, "%b" => $forum_per_page, "%c" => ceil(($offset + 1)/$forum_per_page), "%d" => ceil($num_topics/$forum_per_page))) ."</div>";
Dries's avatar
   
Dries committed
629
630

  if ($topics) {
Dries's avatar
   
Dries committed
631
    $output .= "<table border=\"0\" cellpadding=\"5\" cellspacing=\"5\" width=\"100%\">\n";
Dries's avatar
   
Dries committed
632
633
634
635
636
637
638
639
640
    $output .= " <tr><th>&nbsp;</th><th>&nbsp;</th><th>". t("topic") ."</th><th>". t("replies") ."</th><th>". t("posted") ."</th><th>". t("last reply") ."</th></tr>";

    foreach ($topics as $topic) {
      // folder is new if topic is new or there are new comments since last visit
      if ($topic->shadow) {
        $output .= "
          <tr>
            <td>"._forum_get_folder_icon($topic->new, $topic->num_comments, $topic->comment_mode)."</td>
            <td>"._forum_get_icon($topic)."</td>
Dries's avatar
   
Dries committed
641
642
            <td valign=\"top\">". check_output($topic->title) ."</td>
            <td align=\"center\" valign=\"top\" colspan=\"3\">".lm(t("This topic has been moved"), array("mod" => "forum", "tid" => $topic->shadow))."</td>
Dries's avatar
   
Dries committed
643
644
645
646
647
648
649
          </tr>";
      }
      else {
        $output .= "
          <tr>
            <td>"._forum_get_folder_icon($topic->new, $topic->num_comments, $topic->comment_mode)."</td>
            <td>"._forum_get_icon($topic)."</td>
Dries's avatar
   
Dries committed
650
651
            <td valign=\"top\">".l(check_output($topic->title), array("id" => $topic->nid))."</td>
            <td align=\"center\" valign=\"top\" nowrap=\"nowrap\">".$topic->num_comments.($topic->new_replies ? " (".t("%a new", array("%a" => $topic->new_replies)).")" : "")."</td>
Dries's avatar
   
Dries committed
652
653
654
655
656
657
658
659
            <td align=\"center\">"._forum_format($topic)."</td>
            <td align=\"center\">"._forum_format($topic->last_reply)."</td>
          </tr>";
      }
    }

    $output .= "</table></blockquote>\n";
  }
Dries's avatar
   
Dries committed
660
  $output .= "<hr />";
Dries's avatar
   
Dries committed
661
662
663
  $output .= "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\"><tr>";

  if ($offset > 0) {
Dries's avatar
   
Dries committed
664
    $output .= "<td width=\"33%\"><div align=\"left\" style=\"font-style: bold;\">". lm(t("previous topics"), array("mod" => "forum", "tid" => $tid, "offset" => ($offset-$forum_per_page))) ."</div></td>";
Dries's avatar
   
Dries committed
665
666
667
668
669
  }
  else {
    $output .= "<td width=\"33%\">&nbsp;</td>";
  }

Dries's avatar
   
Dries committed
670
  if (user_access("post content")) {
Dries's avatar
   
Dries committed
671
    $output .= "<td width=\"33%\"><div align=\"center\" style=\"font-style: bold;\">". lm(t("start new topic"), array("mod" => "node", "op" => "add", "type" => "forum", "tid" => $tid)) ."</div></td>";
Dries's avatar
   
Dries committed
672
  }
Dries's avatar
   
Dries committed
673
674

  if (count($topics) >= $forum_per_page) {
Dries's avatar
   
Dries committed
675
    $output .= "<td width=\"33%\"><div align=\"right\" style=\"font-style: bold;\">". lm(t("next topics"), array("mod" => "forum", "tid" => $tid, "offset" => ($offset+$forum_per_page))) ."</div></td>";
Dries's avatar
   
Dries committed
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
  }
  else {
    $output .= "<td width=\"33%\">&nbsp;</td>";
  }

  $output .= "</tr></table>";

  return $output;
}


function _forum_get_icon($node) {
  if (variable_get("forum_topic_icon_path", "images/topics/") && $node->icon) {
    return "<img src=\"".variable_get("forum_topic_icon_path", "images/forum/topics/"). check_output($node->icon)."\">";
  }
  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
  global $theme;

  $base_path = variable_get("forum_folder_icon_path", "images/forum/folder");
  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";
    }

    if ($theme->bbs_icons) {
      $file = $theme->bbs_icons[$icon];
    }
    else {
      // default
      $file = $base_path."/".$icon.".gif";
    }

    return "<img src=\"$file\">";
  }
  else {
    return "&nbsp;";
  }
}

function _forum_user_last_visit($nid) {
  global $user;
  static $history;
  if (!$history) {
    $result = db_query("SELECT nid, timestamp FROM history WHERE uid = '%d'", $user->uid);
    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
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
function forum_help() {
  ?>
  <h4>Containers</h4>
  By designating a forum as a Container, users are not allowed to post into that forum. The forum will be visible on the forum listing page, so it acts as a section delimiter if you will. This is useful if you have a lots of forums which are nested. For example,
<br /><br />
Marketing<br />
-- Market research<br />
-- Brand management<br />
<br />
Sales<br />
-- Closing the deal<br />
-- Avoiding ear and throat pain<br />
<br />
If you don't want people posting into the Marketing or Sales folders, you designate them as Containers.<br />
<br />
<h4>Icons</h4>
To disable icons, set the icon paths as blank in Admin -> Site Configuration -> Forum<br />
<br />
All files in the icon directory are assumed to be images. Usually it is best to use GIF or JPG files as icons.
You may use images of whatever size you wish, but it is customary to use 15x15 or 16x16.


  <?php
}

782
?>