Bug 33051: Make 22600075.pl idempotent

As there is no check, this dbrev could cause trouble if run twice. It
doesn't look like it is going to get backported to 22.05, but just in
case...

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit 4a28d42959)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Tomás Cohen Arazi 2023-02-23 07:56:31 -03:00 committed by Martin Renvoize
parent 0588f7720f
commit e7056634a5
Signed by: martin.renvoize
GPG key ID: 422B469130441A0F

View file

@ -1,12 +1,17 @@
use Modern::Perl;
return {
bug_number => "31948",
bug_number => "31948",
description => "Add timestamp to tmp_holdsqueue table",
up => sub {
my ($args) = @_;
my ($dbh, $out) = @$args{qw(dbh out)};
$dbh->do(q{ALTER TABLE `tmp_holdsqueue` ADD `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP AFTER item_level_request});
unless ( column_exists( 'tmp_holdsqueue', 'timestamp' ) ) {
$dbh->do(q{
ALTER TABLE `tmp_holdsqueue`
ADD `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP AFTER item_level_request
});
}
},
};