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

function forum_node($field) {
Dries's avatar
 
Dries committed
5
  $info["name"] = t("forum topic");
Dries's avatar
 
Dries 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's avatar
 
Dries committed
15
  if ($op == "create") {
Dries's avatar
 
Dries committed
16
    return user_access("create forum topics");
Dries's avatar
 
Dries committed
17
  }
Dries's avatar
 
Dries committed
18 19
}

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

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

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

Dries's avatar
 
Dries 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's avatar
 
Dries 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's avatar
 
Dries 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's avatar
 
Dries 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's avatar
 
Dries 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's avatar
 
Dries 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's avatar
 
Dries committed
44 45
    }
  }
Dries's avatar
 
Dries committed
46

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

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

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

Dries's avatar
 
Dries committed
75
      if ($content) {
Dries's avatar
 
Dries committed
76
        $content .= "<div class=\"more-link\">". l(t("more"), "forum", array("title" => t("Read the latest forum topics."))) ."</div>";
Dries's avatar
 
Dries committed
77
      }
Dries's avatar
 
Dries committed
78

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

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

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

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

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

Dries's avatar
 
Dries committed
96 97 98 99 100 101 102
  if ($type == "system") {
    if (user_access("create forum topics")) {
      menu("node/add/forum", t("forum topic"), "node_page");
    }
    if (user_access("access content")) {
      menu("forum", t("forums"), "forum_page", 0, 1);
    }
Dries's avatar
 
Dries committed
103 104
  }

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

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

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

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

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

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

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

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

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

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

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

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

  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
198

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

  return $output;
}

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

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

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

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

Dries's avatar
 
Dries committed
221
function _forum_last_comment($nid) {
Dries's avatar
 
Dries committed
222
  $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
223 224 225
  return ($value) ? format_date($value->timestamp, "small") : "&nbsp;";
}

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

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

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

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

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

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

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

  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
289

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

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

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

function _forum_topics_read($uid) {
Dries's avatar
 
Dries committed
304
  $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
305 306 307 308 309 310 311 312 313

  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
314
  $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's avatar
 
Dries committed
315

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

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

  return $value;
}

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

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

  $sql_sortby = _forum_get_topic_order($sortby);
Dries's avatar
 
Dries committed
335
  for ($i = 0; $i < count($forum_topic_list_header); $i++) {
Dries's avatar
 
Dries committed
336 337 338 339 340 341 342
    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's avatar
Dries committed
343
  $check_tid = $tid ? "'". check_query($tid). "'" : "NULL";
Dries's avatar
 
Dries committed
344

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

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

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

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

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

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

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

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

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

  return $nid ? $nid : 0;
}

Dries's avatar
 
Dries committed
407
function _forum_message_taxonomy() {
Dries's avatar
 
Dries committed
408
  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's avatar
 
Dries committed
409 410
}

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

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

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

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

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

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

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

Dries's avatar
 
Dries committed
436 437
      $forums = forum_get_forums($tid);
      $parents = forum_get_parents($tid);
Dries's avatar
 
Dries committed
438 439 440
      if ($tid && !in_array($tid, variable_get("forum_containers", array()))) {
        $topics = forum_get_topics($tid, $sortby, $forum_per_page);
      }
Dries's avatar
 
Dries committed
441

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

Dries's avatar
 
Dries committed
459 460
/**
  @addtogroup theme_system
Dries's avatar
 
Dries committed
461

Dries's avatar
 
Dries committed
462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479
  Forum module specific theme functions.
  @{
**/

