Show category/note in cron.

1 files changed, 10 insertions, 7 deletions

diff --git a/bin/send-reports b/bin/send-reports
index 7ac596876..02d1d1630 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.29 2007-03-23 09:50:29 matthew Exp $
+# $Id: send-reports,v 1.30 2007-03-26 17:00:12 matthew Exp $
 
 use strict;
 require 5.8.0;
@@ -40,7 +40,7 @@ die "No arguments or specify --nomail" if (@ARGV>1);
 my $nomail = 0;
 $nomail = 1 if (@ARGV==1 && $ARGV[0] eq '--nomail');
 
-my %notgot;
+my (%notgot, %note);
 my $unsent = dbh()->selectall_arrayref(
     "SELECT id, council, category, title, detail, name, email, phone, used_map,
     easting, northing
@@ -57,13 +57,14 @@ foreach my $row (@$unsent) {
     my $all_confirmed = 1;
     foreach my $council (@councils) {
         my $name = $areas_info->{$council}->{name};
-        my ($council_email, $confirmed) = dbh()->selectrow_array(
-            "SELECT email,confirmed FROM contacts WHERE deleted='f'
+        my ($council_email, $confirmed, $note) = dbh()->selectrow_array(
+            "SELECT email,confirmed,note FROM contacts WHERE deleted='f'
                 and area_id=? AND category=?", {}, $council, $row->{category});
         next unless $council_email; # Ignore missing councils, or non-responsible councils
         unless ($confirmed) {
             $all_confirmed = 0;
-            $notgot{$council_email}++;
+            $notgot{$council_email}{$row->{category}}++;
+            $note{$council_email}{$row->{category}} = $note;
         }
         push @to, [ $council_email, $name ];
         push @dear, $name;
@@ -129,6 +130,8 @@ If you know of an appropriate contact address, please do get in touch. ]\n\n";
 }
 
 print "Council email addresses that need checking:\n";
-foreach (keys %notgot) {
-    print $notgot{$_} . ' ' . $_ . "\n";
+foreach my $e (keys %notgot) {
+    foreach my $c (keys %{$notgot{$e}}) {
+        print $notgot{$e}{$c} . " problem, to $e category $c (" . $note{$e}{$c}. ")\n";
+    }
 }