[freeside-commits] freeside/FS/FS cust_pay_void.pm,1.14,1.15

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv10001

Modified Files:
	cust_pay_void.pm 
Log Message:
finish upgrade even if a void_usernum cannot be determined for some records, RT#13600

Index: cust_pay_void.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pay_void.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -w -d -r1.14 -r1.15
--- cust_pay_void.pm	12 Jul 2011 03:23:17 -0000	1.14
+++ cust_pay_void.pm	22 Jul 2011 17:27:10 -0000	1.15
@@ -258,7 +258,8 @@
 
   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;