From 9b156bae43e4e56b895024e92244ce9837e4176b Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 18 Nov 2007 20:02:54 +0000
Subject: [PATCH] add "multiplier of monthly" info to "paid time" column in
 svc_acct-display_paid_time_remaining report

---
 httemplate/search/report_cust_pkg.html | 5 ++++-
 httemplate/search/svc_acct.cgi         | 5 ++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/httemplate/search/report_cust_pkg.html b/httemplate/search/report_cust_pkg.html
index dd62f3ead..d210446b4 100755
--- a/httemplate/search/report_cust_pkg.html
+++ b/httemplate/search/report_cust_pkg.html
@@ -6,8 +6,11 @@
   <TABLE BGCOLOR="#cccccc" CELLSPACING=0>
 
     <TR>
-      <TH BGCOLOR="#e8e8e8" COLSPAN=2 ALIGN="left"><FONT SIZE="+1">Search options</FONT></TH>
+      <TH BGCOLOR="#e8e8e8" COLSPAN=2 ALIGN="left">
+        <FONT SIZE="+1">Search options</FONT>
+      </TH>
     </TR>
+
     <% include( '/elements/tr-select-agent.html',
                    'curr_value' => scalar( $cgi->param('agentnum') ),
                )
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';
-- 
2.11.0