diff options
Diffstat (limited to 'httemplate/search/svc_acct.cgi')
-rwxr-xr-x | httemplate/search/svc_acct.cgi | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/httemplate/search/svc_acct.cgi b/httemplate/search/svc_acct.cgi index 8cd689a04..e30b8c7b3 100755 --- a/httemplate/search/svc_acct.cgi +++ b/httemplate/search/svc_acct.cgi @@ -91,13 +91,16 @@ if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { my $cust_pkg = $svc_acct->cust_svc->cust_pkg; my $part_pkg = $cust_pkg->part_pkg; my $timepermonth = $part_pkg->option('seconds'); + $timepermonth = $timepermonth / $part_pkg->freq + if $part_pkg->freq =~ /^\d+$/ && $part_pkg->freq != 0; return format_time($seconds) unless $timepermonth; #my $recur = $part_pkg->calc_recur($cust_pkg); my $recur = $part_pkg->base_recur($cust_pkg); my $balance = $cust_pkg->cust_main->balance; my $months_unpaid = $balance / $recur; my $time_unpaid = $months_unpaid * $timepermonth; - format_time($seconds-$time_unpaid); + format_time($seconds-$time_unpaid). + sprintf(' (%.2fx monthly)', ( $seconds-$time_unpaid ) / $timepermonth ); }; push @links, ''; $align .= 'r'; |