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