Import script no longer needs to make this link.
addSupporter() now does it properly in the API.
This commit is contained in:
parent
c4668b81d6
commit
69260413f3
1 changed files with 1 additions and 7 deletions
|
@ -49,9 +49,6 @@ $sthNew->finish();
|
|||
my $sthInsertEmailAddress = $dbhNew->prepare('INSERT INTO email_address(email_address, type_id, date_encountered)' .
|
||||
"values(?, $paypalPayerTypeId, date('now'))");
|
||||
|
||||
my $sthLinkSupporterToEmail = $dbhNew->prepare('INSERT INTO supporter_email_address_mapping(supporter_id, email_address_id, preferred)' .
|
||||
"values(?, ?, 1)");
|
||||
|
||||
my $sthLinkSupporterToPostal = $dbhNew->prepare('INSERT INTO supporter_postal_address_mapping(supporter_id, postal_address_id, preferred)' .
|
||||
"values(?, ?, 1)");
|
||||
|
||||
|
@ -84,15 +81,12 @@ while (my $row = $sthOld->fetchrow_hashref) {
|
|||
$sthInsertRequest->execute($supporterId, $announceEmailListRequestTypeId, undef,
|
||||
($row->{on_announce_mailman_list} ? $fulfillmentId : undef));
|
||||
}
|
||||
$sthInsertEmailAddress->execute($row->{paypal_payer});
|
||||
my $emailId = $dbhNew->last_insert_id("","","","");
|
||||
$sthLinkSupporterToEmail->execute($supporterId, $emailId);
|
||||
$sthPostalAddress->execute($row->{formatted_address});
|
||||
my $postalId = $dbhNew->last_insert_id("","","","");
|
||||
$sthLinkSupporterToPostal->execute($supporterId, $postalId);
|
||||
}
|
||||
foreach my $sth (($sthOld, $sthOld, $sthInsertEmailAddress,
|
||||
$sthLinkSupporterToEmail, $sthInsertRequest, $sthPostalAddress,
|
||||
$sthInsertRequest, $sthPostalAddress,
|
||||
$sthLinkSupporterToPostal,)) {
|
||||
$sth->finish();
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue