- added payload output

lib/SLUB/LZA/TA/Output.pm

@@ -22,6 +22,7 @@ sub line_result_mapper {
         LDP-funder
         LDP-lender
         LDP-project
+        Payload-Oxum
         SLUBArchiv-archivalValueDescription
         SLUBArchiv-exportToArchiveDate
         SLUBArchiv-externalId
@@ -52,6 +53,7 @@ sub line_result_mapper {
             if (exists($bid->{ "bim:$t" }) ) {
                 $line{$linekey} = $bid->{ "bim:$t" };
             } else {
+             #   use Data::Printer;
              #say "$t -->";
              #say np($tfm);
             }
@@ -61,7 +63,23 @@ sub line_result_mapper {
     if (defined $opt->{with_filecount}) { $line{filecount} = $partial_result->{_source}->{file_count} };
     if (defined $opt->{with_path}) { $line{path}= $partial_result->{_source}->{filePath} };
     if (defined $opt->{with_score}) { $line{score} = $partial_result->{_score}}
-    if (defined $opt->{with_size}) { $line{size}= $partial_result->{_source}->{size} };
+    if (defined $opt->{with_size}) { $line{size}= $partial_result->{_source}->{size} * 1024 * 1024 };
+    if (defined $opt->{with_payload_size} or defined $opt->{with_payload_filecount}) {
+        my $payload_oxum = $line{'payload_oxum'};
+        my $payload_size = "";
+        my $payload_filecount = "";
+        if (defined $payload_oxum) {
+            ($payload_size, $payload_filecount) = split /\./, $payload_oxum;
+        }
+        if (defined $opt->{with_payload_size}) {
+            $line{payload_size} = $payload_size;
+        }
+        if (defined $opt->{with_payload_filecount}) {
+            $line{payload_filecount} = $payload_filecount;
+        }
+        delete $line{'payload_oxum'};
+
+    }
     return \%line;
 }