X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fcust_main.restore-paymask;h=14dddd1b546ada1b1d75cc38856d1a268bef3b54;hp=c6c8a75ec9d97d6871b96b3075890ed2e81277e7;hb=b71b1576c68bc40ad26592b354feace37a029f0e;hpb=a616d0c27799413dfbe07ee86e75df3e0d5a740f 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;]