[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.53.2.21, 1.53.2.22

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/ClientAPI
In directory wavetail.420.am:/tmp/cvs-serv7161/FS/FS/ClientAPI

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	MyAccount.pm 
Log Message:
update flat_introrate plan to better fit current codebase RT#4912

Index: MyAccount.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/MyAccount.pm,v
retrieving revision 1.53.2.21
retrieving revision 1.53.2.22
diff -u -d -r1.53.2.21 -r1.53.2.22
--- MyAccount.pm	17 Mar 2009 21:38:44 -0000	1.53.2.21
+++ MyAccount.pm	2 Jul 2009 01:30:08 -0000	1.53.2.22
@@ -1033,7 +1033,8 @@
   my $total = $cust_main->balance;
 
   my @array = map {
-                    $total += $_->part_pkg->base_recur;
+                    my $bill = $_->bill;
+                    $total += $_->part_pkg->base_recur($_, \$bill);
                     my $renew_date = $_->part_pkg->add_freq($_->bill);
                     {
                       'pkgnum'             => $_->pkgnum,