From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 19 Jul 2018 02:18:19 +0000 (-0700)
Subject: more careful
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=214c4e855a429f7a50dfd771b18c74ef7a34be58

more careful
---

diff --git a/bin/cust_main.restore-paymask b/bin/cust_main.restore-paymask
index c6c8a75ec..14dddd1b5 100755
--- a/bin/cust_main.restore-paymask
+++ b/bin/cust_main.restore-paymask
@@ -15,10 +15,14 @@ foreach my $cust_main (
 
   my $custnum = $cust_main->custnum;
 
+  my $paydate = $cust_main->paydate;
+
   my $paymask = FS::Record->scalar_sql(qq[
-    SELECT paymask FROM h_cust_main WHERE custnum = $custnum AND history_action = 'replace_old' AND paymask IS NOT NULL AND paymask != 'N/A (tokenized)' ORDER BY historynum desc LIMIT 1
+    SELECT paymask FROM h_cust_main WHERE custnum = $custnum AND history_action = 'replace_old' AND paymask IS NOT NULL AND paymask != 'N/A (tokenized)' AND paydate = '$paydate' ORDER BY historynum desc LIMIT 1
   ]);
 
+  next unless length($paymask);
+
   #dbh->do(
   print
     qq[UPDATE cust_main SET paymask = '$paymask' WHERE custnum = $custnum;]