[freeside-commits] freeside/FS/FS cust_credit.pm,1.27,1.28

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv17175/FS/FS

Modified Files:
	cust_credit.pm 
Log Message:
some old databases may have 'hanging' cust_credit records; we don't want to abort the upgrade because of that, just warn

Index: cust_credit.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_credit.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- cust_credit.pm	4 Dec 2007 18:20:56 -0000	1.27
+++ cust_credit.pm	7 Dec 2007 01:04:59 -0000	1.28
@@ -458,7 +458,8 @@
         $cust_credit->setfield('reason', '');
         my $error = $cust_credit->replace;
 
-        die "error inserting $self into database: $error\n"
+        warn "*** WARNING: error replacing reason in $self ".
+             $self->crednum. ": $error ***\n"
           if $error;
       }
     }