X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_pay_void.pm;h=f129a1286704216720f2d2a361109374651c467c;hb=4324f91461552d38cc2751339f4e2a5e963bdf3a;hp=3a30acbac7b81c3a3b007798d74c877ed06956f8;hpb=d1fa41850bf301ffd452a2649e147b928936ad97;p=freeside.git diff --git a/FS/FS/cust_pay_void.pm b/FS/FS/cust_pay_void.pm index 3a30acbac..f129a1286 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;