removed unused \$failed var

[freeside.git] / httemplate / search / svc_acct.cgi

diff --git a/httemplate/search/svc_acct.cgi b/httemplate/search/svc_acct.cgi
index 1c1f1bf..e30b8c7 100755 (executable)
--- a/httemplate/search/svc_acct.cgi
+++ b/httemplate/search/svc_acct.cgi
@@ -51,7 +51,7 @@ if ( $cgi->param('domain') ) {
   unless ( $svc_domain ) {
     #it would be nice if this looked more like the other "not found"
     #errors, but this will do for now.
-    eidiot "Domain ". $cgi->param('domain'). " not found at all";
+    errorpage("Domain ". $cgi->param('domain'). " not found at all");
   } else {
     push @extra_sql, 'domsvc = '. $svc_domain->svcnum;
   }
@@ -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';