From 35ed34ed2f0f16764d868a7bff35ad36b30aaf82 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sat, 23 Dec 2017 17:52:14 +0000
Subject: [PATCH] when neighbors only can restrict the links search

---
 lib/App/Netdisco/Web/Plugin/Device/Neighbors.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/App/Netdisco/Web/Plugin/Device/Neighbors.pm b/lib/App/Netdisco/Web/Plugin/Device/Neighbors.pm
index 29425774..05586848 100644
--- a/lib/App/Netdisco/Web/Plugin/Device/Neighbors.pm
+++ b/lib/App/Netdisco/Web/Plugin/Device/Neighbors.pm
@@ -74,7 +74,12 @@ ajax '/ajax/data/device/netmap' => require_login sub {
 
     # LINKS
 
-    my $rs = schema('netdisco')->resultset('Virtual::DeviceLinks')->search({}, {
+    my $rs = schema('netdisco')->resultset('Virtual::DeviceLinks')->search({
+      ($mapshow eq 'neighbors' ? ( -or => [
+          { left_ip  => $qdev->ip },
+          { right_ip => $qdev->ip },
+      ]) : ())
+    }, {
       columns => [qw/left_ip right_ip/],
       result_class => 'DBIx::Class::ResultClass::HashRefInflator',
     });