- add query parser for given ldp project

- fixed query parser for ldp funder saxony
- add query for list of ldprojects

lib/SLUB/LZA/TA/Archivematica/Elasticsearch/PrepareQuery.pm

@@ -51,17 +51,24 @@ sub prepare_aip_query ($opt) {
             }
         }
     }
+    if (exists $opt->{only_ldp_project}) {
+        push @must, {
+            "match_phrase" => {
+                "transferMetadata.bim:bag-info_dict.bim:LDP-project" => $opt->{only_ldp_project}
+            }
+        }
+    }
     if (exists $opt->{only_ldp_saxon}) {
         push @must, {
             "match_phrase" => {
-                "transferMetadata.bim:bag-info_dict.bim:LDP-funder" => 'LDP: Sachsen'
+                "transferMetadata.bim:bag-info_dict.bim:LDP-funder" => 'LDP Sachsen'
             }
         }
     }
     if (exists $opt->{only_ldp_without_saxon}) {
         push @must_not, {
             "match_phrase" => {
-                "transferMetadata.bim:bag-info_dict.bim:LDP-funder" => 'LDP: Sachsen'
+                "transferMetadata.bim:bag-info_dict.bim:LDP-funder" => 'LDP Sachsen'
             }
         };
         push @must, {
@@ -198,4 +205,27 @@ sub prepare_files_query {
     return;
 }
 
+sub prepare_ldpprojects_query {
+    my ($self, $opt, $args) = @_;
+    my $ldpprojects_query = {
+        query     => {
+            bool => {
+                must =>
+                    [
+                        {
+                            "exists" => {
+                                field => "transferMetadata.bim:bag-info_dict.bim:LDP-project"
+                            }
+                        }
+                    ],
+            }
+        },
+        "size"    => 10000,
+        "_source" => {
+            "includes" => 'transferMetadata.bim:bag-info_dict.bim:LDP-project'
+        }
+    };
+    return $ldpprojects_query;
+}
+
 1;