diff options
| author | matthew <matthew> | 2008-02-01 13:35:32 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2008-02-01 13:35:32 +0000 |
| commit | 6a4866e9c83dff1e57813a56552cf4e22453a281 (patch) | |
| tree | 5394f1f8c16aeaecb04ddcab3ccf41d1bf1ab0a2 /perllib/CrossSell.pm | |
| parent | a0de8b6117508109764186bcbc943be651f05be1 (diff) | |
Prefix with advert=
Diffstat (limited to 'perllib/CrossSell.pm')
| -rw-r--r-- | perllib/CrossSell.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perllib/CrossSell.pm b/perllib/CrossSell.pm index d526a6163..07fdf8769 100644 --- a/perllib/CrossSell.pm +++ b/perllib/CrossSell.pm @@ -9,7 +9,7 @@ # Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: CrossSell.pm,v 1.6 2008-02-01 12:10:06 matthew Exp $ +# $Id: CrossSell.pm,v 1.7 2008-02-01 13:35:32 matthew Exp $ # Config parameters site needs set to call these functions: # OPTION_AUTH_SHARED_SECRET @@ -116,7 +116,7 @@ sub display_advert ($$;$%) { if (defined $data{council} && $data{council} eq '2326') { my ($out, $ad) = display_hfyc_cheltenham_advert($email, $name); if ($out) { - $q->{scratch} = $ad; + $q->{scratch} = "advert=$ad"; return $out; } } @@ -136,7 +136,7 @@ sub display_advert ($$;$%) { my $out = &$func($email, $name, $advert_text); use strict 'refs'; if ($out) { - $q->{scratch} = $advert_site . $rand; + $q->{scratch} = "advert=$advert_site$rand"; return $out; } @@ -147,7 +147,7 @@ sub display_advert ($$;$%) { @adverts = @new_adverts; } - $q->{scratch} = 'pb'; + $q->{scratch} = 'advert=pb'; return <<EOF; <div id="advert_thin" style="text-align:center"> <h2 style="font-size: 150%"> |