projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT#6223: Billing process - pending packages - feature request [order quotation on...
[freeside.git]
/
FS
/
FS
/
cust_bill_pay_pkg.pm
diff --git
a/FS/FS/cust_bill_pay_pkg.pm
b/FS/FS/cust_bill_pay_pkg.pm
index
eb2e80c
..
24ca797
100644
(file)
--- a/
FS/FS/cust_bill_pay_pkg.pm
+++ b/
FS/FS/cust_bill_pay_pkg.pm
@@
-1,14
+1,12
@@
package FS::cust_bill_pay_pkg;
package FS::cust_bill_pay_pkg;
+use base qw( FS::cust_main_Mixin FS::Record );
use strict;
use strict;
-use vars qw( @ISA );
use FS::Conf;
use FS::Record qw( qsearch qsearchs );
use FS::cust_bill_pay;
use FS::cust_bill_pkg;
use FS::Conf;
use FS::Record qw( qsearch qsearchs );
use FS::cust_bill_pay;
use FS::cust_bill_pkg;
-@ISA = qw(FS::Record);
-
=head1 NAME
FS::cust_bill_pay_pkg - Object methods for cust_bill_pay_pkg records
=head1 NAME
FS::cust_bill_pay_pkg - Object methods for cust_bill_pay_pkg records
@@
-102,7
+100,11
@@
sub insert {
#payment receipt
my $conf = new FS::Conf;
#payment receipt
my $conf = new FS::Conf;
- my $trigger = $conf->config('payment_receipt-trigger') || 'cust_pay';
+ my $trigger =
+ $conf->config('payment_receipt-trigger',
+ $self->cust_bill_pay->cust_bill->cust_main->agentnum,
+ )
+ || 'cust_pay';
if ( $trigger eq 'cust_bill_pay_pkg' ) {
my $error = $self->send_receipt(
'manual' => $options{'manual'},
if ( $trigger eq 'cust_bill_pay_pkg' ) {
my $error = $self->send_receipt(
'manual' => $options{'manual'},