add distinct_ids to key_destinct

This adds all ids of rows before destincting them

diff --git a/angular-server.pl b/angular-server.pl
index aff04f0..3da071c 100755 (executable)
--- a/angular-server.pl
+++ b/angular-server.pl
@@ -298,7 +298,16 @@ function(doc) {
        } elsif ( $format eq 'key_distinct' ) {
 
                my $found;
-               $json->{rows} = [ grep { ++$found->{ $_->{key} } == 1 } @{ $json->{rows} } ];
+               my @rows = grep {
+                       push @{ $found->{ $_->{key} } }, $_->{id};
+                       $#{ $found->{ $_->{key} } } == 0; # take just first registration
+               } @{ $json->{rows} };
+
+               $json->{rows} = [ map {
+                       $_->{distinct_ids} = $found->{ $_->{key} };
+                       $_;
+               } @rows ];
+
                $json->{distinct_rows} = scalar @{ $json->{rows} };
                warn "## distinct stats ", dump( $found );