RT#39586 Manual check refunds cannot be unapplied [v3 merge]

diff --git a/FS/FS/cust_main/Billing_Realtime.pm b/FS/FS/cust_main/Billing_Realtime.pm
index 58ae97c..e9a3db2 100644 (file)
--- a/FS/FS/cust_main/Billing_Realtime.pm
+++ b/FS/FS/cust_main/Billing_Realtime.pm
@@ -1382,8 +1382,6 @@ sub realtime_refund_bop {
     warn "  $_ => $options{$_}\n" foreach keys %options;
   }
 
-  return "No reason specified" unless $options{'reasonnum'} =~ /^\d+$/;
-
   my %content = ();
 
   ###

diff --git a/FS/FS/cust_refund.pm b/FS/FS/cust_refund.pm
index d6cedf5..1791510 100644 (file)
--- a/FS/FS/cust_refund.pm
+++ b/FS/FS/cust_refund.pm
@@ -158,7 +158,6 @@ sub insert {
       $self->set('reasonnum', $reason->get('reasonnum'));
       $self->set('reason', '');
     }
-    $self->set('reasonnum', $reason->reasonnum);
   }
 
   if ( $self->crednum ) {