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 1e22917..e30b8c7 100755 (executable)
--- a/httemplate/search/svc_acct.cgi
+++ b/httemplate/search/svc_acct.cgi
@@ -12,6 +12,15 @@
                  'style'       => \@style,
              )
 %>
+<%once>
+
+#false laziness w/ClientAPI/MyAccount.pm
+sub format_time { 
+  my $support = shift;
+  (($support < 0) ? '-' : '' ). int(abs($support)/3600)."h".sprintf("%02d",(abs($support)%3600)/60)."m";
+}
+
+</%once>
 <%init>
 
 die "access denied"
@@ -42,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;
   }
@@ -65,12 +74,40 @@ if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) {
   }
 
   if ( $sortby eq 'seconds' ) {
-    push @header, 'Time remaining';
-    push @fields, sub { my $svc_acct = shift; $svc_acct->seconds };
+    #push @header, 'Time remaining';
+    push @header, 'Time';
+    push @fields, sub { my $svc_acct = shift; format_time($svc_acct->seconds) };
     push @links, '';
-    $align .= 'r',
+    $align .= 'r';
     push @color, '';
     push @style, '';
+
+    my $conf = new FS::Conf;
+    if ( $conf->exists('svc_acct-display_paid_time_remaining') ) {
+      push @header, 'Paid time';
+      push @fields, sub {
+        my $svc_acct = shift;
+        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 = $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).
+          sprintf(' (%.2fx monthly)', ( $seconds-$time_unpaid ) / $timepermonth );
+      };
+      push @links, '';
+      $align .= 'r';
+      push @color, '';
+      push @style, '';
+    }
+
   }
 
 } elsif ( $cgi->param('popnum') =~ /^(\d+)$/ ) {