Possible changes to view/cust_main.cgi

[Stephen Bechard]

This request comes from my accounting department...

We have several packages that have been customized
and it is difficult to keep track of the frequency
and recurring payments. The diff below basically
adds a Payment column, with freq and recur listed
for each package that the customer has purchased.
It also fixes the empty <TD> statements under the
payment history table.

Enjoy,
Steve

Accounting# diff -u
/home/freeside/installation/freeside-1.4.1beta5/aspdocs/view/cust_main.cgi
cust_main.cgi
---
/home/freeside/installation/freeside-1.4.1beta5/aspdocs/view/cust_main.cgi
Wed Oct 23 11:50:24 2002
+++ cust_main.cgi       Sat Dec  7 22:01:54 2002
@@ -337,9 +337,9 @@

 #formatting
 print qq!!, &table(), "\n",
-      qq!<TR><TH COLSPAN=2 ROWSPAN=2>Package</TH><TH COLSPAN=5>!,
+      qq!<TR><TH COLSPAN=2 ROWSPAN=2>Package</TH><TH
COLSPAN=2>Payment</TH><TH COLSPAN=5>!,
       qq!Dates</TH><TH COLSPAN=2 ROWSPAN=2>Services</TH></TR>\n!,
-      qq!<TR><TH><FONT SIZE=-1>Setup</FONT></TH><TH>!,
+      qq!<TR><TH>Freq</TH><TH>Recur</TH><TH><FONT
SIZE=-1>Setup</FONT></TH><TH>!,
       qq!<FONT SIZE=-1>Next bill</FONT>!,
       qq!</TH><TH><FONT SIZE=-1>Susp.</FONT></TH><TH><FONT SIZE=-1>Expire!,
       qq!</FONT></TH>!,
@@ -358,6 +358,8 @@
 foreach my $package (@packages) {
   my $pkgnum = $package->pkgnum;
   my $pkg = $package->part_pkg->pkg;
+  my $freq = $package->part_pkg->freq;
+  my $recur = $package->part_pkg->recur;
   my $comment = $package->part_pkg->comment;
   my $pkgview = popurl(2). "view/cust_pkg.cgi?$pkgnum";

@@ -415,6 +417,8 @@

   }
   print '</FONT></TD>';
+  print qq!<TD ROWSPAN=$rowspan>$freq </TD>!;
+  print qq!<TD ROWSPAN=$rowspan>\$$recur </TD>!;

   for ( qw( setup bill susp expire cancel ) ) {
     print "<TD ROWSPAN=$rowspan><FONT SIZE=-1>", ( $package->getfield($_)
@@ -661,18 +665,18 @@
        "<TD><FONT SIZE=-1>$desc</FONT></TD>",
        "<TD><FONT SIZE=-1>",
           ( $charge ? "\$".sprintf("%.2f",$charge) : '' ),
-          "</FONT></TD>",
+          "&nbsp;</FONT></TD>",
        "<TD><FONT SIZE=-1>",
           ( $payment ? "-&nbsp;\$".sprintf("%.2f",$payment) : '' ),
-          "</FONT></TD>",
+          "&nbsp;</FONT></TD>",
        "<TD><FONT SIZE=-1>",
           ( $credit ? "-&nbsp;\$".sprintf("%.2f",$credit) : '' ),
-          "</FONT></TD>",
+          "&nbsp;</FONT></TD>",
        "<TD><FONT SIZE=-1>",
           ( $refund ? "\$".sprintf("%.2f",$refund) : '' ),
-          "</FONT></TD>",
+          "&nbsp;</FONT></TD>",
        "<TD><FONT SIZE=-1>\$" . $balance,
-          "</FONT></TD>",
+          "&nbsp;</FONT></TD>",
           "\n";
   }

Accounting#