diff options
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Reports.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Reports.pm b/perllib/FixMyStreet/App/Controller/Reports.pm index 144e6e227..a4dcaeeb8 100644 --- a/perllib/FixMyStreet/App/Controller/Reports.pm +++ b/perllib/FixMyStreet/App/Controller/Reports.pm @@ -419,7 +419,8 @@ sub load_and_group_problems : Private { } if ( !$problem->bodies_str ) { # Problem was not sent to any body, add to all possible areas XXX - while ($problem->areas =~ /,(\d+)(?=,)/g) { + my $a = $problem->areas; # Store, as otherwise is looked up every iteration. + while ($a =~ /,(\d+)(?=,)/g) { add_row( $c, $problem, $1, \%problems, \@pins ); } } else { |