- my %hash = $old_cust_credit->hash;
- $hash{credited} = sprintf("%.2f", $hash{credited} - $self->refund );
- my($new_cust_credit) = new FS::cust_credit ( \%hash );
-
- local $SIG{HUP} = 'IGNORE';
- local $SIG{INT} = 'IGNORE';
- local $SIG{QUIT} = 'IGNORE';
- local $SIG{TERM} = 'IGNORE';
- local $SIG{TSTP} = 'IGNORE';
- local $SIG{PIPE} = 'IGNORE';
-
- $error = $new_cust_credit->replace($old_cust_credit);
- return "Error modifying cust_credit: $error" if $error;