diff options
author | Ivan Kohler <ivan@freeside.biz> | 2017-02-01 09:26:49 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2017-02-01 09:26:49 -0800 |
commit | b7eced75ed18c5cf4ef3f120295ec74b5a19218d (patch) | |
tree | a543268f18c28f24e8c27a6821d7e7b10471960c /FS/FS/cust_main.pm | |
parent | 7a7d7b2112988841447a09fc4496d4678d8fc207 (diff) |
fix Tokenized payinfo on upgrade if we can, RT#71513
Diffstat (limited to 'FS/FS/cust_main.pm')
-rw-r--r-- | FS/FS/cust_main.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index d9ca150..3559409 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -5875,8 +5875,8 @@ sub _upgrade_next_recnum { ' FROM '.$table. ' WHERE '.$tclass->primary_key.' > '.$$lastrecnum. " AND payby IN ( 'CARD', 'DCRD', 'CHEK', 'DCHK' ) ". - " AND ( length(payinfo) > 80 OR paycardtype = 'Tokenized' ) ". - ' ORDER BY '.$tclass->primary_key.' LIMIT 500';; + " AND ( length(payinfo) < 80 OR paycardtype = 'Tokenized' ) ". + ' ORDER BY '.$tclass->primary_key.' LIMIT 500'; my $sth = $dbh->prepare($sql) or die $dbh->errstr; $sth->execute() or die $sth->errstr; my @recnums; |