View | Details | Raw Unified | Return to bug 18801
Collapse All | Expand All

(-)a/installer/data/mysql/atomicupdate/bug18801.perl (-1 / +15 lines)
Line 0 Link Here
0
- 
1
$DBversion = 'XXX';  # will be replaced by the RM
2
if( CheckVersion( $DBversion ) ) {
3
    # Fetch all auth types
4
    my $authtypes = $dbh->selectcol_arrayref( q|SELECT authtypecode FROM auth_types| );
5
6
    if( grep { $_ eq 'Default' } @$authtypes ) {
7
        # If this exists as an authtypecode, we don't do anything
8
    } else {
9
        # Replace the incorrect Default by empty string
10
        $dbh->do( q|UPDATE auth_header SET authtypecode='' WHERE authtypecode='Default'| );
11
    }
12
13
    SetVersion( $DBversion );
14
    print "Upgrade to $DBversion done (Bug 18801 - Update incorrect Default auth type codes)\n";
15
}

Return to bug 18801