X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_acct.cgi;h=6ca9bf0711d4132411b70ba7e1a2e025c02fb3e1;hb=6cf964d0dc008621fb30fd2da28e2c44f29c6364;hp=be58e4e1d2194fc543b0bff1f361a40af1e9c7c3;hpb=918bbc9ce36a3dc5943f521e26751ea94a5a5539;p=freeside.git
diff --git a/httemplate/view/svc_acct.cgi b/httemplate/view/svc_acct.cgi
index be58e4e1d..6ca9bf071 100755
--- a/httemplate/view/svc_acct.cgi
+++ b/httemplate/view/svc_acct.cgi
@@ -86,29 +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). ') - '.
- $plandata{recur_included_hours}. ' total hours in plan
';
- } 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
+ <% } %>
- print ' ';
+ <% 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)
+ <% } %>
-}
+ Upload: <%= sprintf("%.3f", $input) %> megabytes
+ Download: <%= sprintf("%.3f", $output) %> megabytes
-#print qq! Send account information!;
+ <% my $href = qq!this billing cycle
+ | <%= $href %>;begin=<%= time-15552000 %>">past six months
+ | <%= $href %>">all sessions
-%>
+ |
+
+<% } %>
+
+
+
<% } %>
-<%
-
-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;
@@ -247,7 +261,7 @@ foreach (sort { $a cmp $b } $svc_acct->virtual_fields) {
"\n";
}
%>
- |
+
<%
print '
';