summaryrefslogtreecommitdiff
path: root/remove.pl
diff options
context:
space:
mode:
Diffstat (limited to 'remove.pl')
-rwxr-xr-xremove.pl2
1 files changed, 2 insertions, 0 deletions
diff --git a/remove.pl b/remove.pl
index 5c76462..3e62c08 100755
--- a/remove.pl
+++ b/remove.pl
@@ -13,6 +13,8 @@ my $del_id = param('id');
my ($dl) = local::db::download->retrieve($del_id) or die 'Error in cancel';
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;
$dl->delete();
print CGI::redirect('/cgi-bin/nzbget/mydl.pl?only_me=1');