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

Fix request inserts.

Browse source
This commit is contained in:
Bradley M. Kuhn 2015-12-06 15:43:03 -08:00
parent 9b3e1a70af
commit 21d555d0cc
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -18,30 +18,31 @@ my $dbhNew = DBI->connect("dbi:SQLite:dbname=$NEW_SUPPORTERS_SQLITE_DB_FILE", ""
# Insert t-shirt types and sizes
my $sthNew = $dbhNew->prepare("INSERT INTO request_type(type) values(?)");
my $sthInsertRequestType = $dbhNew->prepare("INSERT INTO request_type(type) values(?)");
$sthNew->execute("t-shirt-0");
$sthInsertRequestType->execute("t-shirt-0");
my $tShirt0RequestTypeId = $dbhNew->last_insert_id("","","","");
$sthNew->execute("t-shirt-1");
$sthInsertRequestType->execute("t-shirt-1");
my $tShirt1RequestTypeId = $dbhNew->last_insert_id("","","","");
$sthNew->finish();
my %tShirt0SizeRequestConfigurationIds;
$sthNew = $dbhNew->prepare("INSERT INTO request_configuration" .
my $sthInsertRequestConfiguration = $dbhNew->prepare("INSERT INTO request_configuration" .
"(request_type_id, description) values(?, ?)");
foreach my $requestTypeId (qw/$tShirt1RequestTypeId $tShirt0RequestTypeId/) {
foreach my $size (qw/LadiesS LadiesM LadiesL LadiesXL MenS MenM MenXL Men2XL/) {
$sthNew->execute($requestTypeId, $size);
$sthInsertRequestConfiguration->execute($requestTypeId, $size);
$tShirt0SizeRequestConfigurationIds{$size} = $dbhNew->last_insert_id("","","","");
}
}
$sthNew->execute("join-announce-email-list");
$sthInsertRequestConfiguration->finish();
$sthInsertRequestType->execute("join-announce-email-list");
my $announceEmailListRequestTypeId = $dbhNew->last_insert_id("","","","");
$sthNew->finish();
$sthInsertRequestType->finish();
# Only one email Adress type so far
$sthNew = $dbhNew->prepare("INSERT INTO address_type(name) values('paypal_payer')");
my $sthNew = $dbhNew->prepare("INSERT INTO address_type(name) values('paypal_payer')");
my $paypalPayerEmailAddresTypeId = $dbhNew->last_insert_id("","","","");
$sthNew->finish();