1 files changed, 48 insertions, 0 deletions
diff --git a/perllib/CrossSell.pm b/perllib/CrossSell.pm
index f9cde6936..f9bb73d6a 100644
--- a/perllib/CrossSell.pm
+++ b/perllib/CrossSell.pm
@@ -142,6 +142,49 @@ 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
+}
+
+sub display_wtt_link {
+    return <<EOF;
+<h1 style="padding-top:0.5em">WriteToThem</h1>
+<p>
+Need to write to a politician? Try <a href="https://writetothem.com">WriteToThem</a> - great 
+for campaigns too.
+</p>
+EOF
+}
+
+sub display_app_links {
+    return <<EOF;
+<h1 style="padding-top:0.5em">New! FixMyStreet Apps for Apple and Android</h1>
+<p>
+We've built all-new FixMyStreet phone apps, for your use. Key
+improvements include offline reporting (for where there is bad signal)
+and a better interface for adding problem reports more quickly and
+easily. Please give the apps a go and tell us what you think.
+</p>
+
+<p>
+<a href="https://play.google.com/store/apps/details?id=org.mysociety.FixMyStreet">
+  <img alt="FixMyStreet Android app on Google Play"
+       src="/cobrands/fixmystreet/images/google_play_logo.png" />
+</a>
+
+<a href="https://itunes.apple.com/gb/app/fixmystreet/id297456545">
+  <img alt="FixMyStreet app on the App Store"
+       src="/cobrands/fixmystreet/images/itunes_store_logo.png" />
+</a><br>
+</p>
+EOF
+}
+
 # Not currently used, needs more explanation and testing; perhaps in future.
 sub display_gny_groups {
     my ($lon, $lat) = @_;
@@ -201,6 +244,11 @@ sub display_advert ($$;$%) {
 #EOF
 
     #unless (defined $data{done_tms} && $data{done_tms}==1) {
+    $c->stash->{scratch} = 'advert=wtt';
+    return '<div style="margin: 0 5em; border-top: dotted 1px #666666;">'
+        . display_app_links()
+        . '</div>';
+
     $c->stash->{scratch} = 'advert=news';
     my $auth_signature = '';
     unless (defined $data{emailunvalidated} && $data{emailunvalidated}==1) {