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

some minor bug fixes with serialization

Browse source
This commit is contained in:
JT Smith 2008-10-30 16:29:37 +00:00
parent ac80e166a4
commit 9c81262d07
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Crud.pm
View file

@ -653,7 +653,7 @@ Either an integer representing the number of records to return, or an array refe
=head4 orderBy
A scalar containing an order by clause. Defaults to 'sequenceNumber'.
A scalar containing a field name to order by. Defaults to 'sequenceNumber'.
=head4 sequenceKeyValue
@ -793,7 +793,7 @@ sub new {
# deserialize data
my $properties = $class->crud_getProperties($session);
foreach my $name (keys %{$properties}) {
if ($properties->{$name}{serialize}) {
if ($properties->{$name}{serialize} && $data->{$name} ne "") {
$data->{$name} = JSON->new->canonical->decode($data->{$name});
}
}
@ -921,7 +921,7 @@ sub update {
$data->{$property} ||= $properties->{$property}{defaultValue};
# serialize if needed
if ($properties->{$property}{serialize}) {
if ($properties->{$property}{serialize} && $data->{property} ne "") {
$data->{property} = JSON->new->canonical->encode($data->{property});
}
}