diff options
author | Struan Donald <struan@exo.org.uk> | 2014-02-18 14:54:45 +0000 |
---|---|---|
committer | Struan Donald <struan@exo.org.uk> | 2014-02-18 14:54:45 +0000 |
commit | 131d182ad218ba9cf733277b0ff2c5efb6a48dc5 (patch) | |
tree | f02d5ccee0503ae0d7d6607a9d3fc89978cc737d /perllib/CrossSell.pm | |
parent | 271e6219853c9017a4f91377e9ff56e54d5df801 (diff) |
Add links to user survey to emails, front page and confirmation pages
Use the cross sell function to put an 'advert' for the survey on the
various confirmation pages
Create new alert email templates for fixmystreet co-brand so we can
include the survey link on those alone
All as one commit for ease of reverting when the survey is done.
Diffstat (limited to 'perllib/CrossSell.pm')
-rw-r--r-- | perllib/CrossSell.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/perllib/CrossSell.pm b/perllib/CrossSell.pm index f9cde6936..231bb9361 100644 --- a/perllib/CrossSell.pm +++ b/perllib/CrossSell.pm @@ -142,6 +142,15 @@ details. You can unsubscribe at any time.</p> EOF } +sub display_survey_link { + return <<EOF; +<h1 style="padding-top:0.5em">User Survey</h1> +<p> +We're running a survey to help us understand who uses our sites. If you have 10-15 minutes to spare then we'd be grateful if you could <a href="http://questions.mysociety.org/S/fms/w/" target="_blank">take part</a>. +</p> +EOF +} + # Not currently used, needs more explanation and testing; perhaps in future. sub display_gny_groups { my ($lon, $lat) = @_; @@ -201,6 +210,11 @@ sub display_advert ($$;$%) { #EOF #unless (defined $data{done_tms} && $data{done_tms}==1) { + $c->stash->{scratch} = 'advert=survey'; + return '<div style="margin: 0 5em; border-top: dotted 1px #666666;">' + . display_survey_link() + . '</div>'; + $c->stash->{scratch} = 'advert=news'; my $auth_signature = ''; unless (defined $data{emailunvalidated} && $data{emailunvalidated}==1) { |