aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/CrossSell.pm
diff options
context:
space:
mode:
authorStruan Donald <struan@exo.org.uk>2014-02-18 14:54:45 +0000
committerStruan Donald <struan@exo.org.uk>2014-02-18 14:54:45 +0000
commit131d182ad218ba9cf733277b0ff2c5efb6a48dc5 (patch)
treef02d5ccee0503ae0d7d6607a9d3fc89978cc737d /perllib/CrossSell.pm
parent271e6219853c9017a4f91377e9ff56e54d5df801 (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.pm14
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) {