Changeset 446 for trunk/src/json/JTM

Timestamp:

05/02/11 11:05:26 (14 years ago)

Author:

lgiessmann

Message:

JTM: added unit-tests for exporting objects of the type FragmentC as JTM => fixed some bugs in the corresponding methods/functions

File:

• trunk/src/json/JTM/jtm_exporter.lisp (modified) (2 diffs)

trunk/src/json/JTM/jtm_exporter.lisp ¶

@@ -558 +558 @@
   "Note if prefixes-p is set to nil the export format is JTM 1.0.
    If prefixes-p is set to t the export format is JTM 1.1."
-  (declare (Boolean prefixes-p)
-           (Ignorable parent-p item-type-p prefixes)
+  (declare (Boolean prefixes-p item-type-p)
+           (Ignorable parent-p prefixes)
            (Integer revision))
   (let* ((prefixes-list
@@ -593 +593 @@
                    :prefixes prefixes-list :revision revision :item-type-p nil)
                   ","))
-         (item-type (concat "\"item_type\":\"" item_type-topicmap "\","))
+         (item-type (when item-type-p
+                      (concat "\"item_type\":\"" item_type-topicmap "\",")))
          (iis "\"item_identifiers\":null,")
          (frag-reifier "\"reifier\":null"))