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

Bug 20773: DBRev 18.06.00.016

Browse source 
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
Nick Clemens 2018-08-21 11:25:53 +00:00
parent a4ec768e37
commit 7dab4cd903
3 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Koha.pm
View file

@ -29,7 +29,7 @@ use vars qw{ $VERSION };
# - #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 = "18.06.00.015";
$VERSION = "18.06.00.016";
sub version {
return $VERSION;

11
installer/data/mysql/atomicupdate/bug_20773.perl
View file

@ -1,11 +0,0 @@
$DBversion = 'XXX'; # will be replaced by the RM
if( CheckVersion( $DBversion ) ) {
my $dtf = Koha::Database->new->schema->storage->datetime_parser;
my $days = C4::Context->preference('MaxPickupDelay') || 7;
my $date = DateTime->now()->add( days => $days );
my $sql = q|UPDATE reserves SET expirationdate = ? WHERE expirationdate IS NULL AND waitingdate IS NOT NULL|;
$dbh->do( $sql, undef, $dtf->format_datetime($date) );
SetVersion( $DBversion );
print "Upgrade to $DBversion done (Bug 20724 - expirationdate filled for waiting holds)\n";
}

11
installer/data/mysql/updatedatabase.pl
View file

@ -16255,6 +16255,17 @@ if( CheckVersion( $DBversion ) ) {
print "Upgrade to $DBversion done (Bug 21226 - Remove prefs OCLCAffiliateID, XISBN and XISBNDailyLimit)\n";
}
$DBversion = '18.06.00.016';
if( CheckVersion( $DBversion ) ) {
my $dtf = Koha::Database->new->schema->storage->datetime_parser;
my $days = C4::Context->preference('MaxPickupDelay') || 7;
my $date = DateTime->now()->add( days => $days );
my $sql = q|UPDATE reserves SET expirationdate = ? WHERE expirationdate IS NULL AND waitingdate IS NOT NULL|;
$dbh->do( $sql, undef, $dtf->format_datetime($date) );
SetVersion( $DBversion );
print "Upgrade to $DBversion done (Bug 20773 - expirationdate filled for waiting holds)\n";
}
# SEE bug 13068
# if there is anything in the atomicupdate, read and execute it.