diff options
author | Matthew Somerville <matthew-github@dracos.co.uk> | 2017-03-16 12:48:52 +0000 |
---|---|---|
committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2017-03-16 12:48:52 +0000 |
commit | 4afd0026262dd74425d40ac78649db3d8148c883 (patch) | |
tree | d3c3dec2debd71ebbd4419bbc2330956d8dc601e /perllib/FixMyStreet | |
parent | 86414debecd82fb66a03dc360944afc3ae4be3d6 (diff) |
[fixmystreet.com] Remove friendly A/B test.
This has been running for a year, added in e17eb20.
Diffstat (limited to 'perllib/FixMyStreet')
-rw-r--r-- | perllib/FixMyStreet/Cobrand/FixMyStreet.pm | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm index 1fb822893..1052bac0e 100644 --- a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm +++ b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm @@ -60,26 +60,5 @@ sub extra_contact_validation { return %errors; } -sub report_form_extras { - ( { name => 'gender', required => 0 }, { name => 'variant', required => 0 } ) -} - -sub ask_gender_question { - my $self = shift; - - return 1 unless $self->{c}->user; - - my $reports = $self->{c}->model('DB::Problem')->search({ - user_id => $self->{c}->user->id, - extra => { like => '%gender%' } - }, { order_by => { -desc => 'id' } }); - - while (my $report = $reports->next) { - my $gender = $report->get_extra_metadata('gender'); - return 0 if $gender =~ /female|male|other|unknown/; - } - return 1; -} - 1; |