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

Import script no longer needs to make this link.

Browse source 
addSupporter() now does it properly in the API.
This commit is contained in:
Bradley M. Kuhn 2015-12-16 18:15:54 -08:00
parent c4668b81d6
commit 69260413f3
1 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scripts/db-convert-0.1-to-0.2.plx
View file

@ -49,9 +49,6 @@ $sthNew->finish();
my $sthInsertEmailAddress = $dbhNew->prepare('INSERT INTO email_address(email_address, type_id, date_encountered)' . my $sthInsertEmailAddress = $dbhNew->prepare('INSERT INTO email_address(email_address, type_id, date_encountered)' .
"values(?, $paypalPayerTypeId, date('now'))"); "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)' . my $sthLinkSupporterToPostal = $dbhNew->prepare('INSERT INTO supporter_postal_address_mapping(supporter_id, postal_address_id, preferred)' .
"values(?, ?, 1)"); "values(?, ?, 1)");
@ -84,15 +81,12 @@ while (my $row = $sthOld->fetchrow_hashref) {
$sthInsertRequest->execute($supporterId, $announceEmailListRequestTypeId, undef, $sthInsertRequest->execute($supporterId, $announceEmailListRequestTypeId, undef,
($row->{on_announce_mailman_list} ? $fulfillmentId : 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}); $sthPostalAddress->execute($row->{formatted_address});
my $postalId = $dbhNew->last_insert_id("","","",""); my $postalId = $dbhNew->last_insert_id("","","","");
$sthLinkSupporterToPostal->execute($supporterId, $postalId); $sthLinkSupporterToPostal->execute($supporterId, $postalId);
} }
foreach my $sth (($sthOld, $sthOld, $sthInsertEmailAddress, foreach my $sth (($sthOld, $sthOld, $sthInsertEmailAddress,
$sthLinkSupporterToEmail, $sthInsertRequest, $sthPostalAddress, $sthInsertRequest, $sthPostalAddress,
$sthLinkSupporterToPostal,)) { $sthLinkSupporterToPostal,)) {
$sth->finish(); $sth->finish();
} }