Bug 32162: DBRev 22.06.00.084

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

diff --git a/Koha.pm b/Koha.pm
index 7c91e3d..2f64484 100644 (file)
--- a/Koha.pm
+++ b/Koha.pm
@@ -29,7 +29,7 @@ use vars qw{ $VERSION };
 # - #4 : the developer version. The 4th number is the database subversion.
 #        used by developers when the database changes. updatedatabase take care of the changes itself
 #        and is automatically called by Auth.pm when needed.
-$VERSION = "22.06.00.083";
+$VERSION = "22.06.00.084";
 
 sub version {
     return $VERSION;

diff --git a/installer/data/mysql/atomicupdate/bug_32162.pl b/installer/data/mysql/atomicupdate/bug_32162.pl
deleted file mode 100755 (executable)
index acfecdd..0000000
--- a/installer/data/mysql/atomicupdate/bug_32162.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-use Modern::Perl;
-
-return {
-    bug_number => "31162",
-    description => "Add primary key to erm_eholdings_packages_agreements",
-    up => sub {
-        my ($args) = @_;
-        my ($dbh, $out) = @$args{qw(dbh out)};
-        unless ( primary_key_exists('erm_eholdings_packages_agreements') ){
-            $dbh->do(q{
-                ALTER TABLE erm_eholdings_packages_agreements
-                DROP FOREIGN KEY erm_eholdings_packages_agreements_ibfk_1,
-                DROP FOREIGN KEY erm_eholdings_packages_agreements_ibfk_2,
-                DROP CONSTRAINT erm_eholdings_packages_agreements_uniq,
-                ADD PRIMARY KEY(`package_id`, `agreement_id`)
-            });
-            $dbh->do(q{
-                ALTER TABLE erm_eholdings_packages_agreements
-                ADD CONSTRAINT `erm_eholdings_packages_agreements_ibfk_1` FOREIGN KEY (`package_id`) REFERENCES `erm_eholdings_packages` (`package_id`) ON DELETE CASCADE ON UPDATE CASCADE,
-                ADD CONSTRAINT `erm_eholdings_packages_agreements_ibfk_2` FOREIGN KEY (`agreement_id`) REFERENCES `erm_agreements` (`agreement_id`) ON DELETE CASCADE ON UPDATE CASCADE
-            });
-        }
-    },
-};

diff --git a/installer/data/mysql/db_revs/220600084.pl b/installer/data/mysql/db_revs/220600084.pl
new file mode 100755 (executable)
index 0000000..acfecdd
--- /dev/null
+++ b/installer/data/mysql/db_revs/220600084.pl
@@ -0,0 +1,24 @@
+use Modern::Perl;
+
+return {
+    bug_number => "31162",
+    description => "Add primary key to erm_eholdings_packages_agreements",
+    up => sub {
+        my ($args) = @_;
+        my ($dbh, $out) = @$args{qw(dbh out)};
+        unless ( primary_key_exists('erm_eholdings_packages_agreements') ){
+            $dbh->do(q{
+                ALTER TABLE erm_eholdings_packages_agreements
+                DROP FOREIGN KEY erm_eholdings_packages_agreements_ibfk_1,
+                DROP FOREIGN KEY erm_eholdings_packages_agreements_ibfk_2,
+                DROP CONSTRAINT erm_eholdings_packages_agreements_uniq,
+                ADD PRIMARY KEY(`package_id`, `agreement_id`)
+            });
+            $dbh->do(q{
+                ALTER TABLE erm_eholdings_packages_agreements
+                ADD CONSTRAINT `erm_eholdings_packages_agreements_ibfk_1` FOREIGN KEY (`package_id`) REFERENCES `erm_eholdings_packages` (`package_id`) ON DELETE CASCADE ON UPDATE CASCADE,
+                ADD CONSTRAINT `erm_eholdings_packages_agreements_ibfk_2` FOREIGN KEY (`agreement_id`) REFERENCES `erm_agreements` (`agreement_id`) ON DELETE CASCADE ON UPDATE CASCADE
+            });
+        }
+    },
+};