diff options
Diffstat (limited to 'FS/FS/cust_bill_ApplicationCommon.pm')
-rw-r--r-- | FS/FS/cust_bill_ApplicationCommon.pm | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/FS/FS/cust_bill_ApplicationCommon.pm b/FS/FS/cust_bill_ApplicationCommon.pm index fd6fb9e..8ba57f3 100644 --- a/FS/FS/cust_bill_ApplicationCommon.pm +++ b/FS/FS/cust_bill_ApplicationCommon.pm @@ -5,11 +5,6 @@ use vars qw( @ISA $DEBUG $me $skip_apply_to_lineitems_hack ); use List::Util qw(min); use FS::Schema qw( dbdef ); use FS::Record qw( qsearch qsearchs dbh ); -use FS::cust_pkg; -use FS::cust_svc; -use FS::cust_bill_pkg; -use FS::part_svc; -use FS::part_export; @ISA = qw( FS::Record ); @@ -335,30 +330,6 @@ sub apply_to_lineitems { $dbh->rollback if $oldAutoCommit; return $error; } - - # trigger export_insert_on_payment - if ( $conf->exists('trigger_export_insert_on_payment') - && $cust_bill_pkg->pkgnum > 0 ) - { - if ( my $cust_pkg = $cust_bill_pkg->cust_pkg ) { - - foreach my $cust_svc ( $cust_pkg->cust_svc ) { - my $svc_x = $cust_svc->svc_x; - my @part_export = grep { $_->can('export_insert_on_payment') } - $cust_svc->part_svc->part_export; - - foreach my $part_export ( $cust_svc->part_svc->part_export ) { - $error = $part_export->_export_insert_on_payment($svc_x); - if ( $error ) { - $dbh->rollback if $oldAutoCommit; - return $error; - } - } - } - } - } - # done trigger export_insert_on_payment - } #everything should always be applied to line items in full now... sanity check |