From b279ca3f1c66ea5f589421196b7c5fc5f7163ec4 Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Fri, 19 Apr 2013 12:35:02 -0700
Subject: [PATCH] avoid some redundant upgrades, #18548

---
 FS/FS/cust_pay.pm | 2 ++
 1 file changed, 2 insertions(+)

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
-- 
2.11.0