if ($in{tax_id} ne "") {
   warn "updating $username tax to $in{tax_id}";
   $dbh->do (qq{ UPDATE reg_users SET tax_id = ? WHERE username = ? },
                    undef, $in{tax_id}, $username) || error("Error on MySQL Update: $DBI::errstr");
 } else {
    warn "Not updating tax_id for $username (\$in{new_aff} == $in{new_aff})";
 }