diff options
| author | louise <louise> | 2009-11-11 15:59:49 +0000 |
|---|---|---|
| committer | louise <louise> | 2009-11-11 15:59:49 +0000 |
| commit | 978ce2384ce9a8cedc1ff35f5b0f8f38f61f04c0 (patch) | |
| tree | 446a53f0f656077d0a6c182d286bc7eeea6cb06a /perllib/Page.pm | |
| parent | 809aeebe0325b174bbe631f1688145ec75c8046d (diff) | |
Add ability to report updates as offensive
Diffstat (limited to 'perllib/Page.pm')
| -rw-r--r-- | perllib/Page.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index af6959a53..18bc10ae5 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Page.pm,v 1.203 2009-11-09 16:16:18 louise Exp $ +# $Id: Page.pm,v 1.204 2009-11-11 15:59:49 louise Exp $ # package Page; @@ -859,6 +859,10 @@ sub display_problem_updates($$) { if ($display_photos && $row->{has_photo}) { $out .= '<p><img alt="" height=100 src="/photo?tn=1;c=' . $row->{id} . '"></p>'; } + my $contact = '/contact?id=' . $id . ';update_id='. $row->{id}; + my $contact_url = Cobrand::url($cobrand, $contact, $q); + $out .= $q->a({rel => 'nofollow', class => 'unsuitable-report', href => $contact_url}, _('Offensive? Unsuitable? Tell us')); + $out .= '</div>'; } $out .= '</div>'; |