From 685df6b433769906c72a57c2052b04252c463513 Mon Sep 17 00:00:00 2001
From: Othmar Gsenger <otti@wirdorange.org>
Date: Sat, 15 Jan 2011 05:51:48 +0000
Subject: remove seens on delete and remove

---
 cancel.pl | 2 ++
 remove.pl | 2 ++
 2 files changed, 4 insertions(+)

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();
   }
 }
diff --git a/remove.pl b/remove.pl
index 3e62c08..25f2a82 100755
--- a/remove.pl
+++ b/remove.pl
@@ -15,6 +15,8 @@ die "Not allowed" if not $dl->owner->owner_id() eq $user->get_id();
 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();
 
 print CGI::redirect('/cgi-bin/nzbget/mydl.pl?only_me=1');
-- 
cgit v1.2.3