X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_acct.cgi;h=1322a69fd1f1a9382cb9923caa2917b69d06afbc;hp=f04e471635f119e1f82a3ea62220381cd9a3ef5c;hb=049da6c538c952f938af4544a07c688b89c26a17;hpb=2e9ff8b770519382f5767faf7a1dd15eb79eb7fe
diff --git a/httemplate/view/svc_acct.cgi b/httemplate/view/svc_acct.cgi
index f04e47163..1322a69fd 100755
--- a/httemplate/view/svc_acct.cgi
+++ b/httemplate/view/svc_acct.cgi
@@ -1,4 +1,4 @@
-<-- mason kludge -->
+
<%
my $conf = new FS::Conf;
@@ -45,8 +45,7 @@ function areyousure(href) {
<%= header('Account View', menubar(
( ( $pkgnum || $custnum )
- ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
- "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
+ ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
)
: ( "Cancel this (unaudited) account" =>
"javascript:areyousure(\'${p}misc/cancel-unaudited.cgi?$svcnum\')" )
@@ -57,7 +56,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 +75,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,14 +87,15 @@ 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 ' since last bill ('. time2str("%C", $last_bill). ') - '.
- $plandata{recur_included_hours}. ' total hours in plan
';
+ 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)
';
}
@@ -101,12 +103,57 @@ if ( $part_svc->part_export('sqlradius') ) {
print 'Input: '. sprintf("%.3f", $input). ' megabytes
';
print 'Output: '. sprintf("%.3f", $output). ' megabytes
';
+ my $href = qq!all sessions!;
+
print '
';
}
#print qq!
Send account information!;
+%>
+
+<%
+ my @part_svc = ();
+ if ( $pkgnum ) {
+ @part_svc = grep { $_->svcdb eq 'svc_acct'
+ && $_->svcpart != $part_svc->svcpart }
+ $cust_pkg->available_part_svc;
+ } else {
+ @part_svc = qsearch('part_svc', {
+ svcdb => 'svc_acct',
+ disabled => '',
+ svcpart => { op=>'!=', value=>$part_svc->svcpart },
+ } );
+ }
+ if ( @part_svc ) {
+%>
+
+