From 408eaad3fa72fc6ad80dde65e7a3141f88a7765a Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <andreas.romeyke@slub-dresden.de>
Date: Fri, 19 Apr 2024 17:03:11 +0200
Subject: [PATCH] - add index on "deleted" table
---
perl/exit_strategy.pl | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 12363c2..9b115e1 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -324,13 +324,17 @@ SQL_DELETE_PLAN
###############################################################################
sub write_index_creation($dbh) {
my $sql1=<<"SQL_INDEX1";
- CREATE UNIQUE INDEX aip_index on aip (ie_id, version);
+ CREATE UNIQUE INDEX aip_index ON aip (ie_id, version);
SQL_INDEX1
my $sql2=<<"SQL_INDEX2";
- CREATE UNIQUE INDEX sourcedata_index on sourcedatafile (aip_id, name);
+ CREATE UNIQUE INDEX sourcedata_index ON sourcedatafile (aip_id, name);
SQL_INDEX2
+ my $sql3=<<"SQL_INDEX3";
+ CREATE UNIQUE INDEX delete_index ON deleted (aip_id);
+SQL_INDEX3
my $sth1 = $dbh->prepare($sql1); $sth1->execute() or die "sql problem detected", $dbh->errstr;
my $sth2 = $dbh->prepare($sql2); $sth2->execute() or die "sql problem detected", $dbh->errstr;
+ my $sth3 = $dbh->prepare($sql3); $sth2->execute() or die "sql problem detected", $dbh->errstr;
return 1;
}
--
GitLab