From: ivan <ivan>
Date: Fri, 7 Dec 2007 01:04:59 +0000 (+0000)
Subject: some old databases may have 'hanging' cust_credit records; we don't want to abort... 
X-Git-Tag: TRIXBOX_2_6~188
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=7753d82a54563e4c9189d54ec23fac969e592e89;p=freeside.git

some old databases may have 'hanging' cust_credit records; we don't want to abort the upgrade because of that, just warn
---

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index 4c94e1578..6cbe1d046 100644
--- a/FS/FS/cust_credit.pm
+++ b/FS/FS/cust_credit.pm
@@ -458,7 +458,8 @@ sub _upgrade_data {  # class method
         $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;
       }
     }