moderation. Users can moderate a post up (give it a point), or down (subtract a point). The settings below give you control over how many points are required for the status of a post to be automatically changed. See individual items for details.");
return $system[$field];
}
function queue_settings() {
$threshold_post = array(1 => 1, 2 => 2, 3 => 3, 4 => 4, 5 => 5, 6 => 6, 7 => 7, 8 => 8, 9 => 9, 10 => 10, 11 => 11, 12 => 12, 13 => 13, 14 => 14, 15 => 15, 20 => 20, 25 => 25, 30 => 30, 35 => 35, 40 => 40, 45 => 45, 50 => 50, 60 => 60, 70 => 70, 80 => 80, 90 => 90, 100 => 100);
$threshold_dump = array(-1 => -1, -2 => -2, -3 => -3, -4 => -4, -5 => -5, -6 => -6, -7 => -7, -8 => -8, -9 => -9, -10 => -10, -11 => -11, -12 => -12, -13 => -13, -14 => -14, -15 => -15, -20 => -20, -25 => -25, -30 => -30);
$threshold_expire = array(1 => 1, 2 => 2, 3 => 3, 4 => 4, 5 => 5, 6 => 6, 7 => 7, 8 => 8, 9 => 9, 10 => 10, 11 => 11, 12 => 12, 13 => 13, 14 => 14, 15 => 15, 20 => 20, 25 => 25, 30 => 30, 35 => 35, 40 => 40, 45 => 45, 50 => 50, 60 => 60, 70 => 70, 80 => 80, 90 => 90, 100 => 100);
$output .= form_select(t("Post threshold"), "queue_threshold_post", variable_get("queue_threshold_post", 4), $threshold_post, t("When a post gets this number of moderation points, it is promoted to the front page automatically."));
$output .= form_select(t("Dump threshold"), "queue_threshold_dump", variable_get("queue_threshold_dump", -2), $threshold_dump, t("When a post drops below this number of points, its status is changed to unpublished."));
$output .= form_select(t("Expiration threshold"), "queue_threshold_expire", variable_get("queue_threshold_expire", 8), $threshold_expire, t("When a post gets this number of points, its status is changed to unpublished."));
$output .= form_item(t("Show comments"), form_checkbox(t("Enabled"), "queue_show_comments", 1, variable_get("queue_show_comments", 1)), t("Tick the box to show comments below the moderation form."));
return $output;
}
function queue_perm() {
return array("access submission queue");
}
function queue_link($type) {
if ($type == "menu.view" && user_access("access submission queue")) {
$links[] = l(t("view submissions"), "queue", array("title" => t("Moderate the content in the submission queue."))) ." (". queue_count() .")";
}
return $links ? $links : array();
}
function queue_count() {
$result = db_query("SELECT COUNT(nid) FROM node WHERE moderate = 1");
return ($result) ? db_result($result, 0) : 0;
}
function queue_score($id) {
$result = db_query("SELECT score FROM node WHERE nid = %d", $id);
return ($result) ? db_result($result, 0) : 0;
}
function queue_vote($node, $vote) {
global $user;
if (!field_get($node->users, $user->uid)) {
// Update submission's score- and votes-field:
db_query("UPDATE node SET score = score $vote, votes = votes + 1, users = '". field_set($node->users, $user->uid, $vote) ."' WHERE nid = '$node->nid'");
// Reload the updated node from the database:
$node = node_load(array("nid" => $node->nid));
if (variable_get("queue_threshold_post", 3) <= $node->score) {
$node->moderate = 0;
$node->promote = 1;
node_save($node);
watchdog("special", "moderation: approved '$node->title'");
}
else if (variable_get("queue_threshold_dump", -2) >= $node->score) {
if ($node->revisions) {
node_revision_rollback($node, end(node_revision_list($node)));
watchdog("special", "moderation: declined '$node->title' (rollback)");
}
else {
$node->moderate = 0;
$node->status = 0;
node_save($node);
watchdog("special", "moderation: declined '$node->title'");
}
}
else if (variable_get("queue_threshold_expire", 6) <= $node->votes) {
if ($node->revisions) {
node_revision_rollback($node, end(node_revision_list($node)));
watchdog("special", "moderation: expired '$node->title' (rollback)");
}
else {
$node->moderate = 0;
$node->status = 0;
node_save($node);
watchdog("special", "moderation: expired '$node->title'");
}
}
}
}
function queue_overview() {
global $user;
$result = db_query("SELECT n.*, u.name, u.uid FROM node n LEFT JOIN users u ON n.uid = u.uid WHERE n.moderate = 1");
$output .= "";
$output .= " | ". t("Subject") ." | ". t("Author") ." | ". t("Type") ." | ". t("Score") ." |
|---|
";
while ($node = db_fetch_object($result)) {
if ($user->uid == $node->uid || field_get($node->users, $user->uid)) {
$output .= " | ". l($node->title, "queue/$node->nid") ." | ". format_name($node) ." | ". module_invoke($node->type, "node", "name") ." | ". queue_score($node->nid) ." |
";
}
else {
$output .= " | ". l($node->title, "queue/$node->nid") ." | ". format_name($node) ." | ". module_invoke($node->type, "node", "name") ." | ". l(t("vote"), "queue/$node->nid") ." |
";
}
if ($node->teaser) {
$output .= " ". check_output($node->teaser) ." |
";
}
}
$output .= "
";
theme("header");
theme("box", t("Moderation queue"), $output);
theme("footer");
}
function queue_view($nid) {
global $user;
$op = $_POST["op"];
$edit = $_POST["edit"];
/*
** An associative array with the possible voting options:
*/
$votes = array("+ 0" => t("neutral (+0)"), "+ 1" => t("post it (+1)"), "- 1" => t("dump it (-1)"));
/*
** Load the node from the database:
*/
$node = node_load(array("nid" => $nid, "moderate" => 1));
if ($user->uid != $node->uid && !field_get($node->users, $user->uid)) {
if ($op == t("Vote") && $votes[$edit["vote"]]) {
/*
** If it is a valid vote, record it.
*/
queue_vote($node, $edit["vote"]);
$output = t("Your vote has been recorded.");
}
else {
/*
** Display some explanation or voting guidelines:
*/
$output .= "". t("When new content is submitted it goes into the submission queue. Registered users with the appropriate permission can access this queue and vote whether they think the content should be approved or not. When enough people vote to approve the content it is displayed on the front page. On the other hand, if enough people vote to drop it, the content will disappear.") ."
";
/*
** Display a voting form:
*/
$output .= form_select(t("Your vote"), "vote", "", $votes);
$output .= form_hidden("id", $node->nid);
$output .= form_submit(t("Vote"));
$output = form($output);
}
}
theme("header");
node_view($node);
if ($output) {
theme("box", t("Moderate"), $output);
}
if ($node->comment && variable_get("queue_show_comments", 1)) {
module_invoke("comment", "render", $node);
}
theme("footer");
}
function queue_page() {
global $user, $vote;
if ($user->uid && user_access("access submission queue")) {
if (arg(1)) {
queue_view(arg(1));
}
else {
queue_overview();
}
}
else {
theme("header");
theme("box", t("Moderation queue"), message_access());
theme("footer");
}
}
function queue_block($op = "list", $delta = 0) {
if ($op == "list") {
$blocks[0]["info"] = t("Moderation results");
return $blocks;
}
else {
if (user_access("access submission queue") && (substr_count(request_uri(), url("queue")) || substr_count(request_uri(), url("node")))) {
global $user, $id;
if ($user->uid) {
$node = node_load(array("nid" => $id));
}
if (($user->uid == $node->uid || field_get($node->users, $user->uid)) && $node->moderate == 1) {
foreach (explode(",", $node->users) as $vote) {
if ($vote) {
$data = explode("=", $vote);
$account = user_load(array("uid" => $data[0]));
$output .= format_name($account) ." voted '$data[1]'.
";
}
}
$block["subject"] = t("Moderation results");
$block["content"] = $output ? $output : t("This node has not yet been moderated.");
}
}
elseif ((user_access("access submission queue") || user_access("administer blocks")) && (substr_count(request_uri(), url("user")) || substr_count(request_uri(), url("admin")))) {
$block["subject"] = t("Moderation results");
}
return $block;
}
}
function queue_nodeapi(&$node, $op, $arg = 0) {
switch ($op) {
case "fields":
return array("score", "users", "votes");
case "validate":
if ($node->nid && $node->moderate) {
// Reset votes when node is updated:
$node->score = 0;
$node->users = "";
$node->votes = 0;
}
break;
}
}
?>