Correct argument.

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'));