diff options
Diffstat (limited to 'remove.pl')
-rwxr-xr-x | remove.pl | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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'); |