From 6690b0c436d7b2b94c2e680b6eae6108debf9af6 Mon Sep 17 00:00:00 2001 From: Othmar Gsenger Date: Wed, 2 Feb 2011 16:53:09 +0000 Subject: added support for browsing by category --- mydl.pl | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/mydl.pl b/mydl.pl index d698b8a..c90a40c 100755 --- a/mydl.pl +++ b/mydl.pl @@ -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 ])); } -- cgit v1.2.3