diff options
author | Matthew Somerville <matthew@mysociety.org> | 2011-05-26 18:54:48 +0100 |
---|---|---|
committer | Matthew Somerville <matthew@mysociety.org> | 2011-05-26 18:54:48 +0100 |
commit | 67cfdc9bf5948bec4c4f88e19ac1b4e7370a995f (patch) | |
tree | a8ea53899f31f6d99194cd3a05cdd5d61e68760a /perllib/FixMyStreet/App/View/Web.pm | |
parent | 4308906bc2695f1fd034b8f5f1a6be657e6d4dfe (diff) |
Questionnaire submission code.
Diffstat (limited to 'perllib/FixMyStreet/App/View/Web.pm')
-rw-r--r-- | perllib/FixMyStreet/App/View/Web.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perllib/FixMyStreet/App/View/Web.pm b/perllib/FixMyStreet/App/View/Web.pm index 61d7c6ca5..8f1aaa085 100644 --- a/perllib/FixMyStreet/App/View/Web.pm +++ b/perllib/FixMyStreet/App/View/Web.pm @@ -16,7 +16,7 @@ __PACKAGE__->config( ENCODING => 'utf8', render_die => 1, expose_methods => [ - 'loc', 'nget', 'tprintf', 'display_crossell_advert', 'prettify_epoch', + 'loc', 'nget', 'tprintf', 'display_crosssell_advert', 'prettify_epoch', 'split_into_lines', ], ); @@ -70,16 +70,16 @@ sub tprintf { return sprintf $format, @args; } -=head2 display_crossell_advert +=head2 display_crosssell_advert - [% display_crossell_advert( email, name ) %] + [% display_crosssell_advert( email, name ) %] Displays a crosssell advert if permitted by the cobrand. =cut -sub display_crossell_advert { - my ( $self, $c, $email, $name ) = @_; +sub display_crosssell_advert { + my ( $self, $c, $email, $name, %data ) = @_; return unless $c->cobrand->allow_crosssell_adverts(); @@ -87,7 +87,7 @@ sub display_crossell_advert { my $q = { site => $c->cobrand->moniker, }; $q->{site} = 'fixmystreet' if $q->{site} eq 'default'; - return CrossSell::display_advert( $q, $email, $name ); + return CrossSell::display_advert( $q, $email, $name, %data ); } =head2 Page::prettify_epoch |