X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/41af2f6d60968319e6dd29a6ffdf42a6c88fa66b..2b0fd9c886908c6492c66cc30fcacf5fd600bf8e:/src/components/ajax.lisp

diff --git a/src/components/ajax.lisp b/src/components/ajax.lisp
index 6b4f23f..f3a9f83 100644
--- a/src/components/ajax.lisp
+++ b/src/components/ajax.lisp
@@ -199,6 +199,7 @@ but here's what i use."
 		     (meta-model:explode-foreign-key instance (slot-name slot)))))))
     
     (flet ((render-s () (when foreign-instance (call-next-method))))
+
       (if (slot-boundp slot 'ucw::place)
 	  (cond 
 	    ((editablep slot)
@@ -212,11 +213,12 @@ but here's what i use."
 	     (<ucw:render-component :component (live-search slot))
 	     #+ (or) (<ucw:submit :action (revert-foreign-slot slot)
 			  :value "Undo")
-			      (<ucw:submit :action  (mewa::search-records slot instance) :value "find" :style "display:inline"))
+			      #+ (or) (<ucw:submit :action  (mewa::search-records slot instance) :value "find" :style "display:inline"))
 	    ((mewa::linkedp slot)
 	     (<ucw:a :action (mewa::view-instance slot foreign-instance) 
 		     (render-s)))
 	    (t       
 	     (render-s)))
 	  ;; presentation is used only for rendering
-	  (render-s)))))
\ No newline at end of file
+	  (render-s))))
+)
\ No newline at end of file