diff options
Diffstat (limited to 'perllib/FixMyStreet/DB/ResultSet/Problem.pm')
-rw-r--r-- | perllib/FixMyStreet/DB/ResultSet/Problem.pm | 30 |
1 files changed, 8 insertions, 22 deletions
diff --git a/perllib/FixMyStreet/DB/ResultSet/Problem.pm b/perllib/FixMyStreet/DB/ResultSet/Problem.pm index cfd7f9b40..17282a656 100644 --- a/perllib/FixMyStreet/DB/ResultSet/Problem.pm +++ b/perllib/FixMyStreet/DB/ResultSet/Problem.pm @@ -4,6 +4,14 @@ use base 'DBIx::Class::ResultSet'; use strict; use warnings; +use CronFns; + +use Utils; +use mySociety::Config; +use mySociety::EmailUtil; +use mySociety::MaPit; + +use FixMyStreet::App; use FixMyStreet::SendReport::Email; my $site_restriction; @@ -207,28 +215,6 @@ sub categories_summary { } sub send_reports { - - - use Digest::MD5; - use Encode; - use Error qw(:try); - use JSON; - use LWP::UserAgent; - use LWP::Simple; - use CGI; # Trying awkward kludge - use CronFns; - - use FixMyStreet::App; - - use EastHantsWSDL; - use Utils; - use mySociety::Config; - use mySociety::EmailUtil; - use mySociety::MaPit; - use mySociety::Web qw(ent); - - use Open311; - # Set up site, language etc. my ($verbose, $nomail) = CronFns::options(); my $base_url = mySociety::Config::get('BASE_URL'); |