[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