[isidorus-cvs] r961 - in branches/gdl-frontend/src: anaToMia/hosted_files rest_interface

[lgiessmann at common-lisp.net]

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