# - #4 : the developer version. The 4th number is the database subversion.
# used by developers when the database changes. updatedatabase take care of the changes itself
# and is automatically called by Auth.pm when needed.
-$VERSION = "17.05.05.001";
+$VERSION = "17.05.05.002";
sub version {
return $VERSION;
+++ /dev/null
-$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";
-}
print "Upgrade to $DBversion done (Bug 18811 - Visibility settings inconsistent between framework and authority editor)\n";
}
+$DBversion = '17.05.05.002';
+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";
+}
+
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
# SEE bug 13068
# if there is anything in the atomicupdate, read and execute it.