diff options
author | matthew <matthew> | 2007-03-21 21:59:35 +0000 |
---|---|---|
committer | matthew <matthew> | 2007-03-21 21:59:35 +0000 |
commit | 993ce7959e6af76a41133112d53b6e4ce874b535 (patch) | |
tree | 3fb27bee9d58ceadd7e9059913440b4edafd3999 /bin/send-reports | |
parent | aa894e46795c649b346b382ee743061651bf330f (diff) |
Bugs.
Diffstat (limited to 'bin/send-reports')
-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 9af93f54a..9b94b04d2 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.26 2007-03-21 21:53:51 matthew Exp $ +# $Id: send-reports,v 1.27 2007-03-21 21:59:35 matthew Exp $ use strict; require 5.8.0; @@ -49,10 +49,9 @@ my $unsent = dbh()->selectall_arrayref( foreach my $row (@$unsent) { # XXX Needs locks! - my @all_councils = split /,\|/, $row->{council}; + my @all_councils = split /,|\|/, $row->{council}; my ($councils, $missing) = $row->{council} =~ /^([\d,]+)(?:\|([\d,]+))?/; my @councils = split /,/, $councils; - my @missing = split /,/, $missing; my $areas_info = mySociety::MaPit::get_voting_areas_info(\@all_councils); my (@to, @dear, %recips); my $all_confirmed = 1; |