diff options
Diffstat (limited to 'perllib')
-rw-r--r-- | perllib/FixMyStreet/Cobrand/LichfieldDC.pm | 40 | ||||
-rw-r--r-- | perllib/FixMyStreet/Cobrand/Reading.pm | 58 | ||||
-rw-r--r-- | perllib/FixMyStreet/Cobrand/Southampton.pm | 31 |
3 files changed, 0 insertions, 129 deletions
diff --git a/perllib/FixMyStreet/Cobrand/LichfieldDC.pm b/perllib/FixMyStreet/Cobrand/LichfieldDC.pm deleted file mode 100644 index a2eb1a859..000000000 --- a/perllib/FixMyStreet/Cobrand/LichfieldDC.pm +++ /dev/null @@ -1,40 +0,0 @@ -package FixMyStreet::Cobrand::LichfieldDC; -use base 'FixMyStreet::Cobrand::UKCouncils'; - -use strict; -use warnings; - -sub council_id { return 2434; } -sub council_area { return 'Lichfield district'; } -sub council_name { return 'Lichfield District Council'; } -sub council_url { return 'lichfielddc'; } -sub is_two_tier { return 1; } - -# Different to councils parent due to this being a two-tier council. If we get -# more, this can be genericised in the parent. -sub problems_clause { - return { bodies_str => { like => '%2434%' } }; -} - -sub path_to_web_templates { - my $self = shift; - return [ FixMyStreet->path_to( 'templates/web', $self->moniker )->stringify ]; -} - -# FIXME - need to double check this is all correct -sub disambiguate_location { - my $self = shift; - return { - %{ $self->SUPER::disambiguate_location() }, - centre => '52.688198,-1.804966', - span => '0.1196,0.218675', - bounds => [ 52.584891, -1.963232, 52.807793, -1.586291 ], - }; -} - -sub map_type { - return 'OSM'; -} - -1; - diff --git a/perllib/FixMyStreet/Cobrand/Reading.pm b/perllib/FixMyStreet/Cobrand/Reading.pm deleted file mode 100644 index 462006532..000000000 --- a/perllib/FixMyStreet/Cobrand/Reading.pm +++ /dev/null @@ -1,58 +0,0 @@ -package FixMyStreet::Cobrand::Reading; -use base 'FixMyStreet::Cobrand::UKCouncils'; - -use strict; -use warnings; - -use Carp; - -sub council_id { return 2596; } -sub council_area { return 'Reading'; } -sub council_name { return 'Reading City Council'; } -sub council_url { return 'reading'; } - -sub path_to_web_templates { - my $self = shift; - return [ FixMyStreet->path_to( 'templates/web', $self->moniker )->stringify ]; -} - -sub disambiguate_location { - my $self = shift; - return { - %{ $self->SUPER::disambiguate_location() }, - town => 'Reading', - centre => '51.452983,-0.983827', - span => '0.083355,0.1245', - bounds => [ 51.409779, -1.052994, 51.493134, -0.928494 ], - }; -} - -sub get_report_stats { - my $self = shift; - - my ( $cobrand, $main_site ) = ( 0, 0 ); - - $self->{c}->log->debug( 'X' x 60 ); - my $stats = $self->{c}->model('DB::Problem')->search( - { confirmed => { '>=', '2011-11-01' } }, - { - select => [ { count => 'id', -as => 'cobrand_count' }, 'cobrand' ], - group_by => [qw/cobrand/] - } - ); - - while ( my $stat = $stats->next ) { - if ( $stat->cobrand eq $self->moniker ) { - $cobrand += $stat->get_column( 'cobrand_count' ); - } else { - $main_site += $stat->get_column( 'cobrand_count' ); - } - } - - return { - cobrand => $cobrand, - main_site => $main_site, - }; -} - -1; diff --git a/perllib/FixMyStreet/Cobrand/Southampton.pm b/perllib/FixMyStreet/Cobrand/Southampton.pm deleted file mode 100644 index cebe1a07e..000000000 --- a/perllib/FixMyStreet/Cobrand/Southampton.pm +++ /dev/null @@ -1,31 +0,0 @@ -package FixMyStreet::Cobrand::Southampton; -use base 'FixMyStreet::Cobrand::UKCouncils'; - -use strict; -use warnings; - -sub council_id { return 2567; } -sub council_area { return 'Southampton'; } -sub council_name { return 'Southampton City Council'; } -sub council_url { return 'southampton'; } - -sub path_to_web_templates { - my $self = shift; - return [ FixMyStreet->path_to( 'templates/web', $self->moniker )->stringify ]; -} - -sub disambiguate_location { - my $self = shift; - return { - %{ $self->SUPER::disambiguate_location() }, - town => 'Southampton', - centre => '50.913822,-1.400493', - span => '0.084628,0.15701', - bounds => [ 50.871508, -1.478998, 50.956136, -1.321988 ], - }; -} - -sub send_questionnaires { return 0; } - -1; - |