diff options
author | Ivan Kohler <ivan@freeside.biz> | 2018-07-18 19:18:19 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2018-07-18 19:18:19 -0700 |
commit | 214c4e855a429f7a50dfd771b18c74ef7a34be58 (patch) | |
tree | ff859125106d75a840a6d34cff81f0c7e749d3ce /bin/cust_main.restore-paymask | |
parent | ea749c5e875371d98bdcf173e19a2d57fa46481e (diff) |
more careful
Diffstat (limited to 'bin/cust_main.restore-paymask')
-rwxr-xr-x | bin/cust_main.restore-paymask | 6 |
1 files changed, 5 insertions, 1 deletions
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;] |