From 5bf1b77f9ecc70521010a802b67a24b2f0f16aee Mon Sep 17 00:00:00 2001 From: Othmar Gsenger Date: Sat, 15 Jan 2011 05:38:14 +0000 Subject: basic version compleated --- mydl.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'mydl.pl') diff --git a/mydl.pl b/mydl.pl index f012743..db51573 100755 --- a/mydl.pl +++ b/mydl.pl @@ -16,7 +16,7 @@ print $menu->start_html('my downloads'); print table({class=>'nohigh'},Tr(td({align=>'right'},['benutzter Speicherplatz   '. $user->obj->quota_used().' / '.$user->obj->quoata().' MB']))) if (param('only_me')); print CGI::start_table(); -print Tr(th([qw/Kategorie Name Größe Löschen /])); +print Tr(th([qw/Neu Kategorie Name Größe Löschen /])); my @downloads; if (param('only_me')) { @@ -28,8 +28,8 @@ 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([ - $dl->category->name,a({title=>$dl->description,href=>'/'.$dl->category->name.'/'.$dl->download_id},$dl->name),$dl->size.'MB',$dl_remove + 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 ])); } -- cgit v1.2.3