Add ability for moderators to attach a note to posts approved from the
moderation queue.
Patch by yvi.
diffs (40 lines):
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.
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
