diff options
author | ivan <ivan> | 2008-07-16 23:55:31 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-07-16 23:55:31 +0000 |
commit | 3502f19e6371bee6d974f05b2d3f22f8ccd03891 (patch) | |
tree | 501003a849030cc53458c27a40874d1c2f3c61aa | |
parent | 58d13b1770a2429111dec618b8b89996d9720bf4 (diff) |
fix account search by time remaining to deal with situations w/o a recurring amount
-rwxr-xr-x | httemplate/search/svc_acct.cgi | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/httemplate/search/svc_acct.cgi b/httemplate/search/svc_acct.cgi index c2b3d8fa0..d8451f210 100755 --- a/httemplate/search/svc_acct.cgi +++ b/httemplate/search/svc_acct.cgi @@ -120,13 +120,17 @@ if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { my $seconds = $svc_acct->seconds; my $cust_pkg = $svc_acct->cust_svc->cust_pkg; my $part_pkg = $cust_pkg->part_pkg; + #my $timepermonth = $part_pkg->option('seconds'); $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); + + return format_time($seconds) unless $timepermonth && $recur; + my $balance = $cust_pkg->cust_main->balance; my $months_unpaid = $balance / $recur; my $time_unpaid = $months_unpaid * $timepermonth; |