--[=[ Quickbar Land 2023-11-10 ]=]  local yesno    = require( 'Modul:Yesno' ) local pnumber  = require( 'Module:GetNumber' ) local images   = require( 'Module:GetImage' ) local items    = require( 'Module:GetItem' )  local cfgCurrencies = mw.loadData('Modul:Währung/Länder') local cfgCountries  = mw.loadData('Modul:CountryData/Geography')  local lang = mw.language.new( 'de' )   -- returns nil, if both values are equal, otherwise the value -- similar to the SQL function nullif() local function nilIf ( value, equalValue )     if ( value == nil ) then       return nil    elseif ( tostring ( value ) == tostring ( equalValue ) ) then       return nil    else       return value    end  end   -- returns the first value that is not nil -- similar to the SQL function coalesce() local function coalesce ( value1, value2, value3 )    return value1 or value2 or value3 end   -- round function, which is not available in Lua local _round = function  ( value, precision )    local rescale = math.pow(10, precision or 0);    return math.floor(value * rescale + 0.5) / rescale; end   -- returns a manually created quickbar row local function createTr ( text, label, trClass )     -- check for valid text    -- if there is no text, then display nothing    if text == '' then         return ''     else        -- displaying the given info       local tr = mw.html.create ( 'tr' )       tr:addClass('voy-qb-item ' .. trClass )          :tag('th')          :addClass('voy-qb-item-key')          :wikitext( label )       tr:tag('td')          :addClass( 'voy-qb-item-value1' )          :wikitext( text )       return tostring ( tr )    end  end   local function checkMapObject ( id )    local region = require ( 'Modul:Location map data ' .. id )    if ( region ~= nil ) and ( region.data ~= nil ) then       region.data['id'] = id       return region    else       return nil    end end   local qbLand = {}  function qbLand.qb_land ( frame )       -- copying and lowering the given parameters    local templateArgs = {}    for key,value in pairs ( frame.args ) do       templateArgs[string.lower(key)] = value    end    for key,value in pairs ( frame:getParent().args ) do       templateArgs[string.lower(key)] = value    end     -- variables for the whole quickbar content and the categories    local display = ''    local categories = ''        -- contains some site.infos    -- needed as fallback for the  parameter "Namen" and the location map    local page = {}    page = mw.title.getCurrentTitle()        -- getting or determining (if needed) the wikidata-ID    if templateArgs.id == '' then templateArgs.id = nil end    local qbID = nilIf ( nilIf ( templateArgs.id, 'self' ), '' ) or mw.wikibase.getEntityIdForCurrentPage() or ''     -- getting object name    -- uses WD sitelink and the page name as fallback    local destinationName    if qbID ~= '' then        destinationName = coalesce ( mw.wikibase.getSitelink( qbID, 'dewikivoyage' ), page.text, 'Ort')    else       destinationName = coalesce ( page.text, 'Ort')    end     -- determining the country     -- (not urgently needed, but if someone wants to develop country- specific quickbars)    -- getting from Wikidata, if not provided    -- if you want to save processing time, you should provide it    -- e.g. in country specific infobox tables    local qbIso3166 = templateArgs["iso-3166"] or ''    local qbIso3166Class = ''     if qbIso3166 == '' then       if qbID ~= '' then          local wdCountry = mw.wikibase.getBestStatements( qbID, 'P17' )          local wdIso3166 = {}          if #wdCountry > 0 then             -- there where empty values             if wdCountry[1].mainsnak.datavalue ~= nil then                wdIso3166 = mw.wikibase.getBestStatements( wdCountry[1].mainsnak.datavalue.value["id"], 'P297' )                if #wdIso3166 > 0 then                   if wdIso3166[1].mainsnak.snaktype == 'value' then                      qbIso3166 = string.lower(wdIso3166[1].mainsnak.datavalue.value)                      qbIso3166Class =  ' voy-qb-' .. qbIso3166                   else                   	 qbIso3166Class = ''                   end                else                   qbIso3166Class = ''                end             else                 qbIso3166Class = ''             end          end       end    else       qbIso3166Class = ' voy-qb-' .. qbIso3166    end     -- DEBUG: showing the parameters    -- it was just for development    -- display = display .. '<br />Parameter:<br />' ..  mw.dumpObject(templateArgs)     -- starting the quickbar table    display = display .. '<table cellspacing="0" class="voy-qb voy-qb-right voy-qb-country' .. qbIso3166Class .. '">'     -- heading    -- is mandatory, even if you do not provide it, its shown (with the sitename)    -- initialising with given heading    local qbNamen = coalesce ( templateArgs["namen"], '' )        -- if no heading is provided, get the sitename    if qbNamen == '' then       qbNamen = destinationName    end        -- creating the row with the heading    local trHeader = mw.html.create ( 'tr' )    trHeader:addClass( 'voy-qb-header' )    trHeader:tag('td')       :attr('colspan', 2 )       :wikitext(qbNamen)     -- adding it to the quickbar    display = display .. tostring ( trHeader )     -- the position map    -- taken from Wikidata, if not provided    display = display .. images.GetImage().getPositionMapQuickbar ( qbID, nil, nil, coalesce ( templateArgs["lage"], '' ) )        -- creating the row with the flag heading    trHeader = mw.html.create ( 'tr' )    trHeader:addClass( 'voy-qb-header voy-qb-header-flag' )    trHeader:tag('td')       :attr('colspan', 2 )       :wikitext('Flagge')     -- adding it to the quickbar    display = display .. tostring ( trHeader )     -- flag    -- always taken from Wikidata    display = display .. images.GetImage().getEmblemsQuickbar ( qbID, 'F' )        -- creating the row with the info heading    trHeader = mw.html.create ( 'tr' )    trHeader:addClass( 'voy-qb-header voy-qb-header-info' )    trHeader:tag('td')       :attr('colspan', 2 )       :wikitext('Kurzdaten')     -- adding it to the quickbar    display = display .. tostring ( trHeader )     -- capital    display = display .. items.GetItem().getItemsQuickbar ( qbID, 'P36', coalesce ( templateArgs["hauptstadt"], '') )     -- basic form of government    display = display .. items.GetItem().getItemsQuickbar ( qbID, 'P122', coalesce ( templateArgs["staatsform"], '') )     -- currency    if cfgCurrencies[qbID] ~= nil then        -- getting exchange rate       local exchangeRate = 0       local exchangeDate = ''       local exchangeSource = ''       local exchangeTable = {}        -- trying Commons: Data:ECB euro foreign exchange reference rates.tab       exchangeTable = mw.ext.data.get( 'ECB euro foreign exchange reference rates.tab' )        for i, entry in pairs ( exchangeTable.data ) do          if entry[1] == cfgCurrencies[qbID][4] then             exchangeRate = _round ( tonumber ( entry[2] ), 3 )             exchangeDate = entry[3]             exchangeSource = exchangeTable.sources             break          end       end        -- trying Commons: Data:Xe.com exchange rates.tab       if exchangeRate == 0 then           exchangeTable = mw.ext.data.get( 'Xe.com exchange rates.tab' )           for i, entry in pairs ( exchangeTable.data ) do             if entry[1] == cfgCurrencies[qbID][4] then                exchangeRate = _round ( tonumber ( entry[3] ), 3 )                exchangeDate = entry[6]                exchangeSource = exchangeTable.sources                break             end          end        end        if exchangeRate > 0 and cfgCurrencies[qbID][4] ~= 'EUR' then           -- formatting exchange rate          local exchangeRateText = '<br />'           -- first row (EUR > local)          exchangeRateText = exchangeRateText .. '1&#x202F;EUR&#x202F;=&#x202F;' .. lang:formatNum ( exchangeRate ) ..  '&#x202F;' .. cfgCurrencies[qbID][4]           -- second row (local > EUR)          exchangeRateText = exchangeRateText .. '<br />'           if exchangeRate > 10000 then             exchangeRateText = exchangeRateText .. '100.000&#x202F;' .. cfgCurrencies[qbID][4] .. '&#x202F;=&#x202F;' .. lang:formatNum ( _round ( 100000 / exchangeRate, 3 ) ) ..  '&#x202F;EUR'          elseif exchangeRate > 1000 then             exchangeRateText = exchangeRateText .. '10.000&#x202F;' .. cfgCurrencies[qbID][4] .. '&#x202F;=&#x202F;' .. lang:formatNum ( _round ( 10000 / exchangeRate, 3 ) ) ..  '&#x202F;EUR'          elseif exchangeRate > 100 then             exchangeRateText = exchangeRateText .. '1.000&#x202F;' .. cfgCurrencies[qbID][4] .. '&#x202F;=&#x202F;' .. lang:formatNum ( _round ( 1000 / exchangeRate, 3 ) ) ..  '&#x202F;EUR'          elseif exchangeRate > 10 then             exchangeRateText = exchangeRateText .. '100&#x202F;' .. cfgCurrencies[qbID][4] .. '&#x202F;=&#x202F;' .. lang:formatNum ( _round ( 100 / exchangeRate, 3 ) ) ..  '&#x202F;EUR'          elseif exchangeRate > 1 then             exchangeRateText = exchangeRateText .. '10&#x202F;' .. cfgCurrencies[qbID][4] .. '&#x202F;=&#x202F;' .. lang:formatNum ( _round ( 10 / exchangeRate, 3 ) ) ..  '&#x202F;EUR'          else             exchangeRateText = exchangeRateText .. '1&#x202F;' .. cfgCurrencies[qbID][4] .. '&#x202F;=&#x202F;' .. lang:formatNum ( _round ( 1 / exchangeRate, 3 ) ) ..  '&#x202F;EUR'          end           -- adding the ref-Tag          exchangeSource = frame:extensionTag{ name = 'ref', content = '[' .. exchangeSource .. ']' }           display = display .. createTr ( cfgCurrencies[qbID][3] .. exchangeRateText, 'Währung<br />Kurs&#x202F;<span class="voy-small">(' .. lang:formatDate ( 'd.m.Y', exchangeDate ) .. ')' .. exchangeSource .. '</span>', 'voy-commons-content voy-qb-item-currency' )        else           display = display .. createTr ( cfgCurrencies[qbID][3] .. ' (' .. cfgCurrencies[qbID][4] .. ')', 'Währung', 'voy-qb-item-currency' )        end    end     -- area    display = display .. pnumber.GetNumber().getNumbersWithUnitQuickbar ( qbID, 'P2046', nil, 0, coalesce ( templateArgs["fläche"], '' ) )     -- population    display = display .. pnumber.GetNumber().getNumbersWithDateQuickbar ( qbID, 'P1082', coalesce ( templateArgs["bevölkerung"], '' ) )     -- official language    display = display .. items.GetItem().getItemsQuickbar ( qbID, 'P37', coalesce ( templateArgs["amtssprache"], ''), nil, ', ' )     -- religion (no wikidata)    if coalesce ( templateArgs["religion"], '' ) ~= '' then       display = display .. createTr ( templateArgs["religion"], 'Religion', 'voy-qb-item-religion' )    end     -- electricity    -- getting the Voltage    local voltage = coalesce ( nilIf ( templateArgs["stromnetz"], '' ), pnumber.GetNumber().getNumbersWithUnit( qbID, 'P2884' ) , '' )     -- getting the plugs    -- when fetching the items as "label only", no categories are provided, they are saved in the second result    -- "label only" has zo beused, because the result is used in a link and the categories destroy the link     -- normally getItems delivers complete links (if available) with the maintenance categories    local plugs, plugsaCat = coalesce ( nilIf ( templateArgs["stecksysteme"], '' ), mw.ustring.gsub ( items.GetItem().getItems( qbID, 'P2853', nil, 'label', '/&#8203;' ), 'Stecker%-Typ ', '' ), '' )     if voltage ~= '' or plugs ~= '' then        local electricity = voltage       local electricityLabel = ''       if plugs ~= '' then          if voltage ~= '' then             electricity = electricity .. ';<br />[[Stromsysteme#Steckertypen|' .. plugs .. ']]'             electricityLabel = '[[Stromsysteme|Strom/Stecker]]'             categories = categories .. coalesce ( plugsaCat, '' )          else             electricity = '[[Stromsysteme#Steckertypen|' .. plugs .. ']]'             electricityLabel = '[[Stromsysteme|Stecker]]'          end       else          electricityLabel = '[[Stromsysteme|Stromnetz]]'       end       display = display .. createTr ( electricity, electricityLabel, 'voy-qb-item-electricity' )    end     -- calling code    if cfgCountries.countries[qbID] ~= nil then          display = display .. createTr ( cfgCountries.countries[qbID].cc, 'Telefonvorwahl', 'voy-qb-item-calling-code' )    end        if cfgCountries.adminEntities[qbID] ~= nil then          display = display .. createTr ( cfgCountries.adminEntities[qbID].cc, 'Telefonvorwahl', 'voy-qb-item-calling-code' )    end     -- top level domain    display = display .. items.GetItem().getItemsQuickbar ( qbID, 'P78', nil, nil, ', ' )     -- timezone (no wikidata, for several reasons discussed in community)    if coalesce ( templateArgs["zeitzone"], '' ) ~= '' then       display = display .. createTr ( templateArgs["zeitzone"], 'Zeitzone', 'voy-qb-item-time-zone' )    end     -- finishing the HTML table    display = display .. '</table>'     return display .. categories     end  return qbLand