diff options
author | Othmar Gsenger <otti@wirdorange.org> | 2011-01-15 05:51:48 +0000 |
---|---|---|
committer | Othmar Gsenger <otti@wirdorange.org> | 2011-01-15 05:51:48 +0000 |
commit | 685df6b433769906c72a57c2052b04252c463513 (patch) | |
tree | d9bda67985eca4bd5ecb5cc9ef1bd91e95f0e68d | |
parent | basic version compleated (diff) |
remove seens on delete and remove
-rwxr-xr-x | cancel.pl | 2 | ||||
-rwxr-xr-x | remove.pl | 2 |
2 files changed, 4 insertions, 0 deletions
@@ -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(); } } @@ -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'); |