From 3d840153d1e9736f126b04b96eea4367d096996b Mon Sep 17 00:00:00 2001
From: Nick Clemens <nick@bywatersolutions.com>
Date: Fri, 19 Apr 2019 14:51:08 +0000
Subject: [PATCH] Bug 22564: DBRev 18.12.00.060

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
---
 Koha.pm                                          |    2 +-
 installer/data/mysql/atomicupdate/bug_22564.perl |   17 -----------------
 installer/data/mysql/updatedatabase.pl           |   18 ++++++++++++++++++
 3 files changed, 19 insertions(+), 18 deletions(-)
 delete mode 100644 installer/data/mysql/atomicupdate/bug_22564.perl

diff --git a/Koha.pm b/Koha.pm
index 2c78ad9..4e0eac2 100644
--- 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 = "18.12.00.059";
+$VERSION = "18.12.00.060";
 
 sub version {
     return $VERSION;
diff --git a/installer/data/mysql/atomicupdate/bug_22564.perl b/installer/data/mysql/atomicupdate/bug_22564.perl
deleted file mode 100644
index 98305cc..0000000
--- a/installer/data/mysql/atomicupdate/bug_22564.perl
+++ /dev/null
@@ -1,17 +0,0 @@
-$DBversion = 'XXX';    # will be replaced by the RM
-if ( CheckVersion($DBversion) ) {
-
-    my $rows = $dbh->do(
-        qq{
-        UPDATE `accountlines`
-        SET
-          `accounttype` = 'L',
-          `status`      = 'REPLACED'
-        WHERE
-          `accounttype` = 'Rep'
-      }
-    );
-
-    SetVersion($DBversion);
-    printf "Upgrade to $DBversion done (Bug 22564 - Fix accounttype 'Rep' - %d updated)\n", $rows;
-}
diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl
index a47735b..71e1db8 100755
--- a/installer/data/mysql/updatedatabase.pl
+++ b/installer/data/mysql/updatedatabase.pl
@@ -18236,6 +18236,24 @@ if( CheckVersion( $DBversion ) ) {
     print "Upgrade to $DBversion done (Bug 22532 - Remove import_records z3950random column)\n";
 }
 
+$DBversion = '18.12.00.060';
+if ( CheckVersion($DBversion) ) {
+
+    my $rows = $dbh->do(
+        qq{
+        UPDATE `accountlines`
+        SET
+          `accounttype` = 'L',
+          `status`      = 'REPLACED'
+        WHERE
+          `accounttype` = 'Rep'
+      }
+    );
+
+    SetVersion($DBversion);
+    printf "Upgrade to $DBversion done (Bug 22564 - Fix accounttype 'Rep' - %d updated)\n", $rows;
+}
+
 # SEE bug 13068
 # if there is anything in the atomicupdate, read and execute it.
 
-- 
1.7.2.5