if (defined($in{new_aff}) && $in{new_aff} == 1) { if ($in{tax_id} ne "") { $dbh->do (qq{ UPDATE reg_users SET tax_id = ? WHERE username = ? }, {}, $in{tax_id}, $username); } $dbh->do (qq{ UPDATE reg_users SET aff_url = ? WHERE username = ? }, {}, $in{aff_url}, $username); $dbh->do (qq{ UPDATE reg_users SET aff = ?, aff_su_date = ? WHERE username = ? }, {}, "yes", $formated_date, $username); } $dbh->do (qq{ UPDATE reg_users SET html_email = ? WHERE username = ? }, {}, $in{html_email}, $username); $dbh->disconnect();