summaryrefslogtreecommitdiff
path: root/httemplate/search/svc_acct.cgi
diff options
context:
space:
mode:
authorivan <ivan>2008-07-16 23:55:31 +0000
committerivan <ivan>2008-07-16 23:55:31 +0000
commit3502f19e6371bee6d974f05b2d3f22f8ccd03891 (patch)
tree501003a849030cc53458c27a40874d1c2f3c61aa /httemplate/search/svc_acct.cgi
parent58d13b1770a2429111dec618b8b89996d9720bf4 (diff)
fix account search by time remaining to deal with situations w/o a recurring amount
Diffstat (limited to 'httemplate/search/svc_acct.cgi')
-rwxr-xr-xhttemplate/search/svc_acct.cgi6
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;