oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adding the ITransact driver. Partly finished, not yet tested, but compiles.

Browse source
This commit is contained in:
Martin Kamerbeek 2008-04-02 15:59:32 +00:00
parent 01835737dc
commit 6edce95ba4
4 changed files with 438 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

35
lib/WebGUI/Shop/TransactionItem.pm
View file

@ -215,24 +215,27 @@ sub update {
my ($self, $newProperties) = @_;
my $id = id $self;
if (exists $newProperties->{item}) {
my $item = $newProperties->{item};
my $item = $newProperties->{ item };
my $sku = $item->getSku;
$newProperties->{options} = $sku->getOptions;
$newProperties->{assetId} = $sku->getId;
$newProperties->{price} = $sku->getPrice;
$newProperties->{configuredTitle} = $sku->getConfiguredTitle;
$newProperties->{ options } = $sku->getOptions;
$newProperties->{ assetId } = $sku->getId;
$newProperties->{ price } = $sku->getPrice;
$newProperties->{ configuredTitle } = $sku->getConfiguredTitle;
$newProperties->{ isRecurring } = $sku->isRecurring;
$newProperties->{ recurInterval } = $sku->getRecurInterval if $sku->isRecurring;
my $address = $item->getShippingAddress;
$newProperties->{shippingAddressId} = $address->getId;
$newProperties->{shippingAddressName} = $address->get('name');
$newProperties->{shippingAddress1} = $address->get('address1');
$newProperties->{shippingAddress2} = $address->get('address2');
$newProperties->{shippingAddress3} = $address->get('address3');
$newProperties->{shippingCity} = $address->get('city');
$newProperties->{shippingState} = $address->get('state');
$newProperties->{shippingCountry} = $address->get('country');
$newProperties->{shippingCode} = $address->get('code');
$newProperties->{shippingPhoneNumber} = $address->get('phoneNumber');
$newProperties->{quantity} = $item->get('quantity');
$newProperties->{ shippingAddressId } = $address->getId;
$newProperties->{ shippingAddressName } = $address->get('name');
$newProperties->{ shippingAddress1 } = $address->get('address1');
$newProperties->{ shippingAddress2 } = $address->get('address2');
$newProperties->{ shippingAddress3 } = $address->get('address3');
$newProperties->{ shippingCity } = $address->get('city');
$newProperties->{ shippingState } = $address->get('state');
$newProperties->{ shippingCountry } = $address->get('country');
$newProperties->{ shippingCode } = $address->get('code');
$newProperties->{ shippingPhoneNumber } = $address->get('phoneNumber');
$newProperties->{ quantity } = $item->get('quantity');
}
my @fields = (qw(assetId configuredTitle options shippingAddressId shippingTrackingNumber shippingStatus
shippingName shippingAddress1 shippingAddress2 shippingAddress3 shippingCity shippingState