Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Actual email address add code; tests stay same.

Browse source
This commit is contained in:
Bradley M. Kuhn 2015-12-11 18:15:31 -08:00
parent b1436e037e
commit 5b07fe6af9
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Supporters/lib/Supporters.pm
View file

@ -177,6 +177,15 @@ sub addEmailAddress($$$$) {
my $addressTypeId = $self->addAddressType($emailAddressType);
my $sth = $self->dbh->prepare("INSERT INTO email_address(email_address, type_id, date_encountered)" .
"VALUES( ?, ?, date('now'))");
$self->dbh->begin_work();
$sth->execute($emailAddress, $addressTypeId);
my $addressId = $self->dbh->last_insert_id("","","","");
$sth->finish();
$self->dbh->commit();
return $addressId;
}
######################################################################