remove seens on delete and remove

1 files changed, 2 insertions, 0 deletions

diff --git a/cancel.pl b/cancel.pl
index 6e3bc78..6aee2bd 100755
--- a/cancel.pl
+++ b/cancel.pl
@@ -26,6 +26,8 @@ foreach my $value ( @$row)
     remove_tree('/srv/nzbget/done/'.$dl->category->name.'/'.$dl->download_id);
     $user->obj->quota_used($user->obj->quota_used - $dl->size);
     $user->obj->update;
+    my @seens = local::db::seen->search(download=>$del_id);
+    map {$_->delete()} @seens;
     $dl->delete();
   }
 }