[freeside-commits] freeside/FS/FS cust_pay_void.pm,1.13,1.13.2.1

Ivan,,, ivan at wavetail.420.am
Fri Jul 22 10:27:13 PDT 2011


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

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	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.13
retrieving revision 1.13.2.1
diff -u -w -d -r1.13 -r1.13.2.1
--- cust_pay_void.pm	22 Oct 2010 06:37:09 -0000	1.13
+++ cust_pay_void.pm	22 Jul 2011 17:27:11 -0000	1.13.2.1
@@ -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;



More information about the freeside-commits mailing list