From c42aa0a53490c2d234742e09336def962e01d96e Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Fri, 15 Mar 2019 13:43:03 +0000
Subject: [PATCH] Bug 22518: Add database update 'just in case'

All cases I could find where 'O' was referenced it was referenced
alongside 'FU'.. as such I've written this DB update to case any last
cases of 'O' and update them to 'FU' "just in case"

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
---
 installer/data/mysql/atomicupdate/bug_22518.perl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 installer/data/mysql/atomicupdate/bug_22518.perl

diff --git a/installer/data/mysql/atomicupdate/bug_22518.perl b/installer/data/mysql/atomicupdate/bug_22518.perl
new file mode 100644
index 0000000000..4d975d9b62
--- /dev/null
+++ b/installer/data/mysql/atomicupdate/bug_22518.perl
@@ -0,0 +1,16 @@
+$DBversion = 'XXX';    # will be replaced by the RM
+if ( CheckVersion($DBversion) ) {
+
+        $dbh->do(
+            qq{
+            UPDATE `accountlines`
+            SET
+              `accounttype` = 'FU'
+            WHERE
+              `accounttype` = 'O'
+          }
+        );
+
+    SetVersion($DBversion);
+    print "Upgrade to $DBversion done (Bug 22518 - Fix accounttype 'O' to 'FU')\n";
+}
-- 
2.39.5