From fed93f35b39fa41e647dd74a313db6360b41d12a Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <andreas.romeyke@slub-dresden.de>
Date: Fri, 19 Apr 2024 17:29:32 +0200
Subject: [PATCH] =?UTF-8?q?-=20added=20indices=20to=20support=20faster=20q?=
=?UTF-8?q?uery=20(needed=20for=20analysis/finde=5Flzaid=5Fdubletten=5Fexk?=
=?UTF-8?q?l=5Fgel=C3=B6scht.sh)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
perl/exit_strategy.pl | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 9b115e1..56c6e59 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -324,17 +324,22 @@ 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 ASC);
SQL_INDEX1
my $sql2=<<"SQL_INDEX2";
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);
+ CREATE INDEX delete_index ON deleted (aip_id ASC);
SQL_INDEX3
+ my $sql4=<<"SQL_INDEX4";
+ CREATE INDEX aip_index2 ON aip (lza_id ASC);
+SQL_INDEX4
+
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;
+ my $sth3 = $dbh->prepare($sql3); $sth3->execute() or die "sql problem detected", $dbh->errstr;
+ my $sth4 = $dbh->prepare($sql4); $sth4->execute() or die "sql problem detected", $dbh->errstr;
return 1;
}
--
GitLab