Correct is_discoverable check in Undiscovered Neighbors report

Netdisco/Changes

@@ -1,3 +1,9 @@
+2.021001
+
+  [BUG FIXES]
+
+  * Correct is_discoverable check in Undiscovered Neighbors report
+
 2.021000 - 2014-01-08
 
   [NEW FEATURES]

Netdisco/lib/App/Netdisco/Web/Plugin/AdminTask/UndiscoveredNeighbors.pm

@@ -24,10 +24,9 @@ get '/ajax/content/admin/undiscoveredneighbors' => require_role admin => sub {
     return unless scalar @devices;
 
     # Don't include devices excluded from discovery by config
-    my @results = grep {
-        is_discoverable( $_->{'ports'}->{remote_ip},
-            $_->{'ports'}->{'remote_type'} )
-    } @devices;
+    my @results
+        = grep { is_discoverable( $_->{'remote_ip'}, $_->{'remote_type'} ) }
+        @devices;
 
     return unless scalar @results;