Changeset 1093 for trunk/lib/OpenGuides.pm

Timestamp:

06/19/07 14:01:53 (17 months ago)

Author:

dom

Message:

Send email notifications when moderated nodes are edited (fixes #138)

Files:

• trunk/lib/OpenGuides.pm (modified) (2 diffs)

trunk/lib/OpenGuides.pm

@@ -1405 +1405 @@
     # Skip this for nodes needing moderation - this occurs for them once
     #  they've been moderated
-    unless($wiki->node_required_moderation($node)) {
+    my $needs_moderation = $wiki->node_required_moderation($node);
+    unless( $needs_moderation ) {
         $self->_autoCreateCategoryLocale(
                                           id       => $node,
@@ -1416 +1417 @@
 
     if ($written) {
+        if ( $needs_moderation and $config->send_moderation_notifications ) {
+            my $body = "The node '$node' in the OpenGuides installation\n" .
+                "'" . $config->site_name . "' requires moderation. ".
+                "Please visit\n" .
+                $config->script_url . $config->script_name .
+                "?action=show_needing_moderation\nat your convenience.\n";
+            eval {
+                OpenGuides::Utils->send_email(
+                    config        => $config,
+                    subject       => "Node requires moderation",
+                    body          => $body,
+                    admin         => 1,
+                    return_output => $return_output
+                );
+            };
+            warn $@ if $@;
+        }
+
         my $output = $self->redirect_to_node($node);
         return $output if $return_output;