Bug 32967: DBRev 22.12.00.007

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

diff --git a/Koha.pm b/Koha.pm
index 9a4f253..f2a0005 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.12.00.006";
+$VERSION = "22.12.00.007";
 
 sub version {
     return $VERSION;

diff --git a/installer/data/mysql/atomicupdate/bug_32967_-_fix_recalls_notices.pl b/installer/data/mysql/atomicupdate/bug_32967_-_fix_recalls_notices.pl
deleted file mode 100755 (executable)
index ba2ad4c..0000000
--- a/installer/data/mysql/atomicupdate/bug_32967_-_fix_recalls_notices.pl
+++ /dev/null
@@ -1,20 +0,0 @@
-use Modern::Perl;
-
-return {
-    bug_number => "32967",
-    description => "Recalls notices are using the wrong database columns",
-    up => sub {
-        my ($args) = @_;
-        my ($dbh, $out) = @$args{qw(dbh out)};
-
-        $dbh->do(q{ UPDATE letter SET content=REPLACE(content,'recalls.branchcode','recalls.pickup_library_id') WHERE code='PICKUP_RECALLED_ITEM' });
-        $dbh->do(q{ UPDATE letter SET content=REPLACE(content,'recalls.expirationdate','recalls.expiration_date') WHERE code='PICKUP_RECALLED_ITEM' });
-
-        say $out "Fix column names in PICKUP_RECALLED_ITEM notice";
-
-        $dbh->do(q{ UPDATE letter SET content=REPLACE(content,'recalls.waitingdate','recalls.waiting_date') WHERE code='RECALL_REQUESTER_DET' });
-        $dbh->do(q{ UPDATE letter SET content=REPLACE(content,'recalls.recallnotes','recalls.notes') WHERE code='RECALL_REQUESTER_DET' });
-
-        say $out "Fix column names in RECALL_REQUESTER_DET notice";
-    },
-};

diff --git a/installer/data/mysql/db_revs/221200007.pl b/installer/data/mysql/db_revs/221200007.pl
new file mode 100755 (executable)
index 0000000..ba2ad4c
--- /dev/null
+++ b/installer/data/mysql/db_revs/221200007.pl
@@ -0,0 +1,20 @@
+use Modern::Perl;
+
+return {
+    bug_number => "32967",
+    description => "Recalls notices are using the wrong database columns",
+    up => sub {
+        my ($args) = @_;
+        my ($dbh, $out) = @$args{qw(dbh out)};
+
+        $dbh->do(q{ UPDATE letter SET content=REPLACE(content,'recalls.branchcode','recalls.pickup_library_id') WHERE code='PICKUP_RECALLED_ITEM' });
+        $dbh->do(q{ UPDATE letter SET content=REPLACE(content,'recalls.expirationdate','recalls.expiration_date') WHERE code='PICKUP_RECALLED_ITEM' });
+
+        say $out "Fix column names in PICKUP_RECALLED_ITEM notice";
+
+        $dbh->do(q{ UPDATE letter SET content=REPLACE(content,'recalls.waitingdate','recalls.waiting_date') WHERE code='RECALL_REQUESTER_DET' });
+        $dbh->do(q{ UPDATE letter SET content=REPLACE(content,'recalls.recallnotes','recalls.notes') WHERE code='RECALL_REQUESTER_DET' });
+
+        say $out "Fix column names in RECALL_REQUESTER_DET notice";
+    },
+};