From a040e8ae381b861c1b58b40a44299677a255c92f Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Mon, 4 Oct 2021 19:35:42 +0100
Subject: [PATCH] #814 when deleting device, avoid deleting jobs running on the
 device

---
 lib/App/Netdisco/DB/ResultSet/Device.pm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/lib/App/Netdisco/DB/ResultSet/Device.pm b/lib/App/Netdisco/DB/ResultSet/Device.pm
index 547bbe80..eca93926 100644
--- a/lib/App/Netdisco/DB/ResultSet/Device.pm
+++ b/lib/App/Netdisco/DB/ResultSet/Device.pm
@@ -716,14 +716,14 @@ sub delete {
         $ip, $gone, _plural($gone), $set ) ) if defined Dancer::Logger::logger();
   }
 
-  foreach my $set (qw/
-    Admin
-    DeviceSkip
-  /) {
-      $schema->resultset($set)->search(
-        { device => { '-in' => $devices->as_query } },
-      )->delete;
-  }
+  $schema->resultset('Admin')->search({
+    device => { '-in' => $devices->as_query },
+    status => { '-not_like' => 'queued-%' },
+  })->delete;
+
+  $schema->resultset('DeviceSkip')->search(
+    { device => { '-in' => $devices->as_query } },
+  )->delete;
 
   my $gone = $schema->resultset('Topology')->search({
     -or => [