added vendor management

fixed a few privilege statements in some other code
This commit is contained in:
JT Smith 2008-04-29 21:25:15 +00:00
parent 175b977e4e
commit 6616504077
11 changed files with 610 additions and 19 deletions

View file

@ -245,7 +245,7 @@ A hash reference that contains one of the following:
A reference to a WebGUI::Shop::CartItem. Alternatively you can manually pass in any of the following
fields that would be created automatically by this object: assetId configuredTitle options shippingAddressId
shippingName shippingAddress1 shippingAddress2 shippingAddress3 shippingCity shippingState shippingCountry
shippingCode shippingPhoneNumber quantity price
shippingCode shippingPhoneNumber quantity price vendorId
=head4 shippingTrackingNumber
@ -284,7 +284,7 @@ sub update {
}
my @fields = (qw(assetId configuredTitle options shippingAddressId shippingTrackingNumber shippingStatus
shippingName shippingAddress1 shippingAddress2 shippingAddress3 shippingCity shippingState
shippingCountry shippingCode shippingPhoneNumber quantity price));
shippingCountry shippingCode shippingPhoneNumber quantity price vendorId));
foreach my $field (@fields) {
$properties{$id}{$field} = (exists $newProperties->{$field}) ? $newProperties->{$field} : $properties{$id}{$field};
}