From: Mark Wells <mark@freeside.biz>
Date: Fri, 19 Apr 2013 19:35:02 +0000 (-0700)
Subject: avoid some redundant upgrades, #18548
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=b279ca3f1c66ea5f589421196b7c5fc5f7163ec4

avoid some redundant upgrades, #18548
---

diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm
index 7b01ff590..0e9e8a716 100644
--- a/FS/FS/cust_pay.pm
+++ b/FS/FS/cust_pay.pm
@@ -1063,6 +1063,8 @@ sub _upgrade_data {  #class method
             warn "couldn't find paybatch history record for $table ".$object->$pkey."\n";
             next;
           }
+          # if the paybatch didn't have an auth string, then it's fine
+          $h->paybatch =~ /:(\w+):/ or next;
           # set paybatch to what it was in that record
           $object->set('paybatch', $h->paybatch)
           # and then upgrade it like the old records