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 # 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("","","",""); my $tShirt0RequestTypeId = $dbhNew->last_insert_id("","","","");
$sthNew->execute("t-shirt-1"); $sthInsertRequestType->execute("t-shirt-1");
my $tShirt1RequestTypeId = $dbhNew->last_insert_id("","","",""); my $tShirt1RequestTypeId = $dbhNew->last_insert_id("","","","");
$sthNew->finish();
my %tShirt0SizeRequestConfigurationIds; my %tShirt0SizeRequestConfigurationIds;
$sthNew = $dbhNew->prepare("INSERT INTO request_configuration" . my $sthInsertRequestConfiguration = $dbhNew->prepare("INSERT INTO request_configuration" .
"(request_type_id, description) values(?, ?)"); "(request_type_id, description) values(?, ?)");
foreach my $requestTypeId (qw/$tShirt1RequestTypeId $tShirt0RequestTypeId/) { foreach my $requestTypeId (qw/$tShirt1RequestTypeId $tShirt0RequestTypeId/) {
foreach my $size (qw/LadiesS LadiesM LadiesL LadiesXL MenS MenM MenXL Men2XL/) { 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("","","",""); $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("","","",""); my $announceEmailListRequestTypeId = $dbhNew->last_insert_id("","","","");
$sthNew->finish(); $sthInsertRequestType->finish();
# Only one email Adress type so far # 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("","","",""); my $paypalPayerEmailAddresTypeId = $dbhNew->last_insert_id("","","","");
$sthNew->finish(); $sthNew->finish();