From 180f2d4642125312a942dd2236e135bde7237cff Mon Sep 17 00:00:00 2001
From: Andreas Romeyke <andreas.romeyke@slub-dresden.de>
Date: Tue, 28 May 2024 14:33:18 +0200
Subject: [PATCH] - bugfix, select only projects which where created in epoch
 range

---
 .../TA/Archivematica/Elasticsearch/PrepareQuery.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/lib/SLUB/LZA/TA/Archivematica/Elasticsearch/PrepareQuery.pm b/lib/SLUB/LZA/TA/Archivematica/Elasticsearch/PrepareQuery.pm
index 717e9c2..948ea1f 100644
--- a/lib/SLUB/LZA/TA/Archivematica/Elasticsearch/PrepareQuery.pm
+++ b/lib/SLUB/LZA/TA/Archivematica/Elasticsearch/PrepareQuery.pm
@@ -225,6 +225,20 @@ sub prepare_ldpprojects_query {
             "includes" => 'transferMetadata.bim:bag-info_dict.bim:LDP-project'
         }
     };
+    if (exists $opt->{creationdate_epochs}) {
+        my @must = @{ $ldpprojects_query->{query}->{bool}->{must} };
+        push @must,
+            { "range" =>
+                {
+                    "created" => {
+                        "gte" => $opt->{creationdate_epochs}->{from},
+                        "lt"  => $opt->{creationdate_epochs}->{to},
+                    }
+
+                }
+            };
+        $ldpprojects_query->{query}->{bool}->{must}=\@must;
+    }
     return $ldpprojects_query;
 }
 
-- 
GitLab