cache the bing gecode data when we fetch in send-reports

1 files changed, 6 insertions, 1 deletions

diff --git a/perllib/FixMyStreet/Cobrand/Default.pm b/perllib/FixMyStreet/Cobrand/Default.pm
index 283de7d75..2e031d740 100644
--- a/perllib/FixMyStreet/Cobrand/Default.pm
+++ b/perllib/FixMyStreet/Cobrand/Default.pm
@@ -545,10 +545,15 @@ Used by send-reports to attach nearest things to the bottom of the report
 =cut
 
 sub find_closest {
-    my ( $self, $latitude, $longitude ) = @_;
+    my ( $self, $latitude, $longitude, $problem ) = @_;
     my $str = '';
 
     if ( my $j = FixMyStreet::Geocode::Bing::reverse( $latitude, $longitude ) ) {
+        # cache the bing results for use in alerts
+        if ( $problem ) {
+            $problem->geocode( $j );
+            $problem->update;
+        }
         if ($j->{resourceSets}[0]{resources}[0]{name}) {
             $str .= sprintf(_("Nearest road to the pin placed on the map (automatically generated by Bing Maps): %s"),
                 $j->{resourceSets}[0]{resources}[0]{name}) . "\n\n";