From 4cecda2089b57842b54f40deb2145e1a3e06ec3a Mon Sep 17 00:00:00 2001 From: Othmar Gsenger Date: Sat, 15 Jan 2011 05:21:19 +0000 Subject: added completed mark --- groups.pl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'groups.pl') diff --git a/groups.pl b/groups.pl index 15291d2..cd7623c 100755 --- a/groups.pl +++ b/groups.pl @@ -6,6 +6,7 @@ use CGI::Carp 'fatalsToBrowser'; use local::nzbget; use local::db; use local::user; +use utf8; my $user = new local::user($ENV{REMOTE_USER}); use CGI::Ajax; @@ -29,6 +30,7 @@ sub get_download_table my $cli = new local::nzbget; my $row = $cli->send_request('listgroups') or die "Can't connect to nzbget"; $html.= CGI::start_table(); + $html.= Tr(th([qw/Kategorie Name Besitzer Größe(MB) Fortschritt Abbrechen/])); foreach my $value ( @$row) { my ($download) = local::db::download->retrieve($value->{NZBNicename}->value) or die ' Error in groups'; @@ -39,10 +41,12 @@ sub get_download_table { $download->size($total); $download->update(); + $user->obj->quota_used($user->obj->quota_used+$total); + $user->obj->update(); } my $cancel; $cancel=a({href=>'/cgi-bin/nzbget/cancel.pl?id='.$value->{NZBNicename}->value},'Abbrechen') if ($download->owner->owner_id() eq $user->get_id()); - $html.= Tr(td([$download->category->name,$download->name,$download->owner->name,$percent.'%',$cancel])); + $html.= Tr(td([$download->category->name,$download->name,$download->owner->name,$total,$percent.'%',$cancel])); #foreach my $key (keys %$value) #{ # $html.= Tr(td([$key,$value->{$key}->value])); @@ -64,8 +68,7 @@ sub Show_HTML //--> LALALA ; - $html.= table({class=>'nohigh'},Tr(td['download speed', div({id=>'speed'},get_download_speed())]),Tr(td([' ']))); - $html.= table(Tr(th([qw/Kategorie Name Besitzer Fortschritt Abbrechen/]))); + $html.= table({class=>'nohigh'},Tr(td['download speed   '. span({id=>'speed'},get_download_speed())]),Tr(td([' ']))); $html.= div({id=>'dls'},get_download_table()); $html.= $menu->end_html(); -- cgit v1.2.3