projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
quote already-crypted passwords to prevent variable substitution
[freeside.git]
/
FS
/
FS
/
cust_bill_pay.pm
diff --git
a/FS/FS/cust_bill_pay.pm
b/FS/FS/cust_bill_pay.pm
index
913704b
..
c8b5525
100644
(file)
--- a/
FS/FS/cust_bill_pay.pm
+++ b/
FS/FS/cust_bill_pay.pm
@@
-1,13
+1,18
@@
package FS::cust_bill_pay;
use strict;
package FS::cust_bill_pay;
use strict;
-use vars qw( @ISA );
+use vars qw( @ISA
$conf
);
use FS::Record qw( qsearch qsearchs dbh );
use FS::cust_bill;
use FS::cust_pay;
@ISA = qw( FS::Record );
use FS::Record qw( qsearch qsearchs dbh );
use FS::cust_bill;
use FS::cust_pay;
@ISA = qw( FS::Record );
+#ask FS::UID to run this stuff for us later
+FS::UID->install_callback( sub {
+ $conf = new FS::Conf;
+} );
+
=head1 NAME
FS::cust_bill_pay - Object methods for cust_bill_pay records
=head1 NAME
FS::cust_bill_pay - Object methods for cust_bill_pay records
@@
-101,7
+106,8
@@
sub insert {
" greater than cust_pay.paid ". $cust_pay->paid;
}
" greater than cust_pay.paid ". $cust_pay->paid;
}
- my $cust_bill = qsearchs('cust_bill', { 'invnum' => $self->invnum } ) or do {
+ my $cust_bill = $self->cust_bill;
+ unless ( $cust_bill ) {
$dbh->rollback if $oldAutoCommit;
return "unknown cust_bill.invnum: ". $self->invnum;
};
$dbh->rollback if $oldAutoCommit;
return "unknown cust_bill.invnum: ". $self->invnum;
};
@@
-120,6
+126,11
@@
sub insert {
$dbh->commit or die $dbh->errstr if $oldAutoCommit;
$dbh->commit or die $dbh->errstr if $oldAutoCommit;
+ if ( $conf->exists('invoice_send_receipts') ) {
+ my $send_error = $cust_bill->send;
+ warn "Error sending receipt: $send_error\n" if $send_error;
+ }
+
'';
}
'';
}
@@
-170,7
+181,7
@@
sub check {
$self->_date(time) unless $self->_date;
$self->_date(time) unless $self->_date;
- ''; #no error
+ $self->SUPER::check;
}
=item cust_pay
}
=item cust_pay
@@
-197,10
+208,6
@@
sub cust_bill {
=back
=back
-=head1 VERSION
-
-$Id: cust_bill_pay.pm,v 1.12 2002-02-07 22:29:34 ivan Exp $
-
=head1 BUGS
Delete and replace methods.
=head1 BUGS
Delete and replace methods.