- bugfix, select only projects which where created in epoch range

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