2 files changed, 37 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Zurich.pm b/perllib/FixMyStreet/Cobrand/Zurich.pm
index 27ea26605..d33e45fbd 100644
--- a/perllib/FixMyStreet/Cobrand/Zurich.pm
+++ b/perllib/FixMyStreet/Cobrand/Zurich.pm
@@ -9,6 +9,8 @@ use Scalar::Util 'blessed';
 use DateTime::Format::Pg;
 use Try::Tiny;
 
+use FixMyStreet::Geocode::Zurich;
+
 use strict;
 use warnings;
 use utf8;
@@ -949,6 +951,11 @@ sub admin_report_edit {
 
 }
 
+sub admin_district_lookup {
+    my ($self, $row) = @_;
+    FixMyStreet::Geocode::Zurich::admin_district($row->local_coords);
+}
+
 sub stash_states {
     my ($self, $problem) = @_;
     my $c = $self->{c};
diff --git a/perllib/FixMyStreet/Geocode/Zurich.pm b/perllib/FixMyStreet/Geocode/Zurich.pm
index 38df431c9..0b85ab7b2 100644
--- a/perllib/FixMyStreet/Geocode/Zurich.pm
+++ b/perllib/FixMyStreet/Geocode/Zurich.pm
@@ -24,6 +24,8 @@ sub setup_soap {
 
     # Variables for the SOAP web service
     my $geocoder = FixMyStreet->config('GEOCODER');
+    return unless ref $geocoder eq 'HASH';
+
     my $url = $geocoder->{url};
     my $username = $geocoder->{username};
     my $password = $geocoder->{password};
@@ -49,6 +51,34 @@ sub setup_soap {
     $method = SOAP::Data->name('getLocation95')->attr({ xmlns => $attr });
 }
 
+sub admin_district {
+    my ($e, $n) = @_;
+
+    setup_soap();
+    return unless $soap;
+
+    my $attr = 'http://ch/geoz/fixmyzuerich/service';
+    my $bo = 'http://ch/geoz/fixmyzuerich/bo';
+    my $method = SOAP::Data->name('getInfoByLocation')->attr({ xmlns => $attr });
+    my $location = SOAP::Data->name(
+        'location' => \SOAP::Data->value(
+            SOAP::Data->name('bo:easting', $e),
+            SOAP::Data->name('bo:northing', $n),
+        )
+    )->attr({ 'xmlns:bo' => $bo });
+    my $search = SOAP::Data->value($location);
+    my $result;
+    eval {
+        $result = $soap->call($method, $security, $search);
+    };
+    if ($@) {
+        warn $@ if FixMyStreet->config('STAGING_SITE');
+        return 'The geocoder appears to be down.';
+    }
+    $result = $result->result;
+    return $result;
+}
+
 # string STRING CONTEXT
 # Looks up on Zurich web service a user-inputted location.
 # Returns array of (LAT, LON, ERROR), where ERROR is either undef, a string, or