[freeside-commits] freeside/FS/FS cust_main.pm, 1.544, 1.545 part_pkg.pm, 1.106, 1.107

Ivan,,, ivan at wavetail.420.am
Fri Sep 17 13:19:43 PDT 2010


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

Modified Files:
	cust_main.pm part_pkg.pm 
Log Message:
refactor giant cust_main.pm a little in preparation of adding API methods for maestro, RT#9967

Index: part_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg.pm,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -w -d -r1.106 -r1.107
--- part_pkg.pm	9 Sep 2010 00:35:29 -0000	1.106
+++ part_pkg.pm	17 Sep 2010 20:19:41 -0000	1.107
@@ -16,6 +16,7 @@
 use FS::part_pkg_option;
 use FS::pkg_class;
 use FS::agent;
+use FS::part_pkg_taxrate;
 use FS::part_pkg_taxoverride;
 use FS::part_pkg_taxproduct;
 use FS::part_pkg_link;

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.544
retrieving revision 1.545
diff -u -w -d -r1.544 -r1.545
--- cust_main.pm	17 Sep 2010 18:07:07 -0000	1.544
+++ cust_main.pm	17 Sep 2010 20:19:41 -0000	1.545
@@ -2,9 +2,8 @@
 
 require 5.006;
 use strict;
-use base qw( FS::otaker_Mixin
-             FS::payinfo_Mixin
-             FS::cust_main_Mixin
+use base qw( FS::cust_main::Billing FS::cust_main::Billing_Realtime
+             FS::otaker_Mixin FS::payinfo_Mixin FS::cust_main_Mixin
              FS::Record
             );
 use vars qw( @EXPORT_OK $DEBUG $me $conf
[...2946 lines suppressed...]
-    my $error = $cust_bill_pay->insert(%options);
-    if ( $error ) {
-      $dbh->rollback or die $dbh->errstr if $oldAutoCommit;
-      die $error;
-    }
-
-    redo if ( $cust_bill->owed > 0) && ! $conf->exists('pkg-balances');
-
-  }
-
-  my $total_unapplied_payments = $self->total_unapplied_payments;
-
-  $dbh->commit or die $dbh->errstr if $oldAutoCommit;
-
-  return $total_unapplied_payments;
-}
-
 =item total_owed
 
 Returns the total owed for this customer on all invoices



More information about the freeside-commits mailing list