begin Product->Sku translation

This commit is contained in:
Colin Kuskie 2008-03-28 23:07:15 +00:00
parent 29b95c45ee
commit 0a87bb25e8
2 changed files with 887 additions and 0 deletions

View file

@ -37,6 +37,7 @@ insertCommercePayDriverTable($session);
addPaymentDrivers($session);
convertTransactionLog($session);
upgradeEMS($session);
migrateOldProduct($session);
finish($session); # this line required
@ -400,6 +401,25 @@ sub addShippingDrivers {
$session->db->write("insert into shipper (shipperId, className,options) values ('defaultfreeshipping000','WebGUI::Shop::ShipDriver::FlatRate',?)",[q|{"label":"Free Shipping","enabled":1}|]);
}
#-------------------------------------------------
sub migrateOldProduct {
return;
my $session = shift;
print "\tMigrate old Product to new SKU based Products.\n" unless ($quiet);
# and here's our code
##Grab data from Wobject table, and move it into Sku and Product, as appropriate.
my $wobject = $session->db->prepare('select * from commerceSalesTax');
my $sku = $session->db->prepare('insert into tax (taxId, country, state, city, code, taxRate) VALUES (?,?,?,?,?,?)');
my $rmWobject =
$oldTax->execute();
while (my $oldTaxData = $oldTax->hashRef()) {
$newTax->execute([$oldTaxData->{commerceSalesTaxId}, 'USA', $oldTaxData->{regionIdentifier}, '', '', $oldTaxData->{salesTax}]);
}
$oldTax->finish;
$newTax->finish;
##Delete data from Wobject table.
}
#-------------------------------------------------
sub insertCommercePayDriverTable {
my $session = shift;