diff options
| author | ivan <ivan> | 2002-10-17 15:05:53 +0000 | 
|---|---|---|
| committer | ivan <ivan> | 2002-10-17 15:05:53 +0000 | 
| commit | 142f5a03b88cc261cc5b86f8f74217a8cc1fb624 (patch) | |
| tree | ec17a2c3f7dcd189726d10df9d0d6f074328add9 | |
| parent | 508fe633fe4c05fc116b1ccab45e8e59760083b9 (diff) | |
UI change for hour info
| -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 80d1b8597..82ab48126 100755 --- a/httemplate/view/svc_acct.cgi +++ b/httemplate/view/svc_acct.cgi @@ -61,6 +61,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>!. @@ -151,41 +186,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>'; | 
