diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 044a48b9e..be1fdbdc2 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -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 diff --git a/lib/WebGUI/Asset/Sku/ThingyRecord.pm b/lib/WebGUI/Asset/Sku/ThingyRecord.pm index 33039013f..74930107b 100644 --- a/lib/WebGUI/Asset/Sku/ThingyRecord.pm +++ b/lib/WebGUI/Asset/Sku/ThingyRecord.pm @@ -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->() ) {