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

Remove get and update overrides in Asset::Role::Comments

Browse source
This commit is contained in:
Colin Kuskie 2010-03-18 09:10:45 -07:00
parent e076ecbfe2
commit b0cad3b155
2 changed files with 18 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Asset.pm
View file

@ -20,6 +20,16 @@ use JSON;
use HTML::Packer;
use Moose;
use Moose::Util::TypeConstraints;
subtype 'WebGUI::Type::JSONArray'
=> as 'ArrayRef'
;
coerce 'WebGUI::Type::JSONArray'
=> from Str
=> via { my $struct = eval { JSON::from_json($_); }; $struct ||= []; return $struct },
;
use WebGUI::Definition::Asset;
define assetName => ['asset', 'Asset'];
define tableName => 'assetData';
@ -2355,6 +2365,9 @@ sub write {
my $property = $self->meta->find_attribute_by_name($property_name);
my $tableName = $property->tableName;
my $value = $self->$property_name;
if ($property->does('WebGUI::Definition::Meta::Property::Serialize')) {
$value = eval { JSON::from_json($value); } || '';
}
push @{ $data_by_table{$tableName}->{NAMES} }, $property_name;
push @{ $data_by_table{$tableName}->{VALUES} }, $value;
}