diff options
author | Ivan Kohler <ivan@freeside.biz> | 2013-05-15 02:09:30 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2013-05-15 02:09:30 -0700 |
commit | 686ac9dce198f8ddf01e507b3289485b4ef20946 (patch) | |
tree | ecb972808e677cc141b077d909cd3b7ec44291d3 /FS/FS/cust_pay.pm | |
parent | c60a792261878dd4148471b10e3f82980cea4b1e (diff) |
payment voids exist, time for deletepayments to go
Diffstat (limited to 'FS/FS/cust_pay.pm')
-rw-r--r-- | FS/FS/cust_pay.pm | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index da91439..86fcf9b 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -459,38 +459,6 @@ sub delete { return $error; } - if ( $conf->exists('deletepayments') - && $conf->config('deletepayments') ne '' ) { - - my $cust_main = $self->cust_main; - - my $error = send_email( - 'from' => $conf->config('invoice_from', $self->cust_main->agentnum), - #invoice_from??? well as good as any - 'to' => $conf->config('deletepayments'), - 'subject' => 'FREESIDE NOTIFICATION: Payment deleted', - 'body' => [ - "This is an automatic message from your Freeside installation\n", - "informing you that the following payment has been deleted:\n", - "\n", - 'paynum: '. $self->paynum. "\n", - 'custnum: '. $self->custnum. - " (". $cust_main->last. ", ". $cust_main->first. ")\n", - 'paid: $'. sprintf("%.2f", $self->paid). "\n", - 'date: '. time2str("%a %b %e %T %Y", $self->_date). "\n", - 'payby: '. $self->payby. "\n", - 'payinfo: '. $self->paymask. "\n", - 'paybatch: '. $self->paybatch. "\n", - ], - ); - - if ( $error ) { - $dbh->rollback if $oldAutoCommit; - return "can't send payment deletion notification: $error"; - } - - } - $dbh->commit or die $dbh->errstr if $oldAutoCommit; ''; |