4 use FS::UID qw(adminsuidsetup dbh);
7 my $user = shift or die 'usage';
12 my $sql = ' UPDATE h_cust_main SET paycvv = NULL
13 WHERE historynum IN ( SELECT historynum FROM h_cust_main
14 WHERE paycvv IS NOT NULL LIMIT 8192 )';
15 # WHERE paycvv IS NOT NULL LIMIT 1 )';
17 my $sth = dbh->prepare($sql) or die dbh->errstr;
21 my $rv = $sth->execute;
23 dbh->commit or die dbh->errstr;