From 4335ca7432ed286d15c81a4beded44003319c1ae Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <art1@andreas-romeyke.de>
Date: Thu, 22 Jul 2021 16:25:13 +0200
Subject: [PATCH] - added sourcedata_index
---
doc/decisions/ADR-sqlite.asciidoc | 3 ++-
perl/exit_strategy.pl | 11 +++++++----
2 files changed, 9 insertions(+), 5 deletions(-)
diff --git a/doc/decisions/ADR-sqlite.asciidoc b/doc/decisions/ADR-sqlite.asciidoc
index cbba0d5..4934b54 100644
--- a/doc/decisions/ADR-sqlite.asciidoc
+++ b/doc/decisions/ADR-sqlite.asciidoc
@@ -38,7 +38,8 @@ Bisher wird ein Script generiert, welches SQL für eine PostgreSQL-Datenbank erz
Mit der Nutzung von SQLite hätte man zum einen sofort eine lauffähige Datenbank, die nicht erst administriert werden muss. Zum anderen erspart man sich den Zwischenschritt der SQL-Script Generierung.
// Aus ersten Tests auf Testsystem vom 2021-07-22:
-// 15.742 IEs, DB ist 27MB groß, 791s zum Erzeugen
+// 15.742 IEs, DB ist 33MB groß, 32s zum Erzeugen
+/
== Konsequenzen
diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index f90c411..0c13d5e 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -231,11 +231,14 @@ SQL_DC_PLAN
# add INDEX and other TRICKs to increase performance
###############################################################################
sub write_index_creation($dbh) {
- my $sql=<<"SQL_INDEX";
+ my $sql1=<<"SQL_INDEX1";
CREATE UNIQUE INDEX aip_index on aip (ie_id);
-SQL_INDEX
- my $sth = $dbh->prepare($sql);
- $sth->execute() or die "sql problem detected", $dbh->errstr;
+SQL_INDEX1
+ my $sql2=<<"SQL_INDEX2";
+ CREATE UNIQUE INDEX sourcedata_index on sourcedatafile (aip_id, name);
+SQL_INDEX2
+ 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;
return 1;
}
--
GitLab