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

Dries Buytaert's avatar
   
Dries Buytaert committed
4
$GLOBALS["cmodes"] = array(1 => "Flat list - collapsed", 2 => "Flat list - expanded", 3 => "Threaded list - collapsed", 4 => "Threaded list - expanded");
Dries Buytaert's avatar
   
Dries Buytaert committed
5
$GLOBALS["corder"] = array(1 => "Date - newest first", 2 => "Date - oldest first");
Dries Buytaert's avatar
   
Dries Buytaert committed
6

Dries Buytaert's avatar
   
Dries Buytaert committed
7
8
9
function comment_help() {
  $output .= "<p>The comment module enables users to submit posts that are directly associated with a piece of content.  These associated posts are called <i>comments</i>.  Comments may be <i>threaded</i>, which means that Drupal keeps track of multiple subconversations around a piece of content.  Threading helps to keep the comment conversation more organized.  Users are presented with several ways to view the comment conversation, and if desired, users may easily choose a <i>flat</i> presentation of comments instead of threaded.  Further, users may choose to order their comments view by <i>newest first</i> or by <i>oldest first</i>.  Finally, users may view a folded list or an expanded list of comments.  Folded limits the comment display to <i>subject</i> only.  Drupal remembers the comment view preference of each user whenever he changes a view setting.</p>";
  $output .= "<p>Since a busy site generates lots of comments, Drupal takes care to present a personalized view of comments for each user.  The home page lists displays the number of read and unread comments for a given post for the current user.  Also, the tracker module (when installed) displays all recent comments on the site.  Finally, comments which the user has not yet read are highlighted with a red star (this graphic may depend on the current theme).</p>";
Kjartan Mannes's avatar
Kjartan Mannes committed
10
11
  $output .= "<p>Comments behave like other user submissions in Drupal.  Specifically, ". la("filters", array("mod" => "system", "type" => "filter")) ." like smileys and HTML work fine if the administrator has enabled them.  Also, throttles are usually enabled to prevent a single user from spamming the web site with too many comments in a short period of time.</p>";
  $output .= "<p>Administrators may control which persons are allowed to submit and administer comments.  These controls appear in the ". la("user permissions", array("mod" => "user", "op" => "permission")) ." administration page.  Additionally, administrators may edit or search through comments on the ". la("comments admininistration page", array("mod" => "comment")) .", as well as set the default display view for new users.</p>";
Dries Buytaert's avatar
   
Dries Buytaert committed
12
13
14
15

  return $output;
}

Dries Buytaert's avatar
   
