function select_sefc_datasets, sfc_spot, sfc_filament, sfc_arplage, $
			      sec_flares, debug=debug
retval = 0

;dirs = rd_tfile('test_sefc.list')
dirs = str2arr(get_logenv('TEST_SEFC_DIRS'),' ')
if keyword_set(debug) then print, dirs
if n_elements(dirs) gt 1 then ww = wmenu_sel(dirs,/one) $
  else ww = 0

if ww(0) ge 0 then begin
  
  print,'Using directory:  ',dirs(ww(0))
  set_logenv,'EGSO_TEST_SEFC',dirs(ww(0))

  list = file_list('$EGSO_TEST_SEFC','*.xml')
  if keyword_set(debug) then print,list

  sec_flares='' & sfc_spot='' & sfc_filament=''
  for j=0,n_elements(list)-1 do begin
    if strpos(list(j),'SFC_filament_') gt 0 then sfc_filament = list(j)
    if strpos(list(j),'SFC_sunspot_') gt 0 then sfc_spot = list(j)
    if strpos(list(j),'SFC_arplage_') gt 0 then sfc_arplage = list(j)
    if strpos(list(j),'sec1_') gt 0 then sec_flares = list(j)
  endfor

  if keyword_set(debug) then help,sec_flares, sfc_spot, sfc_filament, sfc_arplage
  retval = 1      ; flag new selection made
  
endif else message,'No selection made - defaults to pervious',/cont

return, retval
end