--[=[ GetNumber 2023-12-31 * local nilIf (nil handling function for internal use) * local coalesce (nil handling function for internal use) * local _round (rounding function for internal use) * * local getNumbersAsTable (internal use) * local getCoordinatesAsTable (internal use) * * getNumbersWithUnit * getNumbersWithDate * getCoordinate * getCoordinateAsText * getNumbersWithUnitQuickbar * getNumbersWithDateQuickbar * getExchangeRatesList  ]=] local GetNumber = {}  -- local tables > maybe moving into a separate module later -- categories for data evaluation local wikidataCat = {    -- common wikidata categories    noConversion    = '[[Kategorie:Wikidata:Fehlende Umrechnung]]',    noProperty      = '[[Kategorie:Wikidata:Fehlende Eigenschaft]]',    unknownProperty = '[[Kategorie:Wikidata:Unbekannte Eigenschaft]]',    unknownUnit     = '[[Kategorie:Wikidata:Unbekannte Einheit]]',    -- area    P2046 = {       equalData    = '[[Kategorie:Artikel mit identischer Fläche auf Wikidata]]',       noEqualData  = '[[Kategorie:Artikel mit abweichender Fläche auf Wikidata]]',       noData       = '[[Kategorie:Artikel ohne Fläche auf Wikidata]]'    },    -- altitude    P2044 = {       equalData    = '[[Kategorie:Artikel mit identischer Höhe über dem Meeresspiegel auf Wikidata]]',       noEqualData  = '[[Kategorie:Artikel mit abweichender Höhe über dem Meeresspiegel auf Wikidata]]',       noData       = '[[Kategorie:Artikel ohne Höhe über dem Meeresspiegel auf Wikidata]]'    },    -- height    P2048 = {       equalData    = '[[Kategorie:Artikel mit identischer Höhe auf Wikidata]]',       noEqualData  = '[[Kategorie:Artikel mit abweichender Höhe auf Wikidata]]',       noData       = '[[Kategorie:Artikel ohne Höhe auf Wikidata]]'    },    -- population    P1082 = {       equalData    = '[[Kategorie:Artikel mit identischer Einwohnerzahl auf Wikidata]]',       noEqualData  = '[[Kategorie:Artikel mit abweichender Einwohnerzahl auf Wikidata]]',       noData       = '[[Kategorie:Artikel ohne Einwohnerzahl auf Wikidata]]'    },    -- passengers    P3872 = {       equalData    = '[[Kategorie:Artikel mit identischer Passagierzahl auf Wikidata]]',       noEqualData  = '[[Kategorie:Artikel mit abweichender Passagierzahl auf Wikidata]]',       noData       = '[[Kategorie:Artikel ohne Passagierzahl auf Wikidata]]'    },    -- Koordinaten    P625 = {       noData       = '[[Kategorie:Artikel ohne Koordinaten auf Wikidata]]'    },    -- Preis    P2284 = {       noData       = '[[Kategorie:Artikel ohne Preis auf Wikidata]]'    }  }  local lang = mw.language.new( 'de' )  -- units and conversion -- getting conversion data from wikidata is not implemented yet local units = require ( 'Modul:GetNumber/Units' )  -- 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  -- getNumbersAsTable() -> just for internal use. -- gets the amount of a property including its unit and date of validity --   id: Wikidata-ID (own, if not provided) --   property: requested property --   unit: wanted unit (standard unit, if not provided) --         if the wanted unit is not provided, a conversion will be tried based on the given conversion numbers --   values: --      - single (standard): Only one (first) entry is shown --      - all: All entries are fetched  -- the functions returns a table with the folowing columns: -- amount -- unit -- unitOriginal (differs to unit, if the requested unit is converted) -- year (set to 0, if not provided) local getNumbersAsTable = function ( id, property, unit, values )     -- local variables    -- ID of the item    -- Determined, if not provided    local localID = id or mw.wikibase.getEntityIdForCurrentPage() or ''        -- compatibility to existing modules and templates:    -- some use the keyword "self" for using the own entity-ID    if coalesce ( nilIf ( localID, 'self' ), '' ) == '' then       localID = mw.wikibase.getEntityIdForCurrentPage() or ''    end     -- no Wikidata object    if localID == '' then       return {}, '', ''    end        -- maintenance categories    local maintenanceCategory = ''     -- property    local requestedProperty = property or 'none';    if string.sub(requestedProperty,1,1) ~= 'P' then       requestedProperty = 'none'    end     -- no property given: category and exit    if requestedProperty == 'none' then       maintenanceCategory = maintenanceCategory .. wikidataCat.noProperty       return {}, localID, maintenanceCategory    end     -- property unknown in table "units": category and exit    if units[requestedProperty] == nil then       maintenanceCategory = maintenanceCategory .. wikidataCat.unknownProperty       return {}, localID, maintenanceCategory    end     -- unit    local requestedUnit = 'none'    if coalesce ( unit, '' ) == '' then       if units[requestedProperty] ~= nil then          requestedUnit = units[requestedProperty].standard       end    else       requestedUnit = unit       if units[requestedUnit] == nil then          maintenanceCategory = maintenanceCategory .. wikidataCat.unknownUnit       end    end     -- values    local requestedValues = values or 'single'     -- control variable    -- is set to true, when requested unit is got on the first run    local hasRequested = false     -- getting the values    local wdStatements = mw.wikibase.getBestStatements( localID, requestedProperty )     -- running through the array and store it in a simple table    local wdValues = {}    local referenceValues = {}    local entryValue    for i, entry in ipairs ( wdStatements ) do        -- check for value       if entry.mainsnak.snaktype == 'value' then           -- check for number          if entry.mainsnak.datatype == 'quantity' then              -- new data set             entryValue = {}              -- getting the amount, converted into a number             entryValue.amount = tonumber ( entry.mainsnak.datavalue.value.amount )              -- getting the unit             entryValue.unit = entry.mainsnak.datavalue.value.unit:gsub( 'https?://www.wikidata.org/entity/', '' ) or ''              -- save a copy of the original unit             -- in case somebody wants to know, whether a value is converted             entryValue.unitOriginal = entryValue.unit              -- check, whether its the requested unit             if entryValue.unit == requestedUnit then                hasRequested = true             end                          -- initialising qualifiers             entryValue.year = 0                          -- read qualifiers             if entry.qualifiers ~= nil then                 -- read P585-Qualifiers (date/time of validity)                if entry.qualifiers.P585 ~= nil then                   if entry.qualifiers.P585[1].datavalue.value.precision == 9 then                      entryValue.year = tonumber ( entry.qualifiers.P585[1].datavalue.value.time:sub( 2, 5 ) )                      entryValue.time = entry.qualifiers.P585[1].datavalue.value.time                   end                   if entry.qualifiers.P585[1].datavalue.value.precision == 10 then                      entryValue.year = tonumber ( entry.qualifiers.P585[1].datavalue.value.time:sub( 2, 5 ) )                      entryValue.time = entry.qualifiers.P585[1].datavalue.value.time                   end                   if entry.qualifiers.P585[1].datavalue.value.precision == 11 then                      entryValue.year = tonumber ( entry.qualifiers.P585[1].datavalue.value.time:sub( 2, 5 ) )                      entryValue.time = entry.qualifiers.P585[1].datavalue.value.time                   end                end                                -- read P2144-Qualifier (frequency)                if entry.qualifiers.P2144 ~= nil then                   if entry.qualifiers.P2144[1].datavalue ~= nil then                      entryValue.P2144 = tonumber ( entry.qualifiers.P2144[1].datavalue.value.amount )                      maintenanceCategory = maintenanceCategory .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft P2144 benutzen]]'                   end                end                             end              referenceValues = {}              -- read references             if entry.references ~= nil then                 for j, referenceEntry in ipairs ( entry.references ) do                   if referenceEntry.snaks ~= nil then                      if referenceEntry.snaks.P854 ~= nil then                         if referenceEntry.snaks.P854[1].snaktype == 'value' then                            table.insert( referenceValues, referenceEntry.snaks.P854[1].datavalue.value )                         end                      end                   end                end -- for j, referenceEntry in ipairs ( entry.references )              end -- if entry.references ~= nil              entryValue.references = referenceValues              -- adding to the list             table.insert( wdValues, entryValue )           end -- if entry.mainsnak.datatype == 'quantity'        end -- if entry.mainsnak.snaktype == 'value'     end -- for i, entry in ipairs ( wdStatements )      -- nothing found then exit    if wdValues == {} then       if wikidataCat[requestedProperty] ~= nil then          maintenanceCategory = maintenanceCategory .. wikidataCat[requestedProperty].noData       end       return {}, localID, maintenanceCategory    end     -- generating the returning values    local returnValues = {}     -- controll tag, for getting all or just one value    local noFetch = false     -- iterating variable    local i = 1     -- requested unit found?    if hasRequested then        -- getting the values, no conversion needed       repeat           -- getting a row          entryValue = wdValues[i]           -- put the entry to the list, if its the requested unit          if entryValue.unit == requestedUnit then              -- adding the row to the final result table             table.insert( returnValues, entryValue )              -- stopping, if only one value is requested             if requestedValues == 'single' then                noFetch = true             end           end           -- counting up          i = i + 1        until noFetch or i > #wdValues     -- requested unit not found    -- trying conversion    else              -- tagging, if its succeeded at least once       local conversionSuccess = true        -- check, whether there is at least on data set       if wdValues[i] ~= nil then           -- initialize with false          conversionSuccess = false           -- getting the values and trying conversion          repeat              -- getting a row             entryValue = wdValues[i]              -- put the entry to the list, if the unit and conversion are available             if units[entryValue.unit] ~= nil then                if units[entryValue.unit].conversion[requestedUnit] ~= nil then                    -- adding the row to the final result table                   table.insert(                       returnValues,                       {                          amount = entryValue.amount * units[entryValue.unit].conversion[requestedUnit],                         unit = requestedUnit,                         unitOriginal = entryValue.unit,                         year = entryValue.year                      }                   )                    -- stopping, if only one value is requested                   if requestedValues == 'single' then                      noFetch = true                   end                    -- tagging as success                   conversionSuccess = true                 end             end              -- counting up             i = i + 1           until noFetch or i > #wdValues        end        -- setting category, if not successfull       if not conversionSuccess then          maintenanceCategory = maintenanceCategory .. wikidataCat.noConversion       end     end -- if hasRequested then     -- adding category    if #returnValues > 0 then       maintenanceCategory = maintenanceCategory .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft ' .. requestedProperty .. ' benutzen]]'    end     maintenanceCategory = maintenanceCategory -- .. mw.dumpObject( returnValues )     return returnValues, localID, maintenanceCategory   end   -- getCoordinatesAsTable() -> just for internal use. --   id: Wikidata-ID (own, if not provided) --   property: Property (Standard: P625)  -- the functions returns a table with the following columns: --   latitude --   longitude --   precision local getCoordinatesAsTable = function ( id, property )     -- local variables    -- ID of the item    -- Determined, if not provided    local localID = id or mw.wikibase.getEntityIdForCurrentPage() or ''        -- compatibility to existing modules and templates:    -- some use the keyword "self" for using the own entity-ID    if ( ( localID == 'self' ) or ( localID == '' ) ) then       localID = mw.wikibase.getEntityIdForCurrentPage() or ''    end     -- no Wikidata object    if localID == '' then       return {}, '', ''    end        -- maintenance categories    local maintenanceCategory = ''     -- property    local requestedProperty = property or 'none';    if string.sub(requestedProperty,1,1) ~= 'P' then       requestedProperty = 'none'    end     -- no property given: category and exit    if requestedProperty == 'none' then       maintenanceCategory = maintenanceCategory .. wikidataCat.noProperty       return {}, localID, maintenanceCategory    end     -- property unknown in table "units": category and exit    if units[requestedProperty] == nil then       maintenanceCategory = maintenanceCategory .. wikidataCat.unknownProperty       return {}, localID, maintenanceCategory    end     -- getting the values    local wdStatements = mw.wikibase.getBestStatements( localID, requestedProperty )     -- running through the array and store it in a simple table    local wdValues = {}    local entryValue    for i, entry in ipairs ( wdStatements ) do        -- check for value       if entry.mainsnak.snaktype == 'value' then           -- check for number          if entry.mainsnak.datatype == 'globe-coordinate' then              -- new data set             entryValue = {}              -- getting the values, converted into a number             entryValue.latitude = tonumber ( entry.mainsnak.datavalue.value.latitude )             entryValue.longitude = tonumber ( entry.mainsnak.datavalue.value.longitude )             entryValue.precision = tonumber ( entry.mainsnak.datavalue.value.precision )              -- adding to the list             table.insert( wdValues, entryValue )           end -- if entry.mainsnak.datatype == 'globe-coordinate'        end -- if entry.mainsnak.snaktype == 'value'     end -- for i, entry in ipairs ( wdStatements )     -- nothing found then exit    if wdValues == {} then       return {}, localID, maintenanceCategory    end     -- adding category    if #wdValues > 0 then       maintenanceCategory = maintenanceCategory .. '[[Kategorie:Seiten, die die Wikidata-Eigenschaft ' .. requestedProperty .. ' benutzen]]'    end     return wdValues, localID, maintenanceCategory   end   -- getNumbersWithUnit()  -- gets the amount of a property including its unit --   first parameters: see internal function --   values: --      - single (standard): Only one (first) entry is shown --      - all: All entries are fetched --   precision: precision of the number (Standard: 0)  --   show: --      - number: formatted amount without unit --      - plain: not formatted amount without unit --      - short (standard): amount with short unit --      - long: amount with long unit --      - short-date: short with date --      - short-date-ref: short with date and reference(s) --   delimiter: delimiter between the numbers; standard is comma and breakable space GetNumber.getNumbersWithUnit = function ( id, property, unit, values, precision, show, delimiter, frame )     -- returning String    local numberString = ''     -- making empty parameters to nil    if unit == '' then unit = nil end    if values == '' then values = nil end     -- WD-Values    local numberList    local wikidataID    local categories    numberList, wikidataID, categories = getNumbersAsTable ( id, property, unit, values )     -- precision    local numberPrecision = tonumber ( precision ) or 0     -- show options    local numberShow = show or 'short'     -- no delimiter in front of the first entry    local numberDelimiter = ''     if numberList[1] == nil then       return categories    end     -- displaying the values    for i, entry in ipairs( numberList ) do        -- no unit given or wanted       if numberShow == 'number' then           numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) )                 elseif numberShow == 'plain' then           numberString = numberString .. numberDelimiter .. tostring ( entry.amount, precision )        -- displaying with unit using its long name       elseif numberShow == 'long' then           if units[entry.unit] ~= nil then             if _round ( entry.amount, precision ) == 1 then                 numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].longSingle             else                numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].long             end          else             numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) )          end        -- displaying with unit using its abbreviation       elseif numberShow == 'short-date' then            if units[entry.unit] ~= nil then             if entry.time ~= nil then                numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].short .. ' <small>(' .. lang:formatDate( 'd.m.Y', entry.time ) .. ')</small>'             else                numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].short             end          else             numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) )          end        -- displaying with unit using its abbreviation       elseif numberShow == 'short-date-ref' then            if units[entry.unit] ~= nil then             if entry.time ~= nil then                numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].short .. ' <small>(' .. lang:formatDate( 'd.m.Y', entry.time ) .. ')</small>'             else                numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].short             end          else             numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) )          end           if #entry.references > 0 then              for j, refEntry in ipairs ( entry.references ) do                numberString = numberString .. frame:extensionTag{ name = 'ref', content = '[' .. refEntry .. ' ' .. refEntry .. ']' }             end          end        -- displaying with unit using its abbreviation       else            if units[entry.unit] ~=nil then             numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) ) .. ' ' .. units[entry.unit].short          else             numberString = numberString .. numberDelimiter .. lang:formatNum ( _round ( entry.amount, precision ) )          end        end              -- adding the frequency qualifikator, in case of mains voltage is requested       if property == 'P2884' and entry.P2144 ~= nil then          numberString = numberString .. ',&nbsp;' .. entry.P2144 .. '&#x202F;Hz'       end        -- DEBUG: show the unit-IDs       -- numberString = numberString .. ' Einheit:' .. entry.unit .. ' Einheit (original):' .. entry.unitOriginal              -- setting the delimiter after the first entry       numberDelimiter = delimiter or ', '    end     -- providing the list of numbers    return numberString .. categories  end  -- getNumbersWithDate()  -- gets the amount of a property including "valid at" date --   first parameters: see internal function --   values: --      - single (standard): Only one (first) entry is shown --      - all: All entries are fetched --   show: --      - number: Only the formatted number is shown (Standard) --      - plain: Only the Not formatted number is shown --      - year: the year of validity is shown --   delimiter: delimiter between the numbers; standard is comma and breakable space GetNumber.getNumbersWithDate = function ( id, property, values, show, delimiter )     -- returning String    local numberString = ''     -- making empty parameters to nil    if values == '' then values = nil end    if show == '' then show = nil end     -- setting to defaul, if necessary    values = values or 'single'    show = show or 'number'     -- WD-Values    local numberList    local wikidataID    local categories    -- always fetching all to be sorted later, because "singles" normally means the "most recent"    numberList, wikidataID, categories = getNumbersAsTable ( id, property, nil, 'all' )     if numberList[1] == nil then       return categories    end     --- Sorting the table by year    table.sort(numberList, function(a,b) return a.year < b.year end)     -- no delimiter in front of the first entry    local numberDelimiter = ''     -- displaying the values    if values == 'single' then       -- using the first table row       if show == 'year' then          numberString = lang:formatNum ( numberList[1].amount ) .. ' (' .. numberList[1].year .. ')'       elseif show == 'plain' then          numberString = numberList[1].amount       else          numberString = lang:formatNum ( numberList[1].amount )       end    else       -- running through the table       for i, entry in ipairs( numberList ) do           -- adding an entry          if show == 'year' then             numberString = numberString .. numberDelimiter .. lang:formatNum ( entry.amount ) .. '&#x202F;<span class="voy-small">(' .. entry.year .. ')</span>'          elseif show == 'plain' then             numberString = numberString .. numberDelimiter .. tostring ( entry.amount )          else             numberString = numberString .. numberDelimiter .. lang:formatNum ( entry.amount )          end           -- setting the delimiter after the first entry          numberDelimiter = delimiter or ', '       end    end     -- providing the list of numbers    return numberString .. categories  end   -- getCoordinate()  > only used in other modules -- gets a coordinate of an item -- special properties can be provided. Standard is P625 -- it always delivers the first one GetNumber.getCoordinate = function ( id, property )     -- WD-Values    local coordinateList    local wikidataID    local categories    coordinateList, wikidataID, categories = getCoordinatesAsTable ( id, coalesce ( nilIf ( property, '' ), 'P625' ) )     if #coordinateList > 0 then        -- providing the list of numbers       return coordinateList[1].latitude, coordinateList[1].longitude, coordinateList[1].precision, categories     else        if wikidataCat[property] ~= nil then          categories = categories .. wikidataCat[property].nodata       end       return 0, 0, 0, categories     end  end   -- getCoordinateAsText() -- gets a coordinate of an item -- is shown as text with comma separated latitude and longitude -- special properties can be provided. Standard is P625 -- it always delivers the first one GetNumber.getCoordinateAsText = function ( id, property )     -- WD-Values    local coordinateList    local wikidataID    local categories    coordinateList, wikidataID, categories = getCoordinatesAsTable ( id, coalesce ( nilIf ( property, '' ), 'P625' ) )     if #coordinateList > 0 then        -- providing the list of numbers       return lang:formatNum ( coordinateList[1].latitude ) .. '; ' .. lang:formatNum ( coordinateList[1].longitude ) .. categories     else        return '' .. categories     end  end   -- The next two quickbar-functions have a lot in common -- the developer of this modul thought a lot about it -- at the end he was too lazy to put everything in one function  -- Get the number as wiki markup for quickbars (infoboxes) -- includes the number and short unit GetNumber.getNumbersWithUnitQuickbar = function ( id, property, unit, precision, wikiValue )     -- precision    local numberPrecision = tonumber ( precision ) or 0        -- getting the numbers with the base function above    local wikidataID    local wikidataNumber = {}    local wikidataCategories    wikidataNumber, wikidataID, wikidataCategories = getNumbersAsTable ( id, property, unit )        -- if it is taken from wikidata, this variable provides an additional class for: MediaWiki:Gadget-Wikidata-Content.css    -- space is needed becaus its simply added to the existing class string    local wikidataClass = ' voy-wikidata-content'     -- comparing a possibly given value with Wikidata    local category = ''     -- is Wikidata value not available?    local wikidataNoData = false    if wikidataID == '' then       if wikidataCat[property] ~= nil then          category = wikidataCat[property].noData          wikidataNoData = true       end       wikidataClass = ''    end     -- creating text for display    local numberString = ''    local wikidataString = ''    if wikidataNumber[1] ~= nil then       if units[wikidataNumber[1].unit] ~=nil then          numberString = lang:formatNum ( _round ( wikidataNumber[1].amount, numberPrecision ) ) .. ' ' .. units[wikidataNumber[1].unit].short          wikidataString = lang:formatNum ( _round ( wikidataNumber[1].amount, numberPrecision ) ) .. ' ' .. units[wikidataNumber[1].unit].short       else          numberString = lang:formatNum ( _round ( wikidataNumber[1].amount, numberPrecision ) )          wikidataString = lang:formatNum ( _round ( wikidataNumber[1].amount, numberPrecision ) )       end    else       -- wikidata values not available       wikidataClass = ''       if wikidataCat[property] ~= nil then          category = wikidataCat[property].noData       end    end     -- is a wiki value defined?    local wikidataEqualData = false    local wikidataNoEqualData = false        -- processing nil value for wikiValue    if wikiValue == nil then wikiValue = '' end        -- wikivalues, that can be interpreted as "TRUE" are removed and Wikidata is used    -- it's used to switch entries on and off in Quickbars    if wikiValue =='yes'       or wikiValue == 'y'       or wikiValue == 'true'       or wikiValue == 'wahr'       or wikiValue == 'ja'       or wikiValue == 'j'    then       wikiValue = ''    end     -- wikivalues, that can be interpreted as "FALSE" suppress the whole row    if wikiValue =='no'       or wikiValue == 'n'       or wikiValue == 'false'       or wikiValue == 'falsch'       or wikiValue == 'nein'    then       return wikidataCategories    end         -- processing wikiValue    if wikiValue ~= '' then              -- displaying the wikiValue       numberString = wikiValue        -- removing wikidata content class       wikidataClass = ''              -- removing spaces and letters       wikiValue = string.gsub ( wikiValue, '[^%d.,]', '' )              -- replace comma with period       wikiValue = string.gsub ( wikiValue, ',', '.' )              -- comparison       if ( wikiValue ~= '' ) and ( wikidataNumber[1] ~= nil ) and ( wikidataCat[property] ~= nil ) then          -- are the values equal?          if _round ( wikidataNumber[1].amount, numberPrecision ) == tonumber ( wikiValue ) then             category = wikidataCat[property].equalData             wikidataEqualData = true          else             category = wikidataCat[property].noEqualData             wikidataNoEqualData = true          end                end    end     -- displaying only, if any data available    local trClass = ''    if numberString == '' then       trClass = ' voy-qb-empty'    end     -- creating the table row     local tr = mw.html.create ( 'tr' )        -- first table cell (heading)    local trLabel = '&nbsp;'    if units[property] ~= nil then         trClass = ' ' .. units[property].cssClass .. trClass         trLabel = units[property].label    end    tr:addClass('voy-qb-item' .. trClass )       :tag('th')       :addClass('voy-qb-item-key')       :wikitext(trLabel)        -- second table cell (the requested number)    if wikidataNoData then       tr:tag('td')          :addClass( 'voy-qb-item-value1 voy-qb-item-value-nowikidata' .. wikidataClass )             :attr('data-wikidata-id',wikidataID)             :attr('title','Kein(e) ' .. trLabel .. ' auf Wikidata' )          :wikitext( numberString )    elseif wikidataEqualData then       tr:tag('td')             :addClass( 'voy-qb-item-value1 voy-qb-item-value-wikidata-equal' .. wikidataClass )             :attr('data-wikidata-id',wikidataID)             :attr('data-wikidata-value',wikidataString)             :attr('title','Daten identisch - Angabe auf Wikidata: ' .. wikidataString)             :wikitext( numberString )    elseif wikidataNoEqualData then       tr:tag('td')             :addClass( 'voy-qb-item-value1 voy-qb-item-value-wikidata-noequal' .. wikidataClass )             :attr('data-wikidata-id',wikidataID)             :attr('data-wikidata-value',wikidataString)             :attr('title','Daten unterschiedlich - Angabe auf Wikidata: ' .. wikidataString)             :wikitext( numberString )    else       tr:tag('td')             :addClass( 'voy-qb-item-value1' .. wikidataClass )             :attr('data-wikidata-id',wikidataID)             :attr('data-wikidata-value',wikidataString)             :wikitext( numberString )    end     -- returning the row    return tostring ( tr ) .. category .. wikidataCategories     end  -- Get the number as wiki markup for quickbars (infoboxes) -- includes the number and the date GetNumber.getNumbersWithDateQuickbar = function ( id, property, wikiValue )     -- getting the numbers with the base function above    local wikidataID    local wikidataNumber = {}    local wikidataCategories    wikidataNumber, wikidataID, wikidataCategories = getNumbersAsTable ( id, property, nil, 'all' )     --- Sorting the table by year    table.sort(wikidataNumber, function(a,b) return a.year < b.year end)        -- if it is taken from wikidata, this variable provides an additional class for: MediaWiki:Gadget-Wikidata-Content.css    -- space is needed becaus its simply added to the existing class string    local wikidataClass = ' voy-wikidata-content'     -- comparing a possibly given value with Wikidata    local category = ''     -- is Wikidata value not available?    local wikidataNoData = false    if wikidataID == '' then       if wikidataCat[property] ~= nil then          category = wikidataCat[property].noData          wikidataNoData = true       end       wikidataClass = ''    end     -- creating text for display    local numberString = ''    local wikidataString = ''    if wikidataNumber[1] ~= nil then       if wikidataNumber[1].year > 0 then          numberString = lang:formatNum ( ( wikidataNumber[1].amount ) ) .. '&#x202F;<span class="voy-small">(' .. tostring ( wikidataNumber[1].year ).. ')</span>'       else          numberString = lang:formatNum ( ( wikidataNumber[1].amount ) )       end       wikidataString = wikidataNumber[1].amount    else       -- wikidata values not available       wikidataClass = ''       if wikidataCat[property] ~= nil then          category = wikidataCat[property].noData       end    end     -- is a wiki value defined?    local wikidataEqualData = false    local wikidataNoEqualData = false        -- processing nil value for wikiValue    if wikiValue == nil then wikiValue = '' end        -- wikivalues, that can be interpreted as "TRUE" are removed and Wikidata is used    -- it's used to switch entries on and off in Quickbars    if wikiValue =='yes'       or wikiValue == 'y'       or wikiValue == 'true'       or wikiValue == 'wahr'       or wikiValue == 'ja'       or wikiValue == 'j'    then       wikiValue = ''    end      -- wikivalues, that can be interpreted as "FALSE" suppress the whole row    if wikiValue =='no'       or wikiValue == 'n'       or wikiValue == 'false'       or wikiValue == 'falsch'       or wikiValue == 'nein'    then       return wikidataCategories    end     -- processing wikiValue    if wikiValue ~= '' then              -- displaying the wikiValue       numberString = wikiValue        -- removing wikidata content class       wikidataClass = ''              -- removing spaces, periods and letters       wikiValue = string.gsub ( wikiValue, '[^%d,]', '' )              -- comparison       if ( wikiValue ~= '' ) and ( wikidataNumber[1] ~= nil ) and ( wikidataCat[property] ~= nil ) then          -- are the values equal?          if wikidataNumber[1].amount == tonumber ( wikiValue ) then             category = wikidataCat[property].equalData             wikidataEqualData = true          else             category = wikidataCat[property].noEqualData             wikidataNoEqualData = true          end                end    end     -- displaying only, if any data available    local trClass = ''    if numberString == '' then       trClass = ' voy-qb-empty'    end     -- creating the table row     local tr = mw.html.create ( 'tr' )        -- first table cell (heading)    local trLabel = '&nbsp;'    if units[property] ~= nil then         trClass = ' ' .. units[property].cssClass .. trClass         trLabel = units[property].label    end    tr:addClass('voy-qb-item' .. trClass )       :tag('th')       :addClass('voy-qb-item-key')       :wikitext(trLabel)        -- second table cell (the requested number)    if wikidataNoData then       tr:tag('td')          :addClass( 'voy-qb-item-value1 voy-qb-item-value-nowikidata' .. wikidataClass )             :attr('data-wikidata-id',wikidataID)             :attr('title','Kein(e) ' .. trLabel .. ' auf Wikidata' )          :wikitext( numberString )    elseif wikidataEqualData then       tr:tag('td')             :addClass( 'voy-qb-item-value1 voy-qb-item-value-wikidata-equal' .. wikidataClass )             :attr('data-wikidata-id',wikidataID)             :attr('data-wikidata-value',wikidataString)             :attr('title','Daten identisch - Angabe auf Wikidata: ' .. wikidataString)             :wikitext( numberString )    elseif wikidataNoEqualData then       tr:tag('td')             :addClass( 'voy-qb-item-value1 voy-qb-item-value-wikidata-noequal' .. wikidataClass )             :attr('data-wikidata-id',wikidataID)             :attr('data-wikidata-value',wikidataString)             :attr('title','Daten unterschiedlich - Angabe auf Wikidata: ' .. wikidataString)             :wikitext( numberString )    else       tr:tag('td')             :addClass( 'voy-qb-item-value1' .. wikidataClass )             :attr('data-wikidata-id',wikidataID)             :attr('data-wikidata-value',wikidataString)             :wikitext( numberString )    end     -- returning the row    return tostring ( tr ) .. category .. wikidataCategories     end  -- Language-dependent sorting substitutes local substitutes = {    { l = 'ä', as = 'a' },    { l = 'ö', as = 'o' },    { l = 'ü', as = 'u' },    { l = 'ß', as = 'ss' } }  local function convertForSort( s )    s = mw.ustring.lower( s )    for i, obj in ipairs( substitutes ) do       s = mw.ustring.gsub( s, obj.l, obj.as )    end    return s end  GetNumber.getExchangeRatesList = function ( frame )     local uu = require( 'Module:URLutil' )     local cdg = mw.loadData( 'Module:CountryData/Geography' )    local cdc = mw.loadData( 'Module:CountryData/Currencies' )    local rows = {}    local iso      -- Wikidata-Values    local numberList    local wikidataID    local categories    local wikidataString    local wikidataDelimiter      -- Commons: two tables with currency exchange rates    exchangeTable1 = mw.ext.data.get( 'ECB euro foreign exchange reference rates.tab' )    exchangeTable2 = mw.ext.data.get( 'Xe.com exchange rates.tab' )     local exchangeRate    local exchangeDate    local exchangeSource    local exchangeTable    local exchangeString     -- List of References to avoid multiple references    local referenceList = {}    local referenceCount = 1     for key, value in pairs( cdg.countries ) do        if cdc.currencies[value.currency] ~= nil then          iso = cdc.currencies[value.currency].iso       else          iso = ''       end        -- Wikidata       wikidataString = '&nbsp;'       wikidataDelimiter = ''        numberList, wikidataID, categories = getNumbersAsTable ( value.currency, 'P2284' )        for i, entry in ipairs( numberList ) do           if entry.time ~= nil then             wikidataString = wikidataString .. wikidataDelimiter .. lang:formatNum ( _round ( entry.amount, 6 ) ) .. '&#x202F;€&nbsp;<small>(' .. lang:formatDate( 'd.m.Y', entry.time ) .. ')</small>'          else             wikidataString = wikidataString .. wikidataDelimiter .. lang:formatNum ( _round ( entry.amount, 6 ) ) .. '&#x202F;€'          end           if #entry.references > 0 then              for j, refEntry in ipairs ( entry.references ) do                -- does reference exists already or not?                if referenceList[refEntry] ~= nil then                   wikidataString = wikidataString .. frame:extensionTag{ name = 'ref', content = '', args = { name = referenceList[refEntry] } }                else                   wikidataString = wikidataString .. frame:extensionTag{ name = 'ref', content = '[' .. refEntry .. ' ' .. uu.URLutil().getHost( refEntry ) .. ']', args = { name = 'ref_' .. referenceCount } }                   referenceList[refEntry] = 'ref_' .. referenceCount                   referenceCount = referenceCount + 1                end             end          end           wikidataDelimiter = ';'        end        -- Commons       exchangeRate = 0       exchangeDate = ''       exchangeSource = ''       exchangeTable = {}       exchangeString = ''        if iso ~= '' and iso ~= 'EUR' then           wikidataRate = GetNumber.getNumbersWithUnit ( value.currency, 'P2284', nil, nil, 5, 'short-date-ref', nil, frame )           for i, entry in pairs ( exchangeTable1.data ) do             if entry[1] == iso then                exchangeRate = tonumber ( entry[2] )                exchangeDate = entry[3]                exchangeSource = coalesce ( exchangeTable1.sources, '' )                break             end          end           -- trying Commons: Data:Xe.com exchange rates.tab          if exchangeRate == 0 then              for i, entry in pairs ( exchangeTable2.data ) do                if entry[1] == iso then                   exchangeRate = tonumber ( entry[3] )                   exchangeDate = entry[6]                   exchangeSource = coalesce ( exchangeTable2.sources, '' )                   break                end             end           end           if exchangeRate > 0 then              -- does reference exists already or not?             if referenceList[exchangeSource] ~= nil then                exchangeString = lang:formatNum ( _round ( 1 / exchangeRate, 6 ) ) .. '&#x202F;€&nbsp;<small>(' .. lang:formatDate ( 'd.m.Y', exchangeDate ) .. ')</small>' .. frame:extensionTag{ name = 'ref', content = '', args = { name = referenceList[exchangeSource] } }             else                exchangeString = lang:formatNum ( _round ( 1 / exchangeRate, 6 ) ) .. '&#x202F;€&nbsp;<small>(' .. lang:formatDate ( 'd.m.Y', exchangeDate ) .. ')</small>' .. frame:extensionTag{ name = 'ref', content = '[' .. exchangeSource .. ' ' .. uu.URLutil().getHost( exchangeSource ) .. ']', args = { name = 'ref_' .. referenceCount } }                referenceList[exchangeSource] = 'ref_' .. referenceCount                referenceCount = referenceCount + 1             end           end        end              if iso ~= '' then          table.insert( rows, ( '<tr><td>%s</td><td>%s</td><td>%s</td><td>%s</td></tr>' ):format (             coalesce ( value.country, 'unbekannt' ), iso, wikidataString, exchangeString ) )       end     end     table.sort( rows,        function( a, b ) return convertForSort ( a ) < convertForSort ( b ) end    )     table.insert( rows, 1, '<table class="prettytable sortable multiline" cellspacing="0">\n'       .. '<tr><th>Land</th><th>Währung</th><th>Kurs Wikidata</th><th>Kurs Commons</th></tr>' )        table.insert( rows, '</table>' )     return table.concat( rows, '\n' ) .. categories  end  -- Providing template access local p = {}  function p.getNumbersWithUnit( frame )    return GetNumber.getNumbersWithUnit( frame.args[ 1 ], frame.args[ 2 ], frame.args[ 3 ], frame.args[ 4 ], frame.args[ 5 ], frame.args[ 6 ], frame.args[ 7 ], frame ) or "" end  function p.getNumbersWithDate( frame )    return GetNumber.getNumbersWithDate( frame.args[ 1 ], frame.args[ 2 ], frame.args[ 3 ], frame.args[ 4 ], frame.args[ 5 ], frame.args[ 6 ], frame.args[ 7 ] ) or "" end  function p.getCoordinateAsText( frame )    return GetNumber.getCoordinateAsText( frame.args[ 1 ], frame.args[ 2 ] ) or "" end  function p.getNumbersWithUnitQuickbar( frame )    return GetNumber.getNumbersWithUnitQuickbar( frame.args[ 1 ], frame.args[ 2 ], frame.args[ 3 ], frame.args[ 4 ], frame.args[ 5 ] ) or "" end  function p.getNumbersWithDateQuickbar( frame )    return GetNumber.getNumbersWithDateQuickbar( frame.args[ 1 ], frame.args[ 2 ], frame.args[ 3 ] ) or "" end  function p.getExchangeRatesList( frame )    return GetNumber.getExchangeRatesList( frame ) or "" end -- for usage in other modules -- using it the following way: -- -- local getNumber = require( 'Module:GetNumber' ) -- foo = getNumber.GetNumber().xxx( id, lang ) function p.GetNumber()    return GetNumber end  return p