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

fixed: Existing ThingyRecords are broken after upgrade

Browse source 
fixed: ThingyRecords cannot be purged
This commit is contained in:
Graham Knop 2009-08-11 16:31:26 +00:00
parent 169e64a2b6
commit 401a1cff1c
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
docs/changelog/7.x.x.txt
View file

@ -1,6 +1,8 @@
7.7.17
- fixed #10748: In-store credit not reported correctly in email
- fixed #10746: SQL queriy is improper for MySQL compliant query
- fixed: Existing ThingyRecords are broken after upgrade
- fixed: ThingyRecords cannot be purged
- fixed #10744: Shop quantity bug in Cart
- fixed #10738: Events do not revision their storage locations
- fixed #10724: gotcha.txt for 7.7.17 enhanced

6
lib/WebGUI/Asset/Sku/ThingyRecord.pm
View file

@ -133,7 +133,7 @@ sub appendVarsEditRecord {
my ( $self, $var, $recordId ) = @_;
my $session = $self->session;
my $thingy = $self->getThingy;
my $fieldPrice = JSON->new->decode( $self->get('fieldPrice') );
my $fieldPrice = JSON->new->decode( $self->get('fieldPrice') || '{}' );
my $record = {};
if ($recordId) {
@ -293,7 +293,7 @@ Get the price
sub getPrice {
my ($self) = @_;
my $price = $self->get('price');
my $fieldPrice = JSON->new->decode( $self->get('fieldPrice') );
my $fieldPrice = JSON->new->decode( $self->get('fieldPrice') || '{}' );
my $option = $self->getOptions;
my $record = $RECORD_CLASS->new( $self->session, $option->{recordId} );
my $fields = JSON->new->decode( $record->get('fields') );
@ -526,7 +526,7 @@ Remove all collateral associated with the ThingyRecord sku
sub purge {
my $self = shift;
my $options = { constraints => { 'assetId = ?' => $self->getId, }, };
my $options = { constraints => [ { 'assetId = ?' => $self->getId } ] };
my $iter = $RECORD_CLASS->getAllIterator( $self->session, $options );
while ( my $item = $iter->() ) {