convert related over to JSON collateral

This commit is contained in:
Colin Kuskie 2008-05-05 03:13:28 +00:00
parent 3721e97f7a
commit e5615e386c
3 changed files with 102 additions and 63 deletions

View file

@ -116,8 +116,21 @@ my $propertiesa = {
my $producta = $root->addChild($propertiesa);
$session->db->write('insert into Product_accessory (assetId, accessoryAssetId, sequenceNumber) values (?,?,?)', [$producta->getId, $root->getId, 1]);
$session->db->write('insert into Product_accessory (assetId, accessoryAssetId, sequenceNumber) values (?,?,?)', [$producta->getId, WebGUI::Asset->getDefault($session)->getId, 2]);
$session->db->write('insert into Product_accessory (assetId, accessoryAssetId, sequenceNumber) values (?,?,?)', [$producta->getId, $product5->getId, 1]);
$session->db->write('insert into Product_accessory (assetId, accessoryAssetId, sequenceNumber) values (?,?,?)', [$producta->getId, $product4->getId, 2]);
my $propertiesr = {
className => 'WebGUI::Asset::Wobject::Product',
url => 'related_Product',
price => 2.00,
title => 'related Product',
description => 'related Product',
};
my $productr = $root->addChild($propertiesa);
$session->db->write('insert into Product_related (assetId, relatedAssetId, sequenceNumber) values (?,?,?)', [$productr->getId, $product4->getId, 1]);
$session->db->write('insert into Product_related (assetId, relatedAssetId, sequenceNumber) values (?,?,?)', [$productr->getId, $product5->getId, 2]);
$tag->commit;