Bug 18801: DBRev 16.05.18.001

diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl
index b44e610..3a5985e 100755 (executable)
--- a/installer/data/mysql/updatedatabase.pl
+++ b/installer/data/mysql/updatedatabase.pl
@@ -13030,6 +13030,26 @@ if ( CheckVersion($DBversion) ) {
     SetVersion($DBversion);
 }
 
+$DBversion = '16.05.18.001';
+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 a
+uth type codes)\n";
+}
+
+
 # DEVELOPER PROCESS, search for anything to execute in the db_update directory
 # SEE bug sss
 # if there is anything in the atomicupdate, read and execute it.