simple_list is unusable

local function isWebSelected( val, fromModel )
	if "web" == val then return true
	else return false end
end

local function getSessions(sessions)
	local guisessions = {}
	for idx, val in pairs(sessions) do
		table.insert(guisessions, {["title"] = val["name"], ["value"] = "box"..idx })
	end

	return guisessions
end

function ExportDialogSections.sectionsForBottomOfDialog( f, propertyTable )

	local result
	local bind = LrView.bind
	local webView = nil

	propertyTable.selectedWebSessionURL = nil

	LrFunctionContext.postAsyncTaskWithContext( "fetchSessions", function( context )
			local err = Html.extractGaleries()
			if err then LrDialogs.message( "HTTP error: ", err )
			else
				webSessions = Html.getSessions()
				propertyTable.webSessions = getSessions(webSessions)
			end
		end
	end )

	local result = {
			{
		
				title = LOC "$$$/ExportDialog/settings=Settings",

				f:row {
					f:popup_menu {
						value = bind 'inputSwitch',
						items = {"web", "json", "csv"},
					},
				},

				f:column {
					f:row {

					f:simple_list{
						value = LrView.bind{ key = 'selectedWebSession' },
						items = LrView.bind{ key = 'webSessions' },
						visible = LrView.bind{ key = 'loginStatus' },
						enabled = LrView.bind{ key = 'inputSwitch', transform= isWebSelected },
						allows_multiple_selection = false,
					},
				},

		}
	
	return result
	
end