blob: 9758d833264537922abc159fd79e4d075cdfb46f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
% my %ulabel = ( seconds => 'Time',
% upbytes => 'Upload bytes',
% downbytes => 'Download bytes',
% totalbytes => 'Total bytes',
% );
% foreach my $uf ( keys %ulabel ) {
% my $tf = $uf . "_threshold";
% if ( $svc_acct->$uf ne '' ) {
% my $v = $uf eq 'seconds'
% #? (($svc_acct->$uf < 0 ? '-' : ''). duration_exact($svc_acct->$uf) )
% ? ($svc_acct->$uf < 0 ? '-' : '').
% int(abs($svc_acct->$uf)/3600). "hr ".
% sprintf("%02d",(abs($svc_acct->$uf)%3600)/60). "min"
% : FS::UI::bytecount::display_bytecount($svc_acct->$uf);
<TR>
<TD ALIGN="right"><% $ulabel{$uf} %> remaining</TD>
<TD BGCOLOR="#ffffff"><% $v %></TD>
</TR>
% }
% }
<%init>
my %opt = @_;
my $svc_acct = $opt{'svc_acct'};
</%init>
|
