diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2013-01-31 18:06:21 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2013-01-31 18:06:21 +0000 |
| commit | 34223cdcd952b213688089a7a49245ef578ced17 (patch) | |
| tree | ead345ebf5314ae89637e24afba7fd71b9defe38 /perllib/FixMyStreet/DB/ResultSet/Problem.pm | |
| parent | 69f59d98735e951ffe7845e05448fa5f226cbfe5 (diff) | |
Add some email checking to Zurich test.
Diffstat (limited to 'perllib/FixMyStreet/DB/ResultSet/Problem.pm')
| -rw-r--r-- | perllib/FixMyStreet/DB/ResultSet/Problem.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/DB/ResultSet/Problem.pm b/perllib/FixMyStreet/DB/ResultSet/Problem.pm index 8bf0fc93a..dc4643673 100644 --- a/perllib/FixMyStreet/DB/ResultSet/Problem.pm +++ b/perllib/FixMyStreet/DB/ResultSet/Problem.pm @@ -217,10 +217,12 @@ sub categories_summary { } sub send_reports { + my ( $rs, $site_override ) = @_; + # Set up site, language etc. my ($verbose, $nomail) = CronFns::options(); my $base_url = mySociety::Config::get('BASE_URL'); - my $site = CronFns::site($base_url); + my $site = $site_override || CronFns::site($base_url); my $states = [ 'confirmed', 'fixed' ]; $states = [ 'unconfirmed', 'confirmed', 'in progress', 'planned', 'closed' ] if $site eq 'zurich'; |