diff options
author | ivan <ivan> | 2011-07-22 17:27:10 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-07-22 17:27:10 +0000 |
commit | 2494429d10f0229052524c5f29299ee2580c1170 (patch) | |
tree | 4fe7feacae2177bb97240529b6f69bbf5d3c676a /FS/FS/cust_pay_void.pm | |
parent | d03051ff7581ab52214c2560383308abbe6f9ff2 (diff) |
finish upgrade even if a void_usernum cannot be determined for some records, RT#13600
Diffstat (limited to 'FS/FS/cust_pay_void.pm')
-rw-r--r-- | FS/FS/cust_pay_void.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/cust_pay_void.pm b/FS/FS/cust_pay_void.pm index 0b89591..1e22e1c 100644 --- a/FS/FS/cust_pay_void.pm +++ b/FS/FS/cust_pay_void.pm @@ -258,7 +258,8 @@ sub _upgrade_data { # class method foreach my $cust_pay_void (qsearch('cust_pay_void', {'void_usernum' => ''})) { $sth->execute($cust_pay_void->paynum) or die $sth->errstr; - my $usernum = $sth->fetchrow_arrayref->[0] or next; + my $row = $sth->fetchrow_arrayref; + my $usernum = $row ? $row->[0] : ''; if ( $usernum ) { $cust_pay_void->void_usernum($usernum); my $error = $cust_pay_void->replace; |