From 46a98b10c3ed73d370e0acb5020b7448fe55f382 Mon Sep 17 00:00:00 2001
From: "Karl O. Pinc kop@karlpinc.com" <kop@karlpinc.com>
Date: Tue, 9 Jun 2026 23:36:02 +0000
Subject: [PATCH] Validate GROOMINGS.ExtractedBy against PEOPLE.Active

---
 db/schemas/lib/triggers/create/groomings.m4 | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/db/schemas/lib/triggers/create/groomings.m4 b/db/schemas/lib/triggers/create/groomings.m4
index a576b73..7678c41 100644
--- a/db/schemas/lib/triggers/create/groomings.m4
+++ b/db/schemas/lib/triggers/create/groomings.m4
@@ -108,6 +108,13 @@ CREATE OR REPLACE FUNCTION groomings_func ()
     END;
   END IF;
 
+  changequote({,})dnl
+  person_active({GROOMINGS}, {ExtractedBy},
+                {'Key (EID = ('
+                       || NEW.EID
+                       || ')'})
+  changequote(`,')dnl
+
   RETURN NULL;
   END;
 $$;
-- 
2.34.1