From 1363a8627a7ac2db400171cfc3c11009bf596071 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 18 Mar 2010 15:05:19 -0700
Subject: [PATCH] Serialize _to_ json in write.

---
 lib/WebGUI/Asset.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index b34f244b3..5f7c5262b 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -2358,7 +2358,7 @@ sub write {
         my $tableName = $property->tableName;
         my $value     = $self->$property_name;
         if ($property->does('WebGUI::Definition::Meta::Property::Serialize')) {
-            $value    = eval { JSON::from_json($value); } || '';
+            $value    = eval { JSON::to_json($value); } || '';
         }
         push @{ $data_by_table{$tableName}->{NAMES}  }, $property_name;
         push @{ $data_by_table{$tableName}->{VALUES} }, $value;