X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_acct.cgi;h=58591fcb568cec9578f5025865562a07a4c1966d;hb=790f80663a0ddcb4f2496bad4b2e0bfa80bc3210;hp=30480d1e82ac62866436a77dab799307602298f2;hpb=b4206f7dd4e3f00b1fac73245ade1d28388f2ad3;p=freeside.git
diff --git a/httemplate/view/svc_acct.cgi b/httemplate/view/svc_acct.cgi
index 30480d1e8..58591fcb5 100755
--- a/httemplate/view/svc_acct.cgi
+++ b/httemplate/view/svc_acct.cgi
@@ -57,7 +57,9 @@ function areyousure(href) {
<%
#if ( $cust_pkg && $cust_pkg->part_pkg->plan eq 'sqlradacct_hour' ) {
-if ( $part_svc->part_export('sqlradius') ) {
+if ( $part_svc->part_export('sqlradius')
+ || $part_svc->part_export('sqlradius_withdomain')
+) {
my $last_bill;
my %plandata;
@@ -74,9 +76,9 @@ if ( $part_svc->part_export('sqlradius') ) {
}
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;
+ my $hour = int($seconds/3600);
+ my $min = int( ($seconds%3600) / 60 );
+ my $sec = $seconds%60;
my $input = $svc_acct->attribute_since_sqlradacct(
$last_bill, time, 'AcctInputOctets'
@@ -86,20 +88,20 @@ if ( $part_svc->part_export('sqlradius') ) {
) / 1048576;
if ( $seconds ) {
- print "Online $hh $mm $ss";
+ print "Online $hourh $minm $secs";
} else {
print 'Has not logged on';
}
if ( $cust_pkg ) {
- print ' this billing cycle (since '. time2str("%C", $last_bill). ') - '.
+ 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)
';
}
- print 'Input: '. sprintf("%.3f", $input). ' megabytes
';
- print 'Output: '. sprintf("%.3f", $output). ' megabytes
';
+ print 'Input: '. sprintf("%.3f", $input). ' megabytes
';
+ print 'Output: '. sprintf("%.3f", $output). ' megabytes
';
print '
';
@@ -140,7 +142,9 @@ if ( $conf->exists('security_phrase') ) {
$svc_acct->sec_phrase. '';
}
-my $svc_acct_pop = qsearchs('svc_acct_pop',{'popnum'=>$svc_acct->popnum});
+my $svc_acct_pop = $svc_acct->popnum
+ ? qsearchs('svc_acct_pop',{'popnum'=>$svc_acct->popnum})
+ : '';
print " '
if $svc_acct_pop;
@@ -170,7 +174,7 @@ if ($svc_acct->slipip) {
: $svc_acct->slipip
). "";
my($attribute);
- foreach $attribute ( grep /^radius_/, fields('svc_acct') ) {
+ foreach $attribute ( grep /^radius_/, $svc_acct->fields ) {
#warn $attribute;
$attribute =~ /^radius_(.*)$/;
my $pattribute = $FS::raddb::attrib{$1};
@@ -178,7 +182,7 @@ if ($svc_acct->slipip) {
"Access number ".
"". $svc_acct_pop->text. '