Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

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

Browse source 
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>
This commit is contained in:
Marcel de Rooy 2017-06-15 15:47:21 +02:00 committed by Jonathan Druart
parent c1112236f9
commit aa03981e79
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
installer/data/mysql/atomicupdate/bug18801.perl Normal file
View file

@ -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";
}