# - #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 = "16.11.13.000";
+$VERSION = "16.11.13.001";
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";
-}
SetVersion($DBversion);
}
+$DBversion = "16.11.13.001";
+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.