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