diff options
author | ivan <ivan> | 2002-10-17 15:05:55 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-10-17 15:05:55 +0000 |
commit | 2f91e1d377e1e03f567ea1ec6bcd9fab0bedff5e (patch) | |
tree | b9093cadf825ba1c2febe64137c7cf2ae1c6bc83 /httemplate/view/svc_acct.cgi | |
parent | d6ebf4c35d7c7b7d559828bfac3744c770dbf3eb (diff) |
UI change for hour info
Diffstat (limited to 'httemplate/view/svc_acct.cgi')
-rwxr-xr-x | httemplate/view/svc_acct.cgi | 70 |
1 files changed, 35 insertions, 35 deletions
diff --git a/httemplate/view/svc_acct.cgi b/httemplate/view/svc_acct.cgi index d50241d40..c79f71f5d 100755 --- a/httemplate/view/svc_acct.cgi +++ b/httemplate/view/svc_acct.cgi @@ -56,6 +56,41 @@ function areyousure(href) { <% +#if ( $cust_pkg && $cust_pkg->part_pkg->plan eq 'sqlradacct_hour' ) { +if ( $part_svc->part_export('sqlradius') ) { + + my $last_bill; + if ( $cust_pkg ) { + #false laziness w/httemplate/edit/part_pkg... this stuff doesn't really + #belong in plan data + my %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); } + split("\n", $cust_pkg->part_pkg->plandata ); + + $last_bill = $cust_pkg->last_bill; + } else { + $last_bill = 0; + } + + my $seconds = $svc_acct->seconds_since_sqlradacct( $last_bill, time ); + my $h = int($seconds/3600); + my $m = int( ($seconds%3600) / 60 ); + my $s = $seconds%60; + + if ( $seconds ) { + print "Online <B>$h</B>h <B>$m</B>m <B>$s</B>s"; + } else { + print 'Has not logged on'; + } + + if ( $cust_pkg ) { + print ' this billing cycle (since '. time2str(%C, $last_bill). ') - '. + $plandata{recur_included_hours}. ' total hours in plan<BR><BR>'; + } else { + print ' (no billing cycle available for unaudited package)<BR><BR>'; + } + +} + #print qq!<BR><A HREF="../misc/sendconfig.cgi?$svcnum">Send account information</A>!; print qq!<A HREF="${p}edit/svc_acct.cgi?$svcnum">Edit this information</A><BR>!. @@ -146,41 +181,6 @@ print '<TR><TD ALIGN="right">RADIUS groups</TD><TD BGCOLOR="#ffffff">'. print '</TABLE></TD></TR></TABLE><BR><BR>'; -#if ( $cust_pkg && $cust_pkg->part_pkg->plan eq 'sqlradacct_hour' ) { -if ( $part_svc->part_export('sqlradius') ) { - - my $last_bill; - if ( $cust_pkg ) { - #false laziness w/httemplate/edit/part_pkg... this stuff doesn't really - #belong in plan data - my %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); } - split("\n", $cust_pkg->part_pkg->plandata ); - - $last_bill = $cust_pkg->last_bill; - } else { - $last_bill = 0; - } - - my $seconds = $svc_acct->seconds_since_sqlradacct( $last_bill, time ); - my $h = int($seconds/3600); - my $m = int( ($seconds%3600) / 60 ); - my $s = $seconds%60; - - if ( $seconds ) { - print "Online ${h}h ${m}m ${s}s"; - } else { - print 'Has not logged on'; - } - - if ( $cust_pkg ) { - print ' this billing cycle (since '. time2str(%C, $last_bill). ') - '. - $plandata{recur_included_hours}. ' total hours in plan<BR><BR>'; - } else { - print ' (no billing cycle available for unaudited package)<BR><BR>'; - } - -} - print join("\n", $conf->config('svc_acct-notes') ). '<BR><BR>'. joblisting({'svcnum'=>$svcnum}, 1). '</BODY></HTML>'; |