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