From adfb39839d6b54a4182de18e658061060ce91ba1 Mon Sep 17 00:00:00 2001
From: Drew Crampsie <drewc@tech.coop>
Date: Mon, 7 Nov 2005 23:34:24 -0800
Subject: [PATCH 1/1] removed the Undo in ajax fkey

darcs-hash:20051108073424-5417e-a647b25fef45967c8bd6244416c187e828fc8465.gz
---
 src/components/ajax.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/components/ajax.lisp b/src/components/ajax.lisp
index 9f5d5e3..9092f24 100644
--- 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))
-	     (<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)
-- 
2.20.1