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

Dries Buytaert's avatar
   
Dries Buytaert committed
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
function forum_help($section = "admin/help#forum") {
  $output = "";

  switch ($section) {
    case 'admin/help#forum':
      $output = t("
      <h3>Creating a forum</h3>
      <p>The forum module uses taxonomy to organize itself. To create a forum you first have to create a <a href=\"%taxonomy\">taxonomy vocabulary</a>. 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, <a href=\"%taxo-terms\">add some terms</a> 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>
      <p>When you are happy with your vocabulary, go to <a href=\"%forums\">administer &raquo; configutation &raquo; modules &raquo; forum</a> and set <strong>Forum vocabulary</strong> 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\" <a href=\"%permission\">permission</a> and to create a topic they must have the \"create forum topics\" <a href=\"%permission\">permission</a>. These permissions can be set in the <a href=\"%permission\">permission</a> pages.</p>
      <h4>Icons</h4>
      <p>To disable icons, set the icon path as blank in <a href=\"%forums\">administer &raquo; configutation &raquo; modules &raquo; forum</a>.</p>
      <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>", array("%taxonomy" => url("admin/taxonomy/add/vocabulary"), "%taxo-terms" => url("admin/taxonomy"), "%forums" => url("admin/system/modules/forum"), "%permission" => url("admin/user/permission")));
      break;
    case 'admin/system/modules#description':
      $output = t("Enable threaded discussions about general topics.");
      break;
    case 'admin/system/modules/forum':
      $output = 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 <a href=\"%created\">created</a> and bound to the node type \"forum topic\".", array('%created' => url('admin/taxonomy/add/vocabulary')));
      break;
    case 'node/add/forum':
      $output = variable_get('forum_help', '');
      break;
Dries Buytaert's avatar
   
Dries Buytaert committed
26
27
28
    case 'node/add#forum':
      $output = t("A forum is a threaded discussion, enabling users to communicate about a particular topic.");
      break;
Dries Buytaert's avatar
   
Dries Buytaert committed
29
30
31
32
33
  }

  return $output;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
34
35
function forum_node_name($node) {
  return t("forum topic");
Dries Buytaert's avatar
   
Dries Buytaert committed
36
37
38
39
40
41
}

function forum_access($op, $node) {
  if ($op == "view") {
    return $node->status;
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
42
  if ($op == "create") {
Dries Buytaert's avatar
   
Dries Buytaert committed
43
    return user_access("create forum topics");
Dries Buytaert's avatar
   
Dries Buytaert committed
44
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
45
46
}

Dries Buytaert's avatar
   
Dries Buytaert committed
47
function forum_perm() {
Dries Buytaert's avatar
   
Dries Buytaert committed
48
  return array("create forum topics");
Dries Buytaert's avatar
   
Dries Buytaert committed
49
}
Dries Buytaert's avatar
   
Dries Buytaert committed
50

51
function forum_settings() {
Dries Buytaert's avatar
   
Dries Buytaert committed
52

Dries Buytaert's avatar
   
Dries Buytaert committed
53
  if (module_exist("taxonomy")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
54
    $vocs[0] = "<". t("none") .">";
Dries Buytaert's avatar
   
Dries Buytaert committed
55
56
57
58
    foreach (taxonomy_get_vocabularies("forum") as $vid => $voc) {
      $vocs[$vid] = $voc->name;
    }

Dries Buytaert's avatar
   
Dries Buytaert committed
59
    if ($voc) {
60
61
62
      $group  = 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.  The vacabulary's terms define the forums."));
      $group .= _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.  This lets you both group and nest forums."), 1, t("<none>"));

Dries Buytaert's avatar
   
Dries Buytaert committed
63
      $output = form_group(t('Forum structure settings'), $group);
64
65
66

      $group  = 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."));
      $group .= form_textfield(t("Forum icon path"), "forum_icon_path", variable_get("forum_icon_path", ""), 30, 255, t("The path to the forum icons.  Leave blank to disable icons.  Don't add a trailing slash.  Default icons are available in the 'misc' directory."));
Dries Buytaert's avatar
   
Dries Buytaert committed
67
      $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);
68
      $group .= 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 <strong>hot</strong>."));
Dries Buytaert's avatar
   
Dries Buytaert committed
69
      $number = array(10 => 10, 25 => 25, 50 => 50, 75 => 75, 100 => 100);
70
      $group .= 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."));
71
      $forder = array(1 => t("Date - newest first"), 2 => t("Date - oldest first"), 3 => t("Posts - most active first"), 4=> t("Posts - least active first"));
Dries Buytaert's avatar
Dries Buytaert committed
72
      $group .= form_radios(t("Default order"), "forum_order", variable_get("forum_order", "1"), $forder, t("The default display order for topics."));
Dries Buytaert's avatar
   
Dries Buytaert committed
73
      $output .= form_group(t('Forum viewing options'), $group);
74

Dries Buytaert's avatar
   
Dries Buytaert committed
75
      $group = form_textfield(t("Number of topics in block"), "forum_block_num", variable_get("forum_block_num", "5"), 5, 5, t("The number of topics to show in the \"Forum topics\" block.  To enable the block, go to the <a href=\"%block-administration\">block administration</a> page.", array("%block-administration" => url("admin/system/block"))));
Dries Buytaert's avatar
   
Dries Buytaert committed
76
      $output .= form_group(t('"Forum topic" block settings'), $group);
Dries Buytaert's avatar
   
Dries Buytaert committed
77
78
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
79

Dries Buytaert's avatar
   
Dries Buytaert committed
80
81
82
  return $output;
}

Dries Buytaert's avatar
Dries Buytaert committed
83
84
function forum_taxonomy($op, $type, $object) {
  if ($type == "vocabulary" && ($op == "insert" || $op == "update")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
85
    if (variable_get("forum_nav_vocabulary", "") == "" && in_array("forum", $object["nodes"])) {
Dries Buytaert's avatar
Dries Buytaert committed
86
87
88
89
90
91
      // since none is already set, silently set this vocabulary as the navigation vocabulary
      variable_set("forum_nav_vocabulary", $object["vid"]);
    }
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
92
function forum_load($node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
93
  $forum = db_fetch_object(db_query("SELECT * FROM {forum} WHERE nid = %d", $node->nid));
Dries Buytaert's avatar
   
Dries Buytaert committed
94
95
96
97

  return $forum;
}

98
99
100
101
102
103
function forum_block($op = "list", $delta = 0) {
  if ($op == "list") {
    $blocks[0]["info"] = t("Forum topics");
  }
  else {
    if (user_access("access content")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
104
      $content = node_title_list(db_query_range("SELECT n.nid, n.title, GREATEST(n.created, MAX(c.timestamp)) AS sort FROM {node} n LEFT JOIN {comments} c ON n.nid = c.nid WHERE n.type = 'forum' AND n.status = 1 GROUP BY n.nid, n.title, n.created ORDER BY sort DESC", 0, variable_get("forum_block_num", "5")), t("Active forum topics:"));
Dries Buytaert's avatar
   
Dries Buytaert committed
105

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

Dries Buytaert's avatar
   
Dries Buytaert committed
108
      if ($content) {
Dries Buytaert's avatar
   
Dries Buytaert committed
109
        $content .= "<div class=\"more-link\">". l(t("more"), "forum", array("title" => t("Read the latest forum topics."))) ."</div>";
Dries Buytaert's avatar
   
Dries Buytaert committed
110
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
111

112
      $blocks["subject"] = t("Forum topics");
Dries Buytaert's avatar
   
Dries Buytaert committed
113
      $blocks["content"] = $content;
Dries Buytaert's avatar
   
Dries Buytaert committed
114
115
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
116

Dries Buytaert's avatar
   
Dries Buytaert committed
117
118
119
  return $blocks;
}

120
function forum_link($type, $node = 0, $main = 0) {
Dries Buytaert's avatar
Dries Buytaert committed
121
  global $user;
Dries Buytaert's avatar
   
Dries Buytaert committed
122

Dries Buytaert's avatar
   
Dries Buytaert committed
123
124
  $links = array();

Dries Buytaert's avatar
   
Dries Buytaert committed
125
  if ($type == "page" && user_access("access content")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
126
    $links[] = l(t("forums"), "forum");
Dries Buytaert's avatar
   
Dries Buytaert committed
127
128
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
129
130
131
132
133
  if ($type == "system") {
    if (user_access("create forum topics")) {
      menu("node/add/forum", t("forum topic"), "node_page");
    }
    if (user_access("access content")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
134
      menu("forum", t("forums"), "forum_page", 0, MENU_HIDE);
Dries Buytaert's avatar
   
Dries Buytaert committed
135
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
136
137
  }

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

Dries Buytaert's avatar
Dries Buytaert committed
141
    $result = db_query("SELECT n.nid, n.title, GREATEST(n.created, MAX(c.timestamp)) AS date_sort, COUNT(c.nid) AS num_comments FROM {node} n INNER JOIN {forum} f ON n.nid = f.nid INNER JOIN {comments} c ON n.nid = c.nid WHERE n.nid = f.nid AND f.tid = %d AND n.status = 1 GROUP BY n.nid, n.title, n.created ORDER BY ". _forum_get_topic_order(isset($user->sortby) ? $user->sortby : variable_get("forum_order", 1)), $node->tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158

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

    if ($prev) {
Dries Buytaert's avatar
Dries Buytaert committed
159
      $links[] = l(t("previous forum topic"), "node/view/$prev->nid", array("title" => $prev->title));
Dries Buytaert's avatar
   
Dries Buytaert committed
160
161
162
    }

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

Dries Buytaert's avatar
   
Dries Buytaert committed
167
  return $links;
Dries Buytaert's avatar
   
Dries Buytaert committed
168
169
}

Dries Buytaert's avatar
   
Dries Buytaert committed
170
171
function forum_content($node, $main = 0) {
  return node_prepare($node, $main);
Dries Buytaert's avatar
   
Dries Buytaert committed
172
173
}

Dries Buytaert's avatar
   
Dries Buytaert committed
174
function forum_view($node, $main = 0, $page = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
175

Dries Buytaert's avatar
   
Dries Buytaert committed
176
  if ($page) {
Dries Buytaert's avatar
   
Dries Buytaert committed
177
    $vocabulary = taxonomy_get_vocabulary(variable_get('forum_nav_vocabulary', ''));
Dries Buytaert's avatar
   
Dries Buytaert committed
178
    // Breadcrumb navigation
Dries Buytaert's avatar
   
Dries Buytaert committed
179
180
    $breadcrumb = array(l(t("Home"), NULL), l($vocabulary->name, "forum"));
    if ($parents = taxonomy_get_parents_all($node->tid)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
181
182
183
184
185
      $parents = array_reverse($parents);
      foreach ($parents as $p) {
        $breadcrumb[] = l($p->name, "forum/$p->tid");
      }
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
186
    drupal_set_breadcrumb($breadcrumb);
187
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
188

Dries Buytaert's avatar
   
Dries Buytaert committed
189
  return theme("node", forum_content($node, $main), $main, $page);
Dries Buytaert's avatar
   
Dries Buytaert committed
190
191
}

192
193
194
195
function forum_validate(&$node) {
  // Make sure all fields are set properly:
  $node->icon = $node->icon ? $node->icon : "";
  $node->shadow = $node->shadow ? $node->shadow : 0;
Dries Buytaert's avatar
   
Dries Buytaert committed
196
197
198
199
200
201
202
203

  if ($node->taxonomy) {
    // Extract the node's proper topic ID.
    $vocabulary = variable_get("forum_nav_vocabulary", "");
    foreach ($node->taxonomy as $term) {
      if (db_result(db_query("SELECT COUNT(*) FROM {term_data} WHERE tid = %d AND vid = %d", $term, $vocabulary))) {
        $node->tid = $term;
      }
204
    }
Dries Buytaert's avatar
Dries Buytaert committed
205
206
207
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
208
function forum_form(&$node, &$error) {
Dries Buytaert's avatar
   
Dries Buytaert committed
209
  if (!$node->taxonomy) {
Dries Buytaert's avatar
Dries Buytaert committed
210
    // new topic
Dries Buytaert's avatar
   
Dries Buytaert committed
211
    $node->taxonomy[] = arg(3);
212
213
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
214
  $output = implode("", taxonomy_node_form("forum", $node));
Dries Buytaert's avatar
Dries Buytaert committed
215
216
217
218
219

  if ($node->nid) {
    // if editing, give option to leave shadows
    $output .= form_checkbox(t("Leave shadow copy"), "shadow", 1, $node->shadow, t("If you move this topic, you can leave a link in the old forum to the new forum."));
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
220

Dries Buytaert's avatar
   
Dries Buytaert committed
221
  $output .= form_textarea(t("Body"), "body", $node->body, 60, 10, filter_tips_short());
Dries Buytaert's avatar
   
Dries Buytaert committed
222
223
224
225

  return $output;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
226
function forum_insert($node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
227
  db_query("INSERT INTO {forum} (nid, shadow, tid) VALUES (%d, %d, %d)", $node->nid, $node->shadow, $node->tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
228
229
230
}

function forum_update($node) {
Dries Buytaert's avatar
   
Dries Buytaert committed
231
  db_query("UPDATE {forum} SET shadow = %d, tid = %d WHERE nid = %d", $node->shadow, $node->tid, $node->nid);
Dries Buytaert's avatar
   
Dries Buytaert committed
232
233
234
}

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

Dries Buytaert's avatar
   
Dries Buytaert committed
238
function _forum_num_comments($nid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
239
  $value = db_fetch_object(db_query("SELECT COUNT(cid) AS count FROM {comments} WHERE nid = %d AND status = 0", $nid));
Dries Buytaert's avatar
   
Dries Buytaert committed
240
241
242
  return ($value) ? $value->count : 0;
}

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

Dries Buytaert's avatar
   
Dries Buytaert committed
248
function _forum_last_reply($nid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
249
  $value = db_fetch_object(db_query_range("SELECT c.timestamp, u.name, u.uid FROM {comments} c INNER JOIN {users} u ON c.uid = u.uid WHERE c.nid = %d AND c.status = 0 ORDER BY c.timestamp DESC", $nid, 0, 1));
Dries Buytaert's avatar
   
Dries Buytaert committed
250
251
252
253
254
  return $value;
}

function _forum_format($topic) {
  if ($topic) {
Dries Buytaert's avatar
   
Dries Buytaert committed
255
    return t("%time ago<br />by %author", array("%time" => format_interval(time() - $topic->timestamp), "%author" => format_name($topic)));
Dries Buytaert's avatar
   
Dries Buytaert committed
256
257
258
259
260
261
262
263
264
265
266
267
268
  }
  else {
    return message_na();
  }
}

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

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

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

Dries Buytaert's avatar
   
Dries Buytaert committed
271
  if (empty($cache)) {
272
    $forums = array();
Dries Buytaert's avatar
   
Dries Buytaert committed
273
    $_forums = taxonomy_get_tree(variable_get('forum_nav_vocabulary', ''), $tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
274
275
    $n = 0;
    foreach ($_forums as $forum) {
Dries Buytaert's avatar
   
Dries Buytaert committed
276
277
278
      if (in_array($forum->tid, variable_get("forum_containers", array()))) {
        $forum->container = 1;
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
279
280
281
      $forum->num_topics = _forum_num_topics($forum->tid);
      $forum->num_posts = _forum_num_replies($forum->tid) + $forum->num_topics;
      $forum->last_post = _forum_last_post($forum->tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
282
283
284
285
      $forums[$forum->tid] = $forum;
      $n++;
    }

Dries Buytaert's avatar
   
Dries Buytaert committed
286
    cache_set("forum:$tid", serialize($forums), 1);
Dries Buytaert's avatar
   
Dries Buytaert committed
287
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
288
289
290
  else {
    $forums = unserialize($cache->data);
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
291

Dries Buytaert's avatar
   
Dries Buytaert committed
292
293
294
295
  return $forums;
}

function _forum_num_topics($term) {
296
  return db_result(db_query("SELECT COUNT(*) FROM {forum} f INNER JOIN {node} n ON n.nid = f.nid WHERE f.tid = %d AND n.status = 1 AND f.shadow = 0", $term));
Dries Buytaert's avatar
   
Dries Buytaert committed
297
298
299
}

function _forum_num_replies($term) {
300
  return db_result(db_query("SELECT COUNT(*) AS count FROM {comments} c INNER JOIN {node} n ON n.nid = c.nid INNER JOIN {forum} f ON n.nid = f.nid WHERE f.tid = %d AND n.nid = f.nid AND n.nid = c.nid AND n.status = 1 AND c.status = 0 AND n.type = 'forum'", $term));
Dries Buytaert's avatar
   
Dries Buytaert committed
301
302
}

303
304
305
306
307
308
function _forum_topics_read($term, $uid) {
  // Calculate the number of topics the user has read. Assume all entries older
  // than NODE_NEW_LIMIT are read, and include the recent posts that user has
  // read.
  $ancient = db_result(db_query("SELECT COUNT(*) FROM {forum} f INNER JOIN {node} n ON f.nid = n.nid WHERE f.tid = %d AND n.status = 1 AND n.created <= %d AND f.shadow = 0", $term, NODE_NEW_LIMIT));
  $recent = db_result(db_query("SELECT COUNT(*) FROM {forum} f INNER JOIN {node} n ON f.nid = n.nid INNER JOIN {history} h ON n.nid = h.nid WHERE n.status = 1 AND f.tid = %d AND h.uid = %d AND n.created > %d AND f.shadow = 0", $term, $uid, NODE_NEW_LIMIT));
Dries Buytaert's avatar
   
Dries Buytaert committed
309

310
  return $ancient + $recent;
Dries Buytaert's avatar
   
Dries Buytaert committed
311
312
313
}

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

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

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

  return $value;
}

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

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

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

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

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

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

  $n = 0;
  while ($topic = db_fetch_object($result)) {
Dries Buytaert's avatar
Dries Buytaert 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 Buytaert's avatar
   
Dries Buytaert committed
363
364
      }
      else {
365
366
        $topic->new_replies = db_result(db_query("SELECT COUNT(c.nid) FROM {node} n INNER JOIN {comments} c ON n.nid = c.nid WHERE n.nid = %d AND n.status = 1 AND c.status = 0 AND c.timestamp > %d", $topic->nid, $history));
        $topic->new = $topic->new_replies || ($topic->timestamp > $history);
Dries Buytaert's avatar
   
Dries Buytaert committed
367
      }
368
369
    }
    else {
Dries Buytaert's avatar
Dries Buytaert committed
370
371
372
      // you're not logged in eh?
      $topic->new_replies = 0;
      $topic->new = 0;
373
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
374
375
376
377
378

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

Dries Buytaert's avatar
Dries Buytaert committed
379
  return $topics;
Dries Buytaert's avatar
   
Dries Buytaert committed
380
381
}

Dries Buytaert's avatar
Dries Buytaert committed
382
function _forum_new($tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
383
  global $user;
Dries Buytaert's avatar
   
Dries Buytaert committed
384
  $result = db_query("SELECT n.nid FROM {node} n, {history} h, {forum} f WHERE n.type = 'forum' AND n.status = 1 AND h.nid = n.nid AND f.nid = h.nid AND f.tid = %d AND h.uid = %d", $tid, $user->uid);
Dries Buytaert's avatar
   
Dries Buytaert committed
385
386
387
388
  while ($r = db_fetch_object($result)) {
    $read[] = $r->nid;
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
389
  $nid = db_result(db_query_range("SELECT n.nid FROM {node} n INNER JOIN {forum} f ON n.nid = f.nid WHERE n.type = 'forum' AND f.nid = n.nid AND n.status = 1 AND f.tid = %d ". ($read ? "AND NOT (n.nid IN (". implode(",", $read) .")) " : "") ."ORDER BY created", $tid, 0, 1));
Dries Buytaert's avatar
   
Dries Buytaert committed
390
391
392
393

  return $nid ? $nid : 0;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
394
function forum_page() {
Dries Buytaert's avatar
   
Dries Buytaert committed
395
  global $sortby, $forum_per_page, $from, $user;
Dries Buytaert's avatar
   
Dries Buytaert committed
396

Dries Buytaert's avatar
   
Dries Buytaert committed
397
  $op = $_POST["op"];
Dries Buytaert's avatar
   
Dries Buytaert committed
398

Dries Buytaert's avatar
   
Dries Buytaert committed
399
  if (user_access("access content")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
400
    if (module_exist("taxonomy")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
401
      $tid = arg(1);
Dries Buytaert's avatar
   
Dries Buytaert committed
402

Dries Buytaert's avatar
Dries Buytaert committed
403
404
405
406
407
      if (arg(2) == "new") {
        if ($nid = _forum_new($tid)) {
          drupal_goto(url("node/view/$nid"));
        }
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
408

Dries Buytaert's avatar
   
Dries Buytaert committed
409
      if (empty($sortby)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
410
        $sortby = isset($user->sortby) ? $user->sortby : variable_get("forum_order", 1);
Dries Buytaert's avatar
   
Dries Buytaert committed
411
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
412

Dries Buytaert's avatar
   
Dries Buytaert committed
413
414
415
      if (empty($forum_per_page)) {
        $forum_per_page = isset($user->forum_per_page) ? $user->forum_per_page : variable_get("forum_per_page", 25);
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
416

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

Dries Buytaert's avatar
   
Dries Buytaert committed
419
      $forums = forum_get_forums($tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
420
      $parents = taxonomy_get_parents_all($tid);
Dries Buytaert's avatar
   
Dries Buytaert committed
421
422
423
      if ($tid && !in_array($tid, variable_get("forum_containers", array()))) {
        $topics = forum_get_topics($tid, $sortby, $forum_per_page);
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
424

Dries Buytaert's avatar
   
Dries Buytaert committed
425
      print theme("forum_display", $forums, $topics, $parents, $tid, $sortby, $forum_per_page, $offset);
Dries Buytaert's avatar
   
Dries Buytaert committed
426
427
    }
    else {
Dries Buytaert's avatar
   
Dries Buytaert committed
428
      print theme("page", forum_help("admin/system/modules/forum"), t("Warning"));
Dries Buytaert's avatar
   
Dries Buytaert committed
429
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
430
431
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
432
    print theme("page", message_access());
Dries Buytaert's avatar
   
Dries Buytaert committed
433
434
435
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
436
/**
Dries Buytaert's avatar
   
Dries Buytaert committed
437
438
439
 * @addtogroup themeable
 * @{
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
440
441

/**
Dries Buytaert's avatar
   
Dries Buytaert committed
442
443
444
445
446
447
448
449
450
451
452
453
 * Format the forum body.
 *
 * @param forums
 * @param topics
 * @param parents
 * @param tid
 * @param sortby
 * @param forum_per_page
 * @param offset
 *
 * @return the output for the forum body.
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
454
function theme_forum_display($forums, $topics, $parents, $tid, $sortby, $forum_per_page, $offset) {
Dries Buytaert's avatar
   
Dries Buytaert committed
455
  // forum list, topics list, topic browser and "add new topic" link
Dries Buytaert's avatar
   
Dries Buytaert committed
456

Dries Buytaert's avatar
   
Dries Buytaert committed
457
458
  $vocabulary = taxonomy_get_vocabulary(variable_get('forum_nav_vocabulary', ''));
  $title = $vocabulary->name;
Dries Buytaert's avatar
   
Dries Buytaert committed
459

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

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

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

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

Dries Buytaert's avatar
   
Dries Buytaert committed
494
  print theme("page", $output, $title, $breadcrumb);
Dries Buytaert's avatar
   
Dries Buytaert committed
495
496
}

Dries Buytaert's avatar
   
Dries Buytaert committed
497
/**
Dries Buytaert's avatar
   
Dries Buytaert committed
498
499
500
501
502
503
504
505
 * Format the forum listing.
 *
 * @param forums
 * @param parents
 * @param tid
 *
 * @return output for the forum listing.
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
506
function theme_forum_list($forums, $parents, $tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
507
508
  global $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
509
510
  if ($forums) {

Dries Buytaert's avatar
   
Dries Buytaert committed
511
    $header = array(t("Forum"), t("Topics"), t("Posts"), t("Last post"));
Dries Buytaert's avatar
   
Dries Buytaert committed
512
513

    foreach ($forums as $forum) {
Dries Buytaert's avatar
   
Dries Buytaert committed
514
      if ($forum->container) {
Dries Buytaert's avatar
   
Dries Buytaert committed
515
516
517
518
519
520
521
522
523
        $description  = "<div 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";
        }
        $description .= "</div>\n";

        $rows[] = array(array("data" => $description, "class" => "container", "colspan" => 4));
524
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
525
      else {
526
        $forum->old_topics = _forum_topics_read($forum->tid, $user->uid);
Dries Buytaert's avatar
   
Dries Buytaert committed
527
528
529
        if ($user->uid) {
          $new_topics = $forum->num_topics - $forum->old_topics;
        }
Dries Buytaert's avatar
   
Dries Buytaert committed
530
531
532
        else {
          $new_topics = 0;
        }
Dries Buytaert's avatar
   
Dries Buytaert committed
533

Dries Buytaert's avatar
   
Dries Buytaert committed
534
        $links = array();
Dries Buytaert's avatar
   
Dries Buytaert committed
535

Dries Buytaert's avatar
   
Dries Buytaert committed
536
537
        $description  = "<div style=\"margin-left: ". ($forum->depth * 30) ."px;\">\n";
        $description .= " <div class=\"name\">". l($forum->name, "forum/$forum->tid") ."</div>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
538

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

Dries Buytaert's avatar
   
Dries Buytaert committed
547
548
        $rows[] = array(
          array("data" => $description, "class" => "forum"),
Dries Buytaert's avatar
   
Dries Buytaert committed
549
          array("data" => $forum->num_topics . ($new_topics ? "<br />(". l(t("%a new", array("%a" => $new_topics)), "forum/$forum->tid", NULL, NULL, 'new') .")" : ""), "class" => "topics"),
Dries Buytaert's avatar
   
Dries Buytaert committed
550
551
552
          array("data" => $forum->num_posts, "class" => "posts"),
          array("data" => _forum_format($forum->last_post), "class" => "last-reply"));
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
553
554
555
    }
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
556
  return theme("table", $header, $rows);
Dries Buytaert's avatar
   
Dries Buytaert committed
557
558
}

Dries Buytaert's avatar
   
Dries Buytaert committed
559
/**
Dries Buytaert's avatar
   
Dries Buytaert committed
560
561
562
563
564
565
566
567
568
569
 * Format the topic listing.
 *
 * @param tid
 * @param topics
 * @param sortby
 * @param forum_per_page
 * @param offset
 *
 * @return output for the topic list.
 */
Dries Buytaert's avatar
   
Dries Buytaert committed
570
function theme_forum_topic_list($tid, $topics, $sortby, $forum_per_page, $offset) {
Dries Buytaert's avatar
   
Dries Buytaert committed
571
  global $id, $status, $user, $pager_total, $forum_topic_list_header;
Dries Buytaert's avatar
   
Dries Buytaert committed
572
573

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

Dries Buytaert's avatar
   
Dries Buytaert committed
575
576
    foreach ($topics as $topic) {
      // folder is new if topic is new or there are new comments since last visit
Dries Buytaert's avatar
Dries Buytaert committed
577
      if ($topic->tid != $tid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
578
        $rows[] = array(
Dries Buytaert's avatar
   
Dries Buytaert committed
579
          array("data" => _forum_icon($topic->new, $topic->num_comments, $topic->comment_mode), "class" => "icon"),
Dries Buytaert's avatar
   
Dries Buytaert committed
580
          array("data" => $topic->title, "class" => "title"),
Dries Buytaert's avatar
   
Dries Buytaert committed
581
          array("data" => l(t("This topic has been moved"), "forum/$topic->tid"), "colspan" => "3")
Dries Buytaert's avatar
   
Dries Buytaert committed
582
        );
Dries Buytaert's avatar
   
Dries Buytaert committed
583
584
      }
      else {
Dries Buytaert's avatar
   
Dries Buytaert committed
585
        $rows[] = array(
Dries Buytaert's avatar
   
Dries Buytaert committed
586
          array("data" => _forum_icon($topic->new, $topic->num_comments, $topic->comment_mode), "class" => "icon"),
Dries Buytaert's avatar
   
Dries Buytaert committed
587
          array("data" => l($topic->title, "node/view/$topic->nid"), "class" => "topic"),
Dries Buytaert's avatar
   
Dries Buytaert committed
588
          array("data" => $topic->num_comments . ($topic->new_replies ? "<br />(". l(t("%a new", array("%a" => $topic->new_replies)), "node/view/$topic->nid", NULL, NULL, 'new') .")" : ""), "class" => "replies"),
Dries Buytaert's avatar
   
Dries Buytaert committed
589
590
          array("data" => _forum_format($topic), "class" => "created"),
          array("data" => _forum_format($topic->last_reply), "class" => "last-reply")
Dries Buytaert's avatar
   
Dries Buytaert committed
591
        );
Dries Buytaert's avatar
   
Dries Buytaert committed
592
593
594
      }
    }

Dries Buytaert's avatar
Dries Buytaert committed
595
    if ($pager = theme("pager", NULL, $forum_per_page, 0, tablesort_pager())) {
Dries Buytaert's avatar
   
Dries Buytaert committed
596
      $rows[] = array(array("data" => $pager, "colspan" => "5", "class" => "pager"));
Dries Buytaert's avatar
   
Dries Buytaert committed
597
598
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
599
600


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

Dries Buytaert's avatar
   
Dries Buytaert committed
605
  $output .= theme("table", $forum_topic_list_header, $rows);
Dries Buytaert's avatar
   
Dries Buytaert committed
606

Dries Buytaert's avatar
   
Dries Buytaert committed
607
608
609
  return $output;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
610
/** @} End of addtogroup themeable */
Dries Buytaert's avatar
   
Dries Buytaert committed
611

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

Dries Buytaert's avatar
   
Dries Buytaert committed
614
  $base_path = variable_get("forum_icon_path", "");
Dries Buytaert's avatar
   
Dries Buytaert committed
615
616
  if ($base_path) {
    if ($num_posts > variable_get("forum_hot_topic", 15)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
617
      $icon = $new_posts ? "hot-new" : "hot";
Dries Buytaert's avatar
   
Dries Buytaert committed
618
619
620
621
622
623
624
625
626
    }
    else {
      $icon = $new_posts ? "new" : "default";
    }

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

Dries Buytaert's avatar
   
Dries Buytaert committed
627
    // default
Dries Buytaert's avatar
   
Dries Buytaert committed
628
    $file = $base_path ."/forum-$icon.gif";
Dries Buytaert's avatar
   
Dries Buytaert committed
629

Dries Buytaert's avatar
   
Dries Buytaert committed
630
    $output = "<img src=\"$file\" alt=\"\" title=\"\" />";
Dries Buytaert's avatar
   
Dries Buytaert committed
631
632
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
633
    $output = "&nbsp;";
Dries Buytaert's avatar
   
Dries Buytaert committed
634
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
635
636
637
638
639
640

  if ($new_posts) {
    $output = "<a name=\"new\">$output</a>";
  }

  return $output;
Dries Buytaert's avatar
   
Dries Buytaert committed
641
642
643
644
}

function _forum_user_last_visit($nid) {
  global $user;
645
646
647
  static $history = array();

  if (empty($history)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
648
    $result = db_query("SELECT nid, timestamp FROM {history} WHERE uid = %d", $user->uid);
Dries Buytaert's avatar
   
Dries Buytaert committed
649
    while ($t = db_fetch_object($result)) {
650
      $history[$t->nid] = $t->timestamp > NODE_NEW_LIMIT ? $t->timestamp : NODE_NEW_LIMIT;
Dries Buytaert's avatar
   
Dries Buytaert committed
651
652
    }
  }
653
  return $history[$nid] ? $history[$nid] : NODE_NEW_LIMIT;
Dries Buytaert's avatar
   
Dries Buytaert committed
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
}

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

Dries Buytaert's avatar
   
Dries Buytaert committed
673
?>