Dries Buytaert committed
16
function comment_settings($mode, $order, $threshold) {
Dries Buytaert's avatar
   
Dries Buytaert committed
17
18
  global $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
19
20
  if ($user->uid) {
    $user = user_save($user, array("mode" => $mode, "sort" => $order, "threshold" => $threshold));
Dries Buytaert's avatar
   
Dries Buytaert committed
21
22
23
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
function comment_num_all($nid) {
  $comment = db_fetch_object(db_query("SELECT COUNT(c.nid) AS number FROM node n LEFT JOIN comments c ON n.nid = c.nid WHERE n.nid = '$nid' GROUP BY n.nid"));
  return $comment->number ? $comment->number : 0;
}

function comment_num_new($nid) {
  global $user;

  if ($user->uid) {

    /*
    ** Retrieve the timestamp at which the current user last viewed
    ** the specified node and use this timestamp to find the number
    ** of new comments.
    */

Dries Buytaert's avatar
   
Dries Buytaert committed
40
41
    $history = db_fetch_object(db_query("SELECT timestamp FROM history WHERE uid = '$user->uid' AND nid = '%s'", $nid));
    $comment = db_fetch_object(db_query("SELECT COUNT(c.nid) AS number FROM node n LEFT JOIN comments c ON n.nid = c.nid WHERE n.nid = '%s' AND timestamp > '". ($history->timestamp ? $history->timestamp : 0) ."' GROUP BY n.nid", $nid));
Dries Buytaert's avatar
   
Dries Buytaert committed
42
43
44
45
46
47
48
49
50
51
52
53
54

    return $comment->number ? $comment->number : 0;
  }
  else {
    return 0;
  }

}

function comment_tag_new($nid) {
  global $user;

  if ($user->uid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
55
56
    $nid = check_query($nid);

Dries Buytaert's avatar
   
Dries Buytaert committed
57
58
59
60
61
62
63
64
65
66
    $result = db_query("SELECT timestamp FROM history WHERE uid = '$user->uid' AND nid = '$nid'");
    if (db_fetch_object($result)) {
      db_query("UPDATE history SET timestamp = '". time() ."' WHERE uid = '$user->uid' AND nid = '$nid'");
    }
    else {
      db_query("INSERT INTO history (uid, nid, timestamp) VALUES ('$user->uid', '$nid', '". time() ."')");
    }
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
67
68
69
function comment_is_new($comment) {
  global $user;
  static $date;
Dries Buytaert's avatar
   
Dries Buytaert committed
70

Dries Buytaert's avatar
   
Dries Buytaert committed
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
  if (!$date) {
    if ($user->uid) {
      $history = db_fetch_object(db_query("SELECT timestamp FROM history WHERE uid = '$user->uid' AND nid = '$comment->nid'"));
      $date = $history->timestamp ? $history->timestamp : 0;
    }
    else {
      $date = time();
    }
  }

  if ($comment->timestamp > $date) {
    return 1;
  }
  else {
    return 0;
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
89
function comment_access($op, $comment) {
Dries Buytaert's avatar
   
Dries Buytaert committed
90
91
  global $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
92
93
94
95
96
97
98
99
100
101
102
  if ($op == "edit") {

    /*
    ** Authenticated users can edit their comments as long they have
    ** not been replied to.  This, in order to avoid people changing
    ** or revising their statements based on the replies their posts
    ** got. Furthermore, users can't reply to their own comments and
    ** are encouraged to extend their original comment.
    */

    return $user->uid && $user->uid == $comment->uid && comment_num_replies($comment->cid) == 0;
Dries Buytaert's avatar
   
Dries Buytaert committed
103
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
104

Dries Buytaert's avatar
   
Dries Buytaert committed
105
106
107
108
109
110
111
112
113
114
115
}

function comment_form($edit) {
  global $user;

  $form .= "<a name=\"comment\"></a>\n";

  // name field:
  $form .= form_item(t("Your name"), format_name($user));

  // subject field:
Dries Buytaert's avatar
   
Dries Buytaert committed
116
  $form .= form_textfield(t("Subject"), "subject", $edit["subject"], 50, 64);
Dries Buytaert's avatar
   
Dries Buytaert committed
117
118

  // comment field:
Dries Buytaert's avatar
   
Dries Buytaert committed
119
  $form .= form_textarea(t("Comment"), "comment", $edit["comment"] ? $edit["comment"] : $user->signature, 70, 10, t("Allowed HTML tags") .": ". htmlspecialchars(variable_get("allowed_html", "")));
Dries Buytaert's avatar
   
Dries Buytaert committed
120
121

  // preview button:
Dries Buytaert's avatar
   
Dries Buytaert committed
122
  $form .= form_hidden("cid", $edit["cid"]);
Dries Buytaert's avatar
   
Dries Buytaert committed
123
  $form .= form_hidden("pid", $edit["pid"]);
Dries Buytaert's avatar
   
Dries Buytaert committed
124
  $form .= form_hidden("nid", $edit["nid"]);
Dries Buytaert's avatar
   
Dries Buytaert committed
125

Dries Buytaert's avatar
   
Dries Buytaert committed
126
  if (!$edit["comment"]) {
Dries Buytaert's avatar
   
Dries Buytaert committed
127
128
129
130
131
132
133
134
135
136
    $form .= form_submit(t("Preview comment"));
  }
  else {
    $form .= form_submit(t("Preview comment"));
    $form .= form_submit(t("Post comment"));
  }

  return form($form);
}

Dries Buytaert's avatar
   
Dries Buytaert committed
137
138
139
140
141
142
143
144
145
146
147
function comment_edit($cid) {
  global $user;

  $comment = db_fetch_object(db_query("SELECT c.*, u.name, u.uid FROM comments c LEFT JOIN users u ON c.uid = u.uid WHERE c.cid = '$cid'"));

  if (comment_access("edit", $comment)) {
    comment_preview(object2array($comment));
  }
}

function comment_reply($pid, $nid) {
148
  global $theme;
Dries Buytaert's avatar
   
Dries Buytaert committed
149

150
  if (user_access("access comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
151
    if ($pid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
152
      $comment = db_fetch_object(db_query("SELECT c.*, u.uid, u.name FROM comments c LEFT JOIN users u ON c.uid = u.uid WHERE c.cid = '%s'", $pid));
Dries Buytaert's avatar
   
Dries Buytaert committed
153
154
155
156
157
158
      comment_view($comment, t("reply to this comment"));
    }
    else {
      node_view(node_load(array("nid" => $nid)));
      $pid = 0;
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
159

Dries Buytaert's avatar
   
Dries Buytaert committed
160
161
    if (node_comment_mode($nid) == 1) {
      $theme->box(t("Reply"), t("This discussion is closed: you can't post new comments."));
Kjartan Mannes's avatar
Kjartan Mannes committed
162
163
    }
    else if (user_access("post comments", $context)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
164
165
166
167
168
      $theme->box(t("Reply"), comment_form(array("pid" => $pid, "nid" => $nid)));
    }
    else {
      $theme->box(t("Reply"), t("You are not authorized to post comments."));
    }
Kjartan Mannes's avatar
Kjartan Mannes committed
169
170
  }
  else {
Dries Buytaert's avatar
   
Dries Buytaert committed
171
    $theme->box(t("Reply"), t("You are not authorized to view comments."));
Dries Buytaert's avatar
   
Dries Buytaert committed
172
173
174
175
176
177
  }
}

function comment_preview($edit) {
  global $theme, $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
  foreach ($edit as $key => $value) {
    $comment->$key = filter($value);
  }

  /*
  ** Attach the user information:
  */

  $comment->uid = $user->uid;
  $comment->name = $user->name;

  /*
  ** Attach the time:
  */

  $comment->timestamp = time();

  /*
  ** Preview the comment:
  */

  comment_view($comment, t("reply to this comment"));
Dries Buytaert's avatar
   
Dries Buytaert committed
200
201

  $theme->box(t("Reply"), comment_form($edit));
Kjartan Mannes's avatar
Kjartan Mannes committed
202
203

  if ($edit["pid"]) {
Kjartan Mannes's avatar
Kjartan Mannes committed
204
    $comment = db_fetch_object(db_query("SELECT c.*, u.uid, u.name FROM comments c LEFT JOIN users u ON c.uid = u.uid WHERE c.cid = '%s'", $edit["pid"]));
Kjartan Mannes's avatar
Kjartan Mannes committed
205
206
207
208
209
210
    comment_view($comment, t("reply to this comment"));
  }
  else {
    node_view(node_load(array("nid" => $edit["nid"])));
    $edit["pid"] = 0;
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
211
212
213
214
215
}

function comment_post($edit) {
  global $theme, $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
216
217
  $context->nid = $edit["nid"];
  if (user_access("post comments", $context) && node_comment_mode($edit["nid"]) == 2) {
Dries Buytaert's avatar
   
Dries Buytaert committed
218

Dries Buytaert's avatar
   
Dries Buytaert committed
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
    /*
    ** Validate the comment's subject.  If not specified, extract
    ** one from the comment's body.
    */

    $edit["subject"] = strip_tags(($edit["subject"] ? $edit["subject"] : substr($edit["comment"], 0, 29)));

    /*
    ** Validate the comment's body.
    */

    $edit["comment"] = filter($edit["comment"]);

    /*
    ** Check for duplicate comments.  Note that we have to use the
    ** validated/filtered data to perform such check.
    */

Dries Buytaert's avatar
   
Dries Buytaert committed
237
    $duplicate = db_result(db_query("SELECT COUNT(cid) FROM comments WHERE pid = '%s' AND nid = '%s' AND subject = '%s' AND comment = '%s'", $edit["pid"], $edit["nid"], $edit["subject"], $edit["comment"]), 0);
Dries Buytaert's avatar
   
Dries Buytaert committed
238
239

    if ($duplicate != 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
240
      watchdog("warning", "comment: duplicate '". $edit["subject"] ."'");
Dries Buytaert's avatar
   
Dries Buytaert committed
241
242
243
    }
    else {

Dries Buytaert's avatar
   
Dries Buytaert committed
244
      if ($edit["cid"]) {
Dries Buytaert's avatar
   
Dries Buytaert committed
245

Dries Buytaert's avatar
   
Dries Buytaert committed
246
247
248
249
250
251
        /*
        ** Update the comment in the database.  Note that the update
        ** query will fail if the comment isn't owned by the current
        ** user.
        */

Dries Buytaert's avatar
   
Dries Buytaert committed
252
        db_query("UPDATE comments SET subject = '%s', comment = '%s' WHERE cid = '%s' AND uid = '$user->uid'", $edit["subject"], $edit["comment"], $edit["cid"]);
Dries Buytaert's avatar
   
Dries Buytaert committed
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271

        /*
        ** Add entry to the watchdog log:
        */

        watchdog("special", "comment: updated '". $edit["subject"] ."'");
      }
      else {
        /*
        ** Check the user's comment submission rate.  If exceeded,
        ** throttle() will bail out.
        */

        throttle("post comment", variable_get("max_comment_rate", 60));

        /*
        ** Add the comment to database:
        */

Dries Buytaert's avatar
   
Dries Buytaert committed
272
        db_query("INSERT INTO comments (nid, pid, uid, subject, comment, hostname, timestamp) VALUES ('%s', '%s', '$user->uid', '%s', '%s', '%s', '%s')", $edit["nid"], $edit["pid"], $edit["subject"], $edit["comment"], getenv("REMOTE_ADDR"), time());
Dries Buytaert's avatar
   
Dries Buytaert committed
273
274
275
276

        /*
        ** Add entry to the watchdog log:
        */
Dries Buytaert's avatar
   
Dries Buytaert committed
277

Dries Buytaert's avatar
   
Dries Buytaert committed
278
279
        watchdog("special", "comment: added '". $edit["subject"] ."'");
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
280
281
282
283

      /*
      ** Clear the cache:
      */
Dries Buytaert's avatar
   
Dries Buytaert committed
284
285

      cache_clear();
Dries Buytaert's avatar
   
Dries Buytaert committed
286

Dries Buytaert's avatar
   
Dries Buytaert committed
287
288
    }
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
289
290
291
292
293

  /*
  ** Redirect the user the node he commented on:
  */

Dries Buytaert's avatar
   
Dries Buytaert committed
294
  drupal_goto(drupal_url(array("id" => $edit["nid"]), "node"));
Dries Buytaert's avatar
   
Dries Buytaert committed
295

Dries Buytaert's avatar
   
Dries Buytaert committed
296
297
}

Dries Buytaert's avatar
   
Dries Buytaert committed
298
function comment_num_replies($id) {
Dries Buytaert's avatar
   
Dries Buytaert committed
299
300
301
302
303
304
305
306
307

  $result = db_query("SELECT COUNT(cid) FROM comments WHERE pid = '$id'");
  return ($result) ? db_result($result, 0) : 0;

}

function comment_moderation($comment) {
  global $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
308
309
310
  // XXX: disabled for now
  return "";

Dries Buytaert's avatar
   
Dries Buytaert committed
311
  $values = array("--", "1", "2", "3", "4", "5");
Dries Buytaert's avatar
   
Dries Buytaert committed
312
313
314
315
316
317
318

  $moderate = db_fetch_object(db_query("SELECT * FROM moderate WHERE cid = '$comment->cid' AND uid = '$user->uid'"));

  foreach ($values as $key => $value) {
    $options .= " <option value=\"$key\"". ($moderate->score == $key ? " selected=\"selected\"" : "") .">$value</option>\n";
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
319
  $output .= "<select name=\"moderate[comment][$comment->cid]\">$options</select><br />". ($comment->score ? $comment->score : "--") ." / $comment->votes";
Dries Buytaert's avatar
   
Dries Buytaert committed
320
321
322
323
324

  return $output;
}

function comment_threshold($threshold) {
Dries Buytaert's avatar
   
Dries Buytaert committed
325
326
327
  // XXX: disabled for now
  return "";

Dries Buytaert's avatar
   
Dries Buytaert committed
328
  for ($i = 0; $i < 6; $i++) $options .= " <option value=\"$i\"". ($threshold == $i ? " selected=\"selected\"" : "") .">". t("Visibility") ." - $i</option>";
Dries Buytaert's avatar
   
Dries Buytaert committed
329
330
331
332
333
334
  return "<select name=\"threshold\">$options</select>\n";
}

function comment_mode($mode) {
  global $cmodes;

Dries Buytaert's avatar
   
Dries Buytaert committed
335
  foreach ($cmodes as $key => $value) $options .= " <option value=\"$key\"". ($mode == $key ? " selected=\"selected\"" : "") .">$value</option>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
336
337
338
339
340
341
  return "<select name=\"mode\">$options</select>\n";
}

function comment_order($order) {
  global $corder;

Dries Buytaert's avatar
   
Dries Buytaert committed
342
  foreach ($corder as $key=>$value) $options .= " <option value=\"$key\"". ($order == $key ? " selected=\"selected\"" : "") .">$value</option>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
343
344
345
  return "<select name=\"order\">$options</select>\n";
}

Dries Buytaert's avatar
   
Dries Buytaert committed
346
function comment_query($nid, $order, $pid = -1) {
Dries Buytaert's avatar
   
Dries Buytaert committed
347

Dries Buytaert's avatar
   
Dries Buytaert committed
348
  $query .= "SELECT c.cid, c.pid, c.nid, c.subject, c.comment, c.timestamp, u.uid, u.name FROM comments c LEFT JOIN users u ON c.uid = u.uid WHERE c.nid = '$nid'";
Dries Buytaert's avatar
   
Dries Buytaert committed
349
350
351
352
353

  if ($pid >= 0) {
    $query .= " AND pid = '$pid'";
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
354
  $query .= " GROUP BY c.cid, c.pid, c.nid, c.subject, c.comment, c.timestamp, u.uid, u.name";
Dries Buytaert's avatar
   
Dries Buytaert committed
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376

  if ($order == 1) {
    $query .= " ORDER BY c.timestamp DESC";
  }
  else if ($order == 2) {
    $query .= " ORDER BY c.timestamp";
  }

  return db_query($query);

}

function comment_visible($comment, $threshold = 0) {
  if ($comment->votes == 0 || $comment->score >= $threshold) {
    return 1;
  }
  else {
    return 0;
  }
}

function comment_links($comment, $return = 1) {
Dries Buytaert's avatar
   
Dries Buytaert committed
377
  global $user, $theme;
Dries Buytaert's avatar
   
Dries Buytaert committed
378

Dries Buytaert's avatar
   
Dries Buytaert committed
379
380
  $links = array();

Dries Buytaert's avatar
   
Dries Buytaert committed
381
  if ($return) {
Kjartan Mannes's avatar
Kjartan Mannes committed
382
    $links[] = l("<span style=\"color: $theme->type;\">". t("return") ."</span>", array("id" => $comment->nid), "node", $comment->cid);
Dries Buytaert's avatar
   
Dries Buytaert committed
383
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
384
385

  if (user_access("administer comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
386
    $links[] = la("<span style=\"color: $theme->type;\">". t("administer") ."</span>", array("mod" => "comment", "op" => "edit", "id" => $comment->cid));
Dries Buytaert's avatar
   
Dries Buytaert committed
387
388
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
389
390
391
392
393
394
  /*
  ** Here we should check if this node has read-only comments, but we
  ** already check on submit and this way we save a query.  It's just
  ** a cosmetic issue. otherwise just uncomment the next line and
  ** related bracket some lines below.
  */
Dries Buytaert's avatar
   
Dries Buytaert committed
395
396

  //if (node_comment_mode($comment->nid)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
397
  if (user_access("post comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
398
    if (comment_access("edit", $comment)) {
Kjartan Mannes's avatar
Kjartan Mannes committed
399
      $links[] = lm("<span style=\"color: $theme->type\">". t("edit your comment") ."</span>", array("mod" => "comment", "op" => "edit", "id" => $comment->cid), "", array("title" => t("Make changes to your comment.")));
Dries Buytaert's avatar
   
Dries Buytaert committed
400
401
    }
    else {
Kjartan Mannes's avatar
Kjartan Mannes committed
402
      $links[] = lm("<span style=\"color: $theme->type;\">". t("reply to this comment") ."</span>", array("mod" => "comment", "op" => "reply", "id" => $comment->nid, "pid" => $comment->cid), "", array("title" => t("Reply to this comment.")));
Dries Buytaert's avatar
   
Dries Buytaert committed
403
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
404
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
405
  //}
Dries Buytaert's avatar
   
Dries Buytaert committed
406
407

  return $theme->links($links);
Dries Buytaert's avatar
   
Dries Buytaert committed
408
409
410
}

function comment_view($comment, $folded = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
411
412
413
  global $theme, $id;

  if (comment_is_new($comment)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
414
    $comment->subject = "$comment->subject <span style=\"color: red;\">*</span>";
Dries Buytaert's avatar
   
Dries Buytaert committed
415
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
416
417
418
419
420

  if ($folded) {
    $theme->comment($comment, $folded);
  }
  else {
Kjartan Mannes's avatar
Kjartan Mannes committed
421
    print l(check_output($comment->subject), array("id" => $comment->nid, "cid" => $comment->cid), "node", $comment->cid) ." by ". format_name($comment) ."</small><p />";
Dries Buytaert's avatar
   
Dries Buytaert committed
422
423
424
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
425
function comment_thread_min($comments, $threshold, $pid = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
426
427
  global $user;

Dries Buytaert's avatar
   
Dries Buytaert committed
428
429
430
431
432
433
434
  foreach ($comments as $comment) {
    if ($comment->pid == $pid) {
      print "<ul>";
      print comment_view($comment);
      comment_thread_min($comments, $threshold, $comment->cid);
      print "</ul>";
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
435
436
437
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
438
function comment_thread_max($comments, $threshold, $pid = 0, $level = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
439
440
441
442
443
444
445
446
447
448
449
  global $user;

  /*
  ** We had quite a few browser specific issues: expanded comments below
  ** the top level got truncated on the right hand side.  A range of
  ** solutions have been proposed and tried but either the right margins of
  ** the comments didn't line up well, or the heavily nested tables made
  ** for slow rendering and cluttered HTML.  This is the best work-around
  ** in terms of speed and size.
  */

Dries Buytaert's avatar
   
Dries Buytaert committed
450
451
  foreach ($comments as $comment) {
    if ($comment->pid == $pid) {
Steven Wittens's avatar
Steven Wittens committed
452
453
454
      if ($level) {
        print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"". ($level * 25) ."\">&nbsp;</td><td>\n";
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
455
      comment_view($comment, comment_links($comment, 0));
Steven Wittens's avatar
Steven Wittens committed
456
457
458
      if ($level) {
        print "</td></tr></table>\n";
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
459

Dries Buytaert's avatar
   
Dries Buytaert committed
460
461
      comment_thread_max($comments, $threshold, $comment->cid, $level + 1);
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
462
463
464
465
  }

}

Kjartan Mannes's avatar
Kjartan Mannes committed
466
function comment_render($nid, $cid = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
467
  global $user, $theme, $mode, $order, $threshold;
Dries Buytaert's avatar
   
Dries Buytaert committed
468
469
470
471
472
473
474

  if (user_access("access comments")) {

    /*
    ** Pre-process variables:
    */

Dries Buytaert's avatar
   
Dries Buytaert committed
475
476
    if (empty($nid)) {
      $nid = 0;
Dries Buytaert's avatar
   
Dries Buytaert committed
477
478
479
    }

    if (empty($mode)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
480
      $mode = $user->uid ? $user->mode : variable_get("default_comment_mode", 4);
Dries Buytaert's avatar
   
Dries Buytaert committed
481
482
483
    }

    if (empty($order)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
484
      $order = $user->uid ? $user->sort : variable_get("default_comment_order", 1);
Dries Buytaert's avatar
   
Dries Buytaert committed
485
486
487
    }

    if (empty($threshold)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
488
489
      // $threshold = $user->uid ? $user->threshold : variable_get("default_comment_threshold", 3);
      $threshold = 0;
Dries Buytaert's avatar
   
Dries Buytaert committed
490
491
492
    }

    print "<a name=\"comment\"></a>\n";
493
494
    print "<form method=\"post\" action=\"". drupal_url(array("mod" => "comment"), "module") ."\">\n";
    print form_hidden("nid", $nid);
Dries Buytaert's avatar
   
Dries Buytaert committed
495
496
497
498
499

    /*
    ** Render control panel:
    */

500
501
502
    if (comment_num_all($nid)) {
      $theme->box(t("Control panel"), $theme->comment_controls($threshold, $mode, $order));
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
503

Kjartan Mannes's avatar
Kjartan Mannes committed
504
    if ($cid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
505
      $result = db_query("SELECT c.cid, c.pid, c.nid, c.subject, c.comment, c.timestamp, u.uid, u.name FROM comments c LEFT JOIN users u ON c.uid = u.uid WHERE c.cid = '$cid' GROUP BY c.cid, c.pid, c.nid, c.subject, c.comment, c.timestamp, u.uid, u.name");
Dries Buytaert's avatar
   
Dries Buytaert committed
506
507
508
509
      if ($comment = db_fetch_object($result)) {
        comment_view($comment, comment_links($comment));
      }
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
510
511
512
513

    if ($cid) {
      $result = comment_query($nid, $order, $cid);
    }
Dries Buytaert's avatar
   
Dries Buytaert committed
514
    else {
Dries Buytaert's avatar
   
Dries Buytaert committed
515
516
517
518
519
      $result = comment_query($nid, $order);
    }

    if ($mode == 1) {
      if (db_result($result)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
520
521
522
523
        print "<table border=\"0\" cellpadding=\"2\" cellspacing=\"2\">\n";
        print " <tr><th>Subject</th><th>Author</th><th>Date</th><th>Score</th></tr>\n";
        while ($comment = db_fetch_object($result)) {
          if (comment_visible($comment, $threshold)) {
Kjartan Mannes's avatar
Kjartan Mannes committed
524
            print " <tr><td>". l(check_output($comment->subject), array("id" => $comment->nid, "cid" => $comment->cid), "node", $comment->cid) ."</td><td>". format_name($comment) ."</td><td>". format_date($comment->timestamp, "small") ."</td><td>$comment->score</td></tr>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
525
526
527
528
          }
        }
        print "</table>\n";
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
529
530
531
532
533
534
535
536
537
    }
    else if ($mode == 2) {
      while ($comment = db_fetch_object($result)) {
        comment_view($comment, (comment_visible($comment, $threshold) ? comment_links($comment, 0) : 0));
      }
    }
    else if ($mode == 3) {
      while ($comment = db_fetch_object($result)) {
        $comments[] = $comment;
Dries Buytaert's avatar
   
Dries Buytaert committed
538
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
539

Dries Buytaert's avatar
   
Dries Buytaert committed
540
      if ($comments) {
Kjartan Mannes's avatar
Kjartan Mannes committed
541
        if ($cid) {
Dries Buytaert's avatar
   
Dries Buytaert committed
542
543
544
          comment_thread_min($comments, $threshold, $cid, 1);
        }
        else {
Dries Buytaert's avatar
   
Dries Buytaert committed
545
          comment_thread_min($comments, $threshold);
Dries Buytaert's avatar
   
Dries Buytaert committed
546
547
        }
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
548
549
550
551
552
    }
    else {
      while ($comment = db_fetch_object($result)) {
        $comments[] = $comment;
      }
Dries Buytaert's avatar
   
Dries Buytaert committed
553

Dries Buytaert's avatar
   
Dries Buytaert committed
554
555
556
557
558
      if ($comments) {
        if ($cid) {
          comment_thread_max($comments, $threshold, $cid, 1);
        }
        else {
Kjartan Mannes's avatar
Kjartan Mannes committed
559
          comment_thread_max($comments, $threshold, 0, 0);
Dries Buytaert's avatar
   
Dries Buytaert committed
560
561
562
563
564
565
        }
      }
    }

    print "</form>";

Dries Buytaert's avatar
   
Dries Buytaert committed
566
567
568
569
570
    /*
    ** Tag the node's comments as being read:
    */

    comment_tag_new($nid);
Dries Buytaert's avatar
   
Dries Buytaert committed
571
572
573
  }
}

Dries Buytaert's avatar
   
Dries Buytaert committed
574
function comment_search($keys) {
Dries Buytaert's avatar
   
Dries Buytaert committed
575
  global $PHP_SELF;
Kjartan Mannes's avatar
Kjartan Mannes committed
576

Dries Buytaert's avatar
   
Dries Buytaert committed
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
  /*
  ** Return the results of performing a search using the indexed search
  ** for this particular type of node.
  **
  ** Pass an array to the "do_search" function which dictates what it
  ** will search through, and what it will search for
  **
  ** "keys"'s value is the keywords entered by the user
  **
  ** "type"'s value is used to identify the node type in the search
  ** index.
  **
  ** "select"'s value is used to relate the data from the specific nodes
  ** table to the data that the search_index table has in it, and the the
  ** do_search functino will rank it.
  **
  ** The select must always provide the following fields - lno, title,
  ** created, uid, name, count
  **
  ** The select statement may optionally provide "nid", which is a secondary
  ** identifier which is currently used byt the comment module.
  */

Kjartan Mannes's avatar
Kjartan Mannes committed
600
  $find = do_search(array("keys" => $keys, "type" => "comment", "select" => "select s.lno as lno, c.nid as nid, c.subject as title, c.timestamp as created, u.uid as uid, u.name as name, s.count as count FROM search_index s, comments c LEFT JOIN users u ON c.uid = u.uid WHERE s.lno = c.cid AND s.type = 'comment' AND s.word like '%'"));
Dries Buytaert's avatar
   
Dries Buytaert committed
601

Dries Buytaert's avatar
   
Dries Buytaert committed
602
603
  return $find;
}
Dries Buytaert's avatar
 
Dries Buytaert committed
604

Dries Buytaert's avatar
   
Dries Buytaert committed
605
function comment_perm() {
Dries Buytaert's avatar
   
Dries Buytaert committed
606
607
608
  return array("access comments", "post comments", "administer comments");
}

Dries Buytaert's avatar
   
Dries Buytaert committed
609
function comment_link($type, $node = 0, $main = 0) {
Dries Buytaert's avatar
   
Dries Buytaert committed
610

Dries Buytaert's avatar
   
Dries Buytaert committed
611
  if ($type == "admin" && user_access("administer comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
612
    $links[] = la(t("comments"), array("mod" => "comment"));
Dries Buytaert's avatar
   
Dries Buytaert committed
613
614
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
615
  if ($type == "node" && $node->comment) {
Dries Buytaert's avatar
   
Dries Buytaert committed
616
617
618
619
620
621
622
623

    if ($main) {

      /*
      ** Main page: display the number of comments that have been posted.
      */

      if (user_access("access comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
624
625
626
        $all = comment_num_all($node->nid);
        $new = comment_num_new($node->nid);

Kjartan Mannes's avatar
Kjartan Mannes committed
627
        $links[] = l(format_plural($all, "comment", "comments") . ($new ? ", $new ". t("new") : ""), array("id" => $node->nid), "node", "comment", array("title" => t("View this posting and all of its comments.")));
Dries Buytaert's avatar
   
Dries Buytaert committed
628
629
630
631
632
      }
    }
    else {
      /*
      ** Node page: add a "post comment" link if the user is allowed to
Dries Buytaert's avatar
   
Dries Buytaert committed
633
      ** post comments and if this node is not read-only
Dries Buytaert's avatar
   
Dries Buytaert committed
634
635
636
      */

      if (user_access("post comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
637
        if ($node->comment == 2) {
Kjartan Mannes's avatar
Kjartan Mannes committed
638
          $links[] = lm(t("add new comment"), array("mod" => "comment", "op" => "reply", "id" => $node->nid), "comment", array("title" => t("Share your thoughts and opinions related to this posting.")));
Kjartan Mannes's avatar
Kjartan Mannes committed
639
640
        }
        else {
Dries Buytaert's avatar
   
Dries Buytaert committed
641
642
          $links[] = t("This discussion is closed: you can't post new comments.");
        }
Dries Buytaert's avatar
   
Dries Buytaert committed
643
644
645
646
      }
    }
  }

Dries Buytaert's avatar
   
Dries Buytaert committed
647
  return $links ? $links : array();
Dries Buytaert's avatar
   
Dries Buytaert committed
648
649
}

Dries Buytaert's avatar
   
Dries Buytaert committed
650
651
function comment_node_link($node) {

Dries Buytaert's avatar
Dries Buytaert committed
652
  if (user_access("administer comments") && comment_num_all($node->nid)) {
Dries Buytaert's avatar
   
Dries Buytaert committed
653

Dries Buytaert's avatar
   
Dries Buytaert committed
654
655
656
    /*
    ** Edit comments:
    */
Dries Buytaert's avatar
   
Dries Buytaert committed
657

Dries Buytaert's avatar
   
Dries Buytaert committed
658
    $result = db_query("SELECT c.cid, c.subject, u.uid, u.name FROM comments c LEFT JOIN users u ON u.uid = c.uid WHERE nid = '$node->nid' ORDER BY c.timestamp");
Dries Buytaert's avatar
   
Dries Buytaert committed
659

Dries Buytaert's avatar
   
Dries Buytaert committed
660
661
662
663
664
    $output .= "<h3>". t("Edit comments") ."</h3>";
    $output .= "<table border=\"1\" cellpadding=\"2\" cellspacing=\"2\">";
    $output .= " <tr><th>title</th><th>author</th><th colspan=\"3\">operations</th></tr>";

    while ($comment = db_fetch_object($result)) {
Kjartan Mannes's avatar
Kjartan Mannes committed
665
      $output .= "<tr><td>". l($comment->subject, array("id" => $node->nid, "cid" => $comment->cid), "node", $comment->cid) ."</td><td>". format_name($comment) ."</td><td>". l(t("view comment"), array("id" => $node->nid, "cid" => $comment->cid ."#". $comment->cid)) ."</td><td>". la(t("edit comment"), array("mod" => "comment", "op" => "edit", "id" => $comment->cid)) ."</td><td>". la(t("delete comment"), array("mod" => "comment", "op" => "delete", "id" => $comment->cid)) ."</td></tr>";
Dries Buytaert's avatar
   
Dries Buytaert committed
666
667
668
669
670
671
    }

    $output .= "</table>";

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

Dries Buytaert's avatar
   
Dries Buytaert committed
674
675

function comment_save($id, $edit) {
Dries Buytaert's avatar
   
Dries Buytaert committed
676
  db_query("UPDATE comments SET subject = '%s', comment = '%s' WHERE cid = '$id'", filter($edit["subject"]), filter($edit["comment"]));
Dries Buytaert's avatar
   
Dries Buytaert committed
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
  watchdog("special", "comment: modified '". $edit["subject"] ."'");
}

function comment_page() {
  global $theme, $op, $edit, $id, $pid, $cid;

  switch ($op) {
    case "edit":
      $theme->header();
      comment_edit(check_query($id));
      $theme->footer();
      break;
    case "reply":
      $theme->header();
      comment_reply(check_query($pid), check_query($id));
      $theme->footer();
      break;
    case t("Preview comment"):
      $theme->header();
      comment_preview($edit);
      $theme->footer();
      break;
    case t("Post comment"):
      comment_post($edit);
      break;
    case t("Update settings"):
703
      global $mode, $order, $threshold;
Dries Buytaert's avatar
   
Dries Buytaert committed
704
      comment_settings(check_query($mode), check_query($order), check_query($threshold));
705
      drupal_goto(drupal_url(array("id" => $edit["nid"]), "node"));
Dries Buytaert's avatar
   
Dries Buytaert committed
706
707
708
709
710
711
      break;
    default:
  }
}

function comment_admin_edit($id) {
Dries Buytaert's avatar
   
Dries Buytaert committed
712

Dries Buytaert's avatar
   
Dries Buytaert committed
713
  $result = db_query("SELECT c.*, u.name, u.uid FROM comments c LEFT JOIN users u ON c.uid = u.uid WHERE c.cid = '$id'");
Dries Buytaert's avatar
 
Dries Buytaert committed
714
715
  $comment = db_fetch_object($result);

Dries Buytaert's avatar
   
Dries Buytaert committed
716
  $form .= form_item(t("Author"), format_name($comment));
Dries Buytaert's avatar
   
Dries Buytaert committed
717
718
  $form .= form_textfield(t("Subject"), "subject", $comment->subject, 70, 128);
  $form .= form_textarea(t("Comment"), "comment", $comment->comment, 70, 15);
Dries Buytaert's avatar
   
Dries Buytaert committed
719
  $form .= form_hidden("cid", $id);
Dries Buytaert's avatar
   
Dries Buytaert committed
720
  $form .= form_submit(t("Submit"));
Dries Buytaert's avatar
   
Dries Buytaert committed
721
  $form .= form_submit(t("Delete"));
Dries Buytaert's avatar
 
Dries Buytaert committed
722

Dries Buytaert's avatar
   
Dries Buytaert committed
723
  return form($form);
Dries Buytaert's avatar
 
Dries Buytaert committed
724
725
}

Dries Buytaert's avatar
   
Dries Buytaert committed
726
function comment_admin_overview() {
Dries Buytaert's avatar
   
Dries Buytaert committed
727
  $result = db_query("SELECT c.*, u.name, u.uid FROM comments c LEFT JOIN users u ON u.uid = c.uid ORDER BY timestamp DESC LIMIT 50");
Dries Buytaert's avatar
   
Dries Buytaert committed
728

Dries Buytaert's avatar
   
Dries Buytaert committed
729
730
  $output .= "<table border=\"1\" cellpadding=\"2\" cellspacing=\"2\">\n";
  $output .= " <tr><th>subject</th><th>author</th><th>date</th><th colspan=\"2\">operations</th></tr>\n";
Dries Buytaert's avatar
 
Dries Buytaert committed
731
  while ($comment = db_fetch_object($result)) {
Kjartan Mannes's avatar
Kjartan Mannes committed
732
    $output .= " <tr><td>". l(check_output($comment->subject), array("id" => $comment->nid, "cid" => $comment->cid, "pid" => $comment->pid), "node", $comment->cid) ."</td><td>". format_name($comment) ."</td><td>". format_date($comment->timestamp, "small") ."</td><td>". la(t("edit comment"), array("mod" => comment, "op" => edit, "id" => $comment->cid)) ."</td><td>". la(t("delete comment"), array("mod" => "comment", "op" => "delete", "id" => $comment->cid)) ."</td></tr>\n";
Dries Buytaert's avatar
 
Dries Buytaert committed
733
  }
Dries Buytaert's avatar
   
Dries Buytaert committed
734
  $output .= "</table>\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
735

Dries Buytaert's avatar
   
Dries Buytaert committed
736
  return $output;
Dries Buytaert's avatar
 
Dries Buytaert committed
737
738
}

Dries Buytaert's avatar
   
Dries Buytaert committed
739
740
741
function comment_delete($edit) {

  if ($edit["confirm"]) {
Dries Buytaert's avatar
   
Dries Buytaert committed
742
    db_query("DELETE FROM comments WHERE cid = '%s'", $edit["cid"]);
Dries Buytaert's avatar
   
Dries Buytaert committed
743
744
745
746
747
748
749
750
751
752
753
    watchdog("special", "comment: deleted comment #". $edit["cid"]);
  }
  else {
    $output .= form_item(t("Confirm deletion"), "");
    $output .= form_hidden("cid", $edit["cid"]);
    $output .= form_hidden("confirm", 1);
    $output .= form_submit(t("Delete"));
    $output = form($output);
  }

  return $output;
Dries Buytaert's avatar
   
Dries Buytaert committed
754
755
}

Dries Buytaert's avatar
 
Dries Buytaert committed
756
function comment_admin() {
Dries Buytaert's avatar
   
Dries Buytaert committed
757
  global $op, $id, $edit, $mod, $keys, $order;
Dries Buytaert's avatar
 
Dries Buytaert committed
758

Dries Buytaert's avatar
   
Dries Buytaert committed
759
  if (user_access("administer comments")) {
Dries Buytaert's avatar
   
Dries Buytaert committed
760

Kjartan Mannes's avatar
Kjartan Mannes committed
761
    print "<small>". la(t("overview"), array("mod" => "comment")) ." | ". la(t("search comment"), array("mod" => "comment", "op" => "search")) ."</small><hr />\n";
Dries Buytaert's avatar
   
Dries Buytaert committed
762
763
764

    switch ($op) {
      case "edit":
Dries Buytaert's avatar
   
Dries Buytaert committed
765
        print comment_admin_edit($id);
Dries Buytaert's avatar
   
Dries Buytaert committed
766
767
        break;
      case "search":
Dries Buytaert's avatar
   
Dries Buytaert committed
768
        print search_type("comment", drupal_url(array("mod" => "comment", "op" => "search"), "admin"));
Dries Buytaert's avatar
   
Dries Buytaert committed
769
        break;
Dries Buytaert's avatar
   
Dries Buytaert committed
770
      case "delete":
Dries Buytaert's avatar
   
Dries Buytaert committed
771
772
773
774
        print comment_delete(array("cid" => $id));
        break;
      case t("Delete"):
        print comment_delete($edit);
Dries Buytaert's avatar
   
Dries Buytaert committed
775
        break;
Dries Buytaert's avatar
   
Dries Buytaert committed
776
      case t("Submit"):
Dries Buytaert's avatar
   
Dries Buytaert committed
777
        print status(comment_save(check_query($id), $edit));
Dries Buytaert's avatar
   
Dries Buytaert committed
778
        print comment_admin_overview();
Dries Buytaert's avatar
   
Dries Buytaert committed
779
780
        break;
      default:
Dries Buytaert's avatar
   
Dries Buytaert committed
781
        print comment_admin_overview();
Dries Buytaert's avatar
   
Dries Buytaert committed
782
783
784
785
    }
  }
  else {
    print message_access();
Dries Buytaert's avatar
 
Dries Buytaert committed
786
787
  }
}
Dries Buytaert's avatar
   
Dries Buytaert committed
788

Kjartan Mannes's avatar
Kjartan Mannes committed
789
790
function comment_update_index() {

Dries Buytaert's avatar
   
Dries Buytaert committed
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
  /*
  ** Return an array of values to dictate how to update the search index
  ** for this particular type of node.
  **
  ** "last_update"'s value is used with variable_set to set the
  ** last time this node type (comment) had an index update run.
  **
  ** "node_type"'s value is used to identify the node type in the search
  ** index (commentt in this case).
  **
  ** "select"'s value is used to select the node id and text fields from
  ** the table we are indexing. In this case, we also check against the
  ** last run date for the comments update.
  */

Kjartan Mannes's avatar
Kjartan Mannes committed
806
  return array("last_update" => "comment_cron_last", "node_type" => "comment", "select" => "SELECT c.cid as lno, c.subject as text1, c.comment as text2 FROM comments c WHERE timestamp > ". variable_get("comment_cron_last", 1));
Kjartan Mannes's avatar
Kjartan Mannes committed
807
808
}

Dries Buytaert's avatar
   
Dries Buytaert committed
809
?>