[isidorus-cvs] r717 - trunk/src/model

[lgiessmann at common-lisp.net]

Author: lgiessmann
Date: Wed Aug 10 03:37:39 2011
New Revision: 717

Log:
trunk: rest-interface: fixed a bug when deleting newly created associations of a topic

Modified:
   trunk/src/model/datamodel.lisp

Modified: trunk/src/model/datamodel.lisp
==============================================================================
--- trunk/src/model/datamodel.lisp	Mon Aug  8 02:35:56 2011	(r716)
+++ trunk/src/model/datamodel.lisp	Wed Aug 10 03:37:39 2011	(r717)
@@ -1595,7 +1595,9 @@
           (occurrences top :revision revision))
     (mapc (lambda (ass) (mark-as-deleted ass :revision revision
 					 :source-locator source-locator))
-	  (find-all-associations top :revision 0))
+	  (map 'list (lambda(role)
+		       (parent role :revision revision))
+	       (player-in-roles top :revision revision)))
     (let ((ref (reified-construct top :revision revision)))
       (when ref
 	(private-delete-reified-construct top ref :revision revision)))