/**
 Controls the output of the forum body.

 @param forums
 @param topics
 @param parents
 @param tid
 @param sortby
 @param forum_per_page
 @param offset

 @return string the output for the forum body.
**/
function theme_forum_display($forums, $topics, $parents, $tid, $sortby, $forum_per_page, $offset) {
Dries's avatar
 
Dries committed
480
  // forum list, topics list, topic browser and "add new topic" link
Dries's avatar
 
Dries committed
481

Dries's avatar
 
Dries committed
482
  $title = t("Forums");
Dries's avatar
 
Dries committed
483

Dries's avatar
 
Dries committed
484 485 486
  /*
  ** Breadcrumb navigation:
  */
Dries's avatar
 
Dries committed
487
  $breadcrumb[] = l(t("Home"), "");
Dries's avatar
 
Dries committed
488
  $breadcrumb[] = l($title, "forum");
Dries's avatar
 
Dries committed
489 490

  if ($parents) {
Dries's avatar
 
Dries committed
491 492
    $parents = array_reverse($parents);
    foreach ($parents as $p) {
493 494
      if ($p->tid == $tid) {
        $title = $p->name;
Dries's avatar
 
Dries committed
495 496
      }
      else {
Dries's avatar
 
Dries committed
497
        $breadcrumb[] = l($p->name, "forum/$p->tid");
Dries's avatar
 
Dries committed
498 499 500 501
      }
    }
  }

Dries's avatar
 
Dries committed
502 503
  if (count($forums) || count($parents)) {
    $output  = "<div id=\"forum\">";
Dries's avatar
 
Dries committed
504
    $output .= theme("forum_list", $forums, $parents, $tid);
Dries's avatar
 
Dries committed
505

Dries's avatar
 
Dries committed
506
    if ($tid && !in_array($tid, variable_get("forum_containers", array()))) {
Dries's avatar
 
Dries committed
507
      $output .= theme("forum_topic_list", $tid, $topics, $sortby, $forum_per_page, $offset);
Dries's avatar
 
Dries committed
508 509 510 511 512 513
    }
    $output .= "</div>";
  }
  else {
    $title = t("No forums defined");
    $output = '';
Dries's avatar
 
Dries committed
514 515
  }

Dries's avatar
 
Dries committed
516 517 518 519
  drupal_set_title($title);
  drupal_set_breadcrumb($breadcrumb);
  print theme("header");
  print $output;
Dries's avatar
 
Dries committed
520
  print theme("footer");
Dries's avatar
 
Dries committed
521 522
}

Dries's avatar
 
Dries committed
523 524 525 526 527 528 529 530 531 532
/**
 Outputs the forum listing.

 @param forums
 @param parents
 @param tid

 @return string the output for the forum listing.
**/
function theme_forum_list($forums, $parents, $tid) {
Dries's avatar
 
Dries committed
533 534
  global $user;

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

Dries's avatar
 
Dries committed
537
    $header = array(t("Forum"), t("Topics"), t("Posts"), t("Last post"));
Dries's avatar
 
Dries committed
538 539

    foreach ($forums as $forum) {
Dries's avatar
 
Dries committed
540 541 542 543
      if ($forum->container) {
        $forum->num_topics = "";
        $forum->num_posts = "";
        $forum->last_post = "";
544
      }
Dries's avatar
 
Dries committed
545 546 547 548
      else {
        if ($user->uid) {
          $new_topics = $forum->num_topics - $forum->old_topics;
        }
Dries's avatar
 
Dries committed
549

Dries's avatar
 
Dries committed
550
        $links = array();
Dries's avatar
 
Dries committed
551

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

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

      $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's avatar
 
Dries committed
570
      $description .= "</div>\n";
Dries's avatar
 
Dries committed
571 572 573 574 575

      $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's avatar
 
Dries committed
576 577
        array("data" => ($forum->container ? "" : _forum_format($forum->last_post)), "class" => "last-reply")

Dries's avatar
 
Dries committed
578 579
       );

Dries's avatar
 
Dries committed
580 581 582
    }
  }

Dries's avatar
 
Dries committed
583
  return theme("table", $header, $rows);
Dries's avatar
 
Dries committed
584 585
}

Dries's avatar
 
