From 35cdac09a965693817983bae73a9a144e57f01ad Mon Sep 17 00:00:00 2001
From: "Karl O. Pinc kop@karlpinc.com" <kop@karlpinc.com>
Date: Sun, 5 Oct 2025 22:13:17 +0000
Subject: [PATCH] Prevent ARRIVALS.ArID from changing

---
 db/schemas/lib/triggers/Makefile           |  3 +-
 db/schemas/lib/triggers/create/arrivals.m4 | 51 ++++++++++++++++++++++
 db/schemas/lib/triggers/drop/arrivals.m4   | 23 ++++++++++
 3 files changed, 76 insertions(+), 1 deletion(-)
 create mode 100644 db/schemas/lib/triggers/create/arrivals.m4
 create mode 100644 db/schemas/lib/triggers/drop/arrivals.m4

diff --git a/db/schemas/lib/triggers/Makefile b/db/schemas/lib/triggers/Makefile
index 0c3b270..c649d09 100644
--- a/db/schemas/lib/triggers/Makefile
+++ b/db/schemas/lib/triggers/Makefile
@@ -31,7 +31,8 @@ ORDER := comm_ids \
          biography \
          follows \
          events \
-         roles
+         roles \
+         arrivals
 
 DROP_EXISTING := true
 
diff --git a/db/schemas/lib/triggers/create/arrivals.m4 b/db/schemas/lib/triggers/create/arrivals.m4
new file mode 100644
index 0000000..7be5842
--- /dev/null
+++ b/db/schemas/lib/triggers/create/arrivals.m4
@@ -0,0 +1,51 @@
+dnl Copyright (C) 2025 The Meme Factory, Inc.   http://www.karlpinc.com/
+dnl
+dnl   This program is free software: you can redistribute it and/or modify it
+dnl   under the terms of the GNU Affero General Public License as published by
+dnl   the Free Software Foundation, either version 3 of the License, or
+dnl   (at your option) any later version.
+dnl
+dnl   This program is distributed in the hope that it will be useful,
+dnl   but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+dnl   GNU Affero General Public License for more details.
+dnl
+dnl   You should have received a copy of the GNU Affero General Public License
+dnl   along with this program.  If not, see <https://www.gnu.org/licenses/>.
+dnl
+dnl Triggers for the follows table
+dnl
+dnl Karl O. Pinc <kop@karlpinc.com>
+
+dnl m4 includes
+include(`copyright.m4')dnl
+include(`constants.m4')dnl
+include(`macros.m4')dnl
+
+
+RAISE INFO 'arrivals_func';
+CREATE OR REPLACE FUNCTION arrivals_func ()
+  RETURNS trigger
+  LANGUAGE plpgsql
+  sdb_function_set_search_path
+  AS $$
+  BEGIN
+  -- Function for arrivals insert and update triggers
+  --
+  -- AGPL_notice(`  --', `2025',
+                 `The Meme Factory, Inc., www.karlpinc.com')
+
+  IF TG_OP = 'UPDATE' THEN
+    cannot_change(`ARRIVALS', `ArID')
+  END IF;
+
+  RETURN NULL;
+  END;
+$$;
+
+
+RAISE INFO 'arrivals_trigger';
+CREATE TRIGGER arrivals_trigger
+  AFTER INSERT OR UPDATE
+  ON arrivals FOR EACH ROW
+  EXECUTE PROCEDURE arrivals_func();
diff --git a/db/schemas/lib/triggers/drop/arrivals.m4 b/db/schemas/lib/triggers/drop/arrivals.m4
new file mode 100644
index 0000000..ec10cfc
--- /dev/null
+++ b/db/schemas/lib/triggers/drop/arrivals.m4
@@ -0,0 +1,23 @@
+dnl Copyright (C) 2025 The Meme Factory, Inc.   http://www.karlpinc.com/
+dnl
+dnl   This program is free software: you can redistribute it and/or modify
+dnl   it under the terms of the GNU Affero General Public License as published by
+dnl   the Free Software Foundation, either version 3 of the License, or
+dnl   (at your option) any later version.
+dnl
+dnl   This program is distributed in the hope that it will be useful,
+dnl   but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+dnl   GNU Affero General Public License for more details.
+dnl
+dnl   You should have received a copy of the GNU Affero General Public License
+dnl   along with this program.  If not, see <https://www.gnu.org/licenses/>.
+dnl
+dnl Drop triggers for arrivals table
+dnl
+dnl Karl O. Pinc <kop@karlpinc.com>
+
+dnl m4 includes
+include(`copyright.m4')dnl
+
+DROP FUNCTION IF EXISTS arrivals_func() CASCADE;
-- 
2.34.1