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>

diff --git a/installer/data/mysql/db_revs/220600075.pl b/installer/data/mysql/db_revs/220600075.pl
index df2dbb2..279284a 100755 (executable)
--- a/installer/data/mysql/db_revs/220600075.pl
+++ b/installer/data/mysql/db_revs/220600075.pl
@@ -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
+            });
+        }
     },
 };