Commit cb1894d6 authored by Dave Griffiths's avatar Dave Griffiths
Browse files

find individual back fixed

parent a5437c5c
...@@ -786,7 +786,8 @@ ...@@ -786,7 +786,8 @@
(lambda (activity) '()) (lambda (activity) '())
(lambda (activity requestcode resultcode) (lambda (activity requestcode resultcode)
(cond (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)))) (list (start-activity "individual" 0 (get-current 'choose-result 0))))
((eqv? requestcode photo-code) ((eqv? requestcode photo-code)
(list (update-widget (list (update-widget
...@@ -1577,6 +1578,7 @@ ...@@ -1577,6 +1578,7 @@
)) ))
(lambda (activity arg) (lambda (activity arg)
(set-current! 'activity-title "Chooser") (set-current! 'activity-title "Chooser")
(set-current! 'choose-result #f)
(activity-layout activity)) (activity-layout activity))
(lambda (activity arg) (lambda (activity arg)
(list (update-individual-filter (list)))) (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