Allow suggestion contributors to opt out of getting emailed about
comments.
Patch by yvi.
diffs (47 lines):
diff -r d044e6fc7ba4 -r 56db56f04d9f htdocs/site/suggest.bml
--- a/htdocs/site/suggest.bml Mon Mar 08 22:25:52 2010 +0000
+++ b/htdocs/site/suggest.bml Mon Mar 08 22:58:54 2010 +0000
@@ -36,6 +36,7 @@ body<=
return "<?needlogin?>" unless $remote;
my ( $ret, $suggestion, $response, $response2 );
+ my $emailselected = 1;
# the community to post to:
my $destination = LJ::load_user( 'dw_suggestions' );
@@ -84,7 +85,7 @@ body<=
'usejournal' => $destination->user,
'security' => 'public',
'usejournal_okay' => 1,
- 'props' => { 'taglist' => 'untagged' },
+ 'props' => { 'taglist' => 'untagged' , 'opt_noemail' =>
!$POST{email} },
'tz' => 'guess',
}, \$response, {
'nopassword' => 1,
@@ -183,6 +184,8 @@ body<=
$ret .= $spellcheck_html . "<br />";
}
+ $emailselected = $POST{email};
+
$ret .= "<hr>";
}
@@ -236,6 +239,17 @@ body<=
value => $POST{description}
} );
+ # does the user want to be notified of comments?
+ $ret .= "<p><label for='email' class='left options'>" . "Notify me of
comments" . "</label>";
+ $ret .= LJ::html_check( {
+ type => 'checkbox',
+ name => "email",
+ id => 'email',
+ class => 'check',
+ value => 1,
+ selected => $emailselected
+ } );
+
# and, the submit button:
$ret .= "<p>" . LJ::html_submit( 'post', "Post Suggestion" );
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
