# - #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.06.00.022";
+$VERSION = "16.06.00.023";
sub version {
return $VERSION;
+++ /dev/null
-#!/usr/bin/perl
-
-use Modern::Perl;
-use C4::Context;
-
-my $dbh = C4::Context->dbh;
-my $DBversion = 'XXX';
-
-# @RM: Copy from here
-
-#if ( CheckVersion($DBversion) ) {
-if ( 1 ) { #FIXME
- my $pref = C4::Context->preference('timeout');
- if( !$pref || $pref eq '12000000' ) {
- # update if pref is null or equals old default value
- $dbh->do(q|
-UPDATE systempreferences SET value = '1d', type = 'Free'
-WHERE variable = 'timeout'
- |);
- print "Upgrade to $DBversion done (Bug 17187)\nNote: Pref value for timeout has been adjusted.\n";
- } else {
- # only update pref type
- $dbh->do(q|
-UPDATE systempreferences SET type = 'Free'
-WHERE variable = 'timeout'
- |);
- print "Upgrade to $DBversion done (Bug 17187)\nNote: Pref value for timeout has not been adjusted.\n";
- }
- #SetVersion($DBversion); #FIXME
-}
SetVersion($DBversion);
}
+$DBversion = "16.06.00.023";
+if ( CheckVersion($DBversion) ) {
+ my $pref = C4::Context->preference('timeout');
+ if( !$pref || $pref eq '12000000' ) {
+ # update if pref is null or equals old default value
+ $dbh->do(q|
+ UPDATE systempreferences SET value = '1d', type = 'Free'
+ WHERE variable = 'timeout'
+ |);
+ print "Upgrade to $DBversion done (Bug 17187)\nNote: Pref value for timeout has been adjusted.\n";
+ } else {
+ # only update pref type
+ $dbh->do(q|
+ UPDATE systempreferences SET type = 'Free'
+ WHERE variable = 'timeout'
+ |);
+ print "Upgrade to $DBversion done (Bug 17187)\nNote: Pref value for timeout has not been adjusted.\n";
+ }
+ SetVersion($DBversion); #FIXME
+}
+
# 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.