if (defined($in{new_aff}) && $in{new_aff} == 1) { # Checks to see if # they are adding our Affiliate Program to their registration if ($in{tax_id} ne "") { # Checks to see if they # added a tax id number for when we pay them $dbh->do (qq{ UPDATE reg_users SET tax_id = ? WHERE username = + ? }, '', $in{tax_id}, $username); } # Ok, these were required fields IF they checked the box which + made this # execute from above $dbh->do (qq{ UPDATE reg_users SET aff_url = ? WHERE username = ? +}, '', $in{aff_url}, $username); # the one above added their Website for us to view $dbh->do (qq{ UPDATE reg_users SET aff = ?, aff_su_date = ? WHERE +username = ? }, '', "yes", $formated_date, $username); # This one adds the affiliate program to the reg_users table. +it basically just # turns it 'on' } $dbh->do (qq{ UPDATE reg_users SET html_email = ? WHERE username = + ? }, '', $in{html_email}, $username); # this one just above was in a different part of the form, I j +ust added it. # It asks them if they support HTML email for our eMail update +s, they can # turn it off and on in the "registered users" manager I built +. $dbh->disconnect(); # Ok, now this finally disconnects.
In reply to Re: Re: MySQL and Perl... Update record Prob
by powerhouse
in thread MySQL and Perl... Update record Prob
by powerhouse
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |