[isidorus-cvs] r714 - trunk/src/rest_interface

[lgiessmann at common-lisp.net]

Author: lgiessmann
Date: Fri Aug  5 04:02:12 2011
New Revision: 714

Log:
trunk: rest-interface: changed the serialization-handler of json-fragments

Modified:
   trunk/src/rest_interface/set-up-json-interface.lisp

Modified: trunk/src/rest_interface/set-up-json-interface.lisp
==============================================================================
--- trunk/src/rest_interface/set-up-json-interface.lisp	Fri Aug  5 00:51:26 2011	(r713)
+++ trunk/src/rest_interface/set-up-json-interface.lisp	Fri Aug  5 04:02:12 2011	(r714)
@@ -340,8 +340,9 @@
 	    (let ((fragment (get-latest-fragment-of-topic identifier)))
 	      (if (and fragment (find-item-by-revision (topic fragment) 0))
 		  (handler-case
-		      (export-construct-as-isidorus-json-string
-		       fragment :revision 0)
+		      (d:serialize-fragment fragment (fragment-serializer))
+		    ;(export-construct-as-isidorus-json-string
+		    ;fragment :revision 0)
 		    (condition (err)
 		      (progn
 			(setf (hunchentoot:return-code*)