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 |
} |