deb 9

[freeside.git] / bin / cust_pay_batch_refund_delete

diff --git a/bin/cust_pay_batch_refund_delete b/bin/cust_pay_batch_refund_delete
index c1ddba4..da3779c 100755 (executable)
--- a/bin/cust_pay_batch_refund_delete
+++ b/bin/cust_pay_batch_refund_delete
@@ -29,15 +29,15 @@ foreach (@batch_refunds) {
        'extra_sql' => $extra_batch_refund_sql,
        });
 
-       warn "found cust refund number ".$cust_refund->{Hash}->{refundnum}.", now to delete it.\n";
+       warn "found cust refund number ".$cust_refund->{Hash}->{refundnum}.", now to delete it.\n" if $cust_refund;
 
        ## delete the cust_pay_refund
-       my $delete_cust_refund_error = $cust_refund->delete;
+       my $delete_cust_refund_error = $cust_refund->delete if $cust_refund;
        warn "could not delete cust refund $delete_cust_refund_error\n" if $delete_cust_refund_error;
 
      ## delete the refund from the batch.
      unless ($delete_cust_refund_error) {
-       my $delete_cust_pay_batch_error = $_->delete;
+       my $delete_cust_pay_batch_error = $_->unbatch_and_delete;
        warn "could not delete cust refund $delete_cust_pay_batch_error\n" if $delete_cust_pay_batch_error;
      }