Dries committed
586 587 588 589 590 591 592 593
/**
 Outputs the topic listing.

 @param tid
 @param topics
 @param sortby
 @param forum_per_page
 @param offset
Dries's avatar
 
Dries committed
594

Dries's avatar
 
Dries committed
595 596 597
 @return string the output for the topic list.
**/
function theme_forum_topic_list($tid, $topics, $sortby, $forum_per_page, $offset) {
Dries's avatar
 
Dries committed
598
  global $id, $status, $user, $pager_total, $forum_topic_list_header;
Dries's avatar
 
Dries committed
599 600

  if ($topics) {
Dries's avatar
 
Dries committed
601

Dries's avatar
 
Dries committed
602 603
    foreach ($topics as $topic) {
      // folder is new if topic is new or there are new comments since last visit
Dries's avatar
Dries committed
604
      if ($topic->tid != $tid) {
Dries's avatar
 
Dries committed
605
        $rows[] = array(
Dries's avatar
 
Dries committed
606
          array("data" => _forum_icon($topic->new, $topic->num_comments, $topic->comment_mode), "class" => "icon"),
Dries's avatar
 
Dries committed
607
          array("data" => $topic->title, "class" => "title"),
Dries's avatar
 
Dries committed
608
          array("data" => l(t("This topic has been moved"), "forum/$topic->tid"), "colspan" => "3")
Dries's avatar
 
Dries committed
609
        );
Dries's avatar
 
Dries committed
610 611
      }
      else {
Dries's avatar
 
Dries committed
612
        $rows[] = array(
Dries's avatar
 
Dries committed
613
          array("data" => _forum_icon($topic->new, $topic->num_comments, $topic->comment_mode), "class" => "icon"),
Dries's avatar
 
Dries committed
614 615
          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's avatar
 
Dries committed
616 617
          array("data" => _forum_format($topic), "class" => "created"),
          array("data" => _forum_format($topic->last_reply), "class" => "last-reply")
Dries's avatar
 
Dries committed
618
        );
Dries's avatar
 
Dries committed
619 620 621
      }
    }

Dries's avatar
 
Dries committed
622
    if ($pager = pager_display(NULL, $forum_per_page, 0, "default", tablesort_pager())) {
Dries's avatar
 
Dries committed
623
      $rows[] = array(array("data" => $pager, "colspan" => "5", "class" => "pager"));
Dries's avatar
 
Dries committed
624 625
    }
  }
Dries's avatar
 
Dries committed
626 627


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

Dries's avatar
 
Dries committed
632
  $output .= theme("table", $forum_topic_list_header, $rows);
Dries's avatar
 
Dries committed
633

Dries's avatar
 
Dries committed
634 635 636
  return $output;
}

Dries's avatar
 
Dries committed
637 638
/**  @} End of addtogroup theme_system **/

Dries's avatar
 
Dries committed
639
function _forum_icon($new_posts, $num_posts = 0, $comment_mode = 0) {
Dries's avatar
 
Dries committed
640

Dries's avatar
 
Dries committed
641
  $base_path = variable_get("forum_icon_path", "");
Dries's avatar
 
Dries committed
642 643
  if ($base_path) {
    if ($num_posts > variable_get("forum_hot_topic", 15)) {
Dries's avatar
 
Dries committed
644
      $icon = $new_posts ? "hot-new" : "hot";
Dries's avatar
 
Dries committed
645 646 647 648 649 650 651 652 653
    }
    else {
      $icon = $new_posts ? "new" : "default";
    }

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

Dries's avatar
 
Dries committed
654
    // default
Dries's avatar
 
Dries committed
655
    $file = $base_path ."/forum-$icon.gif";
Dries's avatar
 
Dries committed
656

Dries's avatar
 
Dries committed
657
    return "<img src=\"$file\" alt=\"\" title=\"\" />";
Dries's avatar
 
Dries committed
658 659 660 661 662 663 664 665 666 667
  }
  else {
    return "&nbsp;";
  }
}

function _forum_user_last_visit($nid) {
  global $user;
  static $history;
  if (!$history) {
Dries's avatar
 
Dries committed
668
    $result = db_query("SELECT nid, timestamp FROM {history} WHERE uid = %d", $user->uid);
Dries's avatar
 
Dries committed
669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692
    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
693
function forum_help($section = "admin/help#forum") {
Dries's avatar
 
Dries committed
694 695 696
  $output = "";

  switch ($section) {
Dries's avatar
 
Dries committed
697
    case 'admin/help#forum':
Dries's avatar
 
Dries committed
698
      $output .= "<h3>Creating a forum</h3>";
Dries's avatar
 
Dries committed
699
      $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's avatar
 
Dries committed
700
      $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's avatar
 
Dries committed
701
      $output .= "<h4>Icons</h4>";
Dries's avatar
 
Dries committed
702
      $output .= "<p>To disable icons, set the icon path as blank in %forums.</p>";
Dries's avatar
 
Dries committed
703
      $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's avatar
 
Dries committed
704
      $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's avatar
 
Dries committed
705
      break;
Dries's avatar
 
Dries committed
706
    case 'admin/system/modules#description':
Dries's avatar
 
Dries committed
707
      $output = t("Enable threaded discussions about general topics.");
Dries's avatar
 
Dries committed
708 709
      break;
    case 'admin/system/modules/forum':
Dries's avatar
 
Dries committed
710
      $output = _forum_message_taxonomy();
Dries's avatar
 
Dries committed
711 712
      break;
  }
Dries's avatar
 
Dries committed
713

Dries's avatar
 
Dries committed
714
  return $output;
Dries's avatar
 
Dries committed
715 716 717
}

?>