Changeset 903 for branches

Timestamp:

09/14/11 12:05:42 (14 years ago)

Author:

lgiessmann

Message:

gdl-interface: fixed a bug when updated fragments after commit/delete operations

Location:

branches/gdl-frontend/src

Files:

• json/JTM/jtm_delete_interface.lisp (modified) (1 diff)
• rest_interface/set-up-gdl-interface.lisp (modified) (1 diff)

branches/gdl-frontend/src/json/JTM/jtm_delete_interface.lisp ¶

@@ -269 +269 @@
                   (reified-construct reifier :revision revision))
                  (parent
-                  (format t "parent: ~a, charvalue: ~a, datatype: ~a, type: ~a, scope: ~a~%"
-                          parent value datatype type scope)
                   (let ((found-occs
                          (tools:remove-null

branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp ¶

@@ -143 +143 @@
                                     (roles result :revision (1- rev))))
                               ((typep result 'TopicC)
+                               (elephant:drop-instance result)
                                (let ((assocs
-                                      (player-in-roles result :revision (1- rev))))
+                                      (map 'list (lambda(role)
+                                                   (parent role :revision (1- rev)))
+                                           (player-in-roles result :revision (1- rev)))))
                                  (loop for assoc in assocs
                                     append (map 'list (lambda(role)