Bug 18801: [Follow-up] Dbrev to repair bad auth type codes

Test plan
Run updatedatabase.

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

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
(cherry picked from commit aa03981e79a10bd5a032f13533d93f0b87bd37f7)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
(cherry picked from commit ed45e76bf928a5c929525b8f2795524ada217a1e)
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

diff --git a/installer/data/mysql/atomicupdate/bug18801.perl b/installer/data/mysql/atomicupdate/bug18801.perl
new file mode 100644 (file)
index 0000000..8a8fd50
--- /dev/null
+++ b/installer/data/mysql/atomicupdate/bug18801.perl
@@ -0,0 +1,15 @@
+$DBversion = 'XXX';  # will be replaced by the RM
+if( CheckVersion( $DBversion ) ) {
+    # Fetch all auth types
+    my $authtypes = $dbh->selectcol_arrayref( q|SELECT authtypecode FROM auth_types| );
+
+    if( grep { $_ eq 'Default' } @$authtypes ) {
+        # If this exists as an authtypecode, we don't do anything
+    } else {
+        # Replace the incorrect Default by empty string
+        $dbh->do( q|UPDATE auth_header SET authtypecode='' WHERE authtypecode='Default'| );
+    }
+
+    SetVersion( $DBversion );
+    print "Upgrade to $DBversion done (Bug 18801 - Update incorrect Default auth type codes)\n";
+}