removed the Undo in ajax fkey

[clinton/lisp-on-lines.git] / src / components / ajax.lisp

diff --git a/src/components/ajax.lisp b/src/components/ajax.lisp
index 9f5d5e3..9092f24 100644 (file)
--- a/src/components/ajax.lisp
+++ b/src/components/ajax.lisp
@@ -228,7 +228,7 @@ but here's what i use."
                                                     :type :one-line))))))
            
             (<ucw:render-component :component (live-search slot))
                                                     :type :one-line))))))
            
             (<ucw:render-component :component (live-search slot))

-            (<ucw:submit :action (revert-foreign-slot slot)
+            #+ (or) (<ucw:submit :action (revert-foreign-slot slot)

                          :value "Undo")
                              (<ucw:submit :action  (mewa::search-records slot instance) :value "find" :style "display:inline"))
            ((mewa::linkedp slot)
                          :value "Undo")
                              (<ucw:submit :action  (mewa::search-records slot instance) :value "find" :style "display:inline"))
            ((mewa::linkedp slot)