Option to ignore old CDRs, RT#81480

[freeside.git] / bin / cust_main.restore-paymask

diff --git a/bin/cust_main.restore-paymask b/bin/cust_main.restore-paymask
index c6c8a75..14dddd1 100755 (executable)
--- 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;]