- added sourcedata_index

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

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;
 }