fix all the definitions affected by defdisplay refactoring

[clinton/lisp-on-lines.git] / src / relational-attributes.lisp

diff --git a/src/relational-attributes.lisp b/src/relational-attributes.lisp
index d9ba761..75d04f8 100644 (file)
--- a/src/relational-attributes.lisp
+++ b/src/relational-attributes.lisp
@@ -11,7 +11,7 @@
     :sort-arguments  (list #'< :key #'(lambda (x) (funcall (car (list-keys x)) x)))))
 
 
-(defdisplay (:description (attribute has-many))
+(defdisplay object (:description (attribute has-many))
     ;
   (<ucw:submit :action (add-to-has-many slot instance) :value (getp :add-new-label))
   (let* ((i (apply #'sort (slot-value object (getp :slot-name))
@@ -35,7 +35,7 @@
 
 
 
-(defdisplay (:description (attribute many-to-many))
+(defdisplay object (:description (attribute many-to-many))
   (<:as-html "ASDASD"))
 
   #+nil(let ((instances (select-instances object t))
@@ -57,5 +57,5 @@
        (<ucw:a :action (delete-relationship slot (second i) instance)
                (<:as-html "(remove) "))
        (display component object)))))
-  (display component (mapcar #'car (slot-value object (getp :slot-name)))))
+  ;(display component (mapcar #'car (slot-value object (getp :slot-name))))
                      
\ No newline at end of file