#!c:/apache2triad/perl/bin/perl.exe


#input - email address, presale series, database connection
#output - updates the email address and appends 'z--' at the begining. 
#Pre requisite - $dbh is the connection to database


sub updateEmailAfterSale
{
	my $email = $_[0];
	my $presaleSeries = $_[1];
	#print $email;
 	
	my $tablename = $presaleSeries."active";
        my $newemail = "z--".$email;
   	my $sqlStatement = "UPDATE $tablename SET email = \"$newemail\" WHERE email = \"$email\"";
	#$dbh->do($sqlStatement);
	return $sqlStatement;
}