diff options
author | Othmar Gsenger <otti@wirdorange.org> | 2011-02-02 16:53:09 +0000 |
---|---|---|
committer | Othmar Gsenger <otti@wirdorange.org> | 2011-02-02 16:53:09 +0000 |
commit | 6690b0c436d7b2b94c2e680b6eae6108debf9af6 (patch) | |
tree | 3a90ba003b7ccb06bce7af9a7b97f91aee0930df | |
parent | added download speed in kb (lahme leitung ;() (diff) |
added support for browsing by category
-rwxr-xr-x | mydl.pl | 13 |
1 files changed, 5 insertions, 8 deletions
@@ -17,19 +17,16 @@ print table({class=>'nohigh'},Tr(td({align=>'right'},['benutzter Speicherplatz & print CGI::start_table(); print Tr(th([qw/Neu Kategorie Name Größe Löschen /])); -my @downloads; -if (param('only_me')) -{ - @downloads = local::db::download->search(owner=>$user->get_id(),completed=>1,{ order_by => 'time DESC'}); -} else { - @downloads = local::db::download->search(completed=>1,{ order_by => 'time DESC'}); -} +my @downloads = local::db::download->search( + param('only_me') ? (owner=>$user->get_id()) : () , + param('category') ? (category => param('category')) : (), + completed=>1,{ order_by => 'time DESC'}); foreach my $dl ( @downloads) { my $dl_remove; $dl_remove = a({href=>'/cgi-bin/nzbget/remove.pl?id='.$dl->download_id},"löschen") if $dl->owner->owner_id == $user->get_id; print Tr(td([ (local::db::seen->search(user=>$user->get_id(),download=>$dl->download_id))?'':'x', - $dl->category->name,a({title=>$dl->description,href=>'/cgi-bin/nzbget/read.pl?id='.$dl->download_id},$dl->name),$dl->size.'MB',$dl_remove + a({href=>'mydl.pl?only_me='.param('only_me').'&category='.$dl->category->category_id},$dl->category->name),a({title=>$dl->description,href=>'/cgi-bin/nzbget/read.pl?id='.$dl->download_id},$dl->name),$dl->size.'MB',$dl_remove ])); } |