in reply to Re: MySQL and Perl... Update record Prob
in thread MySQL and Perl... Update record Prob
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.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Re: MySQL and Perl... Update record Prob
by fokat (Deacon) on Feb 03, 2003 at 13:08 UTC |