From c8ba11c7c56b65bb6c2b957da04540f4cbf9efb5 Mon Sep 17 00:00:00 2001
From: David Gustafsson <david.gustafsson@ub.gu.se>
Date: Tue, 5 Mar 2024 16:47:29 +0100
Subject: [PATCH] Bug 33268: If rules exists add rules to preserve current
 behaviour

---
 ...reserve_current_overlay_rules_behaviour.pl | 30 +++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 installer/data/mysql/atomicupdate/bug_33268-add_rules_to_preserve_current_overlay_rules_behaviour.pl

diff --git a/installer/data/mysql/atomicupdate/bug_33268-add_rules_to_preserve_current_overlay_rules_behaviour.pl b/installer/data/mysql/atomicupdate/bug_33268-add_rules_to_preserve_current_overlay_rules_behaviour.pl
new file mode 100755
index 00000000000..6beab362913
--- /dev/null
+++ b/installer/data/mysql/atomicupdate/bug_33268-add_rules_to_preserve_current_overlay_rules_behaviour.pl
@@ -0,0 +1,30 @@
+use Modern::Perl;
+
+return {
+    bug_number  => "33268",
+    description => "Add rules to preserve current marc record overlay rules behavior",
+    up          => sub {
+        my ($args) = @_;
+        my ( $dbh, $out ) = @$args{qw(dbh out)};
+
+        # Insert filter wildcard rules equivalent to the default
+        # fallback rule (overwrite) if wildcard rules exists for a module
+        # and other filter wildcard rule not already defined
+        my @modules = $dbh->selectall_array( q{SELECT DISTINCT `module` FROM `marc_overlay_rules` WHERE `filter` = "*"} );
+        for my $module ( map { $_->[0] } @modules ) {
+            my @filters = $dbh->selectall_array(
+                q{SELECT DISTINCT `filter` FROM `marc_overlay_rules` WHERE `module` = ? AND `filter` <> "*"},
+                undef,
+                $module
+            );
+            for my $filter ( map { $_->[0] } @filters ) {
+                $dbh->do(
+                    q{INSERT INTO `marc_overlay_rules`(`tag`, `module`, `filter`, `add`, `append`, `remove`, `delete`) VALUES(?, ?, ?, ?, ?, ?, ?)},
+                    undef,
+                    '*', $module, $filter, 1, 1, 1, 1
+                );
+            }
+        }
+        say $out "Added record overlay rules to preserve current behavior";
+    },
+};
-- 
2.43.0