auto-apply payments and credits, post credit UI overhaul

[freeside.git] / httemplate / view / cust_main.cgi

diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi
index 6df28c8..b17c927 100755 (executable)
--- a/httemplate/view/cust_main.cgi
+++ b/httemplate/view/cust_main.cgi
@@ -1,5 +1,5 @@
 <%
-#<!-- $Id: cust_main.cgi,v 1.11 2001-09-16 12:45:35 ivan Exp $ -->
+#<!-- $Id: cust_main.cgi,v 1.15 2001-12-21 21:40:24 ivan Exp $ -->
 
 use strict;
 use vars qw ( $cgi $query $custnum $cust_main $hashref $agent $referral 
@@ -29,7 +29,7 @@ $cgi = new CGI;
 
 $conf = new FS::Conf;
 
-print $cgi->header( '-expires' => 'now' ), header("Customer View", menubar(
+print header("Customer View", menubar(
   'Main Menu' => popurl(2)
 ));
 
@@ -189,7 +189,11 @@ print '<TD VALIGN="top">';
           $cust_main->referral_custnum. '">'.
           $cust_main->referral_custnum. ': '.
           ( $referring_cust_main->company
-            || $referring_cust_main->last. ', '. $referring_cust_main->first ).
+              ? $referring_cust_main->company. ' ('.
+                  $referring_cust_main->last. ', '. $referring_cust_main->first.
+                  ')'
+              : $referring_cust_main->last. ', '. $referring_cust_main->first
+          ).
           '</A>';
   }
   print '</TD></TR>';
@@ -466,6 +470,8 @@ foreach $item (sort keyfield_numerically @history) {
   $refund ||= 0;
   $balance += $charge - $payment;
   $balance -= $credit - $refund;
+  $balance = sprintf("%.2f", $balance);
+  $balance =~ s/^\-0\.00$/0.00/; #yay ieee fp
 
   print "<TR><TD><FONT SIZE=-1>",time2str("%D",$date),"</FONT></TD>",
        "<TD><FONT SIZE=-1>$desc</FONT></TD>",
@@ -481,7 +487,7 @@ foreach $item (sort keyfield_numerically @history) {
        "<TD><FONT SIZE=-1>",
         ( $refund ? "\$".sprintf("%.2f",$refund) : '' ),
         "</FONT></TD>",
-       "<TD><FONT SIZE=-1>\$" . sprintf("%.2f",$balance),
+       "<TD><FONT SIZE=-1>\$" . $balance,
         "</FONT></TD>",
         "\n";
 }