diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/send-reports | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/bin/send-reports b/bin/send-reports index c713b0d3b..8a24805b2 100755 --- a/bin/send-reports +++ b/bin/send-reports @@ -6,7 +6,7 @@ # Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: send-reports,v 1.7 2007-02-05 11:57:08 matthew Exp $ +# $Id: send-reports,v 1.8 2007-02-05 19:48:06 matthew Exp $ use strict; require 5.8.0; @@ -43,7 +43,6 @@ my $unsent = dbh()->selectall_arrayref( FROM problem WHERE state = 'confirmed' AND whensent IS NULL", { Slice => {} }); foreach my $row (@$unsent) { # XXX Needs locks! - print 'Need to send problem #' . $row->{id} . ' to council ' . $row->{council} . "\n"; my @councils = split ',', $row->{council}; my $areas_info = mySociety::MaPit::get_voting_areas_info(\@councils); my @to; @@ -54,6 +53,7 @@ foreach my $row (@$unsent) { push @to, [ $council_email, $areas_info->{$council}->{name} ]; push @recips, $council_email; } + print 'Need to send problem #' . $row->{id} . ' to council(s) ' . join(',',@recips) . "\n"; my $template = File::Slurp::read_file("$FindBin::Bin/../templates/emails/submit-council"); my %h = map { $_ => $row->{$_} } qw/title detail/; @@ -69,7 +69,6 @@ foreach my $row (@$unsent) { From => [ mySociety::Config::get('CONTACT_EMAIL'), mySociety::Config::get('CONTACT_NAME') ], To => \@to, }); - print $email if $nomail; my $result; if (mySociety::Config::get('STAGING_SITE') || $nomail) { |