Commit cb1894d6 authored by Dave Griffiths's avatar Dave Griffiths

find individual back fixed

parent a5437c5c
......@@ -786,7 +786,8 @@
(lambda (activity) '())
(lambda (activity requestcode resultcode)
(cond
((eqv? requestcode choose-code)
((and (eqv? requestcode choose-code)
(get-current 'choose-result 0))
(list (start-activity "individual" 0 (get-current 'choose-result 0))))
((eqv? requestcode photo-code)
(list (update-widget
......@@ -1577,6 +1578,7 @@
))
(lambda (activity arg)
(set-current! 'activity-title "Chooser")
(set-current! 'choose-result #f)
(activity-layout activity))
(lambda (activity arg)
(list (update-individual-filter (list))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment