diff options
| -rw-r--r-- | perllib/Page.pm | 12 | ||||
| -rwxr-xr-x | web/index.cgi | 4 |
2 files changed, 8 insertions, 8 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index 7fdddef5d..e66c279d2 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.200 2009-11-04 18:53:37 matthew Exp $ +# $Id: Page.pm,v 1.201 2009-11-04 19:04:58 matthew Exp $ # package Page; @@ -748,7 +748,7 @@ sub _part { } } -sub display_problem_meta_line { +sub display_problem_meta_line($$) { my ($q, $problem) = @_; my $out = ''; if ($q->{site} eq 'emptyhomes') { @@ -793,7 +793,7 @@ sub display_problem_meta_line { return $out; } -sub display_problem_detail { +sub display_problem_detail($) { my $problem = shift; (my $detail = $problem->{detail}) =~ s/\r//g; my $out = ''; @@ -803,7 +803,7 @@ sub display_problem_detail { return $out; } -sub display_problem_photo { +sub display_problem_photo($$) { my ($q, $problem) = @_; my $cobrand = get_cobrand($q); my $display_photos = Cobrand::allow_photo_display($cobrand); @@ -815,7 +815,7 @@ sub display_problem_photo { } # Display information about problem -sub display_problem_text { +sub display_problem_text($$) { my ($q, $problem) = @_; my $out = $q->h1(ent($problem->{title})); @@ -828,7 +828,7 @@ sub display_problem_text { } # Display updates -sub display_problem_updates { +sub display_problem_updates($$) { my ($id, $q) = @_; my $updates = select_all( "select id, name, extract(epoch from created) as created, text, diff --git a/web/index.cgi b/web/index.cgi index 18f67696b..038f721d1 100755 --- a/web/index.cgi +++ b/web/index.cgi @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: index.cgi,v 1.311 2009-11-04 18:53:38 matthew Exp $ +# $Id: index.cgi,v 1.312 2009-11-04 19:04:59 matthew Exp $ use strict; use Standard; @@ -953,7 +953,7 @@ sub display_problem { $vars{problem_title} = ent($problem->{title}); $vars{problem_meta} = Page::display_problem_meta_line($q, $problem); $vars{problem_detail} = Page::display_problem_detail($problem); - $vars{problem_photo} = Page::display_problem_photo($problem); + $vars{problem_photo} = Page::display_problem_photo($q, $problem); my $contact_url = Cobrand::url($cobrand, NewURL($q, -retain => 1, pc => undef, -url=>'/contact?id=' . $input{id}), $q); $vars{unsuitable} = $q->a({rel => 'nofollow', href => $contact_url}, _('Offensive? Unsuitable? Tell us')); |