X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fcust_pay_batch_refund_delete;h=da3779c760dd087ae73787aa9b884a79f928e245;hb=ffa18709ee8a4d05e18d2d406cf73afe79e52524;hp=c1ddba449d9331d73a1f279787c9051b3811799e;hpb=ae27246c0cab56f6935c47148e6ae54ec25b2238;p=freeside.git

diff --git a/bin/cust_pay_batch_refund_delete b/bin/cust_pay_batch_refund_delete
index c1ddba449..da3779c76 100755
--- 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;
      }