removing historical implementation

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

diff --git a/src/components/ajax.lisp b/src/components/ajax.lisp
index 6b4f23f..b7fc38c 100644 (file)
--- a/src/components/ajax.lisp
+++ b/src/components/ajax.lisp
@@ -78,7 +78,7 @@ but here's what i use."
          input-id  "session"  
          (ucw::session.id (ucw::context.session ucw::*context*))))
 
-(defaction on-submit ((l auto-complete))
+(defmethod/cc on-submit ((l auto-complete))
   ())
 
 (defmethod js-on-select ((l auto-complete))
@@ -184,7 +184,7 @@ but here's what i use."
            (<ucw:render-component 
             :component (make-presentation val :type :one-line))))))
          
-(defaction revert-foreign-slot ((slot ajax-foreign-key-slot-presentation))
+(defmethod/cc revert-foreign-slot ((slot ajax-foreign-key-slot-presentation))
   (setf (lol::value (live-search slot)) nil)
   (when (original-value slot)
   (mewa::sync-foreign-instance slot (original-value slot))))
@@ -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