Author: lgiessmann Date: Wed Sep 14 05:05:42 2011 New Revision: 903
Log: gdl-interface: fixed a bug when updated fragments after commit/delete operations
Modified: branches/gdl-frontend/src/json/JTM/jtm_delete_interface.lisp branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp
Modified: branches/gdl-frontend/src/json/JTM/jtm_delete_interface.lisp ============================================================================== --- branches/gdl-frontend/src/json/JTM/jtm_delete_interface.lisp Wed Sep 14 04:33:04 2011 (r902) +++ branches/gdl-frontend/src/json/JTM/jtm_delete_interface.lisp Wed Sep 14 05:05:42 2011 (r903) @@ -268,8 +268,6 @@ (reifier (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 (map 'list (lambda(occ)
Modified: branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp ============================================================================== --- branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp Wed Sep 14 04:33:04 2011 (r902) +++ branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp Wed Sep 14 05:05:42 2011 (r903) @@ -142,8 +142,11 @@ (player role :revision (1- rev))) (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) (player role :revision (1- rev)))