don't bomb out on this transition on old databases without history records for everything...

1 files changed, 5 insertions, 1 deletions

diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm
index 67f34c387..5ba5b0a7d 100644
--- a/FS/FS/cust_pay.pm
+++ b/FS/FS/cust_pay.pm
@@ -698,7 +698,11 @@ sub _upgrade_data {  #class method
     return unless $cust_pay;
 
     my $h_cust_pay = $cust_pay->h_search('insert');
-    $cust_pay->otaker($h_cust_pay->history_user);
+    if ( $h_cust_pay ) {
+      $cust_pay->otaker($h_cust_pay->history_user);
+    } else {
+      $cust_pay->otaker('legacy');
+    }
     my $error = $cust_pay->replace;
     die $error if $error;