--[[
@Title: Behind The Name forenames
@Author: Jane Taubman
@Version: 2.0
@LastUpdated: Feb 2023
@Description: 
Launches the Behind the Name Web site for the currently selected Given Names
Useful for checking unusual names for likely sex and origin.
Behind the Name is a website for learning about all aspects of given names. 

2.0 Remove internal web browser and use users default one.
]]

function main()
    local linktemplate = 'https://www.behindthename.com/php/search.php?terms={n}'
    local plist = fhGetCurrentRecordSel('INDI')
    if #plist == 0 then
        plist = fhPromptUserForRecordSel('INDI',1)
    end
    if plist[1] == nil then
        return
    end
    local strGivenNames = fhGetItemText(plist[1],'~.NAME:GIVEN_ALL')
    -- Open a window for each Given Name
    local tc = 0
    for name in string.gmatch(strGivenNames, "%a+") do
        if #name > 2 then
            fhShellExecute(linktemplate:gsub('{n}',name))
        end
    end
end
main()