}
- $error = $self->delete;
+ $error = $self->delete( skip_update_cust_bill_charged=>1 );
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
return $error;
sub delete {
my $self = shift;
+ my %opt = @_;
local $SIG{HUP} = 'IGNORE';
local $SIG{INT} = 'IGNORE';
}
}
- #fix the invoice amount
+ unless ( $opt{skip_update_cust_bill_charged} ) {
+
+ #fix the invoice amount
+
+ my $cust_bill = $self->cust_bill;
+ my $charged = $cust_bill->charged - $self->setup - $self->recur;
+ $charged = sprintf('%.2f', $charged + 0.00000001 );
+ $cust_bill->charged( $charged );
- my $cust_bill = $self->cust_bill;
- $cust_bill->charged( $cust_bill->charged - $self->setup - $self->recur );
+ #not adding a cc surcharge, but this override lets us modify charged
+ $cust_bill->{'Hash'}{'cc_surcharge_replace_hack'} = 1;
- #not adding a cc surcharge, but this override lets us modify charged
- $cust_bill->{'Hash'}{'cc_surcharge_replace_hack'} = 1;
+ my $error = $cust_bill->replace;
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return $error;
+ }
+
+ }
- my $error = $cust_bill->replace
- || $self->SUPER::delete(@_);
+ my $error = $self->SUPER::delete(@_);
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
return $error;