X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/dee565d0d3252060ce31e8de57708ff9edb054d5..d2882889dc2234eef5882eeaa79e83e4e0d638a3:/src/relational-attributes.lisp

diff --git a/src/relational-attributes.lisp b/src/relational-attributes.lisp
index 8766be2..5485515 100644
--- a/src/relational-attributes.lisp
+++ b/src/relational-attributes.lisp
@@ -12,15 +12,14 @@
 (defattribute many-to-many ()
   ())
 
-(define-layered-method attribute-value (object (attribute many-to-many))
-  (call-next-method))
+
 
 (defdisplay (:description (attribute many-to-many))
-    (let ((instances (select-instances object))
+  (let ((instances (select-instances object t))
 	new-instance)
     (<:ul
      (<:li (<ucw:button :action (add-new-relation component object (getp slot-name))
-			 (<:as-html "Add New")))
+			(<:as-html "Add New")))
      (<:li  (<ucw:button :action (add-new-relation component object new-instance)
 			 (<:as-html "Add:"))
 	    (<ucw:select :accessor new-instance