aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormatthew <matthew>2007-03-05 16:40:12 +0000
committermatthew <matthew>2007-03-05 16:40:12 +0000
commita1bfc7d5f1d56f31f7fda7a0b82622555f8fc795 (patch)
tree0661531972836576142b7345954f8ef2ccf08543
parentb3e27b78e672e5f39340c6b9c80009a099d9fc0e (diff)
Set From to be user, too many councils have poor email interfaces.
-rwxr-xr-xbin/send-reports6
1 files changed, 3 insertions, 3 deletions
diff --git a/bin/send-reports b/bin/send-reports
index e5274be2b..6461111ee 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.14 2007-02-08 15:44:08 matthew Exp $
+# $Id: send-reports,v 1.15 2007-03-05 16:40:12 matthew Exp $
use strict;
require 5.8.0;
@@ -83,9 +83,9 @@ foreach my $row (@$unsent) {
my $email = mySociety::Email::construct_email({
_template_ => $template,
_parameters_ => \%h,
- From => [ mySociety::Config::get('CONTACT_EMAIL'), mySociety::Config::get('CONTACT_NAME') ],
+ Sender => [ mySociety::Config::get('CONTACT_EMAIL'), mySociety::Config::get('CONTACT_NAME') ],
To => \@to,
- 'Reply-To' => [ [ $row->{email}, $row->{name} ] ]
+ From => [ $row->{email}, $row->{name} ]
});
my $result;