@@ -, +, @@ --- installer/data/mysql/atomicupdate/bug_20724.perl | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 installer/data/mysql/atomicupdate/bug_20724.perl --- a/installer/data/mysql/atomicupdate/bug_20724.perl +++ a/installer/data/mysql/atomicupdate/bug_20724.perl @@ -0,0 +1,8 @@ +$DBversion = 'XXX'; # will be replaced by the RM +if( CheckVersion( $DBversion ) ) { + my $sql = q|UPDATE reserves SET expirationdate = DATE_ADD( NOW(), INTERVAL ? DAY) WHERE expirationdate IS NULL AND waitingdate IS NOT NULL|; + $dbh->do( $sql, undef, C4::Context->preference('MaxPickupDelay') || 7 ); + + SetVersion( $DBversion ); + print "Upgrade to $DBversion done (Bug 20724 - expirationdate filled for waiting holds)\n"; +} --