implement delete

diff --git a/trigger/KinoSearch.pm b/trigger/KinoSearch.pm
index 1d5f832..01b854c 100644 (file)
--- a/trigger/KinoSearch.pm
+++ b/trigger/KinoSearch.pm
@@ -54,6 +54,13 @@ sub flatten {
 sub filter {
        my $change = shift;
        my $doc = $change->{doc} || next;
+
+       if ( $doc->{_deleted} ) {
+               warn "# filter DELETE\n";
+               _indexer->delete_by_term( field => '_id', term => $doc->{_id} );
+               return 0;
+       }
+
        my $flat;
        flatten( \$flat, $doc, '' );
        foreach my $field ( keys %$flat ) {