diff options
author | matthew <matthew> | 2007-02-03 00:11:03 +0000 |
---|---|---|
committer | matthew <matthew> | 2007-02-03 00:11:03 +0000 |
commit | e6d0b1e3ed683e0f32bd7f12f635a91e94e29230 (patch) | |
tree | 59ed192e16e4166b14496cc6f4d3ec32fb208100 | |
parent | 3cc2bc7fa6dbfbeb8d3eccd4bcf63623245820ac (diff) |
Typos; BCC council submissions to contact address.
-rwxr-xr-x | bin/send-reports | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/bin/send-reports b/bin/send-reports index f554ee454..6a2b79825 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.5 2007-02-02 16:31:52 matthew Exp $ +# $Id: send-reports,v 1.6 2007-02-03 00:11:04 matthew Exp $ use strict; require 5.8.0; @@ -42,7 +42,8 @@ foreach my $row (@$unsent) { 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, @recips); + my @to; + my @recips = (mySociety::Config::get('CONTACT_EMAIL')); foreach my $council (@councils) { my $council_email = dbh()->selectrow_array('SELECT email FROM contacts WHERE area_id=?', {}, $council); throw Error::Simple('Missing email!') unless $council_email; |