[isidorus-cvs] r903 - in branches/gdl-frontend/src: json/JTM rest_interface

[lgiessmann at common-lisp.net]

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)))