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

Begin switch to use API rather than direct DB call

Browse source
This commit is contained in:
Bradley M. Kuhn 2015-12-13 12:16:42 -08:00
parent 19d513280f
commit 302b2b6f8b
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -5,6 +5,7 @@ use warnings;
use DBI;
use Encode qw(encode decode);
use Supporter;
my($OLD_SUPPORTERS_SQLITE_DB_FILE, $NEW_SUPPORTERS_SQLITE_DB_FILE) = @ARGV;
@ -75,11 +76,14 @@ my $sthPostalAddress = $dbhNew->prepare('INSERT INTO postal_address(formatted_ad
my $sthOld = $dbhOld->prepare('SELECT * from supporters order by id;');
$sthOld->execute();
my $sp = new Supporter($dbhNew, "/usr/bin/ledger");
while (my $row = $sthOld->fetchrow_hashref) {
$sthNewInsertSupporter->execute($row->{ledger_entity_id}, $row->{display_name},
$row->{public_ack});
my $supporterId = $dbhNew->last_insert_id("","","","");
print STDERR "handling $supporterId ($row->{ledger_entity_id})\n";
$row->{email_address_type} = 'paypal';
$row->{email_address} = $row->{paypal_payer};
my $supporterId = $sp->addSupporter($row);
die("Database conversion failed on id matching: $row->{ledger_entity_id} had ID $row->{id} now has $supporterId")
unless ($row->{id} == $supporterId);
if ($row->{want_gift}) {