Prevent scan of all problems on /_dev pages.

2 files changed, 5 insertions, 5 deletions

diff --git a/perllib/FixMyStreet/App/Controller/Develop.pm b/perllib/FixMyStreet/App/Controller/Develop.pm
index 1cc8f8906..ae7122fa1 100755
--- a/perllib/FixMyStreet/App/Controller/Develop.pm
+++ b/perllib/FixMyStreet/App/Controller/Develop.pm
@@ -38,7 +38,7 @@ Shows a list of links to preview HTML emails.
 
 sub index : Path('/_dev') : Args(0) {
     my ( $self, $c ) = @_;
-    $c->stash->{problem} = $c->model('DB::Problem')->first;
+    $c->stash->{problem} = $c->model('DB::Problem')->search(undef, { rows => 1 } )->first;
 }
 
 =item email_list
@@ -63,8 +63,8 @@ sub email_list : Path('/_dev/email') : Args(0) {
         'confirm_report_sent' => 1,
         'problem-moderated' => 1, 'questionnaire' => 1, 'submit' => 1);
 
-    my $update = $c->model('DB::Comment')->first;
-    my $problem = $c->model('DB::Problem')->first;
+    my $update = $c->model('DB::Comment')->search(undef, { rows => 1 } )->first;
+    my $problem = $c->model('DB::Problem')->search(undef, { rows => 1 } )->first;
 
     $c->stash->{templates} = [];
     foreach (sort keys %templates) {
diff --git a/perllib/FixMyStreet/DB/Result/User.pm b/perllib/FixMyStreet/DB/Result/User.pm
index 05e0b620a..246159009 100644
--- a/perllib/FixMyStreet/DB/Result/User.pm
+++ b/perllib/FixMyStreet/DB/Result/User.pm
@@ -176,8 +176,8 @@ sub phone_display {
 
 sub latest_anonymity {
     my $self = shift;
-    my $p = $self->problems->search(undef, { order_by => { -desc => 'id' } } )->first;
-    my $c = $self->comments->search(undef, { order_by => { -desc => 'id' } } )->first;
+    my $p = $self->problems->search(undef, { rows => 1, order_by => { -desc => 'id' } } )->first;
+    my $c = $self->comments->search(undef, { rows => 1, order_by => { -desc => 'id' } } )->first;
     my $p_created = $p ? $p->created->epoch : 0;
     my $c_created = $c ? $c->created->epoch : 0;
     my $obj = $p_created >= $c_created ? $p : $c;