[dw-free] Allow community moderators to add note when accepting a post

[mark]

[commit: http://hg.dwscoalition.org/dw-free/rev/98f0ace7d49d]

http://bugs.dwscoalition.org/show_bug.cgi?id=2368

Add ability for moderators to attach a note to posts approved from the
moderation queue.

Patch by yvi.

Files modified:

• htdocs/community/moderate.bml
• htdocs/community/moderate.bml.text

--------------------------------------------------------------------------------
diff -r c8f2f6f4000c -r 98f0ace7d49d htdocs/community/moderate.bml
--- a/htdocs/community/moderate.bml	Mon Feb 22 07:48:49 2010 +0000
+++ b/htdocs/community/moderate.bml	Mon Feb 22 19:46:07 2010 +0000
@@ -117,6 +117,8 @@ body<=
             my $body = "Your message submitted to the moderated community $c->{'user'} ";
             if ($why_mail eq 'success') {
                 $body .= "has been approved and successfully posted.\n\n$posturl";
+                $body .= "The moderator that approved your post has attached the following note: \n\n$POST{why}\n\n"
+                    if $POST{why};
             } elsif ($why_mail eq 'proterror') {
                 $body .= "has been approved, but failed to be posted due to the following protocol error:\n$prot_err\n\n";
             } elsif ($why_mail eq 'reject') {
@@ -233,6 +235,15 @@ body<=
         $ret .= "<input type='hidden' name='auth' value='" . $req->{'_moderate'}->{'authcode'} . "'>";
         $ret .= "<input type='submit' value='$ML{'.approve.button'}'>";
         $ret .= "</center>";
+        if ( $poster && $poster->email_status eq 'A' ) {
+            $ret .= "<?p $ML{'.approve.note'} p?>";
+            $ret .= LJ::html_textarea({
+                name => "why",
+                class => "text",
+                rows => 10,
+                cols => 60,
+            });
+        }
         $ret .= "<p><input type='checkbox' name='preapprove'> " .
             BML::ml('.approve.preapprove', {'user'=>"<?ljuser $poster->{'user'} ljuser?>"});
         $ret .= "</form>";
diff -r c8f2f6f4000c -r 98f0ace7d49d htdocs/community/moderate.bml.text
--- a/htdocs/community/moderate.bml.text	Mon Feb 22 07:48:49 2010 +0000
+++ b/htdocs/community/moderate.bml.text	Mon Feb 22 19:46:07 2010 +0000
@@ -2,6 +2,8 @@
 .approve.button=Yes, approve it
 
 .approve.header=Approve this entry?
+
+.approve.note=You can attach a note to the poster and it will be emailed to the user.
 
 .approve.preapprove=Also, add user [[user]] to the list of pre-approved users for this community.
 
--------------------------------------------------------------------------------