Only send out "your account has expired emails" when a community or 
journal is visible (not deleted, suspended, etc)

        patch by denise. 

diffs (21 lines):

diff -r 8644e87a1ec0 -r 4920af67513f bin/worker/paidstatus
--- a/bin/worker/paidstatus     Mon May 10 05:53:41 2010 +0000
+++ b/bin/worker/paidstatus     Mon May 10 06:16:16 2010 +0000
@@ -172,7 +172,7 @@ sub expire_user {
 
     $log->( 'Expiring %s(%d).', $u->user, $u->id );
 
-    if ( $u->is_community ) {
+    if ( $u->is_community && $u->is_visible ) {
         # send an email to every maintainer
         my $maintus = LJ::load_userids( $u->maintainer_userids );
         foreach my $maintu ( values %$maintus ) {
@@ -189,7 +189,7 @@ sub expire_user {
                 } ),
             } );
         }
-    } else {
+    } elsif ( $u->is_visible ) {
         LJ::send_mail( {
             to => $u->email_raw,
             fromname => $LJ::SITENAME,
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog

Reply via email to