diff options
Diffstat (limited to 'mydl.pl')
-rwxr-xr-x | mydl.pl | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -2,6 +2,7 @@ use strict; use CGI qw(:standard); use CGI::Carp 'fatalsToBrowser'; +use utf8; use local::nzbget; use local::db; use local::user; @@ -10,10 +11,11 @@ my $user = new local::user($ENV{REMOTE_USER}); print header; use local::menu; -my $menu=new local::menu; +my $menu=new local::menu(%ENV); print $menu->start_html('my downloads'); print CGI::start_table(); +print Tr(th([qw/Kategorie Name Größe Löschen /])); my @downloads; if (param('only_me')) { @@ -24,7 +26,7 @@ if (param('only_me')) foreach my $dl ( @downloads) { my $dl_remove; - $dl_remove = a({href=>'/cgi-bin/nzbget/remove.pl?id='.$dl->download_id},"loeschen") if $dl->owner->owner_id == $user->get_id; + $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 |