X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_acct.cgi;h=6ca9bf0711d4132411b70ba7e1a2e025c02fb3e1;hb=6a953c149c5f4423cafc510e34c60b41bd7d0ef9;hp=1322a69fd1f1a9382cb9923caa2917b69d06afbc;hpb=049da6c538c952f938af4544a07c688b89c26a17;p=freeside.git
diff --git a/httemplate/view/svc_acct.cgi b/httemplate/view/svc_acct.cgi
index 1322a69fd..6ca9bf071 100755
--- a/httemplate/view/svc_acct.cgi
+++ b/httemplate/view/svc_acct.cgi
@@ -86,33 +86,55 @@ if ( $part_svc->part_export('sqlradius')
$last_bill, time, 'AcctOutputOctets'
) / 1048576;
- if ( $seconds ) {
- print "Online $hourh $minm $secs";
- } else {
- print 'Has not logged on';
- }
+%>
- if ( $cust_pkg ) {
- print ' since last bill ('. time2str("%C", $last_bill). ')'.
- print ' - '. $plandata{recur_included_hours}. ' total hours in plan
'
- if length($plandata{recur_included_hours});
- } else {
- print ' (no billing cycle available for unaudited account)
';
- }
+ RADIUS session information
+ <%= ntable('#cccccc',2) %>
+
- print 'Input: '. sprintf("%.3f", $input). ' megabytes ';
- print 'Output: '. sprintf("%.3f", $output). ' megabytes ';
+ <% if ( $seconds ) { %>
+ Online <%= $hour %>h <%= $min %>m <%= $sec %>s
+ <% } else { %>
+ Has not logged on
+ <% } %>
- my $href = qq!all sessions!;
+ <% if ( $cust_pkg ) { %>
+ since last bill (<%= time2str('%a %b %o %Y', $last_bill) %>)
+ <% if ( length($plandata{recur_included_hours}) ) { %>
+ - <%= $plandata{recur_included_hours} %> total hours in plan
+ <% } %>
+
+ <% } else { %>
+ (no billing cycle available for unaudited account)
+ <% } %>
- print ' ';
+ Upload: <%= sprintf("%.3f", $input) %> megabytes
+ Download: <%= sprintf("%.3f", $output) %> megabytes
-}
+ <% my $href = qq!this billing cycle
+ | <%= $href %>;begin=<%= time-15552000 %>">past six months
+ | <%= $href %>">all sessions
-#print qq! Send account information!;
+ |
-%>
+<% } %>
+
+
+
<% } %>
-<%
-
-print qq!Edit this information
!.
- &ntable("#cccccc"). ''. &ntable("#cccccc",2).
- " |
Service number | ".
- "$svcnum |
".
- "Service | ".
- "". $part_svc->svc. " |
".
- "Username | ".
- "". $svc_acct->username. " |
"
-;
+<%= &ntable("#cccccc") %><%= &ntable("#cccccc",2) %>
+ |
Service number |
+ <%= $svcnum %> |
+Service |
+ <%= $part_svc->svc %> |
+Username |
+ <%= $svc_acct->username %> |
+Domain |
+ <%= $domain %> |
-print "Domain | ".
- "". $domain, " |
";
+Password |
+ <%
-print " |
Password | ";
my $password = $svc_acct->_password;
if ( $password =~ /^\*\w+\* (.*)$/ ) {
$password = $1;
@@ -251,7 +261,7 @@ foreach (sort { $a cmp $b } $svc_acct->virtual_fields) {
"\n";
}
%>
- |
+
<%
print '
';