+(defun get-fkey-data (instance slot-name)
+ "ugly workaround b/c UCW does not like M-V-B"
+ (multiple-value-bind (finstance foreign-slot-name)
+ (meta-model:explode-foreign-key instance slot-name)
+ (cons finstance foreign-slot-name)))
+
+(defaction search-records ((slot mewa-relation-slot-presentation) instance)
+ (let* ((d (get-fkey-data instance (slot-name slot)))
+ (finstance (car d))
+ (foreign-slot-name (cdr d))
+ (new-instance
+ (call-component
+ (parent slot)
+ (make-instance 'mewa::mewa-presentation-search
+ :search-presentation
+ (mewa:make-presentation finstance
+ :type :search-presentation)
+ :list-presentation
+ (mewa:make-presentation finstance
+ :type :listing)))))
+ (setf (slot-value instance (slot-name slot)) (slot-value new-instance foreign-slot-name))
+ (meta-model:sync-instance instance)
+ (clsql:update-objects-joins (list instance))))
+