Author: lgiessmann Date: Thu Sep 22 05:39:10 2011 New Revision: 961 Log: gdl-interface: fixed a bug in the delete-handler Modified: branches/gdl-frontend/src/anaToMia/hosted_files/GDL_Widgets.css branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp Modified: branches/gdl-frontend/src/anaToMia/hosted_files/GDL_Widgets.css ============================================================================== --- branches/gdl-frontend/src/anaToMia/hosted_files/GDL_Widgets.css Thu Sep 22 04:51:01 2011 (r960) +++ branches/gdl-frontend/src/anaToMia/hosted_files/GDL_Widgets.css Thu Sep 22 05:39:10 2011 (r961) @@ -62,6 +62,18 @@ } +.hash_object_psi_container { + border: rgb(134, 169, 203) 1px solid; + border-radius: 5px; + padding: 0.5em; +} + + +.content_panel > tbody > tr > td { + width: 50%; +} + + .gdl_panel { margin-left:auto; margin-right:0; @@ -70,4 +82,9 @@ .create_new_button { margin-bottom: 2em; +} + + +.bad_input { + color: red; } \ No newline at end of file Modified: branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp ============================================================================== --- branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp Thu Sep 22 04:51:01 2011 (r960) +++ branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp Thu Sep 22 05:39:10 2011 (r961) @@ -158,11 +158,15 @@ (player role :revision (1- rev))) (roles result :revision (1- rev)))) ((typep result 'TopicC) - (elephant:drop-instance result) (let ((assocs - (map 'list (lambda(role) - (parent role :revision (1- rev))) - (player-in-roles result :revision (1- rev))))) + (remove-null + (map 'list (lambda(role) + (parent role :revision (1- rev))) + (player-in-roles result :revision (1- rev))))) + (frags + (elephant:get-instances-by-value + 'd:FragmentC 'd:topic result))) + (map nil #'elephant:drop-instance frags) (loop for assoc in assocs append (map 'list (lambda(role) (player role :revision (1- rev)))